Lines Matching refs:ARGV

296     while ($ARGV[0] =~ /^[-+].+/)
298         if (($ARGV[0] eq "-r" || $ARGV[0] eq "--hrule") &&
299             $ARGV[1] =~ /^%d+$/)
301             $hrule_min = $ARGV[1];
302             shift @ARGV;
306         if (($ARGV[0] eq "-s" || $ARGV[0] eq "--shortline") &&
307             $ARGV[1] =~ /^\d+$/)
309             $short_line_length = $ARGV[1];
310             shift @ARGV;
314         if (($ARGV[0] eq "-p" || $ARGV[0] eq "--prewhite") &&
315             $ARGV[1] =~ /^\d+$/)
317             $preformat_whitespace_min = $ARGV[1];
318             shift @ARGV;
322         if (($ARGV[0] eq "-pb" || $ARGV[0] eq "--prebegin") &&
323             $ARGV[1] =~ /^\d+$/)
325             $preformat_trigger_lines = $ARGV[1];
326             shift @ARGV;
330         if (($ARGV[0] eq "-pe" || $ARGV[0] eq "--preend") &&
331             $ARGV[1] =~ /^\d+$/)
333             $endpreformat_trigger_lines = $ARGV[1];
334             shift @ARGV;
338         if (($ARGV[0] eq "-e" || $ARGV[0] eq "--extract"))
341             shift @ARGV;
345         if (($ARGV[0] eq "+e" || $ARGV[0] eq "--noextract"))
348             shift @ARGV;
352         if (($ARGV[0] eq "-c" || $ARGV[0] eq "--caps") &&
353             $ARGV[1] =~ /^\d+$/)
355             $min_caps_length = $ARGV[1];
356             shift @ARGV;
360         if (($ARGV[0] eq "-ct" || $ARGV[0] eq "--capstag") &&
361             $ARGV[1])
363             $caps_tag = $ARGV[1];
364             shift @ARGV;
368         if ($ARGV[0] eq "-m" || $ARGV[0] eq "--mail")
374         if ($ARGV[0] eq "+m" || $ARGV[0] eq "--nomail")
380         if ($ARGV[0] eq "-u" || $ARGV[0] eq "--unhyphen")
386         if ($ARGV[0] eq "+u" || $ARGV[0] eq "--nounhyphen")
392         if (($ARGV[0] eq "-a" || $ARGV[0] eq "--append") &&
393             $ARGV[1])
395             if (-r $ARGV[1]) {
396                 $append_file = $ARGV[1];
398                 print STDERR "Can't find or read $ARGV[1].\n";
400             shift @ARGV;
404         if ($ARGV[0] eq "+a" || $ARGV[0] eq "--noappend")
410         if (($ARGV[0] eq "-t" || $ARGV[0] eq "--title") &&
411             $ARGV[1])
413             $title = $ARGV[1];
414             shift @ARGV;
418         if (($ARGV[0] eq "-ul" || $ARGV[0] eq "--underlinelong") &&
419             $ARGV[1] =~ /^\d+$/)
421             $underline_tolerance_long = $ARGV[1];
422             shift @ARGV;
426         if (($ARGV[0] eq "-us" || $ARGV[0] eq "--underlineshort") &&
427             $ARGV[1] =~ /^\d+$/)
429             $underline_tolerance_short = $ARGV[1];
430             shift @ARGV;
434         if (($ARGV[0] eq "-tw" || $ARGV[0] eq "--tabwidth") &&
435             $ARGV[1] =~ /^\d+$/)
437             $tab_width = $ARGV[1];
438             shift @ARGV;
442         if (($ARGV[0] eq "-iw" || $ARGV[0] eq "--indentwidth") &&
443             $ARGV[1] =~ /^\d+$/)
445             $indent_width = $ARGV[1];
446             shift @ARGV;
450         if ($ARGV[0] eq "-v" || $ARGV[0] eq "--version")
458         if ($ARGV[0] eq "-h" || $ARGV[0] eq "--help")
464         print STDERR "Unrecognized option: $ARGV[0]\n";
465         print STDERR " or bad paramater: $ARGV[1]\n" if($ARGV[1]);
472         shift @ARGV;