lima-1.0b5/
lima-1.0b5/driver/
lima-1.0b5/driver/ChangeLog.old/
lima-1.0b5/driver/Win32/
lima-1.0b5/driver/compat/
lima-1.0b5/driver/include/
lima-1.0b5/driver/testsuite/
lima-1.0b5/driver/testsuite/clone/
lima-1.0b5/driver/testsuite/command/
lima-1.0b5/driver/testsuite/data/
lima-1.0b5/driver/testsuite/etc/
lima-1.0b5/driver/testsuite/include/
lima-1.0b5/driver/testsuite/inherit/
lima-1.0b5/driver/testsuite/inherit/master/
lima-1.0b5/driver/testsuite/log/
lima-1.0b5/driver/testsuite/single/
lima-1.0b5/driver/testsuite/single/tests/compiler/
lima-1.0b5/driver/testsuite/single/tests/efuns/
lima-1.0b5/driver/testsuite/single/tests/operators/
lima-1.0b5/driver/testsuite/u/
lima-1.0b5/driver/tmp/
lima-1.0b5/etc/
lima-1.0b5/lib/WWW/help/
lima-1.0b5/lib/cmds/
lima-1.0b5/lib/cmds/create/
lima-1.0b5/lib/cmds/player/attic/
lima-1.0b5/lib/contrib/bboard/
lima-1.0b5/lib/contrib/boards/
lima-1.0b5/lib/contrib/marriage/
lima-1.0b5/lib/contrib/roommaker/
lima-1.0b5/lib/contrib/transient_effect/
lima-1.0b5/lib/daemons/channel/
lima-1.0b5/lib/daemons/imud/
lima-1.0b5/lib/data/
lima-1.0b5/lib/data/config/
lima-1.0b5/lib/data/links/
lima-1.0b5/lib/data/news/
lima-1.0b5/lib/data/players/
lima-1.0b5/lib/data/secure/
lima-1.0b5/lib/domains/
lima-1.0b5/lib/domains/std/2.4.5/maze1/
lima-1.0b5/lib/domains/std/2.4.5/npc/
lima-1.0b5/lib/domains/std/2.4.5/post_dir/
lima-1.0b5/lib/domains/std/2.4.5/sub/
lima-1.0b5/lib/domains/std/camera/
lima-1.0b5/lib/domains/std/config/
lima-1.0b5/lib/domains/std/cult/
lima-1.0b5/lib/domains/std/effects/
lima-1.0b5/lib/domains/std/misc/
lima-1.0b5/lib/domains/std/monsters/
lima-1.0b5/lib/domains/std/recorder/
lima-1.0b5/lib/domains/std/rooms/
lima-1.0b5/lib/domains/std/rooms/beach/
lima-1.0b5/lib/domains/std/rooms/labyrinth/
lima-1.0b5/lib/domains/std/school/
lima-1.0b5/lib/domains/std/school/O/
lima-1.0b5/lib/domains/std/spells/
lima-1.0b5/lib/domains/std/spells/stock-mage/
lima-1.0b5/lib/domains/std/spells/stock-priest/
lima-1.0b5/lib/help/
lima-1.0b5/lib/help/admin/
lima-1.0b5/lib/help/hints/General_Questions/
lima-1.0b5/lib/help/hints/Pirate_Quest/
lima-1.0b5/lib/help/player/
lima-1.0b5/lib/help/player/bin/
lima-1.0b5/lib/help/player/quests/
lima-1.0b5/lib/help/wizard/
lima-1.0b5/lib/help/wizard/coding/guilds/
lima-1.0b5/lib/help/wizard/coding/rooms/
lima-1.0b5/lib/help/wizard/lib/daemons/
lima-1.0b5/lib/help/wizard/lib/lfun/
lima-1.0b5/lib/help/wizard/lib/std/
lima-1.0b5/lib/help/wizard/mudos_doc/
lima-1.0b5/lib/help/wizard/mudos_doc/applies/
lima-1.0b5/lib/help/wizard/mudos_doc/applies/interactive/
lima-1.0b5/lib/help/wizard/mudos_doc/applies/parsing/
lima-1.0b5/lib/help/wizard/mudos_doc/concepts/
lima-1.0b5/lib/help/wizard/mudos_doc/driver/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/arrays/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/buffers/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/compile/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/filesystem/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/floats/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/functions/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/general/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/mappings/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/mixed/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/numbers/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/parsing/
lima-1.0b5/lib/help/wizard/mudos_doc/lpc/constructs/
lima-1.0b5/lib/help/wizard/mudos_doc/lpc/types/
lima-1.0b5/lib/include/driver/
lima-1.0b5/lib/log/
lima-1.0b5/lib/obj/admtool/
lima-1.0b5/lib/obj/admtool/internal/
lima-1.0b5/lib/obj/admtool/mudinfo/
lima-1.0b5/lib/obj/admtool/secure/
lima-1.0b5/lib/obj/secure/
lima-1.0b5/lib/obj/secure/cmd/
lima-1.0b5/lib/obj/secure/mailers/
lima-1.0b5/lib/obj/secure/shell/
lima-1.0b5/lib/obj/secure/shell/classes/
lima-1.0b5/lib/obj/tasktool/
lima-1.0b5/lib/obj/tasktool/internal/
lima-1.0b5/lib/open/
lima-1.0b5/lib/secure/
lima-1.0b5/lib/secure/cgi/
lima-1.0b5/lib/secure/modules/
lima-1.0b5/lib/secure/simul_efun/
lima-1.0b5/lib/std/adversary/
lima-1.0b5/lib/std/adversary/advancement/
lima-1.0b5/lib/std/adversary/armor/
lima-1.0b5/lib/std/adversary/blows/
lima-1.0b5/lib/std/adversary/death/
lima-1.0b5/lib/std/adversary/formula/
lima-1.0b5/lib/std/adversary/health/
lima-1.0b5/lib/std/adversary/pulse/
lima-1.0b5/lib/std/adversary/wield/
lima-1.0b5/lib/std/classes/event_info/
lima-1.0b5/lib/std/container/
lima-1.0b5/lib/std/living/
lima-1.0b5/lib/std/modules/contrib/
lima-1.0b5/lib/std/patterns/
lima-1.0b5/lib/std/race/
lima-1.0b5/lib/std/race/restricted/
lima-1.0b5/lib/std/room/
lima-1.0b5/lib/tmp/
lima-1.0b5/lib/trans/
lima-1.0b5/lib/trans/admincmds/
lima-1.0b5/lib/trans/obj/
lima-1.0b5/lib/wiz/
/* Do not remove the headers from this file! see /USAGE for more info. */
//  Command line processing

