home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / asd.tcl < prev    next >
Encoding:
Text File  |  1993-10-27  |  1.2 KB  |  29 lines  |  [TEXT/$Tcl]
  1.  
  2. lindex [lindex [asdinfo BugTRacker.AS] 4] 0
  3. lindex [lindex $m2 4] 0
  4. lindex $m2 0
  5. Single
  6. asdinfo BugTRacker.AS
  7. set m2 {Single "Macintosh       " 0x00010000 3 {9 "Finder Information" 98 16 {"STAK" "WILD" 0x0001 0}}{2 "Resource Fork" 114 0 {}}{1 "Data Fork" 114 8192 {}}}
  8. set m2 {Single "Macintosh       " 0x00010000 3 {9 "Finder Information" 98 16 {"STAK" "WILD" 0x0001 0}} {2 "Resource Fork" 114 0 {}}{1 "Data Fork" 114 8192 {}}}
  9. Single "Macintosh       " 0x00010000 3 {9 "Finder Information" 98 16 {"STAK" "WILD" 0x0001 0}}{2 "Resource Fork" 114 0 {}}{1 "Data Fork" 114 8192 {}}
  10. set m2 [asdinfo BugTRacker.AS]
  11. # Result = 1.
  12. # list element in braces followed by "{2" instead of space
  13. Single "Macintosh       " 0x00010000 3 {9 "Finder Information" 98 16 {"STAK" "WILD" 0x0001 0}}{2 "Resource Fork" 114 0 {}}{1 "Data Fork" 114 8192 {}}
  14. {Single "Macintosh       " 0x00010000 3 {9 "Finder Information" 98 16 {"STAK" "WILD" 0x0001 0}}{2 "Resource Fork" 114 0 {}}{1 "Data Fork" 114 8192 {}}}
  15.  
  16. set m {this is a {THIS IS A {This Is A}} test}
  17. this is a {THIS IS A} test
  18. lindex $m 3
  19. lindex [lindex [lindex $m 3] 3] 0
  20. This
  21. THIS IS A {This Is A}
  22. lindex [lindex $m 3] 0
  23. THIS
  24. THIS IS A
  25. THIS IS A
  26. a
  27. is
  28. this
  29.