Lines Matching refs:opt
66 sub opt(*); # imal quoting
94 if (opt(B)) {
98 if (opt(S) && opt(c)) {
102 $Backend = 'CC' if opt(O);
112 if (opt(shared)) {
121 exit(0) if (!opt('r'));
143 if (opt(v) > $level)
145 print "$0: $msg" if !opt('log');
146 print $logfh "$0: $msg" if opt('log');
188 if( opt(t) && opt(T) ) {
193 helpme() if opt(h); # And exit
195 $Output = opt(o) || ( is_win32 ? 'a.exe' : 'a.out' );
197 $logfh = new FileHandle(">> " . opt('log')) if (opt('log'));
199 if (opt(e)) {
204 '-e "'.opt(e).'"' :
205 "-e '".opt(e)."'";
219 sub opt(*) {
220 my $opt = shift;
221 return exists($Options->{$opt}) && ($Options->{$opt} || 0);
247 my $taint = opt(T) ? '-T' :
248 opt(t) ? '-t' : '';
254 my $addoptions = opt(Wb);
260 if (opt(testsuite)) {
271 if (opt(S) || opt(c)) {
273 if (opt(e)) {
281 $cfile = $Output if opt(c) && $Output =~ /\.c\z/i;
313 cc_harness($cfile,$stash) unless opt(c);
327 $compile .= " -I".$_ for split /\s+/, opt(I);
328 $link .= " -libpath:".$_ for split /\s+/, opt(L);
342 $command .= " -I".$_ for split /\s+/, opt(I);
343 $command .= " -L".$_ for split /\s+/, opt(L);
356 if (opt(I) && $Backend eq "Bytecode") {
357 for (split /\s+/, opt(I)) {
377 my $taint = opt(T) ? '-T' :
378 opt(t) ? '-t' : '';
410 _die("$0: Please choose one of either -B and -O.\n") if opt(O);
412 if (opt(shared)) {
418 if (opt($o)) {
523 $logfh->print(@_) if opt('log');
539 print interruptrun(@commands) if (!opt('log'));
540 $logfh->print(interruptrun(@commands)) if (opt('log'));
582 unlink $cfile if ($cfile && !opt(S) && !opt(c));