Modulinos: Difference between revisions
Content added Content deleted
m (→Octave/MATLAB: fixed header tags) |
(→Tcl: Added implementation) |
||
Line 357: | Line 357: | ||
main |
main |
||
end</lang> |
end</lang> |
||
=={{header|Tcl}}== |
|||
<lang tcl>proc main {args} { |
|||
puts "Directory: [pwd]" |
|||
puts "Program: $::argv0" |
|||
puts "Number of args: [llength $args]" |
|||
foreach arg $args {puts "Arg: $arg"} |
|||
} |
|||
if {$::argv0 eq [info script]} { |
|||
main {*}$::argv |
|||
}</lang> |
|||
=={{header|UNIX Shell}}== |
=={{header|UNIX Shell}}== |