pike.git / lib / modules / Arg.pike

version» Context lines:

pike.git/lib/modules/Arg.pike:1:   //   // Argument parser   // By Martin Nilsson - // $Id: Arg.pike,v 1.1 2007/09/16 12:27:13 nilsson Exp $ + // $Id: Arg.pike,v 1.2 2007/09/16 13:07:48 nilsson Exp $   //      #pike __REAL_VERSION__      // Base class for parsing an argument.   class Arg   {    constant is_arg = 1;    static Arg next;   
pike.git/lib/modules/Arg.pike:344:    mapping(string:string) env)    {    return 0;    }   }      class Options   {    inherit LowOptions;    +  static string|int `[](string id) +  { +  return values[id]; +  } +  static string|int `->(string id) +  { +  return values[id]; +  } +     static int(0..1)|string unhandled_argument(array(string) argv,    mapping(string:string) env)    {    if( argv[0]!="--help" ) return 0;       string s = index("help_pre");    if( s )    write( s+"\n" );       foreach(args; string i; Arg arg)
pike.git/lib/modules/Arg.pike:446:      // --- test stuff      class Getopt   {    inherit Options;    Arg verbose = NoArg("-v")|NoArg("--verbose")|Env("VERBOSE");   }       - void main() + void main(int num, array args)   { -  werror("%O\n", Getopt( ({ "x", "--verbose"}) )->verbose ); +  werror("%O\n", Getopt( args )->verbose );   }