#include <mudlib.h>

private
int classify( int opt, string options ){
  int i;

  i = member_array(opt, options);
  if(i == -1){
    printf("option -%c not recognized\n", opt);
    return 0;
  }
  if( ++i != strlen(options) ) return options[i] == ':';
}


//:FUNCTION getopt
//Takes an array and parses flags from it. Returns an array, the first
//element being a mapping of flag : value, the second element being an
//array of the remaining args, all flag information removed.  The second
//argument should be a string of single character flags that the command
//accepts, followed by a colon (:) if the flag can take an argument.
mixed
getopt( mixed args, string options )
{
  mapping res;
  mixed optstring, opt, optarg;

  res = ([]);

  
  if(!options)  options = "";

  while (sizeof(args) && stringp(args[0]) && args[0][0] == '-' && 
 	 args[0] != '-'){
    if( args[0] == "--" ){
      args = (sizeof(args)>1)? args[1..] : ({});
	 break;
    }
    optstring = strlen(args[0]) == 1 ? "" : args[0][1..];
    args = sizeof(args) == 1 ? ({}) : args[1..];
    while(optstring!=""){
      opt = optstring[0];
      optstring = strlen(optstring) == 1 ? "" : optstring[1..];
      if(classify(opt,options)){
        if(optstring == ""){
  	    if(!sizeof(args)){
  		printf("option -%c requires an argument.\n", opt);
  		return -1;
  	    }
            optstring = args[0];
	       args = sizeof(args)>1?args[1..]:({});
        }
        optarg = optstring;
        optstring = "";
     res[chr(opt)] = optarg;
      }
      else{
	   optarg = "";
           res[chr(opt)] = optarg;
      }
    }
  }
  return ({ res, args });

}
   

// Got the idea for this one from python, 
// but unlike getopt, didn't pirate the implimentation =)
//  

