| |
| |
| |
|
Page: 1 2 3
Comments:
<0> ; scan \xa0b %c
<1> CyBex: #791 (164 clicks) Tcl: 11
<0> ; scan \x0b %c
<1> CyBex: #792 (161 clicks) Tcl: 11
<0> ; scan \x111111111110b %c
<1> CyBex: #793 (169 clicks) Tcl: 11
<0> ; scan \x111111111110a %c
<1> CyBex: #794 (162 clicks) Tcl: 10
<2> ah
<2> how useless
<3> ;set list(1) ". ."
<3> ;set list(2) ". ."
<3> how do i make those two lists look like 1). 2).
<1> anc-: #797 (196 clicks) Tcl: . .
<1> anc-: #798 (195 clicks) Tcl: . .
<3> both lists is arrays
<2> ;foreach "index data" [array get list] { puts "$index)[lindex $data 0]" }
<1> Pixelz: #801 (stdout) 1).
<1> Pixelz: #801 (stdout) 2).
<1> Pixelz: There's 4 lines, but I'm not gonna show you the rest of them! =P
<3> thanks
<2> uh what? no there's not? :p
<3> hehe
<3> dont know what its talking about
<2> ;foreach "index data" [array get list] { puts "$index)[lindex $data 0]" }
<1> Pixelz: #806 (stdout) 1).
<1> Pixelz: #806 (stdout) 2).
<1> Pixelz: There's 4 lines, but I'm not gonna show you the rest of them! =P
<2> ..
<3> :)
<2> set list
<3> oh well problem
<2> ;array get list
<1> Pixelz: #811 (170 clicks) Tcl: 1 {. .} 2 {. .}
<3> or... ok
<3> :)
<2> hmm
<3> array get automatic sets the 1 and 2 stamps ?
<4> array -> http://www.tcl.tk/man/tcl8.4/TclCmd/array.htm
<2> if that's the var name
<3> well lets say var name is a and b then
<2> then it would be a and b
<3> yea but thats useless
<3> i need 1 and 2
<3> ;set list(a) ". ."
<3> ;set list(b) ". ."
<1> anc-: #821 (159 clicks) Tcl: . .
<1> anc-: #822 (157 clicks) Tcl: . .
<2> ;set x 1;foreach index [array names $list] {puts "$x)[lindex $list($index) 0"; incr x}
<1> Pixelz: #823 (367 clicks) Tcl error: can't read "list": variable is array
<2> ;set x 1;foreach index [array names list] {puts "$x)[lindex $list($index) 0"; incr x}
<1> Pixelz: #824 (457 clicks) Tcl error: missing close-bracket
<3> set count 0
<3> foreach "index data" [array get list] { puts "$count)[lindex $data 0]"; incr count }
<1> anc-: #825 (2583 clicks) Tcl: 0
<1> anc-: #826 (stdout) 0).
<1> anc-: #826 (stdout) 1).
<1> anc-: There's 8 lines, but I'm not gonna show you the rest of them! =P
<2> ;set x 1;foreach index [array names list] {puts "$x)[lindex $list($index) 0]"; incr x}
<1> Pixelz: #827 (stdout) 1).
<1> Pixelz: #827 (stdout) 2).
<1> Pixelz: There's 8 lines, but I'm not gonna show you the rest of them! =P
<2> what the hell is with the extra lines
<3> dunno
<3> which one is to prefer ?
<3> yours or mine
<2> smells like a safetcl bug to me
<2> mine I guess
<3> ok
<2> dunno which would be faster though
<3> im using too many foreach commands :I
<2> you might have to lsort the array first
<3> yea but it is done
<2> k
<3> oh it was the exact same we wrote :)
<3> just different var names
<2> ;foreach x x {puts $x}
<1> Pixelz: #842 (stdout) x
<2> ;foreach "x y" "a b" {puts "$x $y"}
<1> Pixelz: #843 (stdout) a b
<5> ; foreach x x [list puts$x]
<1> BL4DE: #844 (6647 clicks) Tcl error: invalid command name "putsa"
<5> ; foreach x x [list puts $x]
<1> BL4DE: #845 (stdout) x
<5> uh
<5> putsa ?
<2> you forgot a space
<2> ;foreach "x y" "a b" {puts $x; puts $y}
<1> Pixelz: #849 (stdout) a
<5> i know
<1> Pixelz: #849 (stdout) b
<5> but why a ?
<1> Pixelz: There's 4 lines, but I'm not gonna show you the rest of them! =P
<5> it was a x
<2> !
<2> ;foreach "x y" "a b" {puts $x; puts $y}
<1> Pixelz: #854 (stdout) a
<1> Pixelz: #854 (stdout) b
<1> Pixelz: There's 4 lines, but I'm not gonna show you the rest of them! =P
<5> ;foreach "x y" "a b" {puts "$x $y"}
<1> BL4DE: #855 (stdout) a b
<2> puts a; puts b
<1> Pixelz: #856 (stdout) a
<1> Pixelz: #856 (stdout) b
<1> Pixelz: There's 4 lines, but I'm not gonna show you the rest of them! =P
<5> lol
<2> ok
<2> that's a bug
<2> ;reset
<1> Pixelz: #860 (3448489 clicks) Tcl: Reset safetcl.
<2> puts a; puts b
<1> Pixelz: #1 (stdout) a
<1> Pixelz: #1 (stdout) b
<1> Pixelz: There's 4 lines, but I'm not gonna show you the rest of them! =P
<5> puts $x
<5> ; puts $x
<1> BL4DE: #3 (228 clicks) Tcl error: can't read "x": no such variable
<2> ;puts a\nb
<1> Pixelz: #4 (stdout) a
<1> Pixelz: #4 (stdout) b
<2> oh? :)
<2> puts -nonewline a\n; puts -nonewline b\n
<1> Pixelz: #6 (stdout) a
<1> Pixelz: #6 (stdout) b
<1> Pixelz: There's 4 lines, but I'm not gonna show you the rest of them! =P
<2> ;putlog $a; putlog $b
<1> Pixelz: #7 (264 clicks) Tcl error: can't read "a": no such variable
<2> doh
<2> ;putlog a; putlog b
<1> Pixelz: #9 (898 clicks) Tcl error: Bad channel name. =P
<2> o_O
<2> ;putlog a
<1> Pixelz: #11 (423 clicks) Tcl error: Bad channel name. =P
<2> they just keep piling up
<2> ;return a; return b
<1> Pixelz: #13 (142 clicks) Tcl: a
<2> oh, obviously
<2> ;puts unknown a; puts unknown b
<1> Pixelz: #15 (650 clicks) Tcl error: can't read "newline": no such variable
<2> :)
<3> damn another problem
<3> ;set list(a,b) ". ."
<1> anc-: #18 (158 clicks) Tcl: . .
<3> ;set list(c,b) ". ."
<1> anc-: #19 (152 clicks) Tcl: . .
<3> the array looks like that then it cant seem to work it out
<3> ;set x 1;foreach index [array names list] {puts "$x)[lindex $list($index) 0"; incr x}
<1> anc-: #21 (455 clicks) Tcl error: missing close-bracket
<3> ;set x 1;foreach index [array names list] {puts "$x)[lindex $list($index) 0]"; incr x}
<1> anc-: #22 (stdout) 1).
Return to
#tcl
or
Go to some related
logs:
#windows
#gamedev
#computers
kermit yost
#beginner
standard compliant sd host controller
#beginner
#politics
#beginner
#windows
|
|