getopt/trunk/getopt-parse.tcsh

#!/bin/tcsh

# A small example program for using the new getopt(1) program.
# This program will only work with tcsh(1)
# An similar program using the bash(1) script language can be found
# as parse.bash

# Example input and output (from the tcsh prompt):
# ./parse.tcsh -a par1 'another arg' --c-long 'wow\!*\?' -cmore -b " very long "
# Option a
# Option c, no argument
# Option c, argument `more'
# Option b, argument ` very long '
# Remaining arguments:
# --> `par1'
# --> `another arg'
# --> `wow!*\?'

# Note that we had to escape the exclamation mark in the wow-argument. This
# is _not_ a problem with getopt, but with the tcsh command parsing. If you
# would give the same line from the bash prompt (ie. call ./parse.tcsh),
# you could remove the exclamation mark.

# This is a bit tricky. We use a temp variable, to be able to check the
# return value of getopt (eval nukes it). argv contains the command arguments
# as a list. The ':q`  copies that list without doing any substitutions:
# each element of argv becomes a separate argument for getopt. The braces
# are needed because the result is also a list.
set temp=(`getopt -s tcsh -o ab:c:: --long a-long,b-long:,c-long:: -- $argv:q`)
if ($? != 0) then 
  echo "Terminating..." >/dev/stderr
  exit 1
endif

# Now we do the eval part. As the result is a list, we need braces. But they
# must be quoted, because they must be evaluated when the eval is called.
# The 'q` stops doing any silly substitutions.
eval set argv=\($temp:q\)

while (1)
        switch($1:q)
        case -a:
        case --a-long:
                echo "Option a" ; shift 
                breaksw;
        case -b:
        case --b-long:
                echo "Option b, argument "\`$2:q\' ; shift ; shift
                breaksw
        case -c:
        case --c-long:
                # c has an optional argument. As we are in quoted mode,
                # an empty parameter will be generated if its optional
                # argument is not found.

                if ($2:q == "") then
                        echo "Option c, no argument"
                else
                        echo "Option c, argument "\`$2:q\'
                endif
                shift; shift
                breaksw
        case --:
                shift
                break
        default:
                echo "Internal error!" ; exit 1
        endsw
end

echo "Remaining arguments:"
# foreach el ($argv:q) created problems for some tcsh-versions (at least
# 6.02). So we use another shift-loop here:
while ($#argv > 0)
        echo '--> '\`$1:q\'
        shift
end
1	frodo	259	#!/bin/tcsh
2
3			# A small example program for using the new getopt(1) program.
4			# This program will only work with tcsh(1)
5			# An similar program using the bash(1) script language can be found
6			# as parse.bash
7
8			# Example input and output (from the tcsh prompt):
9			# ./parse.tcsh -a par1 'another arg' --c-long 'wow\!*\?' -cmore -b " very long "
10			# Option a
11			# Option c, no argument
12			# Option c, argument `more'
13			# Option b, argument ` very long '
14			# Remaining arguments:
15			# --> `par1'
16			# --> `another arg'
17			# --> `wow!*\?'
18
19			# Note that we had to escape the exclamation mark in the wow-argument. This
20			# is _not_ a problem with getopt, but with the tcsh command parsing. If you
21			# would give the same line from the bash prompt (ie. call ./parse.tcsh),
22			# you could remove the exclamation mark.
23
24			# This is a bit tricky. We use a temp variable, to be able to check the
25			# return value of getopt (eval nukes it). argv contains the command arguments
26			# as a list. The ':q` copies that list without doing any substitutions:
27			# each element of argv becomes a separate argument for getopt. The braces
28			# are needed because the result is also a list.
29			set temp=(`getopt -s tcsh -o ab:c:: --long a-long,b-long:,c-long:: -- $argv:q`)
30			if ($? != 0) then
31			echo "Terminating..." >/dev/stderr
32			exit 1
33			endif
34
35			# Now we do the eval part. As the result is a list, we need braces. But they
36			# must be quoted, because they must be evaluated when the eval is called.
37			# The 'q` stops doing any silly substitutions.
38			eval set argv=\($temp:q\)
39
40			while (1)
41			switch($1:q)
42			case -a:
43			case --a-long:
44			echo "Option a" ; shift
45			breaksw;
46			case -b:
47			case --b-long:
48			echo "Option b, argument "\`$2:q\' ; shift ; shift
49			breaksw
50			case -c:
51			case --c-long:
52			# c has an optional argument. As we are in quoted mode,
53			# an empty parameter will be generated if its optional
54			# argument is not found.
55
56			if ($2:q == "") then
57			echo "Option c, no argument"
58			else
59			echo "Option c, argument "\`$2:q\'
60			endif
61			shift; shift
62			breaksw
63			case --:
64			shift
65			break
66			default:
67			echo "Internal error!" ; exit 1
68			endsw
69			end
70
71			echo "Remaining arguments:"
72			# foreach el ($argv:q) created problems for some tcsh-versions (at least
73			# 6.02). So we use another shift-loop here:
74			while ($#argv > 0)
75			echo '--> '\`$1:q\'
76			shift
77			end
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26