Posted to tcl by jima at Tue Nov 28 16:53:31 GMT 2017view raw

  1. @-proc( wea )@-arg( zzz )
  2.  
  3. @-proc( insideWea )@-arg( yyy )
  4.  
  5. # This is code.
  6. return [string range $yyy 0 end-2]
  7.  
  8. @-endOfProc( insideWea )
  9.  
  10. # This is code.
  11. return [string range $zzz 0 end-2]
  12.  
  13. @-endOfProc( wea )