[Jorge Moreno]

<<TOC>>

** contact **
jorge raul moreno -at- hot mail -dot- com

''I heard that every android has a wish: to be ticklish...''<<br>>
This Android never suffered Pteronophobia (the fear of being tickled by feathers!)

[androwishIcon3%|% width=100 height=100]

** Great Tutorials **

   * Learn X in Y minutes (Where X=Tcl) https://learnxinyminutes.com/docs/tcl/
   * A Brief Introduction to Tcl/Tk ftp://ftp.oreilly.com/pub/convention/os/tutorial/tcltk.pdf

** My Books:**
%|Title|Author|%
&|Practical Programming in Tcl and Tk |Brent Welch|&
&|Effective Tcl/Tk Programming |Mark Harrison/Michael McLennan|&
&|Tcl/Tk for Real Programmers |Clif Flynt|&
&|The Tcl Programming Language |Ashok P Nadkarni|&

Effective Tcl/Tk Programming
----
** Pages I started...**
   * [LogParser]
   * [LogParser goes COM]
   * [playing BLT]
   * [timeliner (minutes instead of years)]
   * [multiple timers]
   * [a form for Access Database]
   * [Clif Flynt Articles]
   * [LemonTree branch]
   * [Tclodbc + BLT]
   * [a perpetual calendar]
   * [JeeMon]
   * [Mavrig]
   * [LemonTree Org Chart] Oct-9-2012
   * [Playing PIC Simulation] Nov-11-2012
   * [Web Scraping with htmlparse] Dec-4-2012
   * [CGI script for directory listing, simple posts and templates] Dec-29-2012
   * [Androwish: Icon]
   * [colorized crc]
   * [plink]
   * [Interfacing PS2 Keyboard with Arduino and Androwish]
   * [BLT data series in rows or columns]
   * [Androwish Serial Port]
----
** pages where I have made minor edits...**
   * [Wiki format to HTML] on 7/8/2011
   * [toggle button] on Feb-2011
   * [web2desktop] on 7/27/2011
   * [Turtle Shell for Androwish] 3/21/2014
   * [Ticker] 4/2/2014
   * [True Random Numbers] 4/3/2014
----
** when programming with Tcl, I use:**

for XML parsing
   * drive [LogParser] through COM and Tcl

web scrapping
   * tool that helps: firefox add-on that shows tdom structure (DOM Inspector)
   * tool that shows http protocol (HttpFox)
   * [LemonTree branch]

diagrams
   * http://www.graphviz.org/
   * [Tcldot]
   * [XML Graph to canvas]
   * [Generating Syntax Diagrams Using Tk]

WebServer
   * [Wibble]
   * [tclHttpd]

Static content
   * [MajaMaja]

driving other windows application
   * [cwind]

Most used:
   * [tclODBC]
   * [BLT]
   * [tablelist]

----
** Bookmarks:**
   * [Windows wish console]
   * [a little spreadsheet]
   * [Using Tcl to write WWW client side applications within the WWW browser]
   * Home Automation Portal Appliance with Tcl: http://hometoys.com/emagazine.php?url=/htinews/apr06/articles/appliance/part2.htm
   * http://net.tutsplus.com/tutorials/other/http-headers-for-dummies/
----
   * [Teach programming to children]
   * [High-level wrapper for pdf4tcl]
   * http://tcl.projectforum.com/young/22
   * http://incrtcl.sourceforge.net/itcl/mmc/snaps.html
   * [Quick photo rotation] which includes how to rotate a label...
----
2013-12-07 [A few of your favorite things] about editing scripts with [Tkcon]<<br>>
2014-06-25 [Hack-O-Matic]<<br>>
2014-08-09 [filewait]<<br>>
2014-08-22 [Quick Formatting ANSI Colour Escape Strings]<<br>>
2014-08-22 [cgrep - Color your output with regular expressions!]<<br>>
2014-10-03 [WikIndent] input line by line<<br>>
2015-01-13 [Heronian triangles] sqlite<<br>>
2015-03-13 [Freecell] for a cross platform alternative to SystemButtonFace color<<br>>
2015-03-13 [Invoking browsers] to launch firefox under linux<<br>>
2015-10-15 [vgrep: a visual grep]<<br>>
2016-11-17 [serial ports on Windows]<<br>>
[Matthias Hoffmann]
   * [Simple Program Menu]
[Detlef Groth]
   * [TemplateRecall]
   * [dgDBBrowser]
[wdb]
   * [MTE]
