1
2
3
4
5
proc log { line {nonew 0}} {
   global logfh
   if {$nonew} { puts -nonewline stdout $line; flush stdout } else { puts stdout $line }
   if {$nonew} { puts -nonewline $logfh $line; flush $logfh } else { puts $logfh $line }
}

1
2
3
4
5
6
7
8
9
puts "       -p <password>              (required)"
   puts "       -d <db>                 (required)"
   puts "       -v <copsVersion>                (default: 4); Note: only acceptable version"    
   puts "       -l <caseLimit>          (default: 50)"
   puts "       -f <dateFrom>           MM/DD/YYYY (default: no start)"
   puts "       -t <dateThru>           MM/DD/YYYY (default: no end)"
   puts "       -R <ruleId(s)>          comma separated list (default: all)"
   puts "       -c <claim id file>       get only claims in this file (overrides options -l, -f, -t, -R)"
   puts "                                format is: <ic_claim_id><tab><ic_claim_version_id>"
 ...

1
puts "       -u <user>          (required)" 

1
puts "\nusage: tclsh $argv0 -u <user> -p <password> -d <db> \[-v 4\] \[-l #\] \[-f <date>\] \[-t <date>\] \[-R <ruleId(s)>\] \[-c <file>\] \[-s #\] \[-i\] \[-b\] \[-S <option>\] \[-T\]\n"

1
2
set found(u) "H"
puts $found(u)

1
2
set found(u) ""
puts $found(u)

1
2
3
4
5
set serviceSql {
   select * from all_col_comments 
   where table_name = 'RULES_FLAT' 
   and column_name = 'SERVICE'
}

1
 

1
puts "hello" usage

1
while { [ set err [ getopt $argv "u:p:d:v:l:f:t:R:c:s:ibS:T" opt arg ]] }

1
 

1
0><|=02|), )-(4|_||°7574|)7 |)32 3|\|61!5()-(3|\| 624|=5()-(4|=7 0><|=02|)5)-(!23 I33)-(32I33267 3!|\|!63 31!73|_||\|!\/325!7°A°73|\|. |_||\||) |)|_| 63)-(°O°257 4|_|()-( z|_| 3!|\|32 31!73 - |)3|\||\| |)|_| |<4|\||\|57 |)!353|\| 73><7 1353|\| |)32 !|\| 13375|°34|< 635()-(2!3I33|\| !57. \/\/45 ? |)|_| )-(457 \/02)-(32 |\|0()-( |\|!3 \/\/45 |)4\/0|\| 63)-(°O°27 ? 72°O°573 |)!()-( 35 63)-(7 \/!313|\| 50. 3|\|7\/\/3|)32 I3!57 |)|_| °U°I332 |)3|\| )-(!|\|7 )-(!32 )-(32 63|<0/\/\/\/\3|\| 0|)32 |)|_| \/\/4257 5()-(0|\| !/\/\/\/\32 3!|\| \/\/!553|\||)32. 3!|\|3213!, _|37z7 63)-(7 35 4I3 !|\| |)!3 |\|47|_|2. |)3|\| (4()-(3 5|_|()-(3|\|. |_||\||) |)3|\| |=!|\||)357 |)|_| )-(!32: |\|02|) \/!32 4()-(7 624|) |\||_|11 4()-(7 |°|_||\||<7 \/!32 5!3I33|\| |=°U°|\||= 057 |\||_|11 3!|\|5 53()-(5 624|) 3!|\|5 |=°U°|\||= |°|_||\||<7 |\||_|11 |\|3|_||\| |=°U°|\||= \/!31 5|°4ß |_||\||) 32|=016. 

1
2
3
4
5
6
7
% proc run M {
    set sum 0
     for {set a 3} {a<=M} {incr a} {
         incr sum [expr {a∗2∗((a-1)/2)}]
     }
    set sum
}

