An Introduction To Tcl Scripting John Ousterhout Sun Microsystems Laboratories john.ousterhout@eng.sun.com Tcl/Tk Tutorial, Part II. - презентация

1 An Introduction To Tcl Scripting John Ousterhout Sun Microsystems Laboratories Tcl/Tk Tutorial, Part II

2 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 2 Language Overview Two parts to learning Tcl: 1. Syntax and substitution rules: –Substitutions simple, but may be confusing at first. 2. Built-in commands: –Can learn individually as needed. –Control structures are commands, not language syntax.

3 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 3 Basics u Tcl script = –Sequence of commands. –Commands separated by newlines, semi-colons. u Tcl command = –One or more words separated by white space. –First word is command name, others are arguments. –Returns string result. u Examples: – set a 22; set b 33 – set a 22 set b 33

4 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 4 Division Of Responsibility Tcl Parser Command Procedure Command Words Result u Interprets words. u Produces string result. u Chops commands into words. u Makes substitutions. u Does not interpret values of words.

5 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 5 Arguments u Parser assigns no meaning to arguments (quoting by default, evaluation is special): C: x = 4; y = x+10 y is 14 Tcl: set x 4; set y x+10 y is "x+10" u Different commands assign different meanings to their arguments: set a 122 expr 24/3.2 eval "set a 122" button.b -text Hello -fg red string length Abracadabra

6 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 6 Variable Substitution Syntax: $ varName u Variable name is letters, digits, underscores. u May occur anywhere in a word. Sample commandResult set b 6666 set a bb set a $b66 set a $b+$b+$b set a $b set a $b4 no such variable

7 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 7 Command Substitution u Syntax: [script] u Evaluate script, substitute result. u May occur anywhere within a word. Sample commandResult set b 88 set a [expr $b+2]10 set a "b-3 is [expr $b-3]"b-3 is 5

8 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 8 Controlling Word Structure u Words break at white space and semi-colons, except: –Double-quotes prevent breaks: set a "x is $x; y is $y" –Curly braces prevent breaks and substitutions: set a {[expr $b*$c]} –Backslashes quote special characters: set a word\ with\ \$\ and\ space u Substitutions don't change word structure: set a "two words" set b $a

9 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 9 Expressions u C-like (int and double), extra support for string operations. u Command, variable substitution occurs within expressions. Used in expr, other commands. Sample commandResult set b 55 expr ($b*4) expr $b <= 20 expr $a * cos(2*$b) expr {$b * [fac 4]}120 set a BillBill expr {$a < "Anne"}0

10 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 10 Lists u Zero or more elements separated by white space: red green blue u Braces and backslashes for grouping: a b {c d e} f one\ word two three u List-related commands: concatlindexllengthlsearch foreachlinsertlrangelsort lappendlistlreplace u Examples: lindex {a b {c d e} f} 2 н c d e lsort {red green blue} н blue green red

= 0} { lappend b" title="Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 11 Control Structures u C-like appearance. u Just commands that take Tcl scripts as arguments. u Example: list reversal. set b "" set i [expr [llength $a] - 1] while {$i >= 0} { lappend b" class="link_thumb"> 11 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 11 Control Structures u C-like appearance. u Just commands that take Tcl scripts as arguments. u Example: list reversal. set b "" set i [expr [llength $a] - 1] while {$i >= 0} { lappend b [lindex $a $i] incr i -1 } u Commands: ifforswitchbreak foreachwhileevalcontinue = 0} { lappend b"> = 0} { lappend b [lindex $a $i] incr i -1 } u Commands: ifforswitchbreak foreachwhileevalcontinue"> = 0} { lappend b" title="Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 11 Control Structures u C-like appearance. u Just commands that take Tcl scripts as arguments. u Example: list reversal. set b "" set i [expr [llength $a] - 1] while {$i >= 0} { lappend b">

12 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 12 Procedures proc command defines a procedure: proc sub1 x {expr $x-1} u Procedures behave just like built-in commands: sub1 3н 2 u Arguments can have defaults: proc decr {x {y 1}} { expr $x-$y } u Scoping: local and global variables. name list of argument names body

13 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 13 Procedures, cont'd u Variable-length argument lists: proc sum args { set s 0 foreach i $args { incr s $i } return $s } sum н 15 sum н 0

14 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 14 Errors u Errors normally abort commands in progress, application displays error message: set n 0 foreach i { } { set n [expr {$n + i*i}] } н syntax error in expression "$n + i*i" Global variable errorInfo provides stack trace: set errorInfo н syntax error in expression "$n + i*i" while executing "expr {$n + i*i}" invoked from within "set n [expr {$n + i*i}]..." ("foreach" body line 2)...

15 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 15 Advanced Error Handling u Can intercept errors: catch {expr {2 +}} msg н 1 set msg н syntax error in expression "2 +" u Can generate errors: error "bad argument" Global variable errorCode holds machine-readable information about errors (e.g. UNIX errno value).

16 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 16 Additional Tcl Features: u String manipulation commands: regexpformatsplitstring regsubscanjoin u File I/O commands: opengetsseekflushglob closereadtellcd putssourceeofpwd Subprocesses with exec command: exec grep foo << $input | wc

17 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 17 Additional Tcl Features, cont'd u Associative arrays: set x(fred) 44 set x(2) [expr $x(fred) + 6] array names x н fred 2 u Variable scoping: globaluplevelupvar u Access to Tcl internals: inforenametrace

18 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 18 Additional Tcl Features, cont'd u Autoloading: – unknown procedure invoked when command doesn't exist. –Loads procedures on demand from libraries. –Uses search path of directories. u Coming soon (Tcl 7.5): –Dynamic loading of binaries: load command. –Security: Safe-Tcl. –Event-driven I/O. –Socket support.

19 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 19 More On Substitutions Keep substitutions simple: use commands like format for complex arguments. Use eval for another level of expansion: exec rm *.o н *.o: No such file or directory glob *.o н a.o b.o exec rm [glob *.o] н a.o b.o: No such file or directory eval exec rm [glob *.o]

20 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 20 Commands And Lists: Quoting Hell u Lists parse cleanly as commands: each element becomes one word. u To create commands safely, use list commands: button.b -text Reset -command {set x $initValue} ( initValue read when button invoked)... -command "set x $initValue" (fails if initValue is " New York ": command is " set x New York ")... -command "set x {$initValue}" (fails if initValue is " { ": command is " set x {{} ")... -command [list set x $initValue] (always works: if initValue is " { " command is " set x \{ ")

21 Tcl/Tk Tutorial Part II: Tcl ScriptingDecember 12, 1995, slide 21 Tcl Syntax Summary u Script = commands separated by newlines or semicolons. u Command = words separated by white space. $ causes variable substitution. [] causes command substitution. "" quotes white space and semi-colons. {} quotes all special characters. \ quotes next character, provides C-like substitutions. # for comments (must be at beginning of command).