Lines Matching refs:arg

820   set arg [lindex $argv $i]
821   if {[string range $arg 0 1]=="--"} {
822     set arg [string range $arg 1 end]
824   if {[info exists WAPPARG($arg)]} {
825     lappend lWappArg $arg
826     if {$WAPPARG($arg)} {
831     lappend lTestArg $arg
845       set arg [lindex $lTestArg $i]
847       if {[lsearch $lPlatform $arg]<0} {
848         puts stderr "No such platform: $arg. Platforms are: $lPlatform"
851       set G(platform) $arg