# -*- Perl -*-
#
# Copyright (C) 1996 Craig Ruefenacht <ruefenac@cs.utah.edu>,
#                    Jason Lauman <lauman@cs.utah.edu> and the
#                    University of Utah Computer Science Department
#
# $Id: Parse.pm,v 1.1.1.1 2000/05/03 19:55:12 wright Exp $
#
# This is part of rust 1.0 Beta 2
#
# Abstract: Parse package for check-q server
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with the source distribution of Inquire, in the license
# directory. If you don't have a copy of it, write to:
#
# Free Software Foundation, Inc.
# 675 Mass Ave
# Cambridge, MA 02139, USA.

package Parse;

$main::Parse = \&Parse;

%ARGS = ();

modify,-m,code

sub Init {
	my(@config) = @_;
	while( $#config >= 2 ) {
		my($name_switch) = shift(@config);
		my($dash_switch) = shift(@config);
		my($code) = shift(@config);
	}	
	return 1;	
}

sub Parse {
if( $arg =~ /^(\-\w)(\w+)$/ ) { $unshiftarg = "-$2";  $arg = $1; }
if( $arg eq "add" || $arg eq "-a" ) { $COMMAND = "add"; }
elsif( $arg eq "modify" || $arg eq "-m" ) { $COMMAND = "modify"; }
                        
}

sub Get {

}

sub Set {

}
