| |
| |
| |
|
Comments:
<0> try it
<1> would if i knew how :)
<2> could p*** a param to the procedure saying who triggered it :)
<1> hm
<2> proc foo {} { bind .... [list my_proc "foo called you"]}
<1> gonna try that
<1> thanks
<0> ;for
<3> Gotisch: #2567 (11290 clicks) Tcl error: wrong # args: should be "::pubsafetcl::For interp start test next command"
<0> ;for {set i 0} {i<=20} {incr i} {lappend list {} }
<3> Gotisch: #2568 (18280 clicks) Tcl error: syntax error in expression "i<=20": variable references require preceding $
<0> ;for {set i 0} {$i<=20} {incr i} {lappend list {} }
<3> Gotisch: #2569 (4918 clicks) Tcl:
<0> ;llength $list
<3> Gotisch: #2570 (153 clicks) Tcl: 21
<0> ;for {set i 0} {$i < 20} {incr i} { lappend cache {} }
<3> Gotisch: #2571 (4646 clicks) Tcl:
<0> ;namespace eval cache { variable cache; for {set i 0} {$i < 20} {incr i} { lappend cache {} } }
<3> Gotisch: #2572 (11899 clicks) Tcl:
<0> llength $cache::cache
<3> Gotisch: #2573 (138 clicks) Tcl: 20
<0> ;proc cache::incache arg { if {[lsearch -exact $cache $arg] != -1} { return 0; lappend cache $arg; set cache [lreplace $cache 0 0] }; return 1 }
<3> Gotisch: #2574 (346 clicks) Tcl:
<0> ;cache::incache test
<3> Gotisch: #2575 (789 clicks) Tcl error: can't read "cache": no such variable
<0> ;proc cache::incache arg { variable cache ; if {[lsearch -exact $cache $arg] != -1} { return 0; lappend cache $arg; set cache [lreplace $cache 0 0] }; return 1 }
<3> Gotisch: #2576 (375 clicks) Tcl:
<0> ;cache::incache test
<3> Gotisch: #2577 (669 clicks) Tcl: 1
<0> ;proc cache::incache arg { variable cache ; if {[lsearch -exact $cache $arg] == -1} { return 0; lappend cache $arg; set cache [lreplace $cache 0 0] }; return 1 }
<3> Gotisch: #2578 (378 clicks) Tcl:
<0> ;cache::incache test
<3> Gotisch: #2579 (664 clicks) Tcl: 0
<0> ;cache::incache test
<3> Gotisch: #2580 (489 clicks) Tcl: 0
<0> ;puts $cache::cache
<3> Gotisch: #2581 (stdout) {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {}
<0> ;lsearch
<3> Gotisch: #2582 (222 clicks) Tcl error: wrong # args: should be "lsearch ?options? list pattern"
<0> ;lsearch -exact [list "a b" "a c" "a d"] "a c"
<3> Gotisch: #2583 (176 clicks) Tcl: 1
<0> ;lsearch -exact [list "a b" "a c" "a d"] "a f"
<3> Gotisch: #2584 (188 clicks) Tcl: -1
<0> ups
<0> ;proc cache::incache arg { variable cache ; if {[lsearch -exact $cache $arg] == -1} { lappend cache $arg; set cache [lreplace $cache 0 0]; return 0 }; return 1 }
<3> Gotisch: #2586 (378 clicks) Tcl:
<0> noone saw this!
<0> ;cache::incache test
<3> Gotisch: #2588 (677 clicks) Tcl: 0
<0> ;cache::incache test
<3> Gotisch: #2589 (431 clicks) Tcl: 1
<0> ;proc hurra arg { if {[cache::incache $arg]} { return } ; puts "Hurra for $arg" }
<3> Gotisch: #2590 (5497 clicks) Tcl:
<0> ;hurra Gotisch
<3> Gotisch: #2591 (stdout) Hurra for Gotisch
<0> ;hurra Gotisch
<3> Gotisch: #2592 (641 clicks) Tcl:
<4> =)
<4> =O
<4> nyoooooooooooooooo...
<5> never used these before
<5> =/
<6> mornin
<7> =O
<7> ;}
<7> REVENGE!
<7> mohahaha
<5> =/
<7> damn im sleepy
<7> need...... sleeep.....
<7> eh, what the heck, some coffee will do =]
<4> =)
<7> so whats up guys ?
<5> im looking at jobs
<5> realizing i dont know much :P
<5> found a cool job
<5> but they want someone with perl & python experience
<0> ;putloglev 1 * "anyone knows what a good loglevel to use is?"
<8> Gotisch: #2812 (856 clicks) Tcl error: Bad channel name. =P
<0> -.-
<0> ;putloglev 1 #eggtcl "anyone knows what a good loglevel to use is?"
<8> Gotisch: #2814 (342 clicks) Tcl error: Bad channel name. =P
<0> ;putloglev 1 #tcl "anyone knows what a good loglevel to use is?"
<8> Gotisch: #2815 (359 clicks) Tcl error: Bad channel name. =P
<0> ;putloglev 1 tcl "anyone knows what a good loglevel to use is?"
<0> that script is completly broken
<9> ;putloglev
<8> BL4DE: #2818 (271 clicks) Tcl error: wrong # args: should be "::pubsafetcl::PutLogLev interp level channel text"
<9> ;putloglev 1 stdout "smooke"
<9> at least i dont get an error :)
<0> ..
<0> putloglev shouldnt be stdout
<0> it should be a _real_ channel name
<0> or *
<0> for general log
<9> ; putlog "test"
<8> BL4DE: #2826 (426 clicks) Tcl error: Bad channel name. =P
<9> ; puts "test"
<8> BL4DE: #2827 (stdout) test
<9> oke, its broken :>
<0> my words :P
<0> -
Return to
#tcl
or
Go to some related
logs:
asswars
#beginner
#windows
#hardware
#hardware
#c
avalanche xbins
fourstac
#unixhelp
Jork Ate
|
|