| |
| |
| |
|
Comments:
<0> ;p
<1> anyone want to help me with tcl events?
<1> Tcl_Event *evPtr (in)
<1> An event to add to the event queue. The storage for the event must have been allocated by the caller using Tcl_Alloc or ckalloc.
<2> =)
<3> re
<4> ; proc test {{a 0} b} { puts $a$b }
<5> Obeliks: #5356 (13375 clicks) Tcl:
<4> ; test "x"
<5> Obeliks: #5357 (299 clicks) Tcl error: wrong # args: should be "test ?a? b"
<4> why won't that work?
<4> I though a was optional?
<4> why is it even allowed to put optional parameters as first if it doesn't work? :)
<6> a is optional if you dont give it a value
<6> like
<6> ;proc test {{a ""} b} { puts $a$b }
<5> Robb`: #5363 (320 clicks) Tcl:
<4> ; test "x"
<5> Obeliks: #5364 (281 clicks) Tcl error: wrong # args: should be "test ?a? b"
<6> hm
<4> doesn't matter which initial value it has
<6> ;test "" a
<4> seems it only works on trailing params
<5> Robb`: #5367 (stdout) a
<4> ; proc test2 {a {b 0}} { puts $a$b }
<5> Obeliks: #5369 (341 clicks) Tcl:
<4> ; test2 "x"
<5> Obeliks: #5370 (stdout) x0
<4> see?
<6> ah
<4> stupid crap :)
<6> yeah
<7> ya you dont wanna put it in front
<7> how would it know if its a or b
<7> :)
<4> because therE's only one param
<4> has to be b
<4> won't work with two optinals of course
<7> ;p
<4> but it should already complain about the syntax on load then
<4> stupid dynamic languages :D
<4> "Arguments with default values need not be specified in a procedure invocation. However, there must be enough actual arguments for all the formal arguments that don't have defaults, and there must not be any extra actual arguments. "
<7> Robb` buy me this, http://tweakers.net/ext/i.dsp/1141819963.jpg
<4> if you take that sentence seriously, it should work :~
<6> th3dge lol
<7> 100" LCD
<7> :)
<6> I have a 52"
<6> ;)
<6> widescreen
<7> bastard
<6> ;p
<7> :)
<6> but its not lcd
<7> :{
<6> projection-TV
<7> O_o
<6> its pretty nice tho
<6> you know what that is? :P
<7> nope
<6> it doesnt have a picture tube
<6> :D
<6> like a regular tv
<4> ; proc test {{a 0} args} { puts $a$args }
<5> Obeliks: #5405 (320 clicks) Tcl:
<4> ; test x
<5> Obeliks: #5406 (stdout) x
<4> lol
<4> that's not my test :)
<4> ; proc test3 {{a 0} args} { puts $a$args }
<5> Obeliks: #5409 (342 clicks) Tcl:
<4> ; test3 x
<5> Obeliks: #5410 (stdout) x
<4> hmmm
<4> WHY? :)
<7> sets it to a
<7> test3 "" x
<4> ; proc test3 {{a "y"} args} { puts $a$args }
<5> th3dge: #5414 (stdout) x
<5> Obeliks: #5415 (363 clicks) Tcl:
<4> ; test3 x
<5> Obeliks: #5416 (stdout) x
<4> ah
<4> you're right
<4> I see
<7> proc yeah {{a "hi"}} { puts $a }
<7> ;proc yeah {{a "hi"}} { puts $a }
<5> th3dge: #5421 (345 clicks) Tcl:
<7> ;yeah
<5> th3dge: #5422 (stdout) hi
<7> lol
<7> cool
<7> ;proc yeah {{a "hi"} {b "bye"}} { puts $a ; puts $b }
<5> th3dge: #5425 (358 clicks) Tcl:
<7> ;yeah
<5> th3dge: #5426 (stdout) hi
<5> th3dge: #5426 (stdout) bye
<7> ;yeah "what"
<5> th3dge: There's 4 lines, but I'm not gonna show you the rest of them! =P
<5> th3dge: #5427 (stdout) what
<5> th3dge: #5427 (stdout) bye
<5> th3dge: There's 4 lines, but I'm not gonna show you the rest of them! =P
<4> why 4?
<7> probably showing clicks
<4> hmm maybe
<7> ;yeah {} "what"
<5> th3dge: #5431 (stdout) what
<5> th3dge: There's 4 lines, but I'm not gonna show you the rest of them! =P
<7> hmm
<7> weirdo
<1> the bot is broken
<8> ;set file "I bla go bla to bla sleep bla now"
<5> N86ers: #5447 (203 clicks) Tcl: I bla go bla to bla sleep bla now
<8> ;strin map -nocase $file
<5> N86ers: #5448 (3831 clicks) Tcl error: invalid command name "strin"
<8> ;string map -nocase $file
<5> N86ers: #5449 (578 clicks) Tcl error: char map list unbalanced
<8> ...
<9> ehm
<9> ; llength $file
<5> BL4DE: #5455 (144 clicks) Tcl: 9
<9> and u aint got any string
Return to
#tcl
or
Go to some related
logs:
rotorface -kansas -rx7 -honda -faceplate
debian /proc/net/dev phpsysinfo
#beginner
#computers
#solaris
death strike temple throat
lucy your eyes are filled with tears my heart is filled with gladness
3dsmax attribute holder
scanning for superblocks and directories stubs
#sex
|
|