2017-03-17 [minimalist wget]<<br>>
2017-07-05 [getopt] to parse out switches from the command line (argv) by name<<br>>
2017-07-11 [LiSA]<<br>>
SWIG exemples http://wfr.tcl.tk/1693 <<br>>
Scan and modify text files http://wiki.tcl.tk/15518 <<br>>
Easy Text Print (includes awk) http://wiki.tcl.tk/42409 <<br>>
'xpg' - a text file browser (includes awk) http://wiki.tcl.tk/38443 awk and shell script <<br>>
%|Date|Page|tags|%
&|2017-12-20|[Get CPU Temperature Statistics]|sqlite|&
&|2017-12-28|[w3m]|automate web browser with Expect|&

6/7/2018 Web HTML http
   * [MkBugs]
   * [Editing the Tcl'ers Wiki using an editor of your choice]
   * [My first wapp-lication]
   * [Tcl does OCR online] 3/27/2019

** My formatting guide**
Italics: ''My quick reference''<<br>>
Bold: '''My formatting guide'''<<br>>
======
puts "Tcl is great!"
======

 puts "did I mention that Tcl is great?"

======
puts "Tcl/Tk"
======

Links:<<br>>
For [Formatting Rules] click [Formatting Rules%|%here%|%] or http://wiki.tcl.tk%|%here%|%

<<br>>
[graffiti]
----

** tclODBC + tclhttpd **
''[JM] 22 Jul 2011'' - I was just playing a little bit with [tclhttpd] by putting the following code on the file: \htdocs\cgi-bin\test.cgi

 package require tclodbc
 set driver "Microsoft Access Driver (*.mdb)"
 set dbfile "C:\\Program Files\\Microsoft Office\\office11\\samples\\Northwind.mdb"

 puts [html::h3 "getting info from Access through tclODBC..."]
 puts "<table border=1 cellpadding=4>"
 database connect db "DRIVER=$driver;DBQ=$dbfile"
    
 foreach rec [db "select EmployeeID,LastName,FirstName FROM Employees;"] {
   puts "<tr>"
   foreach field $rec {
     puts "<td>$field</td>"
   }   
     puts "</tr>"
 } 
 puts "</table>" 
 db disconnect

just after the following existing lines:

 puts [html::h1 "Hello, World!"]
 puts [html::h2 [clock format [clock seconds]]]

and I got a dynamic page that queries the database that comes as a sample with the [Microsoft Access] installation.

you can get there by means of the '''CGI''' link on the home page, then through the '''Sample form posted to test.cgi''' and finally hitting the "Submit Query" button.

----

** pscp **
''[JM] 7 Sep 2013'' - pscp from the http://www.chiark.greenend.org.uk/~sgtatham/putty/%|%putty%|% family of tools, see also plink
   * The following script runs on a windows machine
   * Getting a file from an ubuntu machine
   * The file will be copied to c:\putty in this case

 console show
 proc action {} {
   cd c:/putty
   set f [open "|\"pscp.exe\" -l jorge -pw yourpwd [.from get]:[.path get] ."]
   puts done
 }
 entry .from
 entry .path -width 50
 button .button -text get -command action

 .from insert 0 jorge@192.168.1.82
 .path insert 0 /home/jorge/sample.txt

 pack .from .path .button
** gnuplot and the tkcanvas terminal type **
''[JM] 26 Oct 2013'' - I dont know why, but I had to put some puts commands after the [source] command to make http://wfr.tcl.tk/273%|%it%|% work, if not, I was getting an error saying that the gnuplot commmand did not exist
 console show
 #set gpexe C:/gnuplot-4.0/bin/pgnuplot.exe
 set gpexe "C:/Program Files (x86)/gnuplot/bin/pgnuplot.exe"
 #set outfile C:/data/resultat.tk
 set outfile "C:/Users/jmoreno/Documents/code/gnuplot/resultat.tk"

 set gp [open "|\"$gpexe\"" r+]
 puts $gp "set term tk"
 puts $gp "set output '$outfile'"
 puts $gp "set noborder\nset zeroaxis"
 puts $gp "set xtics 1\nset ytics .5"
 puts $gp "plot \[-2:2\] atan(x)"
 close $gp

 pack [canvas .c]
 source $outfile
 puts $outfile
 puts [info commands gnu*]
 update
 gnuplot .c

''[JM] 7 Nov 2014'' - Looks like the real fix is this (just waiting a little, to let pgnuplot.exe to completely close):
 console show
 #set gpexe C:/gnuplot-4.0/bin/pgnuplot.exe
 set gpexe "C:/Program Files (x86)/gnuplot/bin/pgnuplot.exe"
 #set outfile C:/data/resultat.tk
 set outfile "C:/Users/jmoreno/Documents/code/gnuplot/resultat.tk"

 set gp [open "|\"$gpexe\"" r+]
 puts $gp "set term tk"
 puts $gp "set output '$outfile'"
 puts $gp "set noborder\nset zeroaxis"
 puts $gp "set xtics 1\nset ytics .5"
 puts $gp "plot \[-2:2\] atan(x)"
 close $gp
 after 1000
 pack [canvas .c]
 source $outfile
 #puts "we are at: [pwd]"
 #puts $outfile
 #puts [info commands gnu*]
 #update
 gnuplot .c
** Expect **
''[JM] 18 Feb 2014'' - The following example was good for me to try the basics<<br>>
[Remote input-output with Expect]
** XML Post HTTP **
''[JM] 26 Feb 2017'' - from:<<br>>
https://groups.google.com/forum/#!topic/comp.lang.tcl/B6afDJQg8LA

 package require http
 console show

 set organism_name "nipah"
 set xml "
 <?xml version=\"1.0\" encoding=\"UTF-8\"?>
 <orgPdbQuery>
 <version>B0905</version>
 <queryType>org.pdb.query.simple.OrganismQuery</queryType>
 <description>Organism Search : Organism Name=$organism_name </description>
 <organismName>$organism_name</organismName>
 </orgPdbQuery>
 "
 set url "http://www.rcsb.org/pdb/rest/search"

 set tok [::http::geturl $url -query $xml -type application/x-www-form-urlencoded]
 set rep [::http::data $tok]
 puts "[::http::status $tok]"
 puts $rep

 ::http::cleanup $tok 

** Where is tablelist? **
 % package require tablelist
 5.13
 % package ifneeded tablelist 5.13
 package provide tablelist 5.13;source -encoding utf-8 C:/Tcl/lib/teapot/package/tcl/teapot/tcl8/8.0/tablelist-5.13.tm
 %

                                                       C:\Tcl\lib\teapot\package\tcl\lib\tablelist_common5.13

** RS Script Catalog **

+&
| 1
| [A Dilbert reformatter]
| [WikiDbImage dil030720.jpg]
+&
| 2
| [a little code page browser]
| [WikiDbImage codepages.jpg]
+&
| 3
| [A little file searcher (iPaq)]
| [WikiDbImage tgrep_ce.jpg]
+&
| 4
| [A little file searcher]
| [WikiDbImage tgrep.jpg]
+&
| 5
| [A little fortune teller]
| [WikiDbImage tkfortune.jpg]
+&
| 6
| [A little login dialog]
| [WikiDbImage login.jpg]
+&
| 7
| [A little multiplication toy]
| [WikiDbImage multiply.jpg]
+&
| 8
| [A little value dialog]
| [WikiDbImage valuedialog.jpg]
+&
| 9
| [A little XML browser]
| [WikiDbImage xmltree.jpg]
+&
| 10
| [A Mini Database Manager]
| [http://www.eolas.net/tcl/mini-db-mgr.gif]
+&
| 11
| [A symmetric doodler]
| [WikiDbImage symdoodle.jpg]
+&
| 12
| [A toy piano]
| [WikiDbImage piano.jpg]
+&
| 13
| [An APL playstation]
| [WikiDbImage aplkbd.gif]
+&
| 14
| [Canvas presentation graphics]
| [WikiDbImage present.jpg]
+&
| 15
| [Canvas rectangle marking]
| [Canvas rectangle marking screenshot png]
+&
| 16
| [Chess in Tcl]
| [WikiDbImage chess.jpg]
+&
| 17
| [Code 39 generation]
| [WikiDbImage test8252v.gif]
+&
| 18
| [Describing and rendering flags in Tcl]
| [http://www.purl.org/NET/akupries/noway/flags.gif]
+&
| 19
| [Fun with functions]
| [WikiDbImage funplot.jpg]
+&
| 20
| [Graph theory in Tcl]
| [http://wfr.tcl.tk/fichiers/images/editeur_graphes.jpg]
+&
| 21
| [Horseracing in Tcl]
| [WikiDbImage horses.jpg]
+&
| 22
| [iDict: a multilingual dictionary]
| [WikiDbImage idict.jpg]
+&
| 23
| [iFile: a little file system browser]
| [WikiDbImage ifile01.jpg]
+&
| 24
| [iFly]
| [WikiDbImage iFly.jpg]
+&
| 25
| [iMap: an indexed map viewer]
| [WikiDbImage imap.jpg]
+&
| 26
| [iShow]
| [WikiDbImage ishow.jpg]
+&
| 27
| [Model railroading with Tcl]
| [Model-railroading_loco]
+&
| 28
| [Notes on a canvas]
| [http://www.purl.org/NET/akupries/noway/note.gif]
+&
| 29
| [Photo image rotation]
| [WikiDbImage imgrot.jpg]
+&
| 30
| [PocketPC]
| [WikiDbImage ChessOnJornada.jpg]
+&
| 31
| [strimj - string image routines]
| [WikiDbImage strimj.jpg]
+&
| 32
| [taiku goes multilingual]
| [WikiDbImage taiku.jpg]
+&
| 33
| [Tclworld]
| [http://www.eteamz.com/cmym/images/tclworld2.jpg]
+&
| 34
| [The Q function]
| [WikiDbImage q.jpg]
+&
| 35
| [TkSnake]
| [WikiDbImage TkSnake.jpg]
+&
| 36
| [Trees as nested lists]
| [http://www.florentmerlet.com/images/treeAsNestedList.gif]
+&
| 37
| [XML Graph to canvas]
| [WikiDbImage doteddemo.jpg]

+&
| 1
| [Visual TAL]
| [tal.tcl_002.png]
+&
| 2
| [string geometry]
| [string_geom.png]
+&
| 3
| [vgrep: a visual grep]
| [vgrepSS]
+&
| 4
| [A tiny Tcl server]
| [WikiDbImage tclserve.jpg]
+&
| 5
| [checkvar]
| [WikiDbImage checkvar.jpg]
+&
| 6
| [Yin-yang]
| [https://wiki.tcl-lang.org/_repo/wiki_images/yinyang.jpg]
+&
| 7
| [A tiny notebook]
| [WikiDbImage notebook.jpg]
+&
| 8
| [editRecord]
| [WikiDbImage editRecord.jpg]
+&
| 9
| [Simple search and replace]
| [WikiDbImage searchrep.jpg]
+&
| 10
| [Sepp]
| [WikiDbImage see_inline.jpg]
+&
| 11
| [encoview as eTcl plugin]
| [WikiDbImage encoview.jpg]
+&
| 12
| [htext as eTcl plugin]
| [WikiDbImage htext_ppc.jpg]
+&
| 13
| [Shaded text on canvas]
| [WikiDbImage shadetext.jpg]
+&
| 14
| [Playing SHARK]
| [WikiDbImage shark.jpg]
+&
| 15
| [Lotto]
| [WikiDbImage lotto.jpg]
+&
| 16
| [Iris animation]
| [WikiDbImage iris.jpg]
+&
| 17
| [The house of Santa Claus]
| [WikiDbImage nikolaus.gif]
+&
| 18
| [A little NNTP reader]
| [WikiDbImage nntp.jpg]
+&
| 19
| [RS's RSS]
| [WikiDbImage rssrss.jpg]
+&
| 20
| [A tiny drawing program]
| [WikiDbImage tinydraw.jpg]
+&
| 21
| [Cursor demo]
| [WikiDbImage cursors.jpg]
+&
| 22
| [Domino]
| [WikiDbImage domino.gif]
+&
| 23
| [Elevator simulation]
| [WikiDbImage elevator.gif]
+&
| 24
| [moon phase]
| [http://dire.straits.free.fr/vertigo/ScreenShot_Moon.jpg]
+&
| 25
| [Face control]
| [WikiDbImage facecontrol.gif]
+&
| 26
| [Toy car workshop]
| [WikiDbImage steamroller.gif]
+&
| 27
| [Playing WIMP]
| [WikiDbImage mycon.jpg]
+&
| 28
| [Polygon intersection]
| [Polygon intersection screenshot]
+&
| 29
| [Playing HTTP]
| [WikiDbImage myhttp.jpg]
+&
| 30
| [Steganography]
| [http://en.wikipedia.org/wiki/File:StenographyRecovered.png]
+&
| 31
| [Elegance vs. performance]
| [WikiDbImage elegance.jpg]
+&
| 32
| [A minimal doodler explained]
| [WikiDbImage doodler.jpg]
+&
| 33
| [A little slide-rule]
| [WikiDbImage sliderule.jpg]
+&
| 34
| [Revello]
| [WikiDbImage revello.jpg]
+&
| 35
| [TclTrain]
| [WikiDbImage tcltrain.jpg]
+&
| 36
| [Animated Kanji]
| [WikiDbImage kanji.jpg]
+&
| 37
| [A little man page viewer]
| [WikiDbImage man2text.jpg]




<<categories>> Person