1
2
3
4
5
6
7
8
9
f~^kn~+c+ia~^+~cf+?/                        
                   [f!c-ki~:~b/au>++*+k~~r~bn!*+i                   
                <kk]k/>rkbrn~!:?[->+uc*a+af~>^b+ub+k                
              +i?:fn>+b+kb^+>kn?+ii/kb++u>?a+^+?+u>u?c+             
            i:+~/+>++:kba+~b?+:>+rr!b+k+++u?n<k!b**<i<c~i           
          <!^<<<<krb~^/]>>-u~/*-:<ck^<++!!:n+!kcbinc[~kr-:          
         *k:!kb?>c~>>*u!nnrbabi>+irn>i?+~+?>icc*+ci+i+!<<rb         
        ^knnb<!<!i<b^r<i!^/]>f/>>a/?>i~>~>>>b--.r/rucffa!/<n        
        <:u<?ua<cr<*:<i:bb<fu/nb.>b:r:*?**>n:!>::~/*+.>>r-:.:       
 ...

1
puts "hello world"

1
2
3
4
5
6
proc RandomInt {{max 10} min} {
set i [expr int($min + (rand() * ($max-$min + 1)))];
return $i;
}
puts "Number between 0 and 100: [RandomInt 100 0]";
puts "Number between 1 and 4: [RandomInt 4]";

1
2
3
4
5
6
proc RandomInt {max {min 1}} {
set i [expr int($min + (rand() * ($max-$min + 1)))];
return $i;
}
puts "Number between 0 and 100: [RandomInt 100 0]";
puts "Number between 1 and 4: [RandomInt 4]";

1
2
3
4
5
6
proc RandomInt {max {min 1}} {
set i [expr int($min + (rand() * ($max – $min + 1)))];
return $i;
}
puts "Number between 0 and 100: [RandomInt 100 0]";
puts "Number between 1 and 4: [RandomInt 4]";

1
2
3
4
5
6
7
8
proc demo {argument1 {default "DefaultValue"} } {
    puts "This is a demo proc.  It is being called with $argument1 and $default"
    #
    # We can use [info level] to find out if a value was given for
    # the optional argument "default" ...
    #
    puts "Actual call: [info level [info level]]"
}
 ...

1
set "alfonso"

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
print ciao

1
2
3
4
5
6
7
8
9
.data
x:
        .long   0
s:
        .string "%d\n\0"
 
.text
.global main
main:                           # int main()
 ...

1
expr 1 + 1

1
2
3
4
5
6
7
8
9
.data
x:
        .long   0
s:
        .string "%d\n\0"
 
.text
.global main
main:                           # int main()
 ...

1
2
3
4
5
6
7
8
9
set cards [list "Queen of Hearts" "3 of Clubs" "9 of Spades" \
"Ace of Hearts" "5 of Diamonds"]
# Ask user for what to search
puts -nonewline "Card for which to search (such as King, Spade, or 9): "
flush stdout
gets stdin card
# Loop until user inputs a matching card
while {[set index [lsearch $cards *[string totitle $card]*]] < 0} {
puts "No such card. Please try again."
 ...

1
2
3
4
5
6
7
8
9
set cards [list "Queen of Hearts" "3 of Clubs" "9 of Spades" \
"Ace of Hearts" "5 of Diamonds"]
# Ask user for what to search
puts -nonewline "Card for which to search (such as King, Spade, or 9): "
flush stdout
gets stdin card
# Loop until user inputs a matching card
while {[set index [lsearch $cards *[string totitle $card]*]] < 0} {
puts "No such card. Please try again."
 ...

1
2
3
4
5
6
7
8
9
set cards [list "Queen of Hearts" "3 of Clubs" "9 of Spades" \
"Ace of Hearts" "5 of Diamonds"]
# Ask user for what to search
puts -nonewline "Card for which to search (such as King, Spade, or 9): "
flush stdout
gets stdin card
# Loop until user inputs a matching card
while {[set index [lsearch $cards *[string totitle $card]*]] < 0} {
puts "No such card. Please try again."
 ...

1
2
3
4
5
6
7
8
9
set cards [list "Queen of Hearts" "3 of Clubs" "9 of Spades" \
"Ace of Hearts" "5 of Diamonds"]
# Ask user for what to search
puts -nonewline "Card for which to search (such as King, Spade, or 9): "
flush stdout
gets stdin card
# Loop until user inputs a matching card
while {[set index [lsearch $cards *[string totitle $card]*]] < 0} {
puts "No such card. Please try again."
 ...

1
2
3
4
set oldList [list 1 2 3 4 5]
set newList [lreplace $oldList 0 end one two three four five six]
puts "Original list: $oldList (length: [llength $oldList])"
puts "Replaced list: $newList (length: [llength $newList]);"