//:FUNCTION argument_explode
//assumes the arg passed is the argument to some unix-like
//command where ares are space seperated unless enclosed in non-escaped
//quotes.
//Returns an array of the arguments. and an array of implode info

mixed* argument_explode(string s)
{
  string* result = ({});
  string* implode_info = ({});
  int i, l;
  int waiting_for;
  int end_of_last_word = -1;
  int beginning_of_word = 0;

  l = strlen(s);
  for(i=0; i < l; i++)
    {
      switch(s[i])
	{
	case '\\':
	  // This is because all \\'s aren't converted to \ here. 
	  if(i+1 != l && s[i+1] == '\\')
	    break;
	  i++;
	  break;
	case '`':
	case '"':
	  if(!waiting_for)
	    {
	      waiting_for = s[i];
	      if(beginning_of_word != i)
		{
                  implode_info += 
                    ({s[end_of_last_word+1..beginning_of_word-1]});
                  end_of_last_word = i-1;
		  result += ({s[beginning_of_word..end_of_last_word]});
		}
	      beginning_of_word = i;
	      break;
	    }
	  if(waiting_for != s[i])
	    continue;
	  result += ({s[beginning_of_word..i]});
	  implode_info += 
	    ({s[(end_of_last_word+1)..(beginning_of_word-1)]});
	  end_of_last_word = i;
	  beginning_of_word = i+1;
	  waiting_for = 0; 
	  break;
        case '|':
          if(waiting_for)
	    break;
	  if(beginning_of_word != i)
	    {
	      result += ({s[beginning_of_word..i-1],"|"});
	      implode_info +=({s[end_of_last_word+1..beginning_of_word-1],""});
	      end_of_last_word = i;
	      beginning_of_word = i+1;
	      break;
	    }
	  implode_info += ({s[end_of_last_word+1..beginning_of_word-1]});
	  result += ({"|"});
	  beginning_of_word = i+1;
	  end_of_last_word = i;
	  break;
	case '<':
	  if(waiting_for)
	    break;
	  if(beginning_of_word != i)
	    {
	      result += ({s[beginning_of_word..i-1],"<"});
	      implode_info +=({s[end_of_last_word+1..beginning_of_word-1],""});
	      end_of_last_word = i;
	      beginning_of_word = i+1;
	      break;
	    }
	  result += ({"<"});
	  implode_info += ({s[end_of_last_word+1..beginning_of_word-1]});
	  end_of_last_word = i;
	  beginning_of_word = i+1;
	  break;
	case '>':
	  if(waiting_for)
	    break;
	  if(beginning_of_word != i)
	    {
	      implode_info += ({s[end_of_last_word+1..beginning_of_word-1]});
	      result += ({s[beginning_of_word..i-1]});
	      beginning_of_word = i+1;
	      end_of_last_word = i;
	    }	
	  if(s[i+1] == '>')
	    {
	      // Skip the next >
	      i++;
	      implode_info += ({s[end_of_last_word+1..beginning_of_word-1]});
	      end_of_last_word = i;
	      beginning_of_word = i+1;
	      result += ({">>"});
	      break;
	    }
	  else
	    {
	      implode_info += ({s[end_of_last_word+1..beginning_of_word-1]});
	      end_of_last_word = i;
	      beginning_of_word = i+1;
	      result += ({">"});
	      break;
	    }
	case ' ':
	  if(waiting_for)
	    break;
	  if(beginning_of_word == i)
	    {
	      beginning_of_word = i+1;
	      break;
	    }
	  implode_info += ({s[end_of_last_word+1..beginning_of_word-1]});
	  result += ({s[beginning_of_word..i-1]});
	  end_of_last_word = i-1;
	  beginning_of_word = i+1;
	  break;
	default:
	  break;
	}
    }
  if(beginning_of_word < l)
    {
      implode_info += ({s[end_of_last_word+1..beginning_of_word-1]});
      result += ({ s[beginning_of_word..] });
      implode_info += ({""});
    }
  else
    {
      implode_info += ({s[end_of_last_word+1..beginning_of_word-1]});
    }

  return ({result,implode_info});
}

//:FUNCTION parse_argument
//calls argument_explode() and then getopt(), returning the 
//value of the getopt() call.
mixed parse_argument( string input, string options ){
  return getopt( argument_explode(input), options );
}