98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
e.g. {set x -44; expr {-$x}} -> 44
e.g. {expr 1<<3} -> 8
e.g. {file dirname foo/bar/grill} -> foo/bar
e.g. {file dirname /foo/bar/grill} -> /foo/bar
e.g. {file extension foo.txt} -> .txt
e.g. {file extension Makefile} -> ""
e.g. {file tail foo/bar/grill} -> grill
set forres ""
e.g. {for {set i 0} {$i < 5} {incr i} {append forres $i}; set forres} -> 01234
e.g. {foreach i {a b c d e} {append foreachres $i}; set foreachres} -> abcde
e.g. {format %x 255} -> ff
|
>
>
>
>
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
e.g. {set x -44; expr {-$x}} -> 44
e.g. {expr 1<<3} -> 8
e.g. {file dirname foo/bar/grill} -> foo/bar
e.g. {file dirname /foo/bar/grill} -> /foo/bar
e.g. {file extension foo.txt} -> .txt
e.g. {file extension Makefile} -> ""
e.g. {file join a b c} -> a/b/c
e.g. {file join a /b c} -> /b/c
e.g. {file split a/b/c} -> {a b c}
e.g. {file split /a/b/c} -> {/ a b c}
e.g. {file tail foo/bar/grill} -> grill
set forres ""
e.g. {for {set i 0} {$i < 5} {incr i} {append forres $i}; set forres} -> 01234
e.g. {foreach i {a b c d e} {append foreachres $i}; set foreachres} -> abcde
e.g. {format %x 255} -> ff
|