Posted to tcl by mjanssen at Mon Oct 26 16:36:41 GMT 2015view raw

  1. (System32) 1 % linsert
  2. wrong # args: should be "linsert list index ?element ...?"
  3. (System32) 2 % proc map {fun list} {
  4. > set res {}
  5. > foreach element $list {lappend res [$fun $element]}
  6. > set res
  7. > } ;# RS
  8. (System32) 3 % proc prefix {prefix x} {return [list $prefix $x]}
  9. (System32) 4 % interp alias {}
  10. wrong # args: should be "interp alias slavePath slaveCmd ?masterPath masterCmd? ?arg ...?"
  11. (System32) 5 % interp alias {} prefixMark {} prefix mark
  12. prefixMark
  13. (System32) 6 % map prefixMark {x y z}
  14. {mark x} {mark y} {mark z}
  15. (System32) 7 %
  16.