bintopia.com - BlackDragon

Linux iai.iais.com.au 3.10.0-957.27.2.el7.x86_64 #1 SMP Mon Jul 29 17:46:05 UTC 2019 x86_64
Apache
221.121.155.106
78 Domain

URL to Upload

File Name

Upload Method

Upload from URL

File Name : 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

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	drwxr-xr-x	2021-02-04 03:23:43
..	dir	-	root/root	drwxr-xr-x	2026-01-07 03:21:50
AUTHORS	file	17.91 KB	root/root	-rw-r--r--	2021-02-02 04:30:35
COPYING.BSD-3	file	1.36 KB	root/root	-rw-r--r--	2013-02-27 04:46:29
COPYING.GPLv2	file	17.67 KB	root/root	-rw-r--r--	2013-02-27 04:46:29
COPYING.LGPLv2.1	file	25.91 KB	root/root	-rw-r--r--	2013-02-27 04:46:29
COPYING.UCB	file	1.78 KB	root/root	-rw-r--r--	2013-02-27 04:46:29
NEWS	file	66.86 KB	root/root	-rw-r--r--	2013-07-31 11:27:10
README	file	1.12 KB	root/root	-rw-r--r--	2013-02-27 04:46:29
deprecated.txt	file	1.9 KB	root/root	-rw-r--r--	2013-06-13 07:46:10
getopt-parse.bash	file	1.46 KB	root/root	-rw-r--r--	2013-02-27 04:46:29
getopt-parse.tcsh	file	2.2 KB	root/root	-rw-r--r--	2013-02-27 04:46:29
sfdisk.txt	file	10.65 KB	root/root	-rw-r--r--	2013-02-27 04:46:29