Anonymous user
Modulinos: Difference between revisions
→Tcl: Added implementation
m (→Octave/MATLAB: fixed header tags) |
(→Tcl: Added implementation) |
||
Line 357:
main
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}}==
|