shash/src/shash.gaa

helpnode "Usage : shash [options] file1 file2 ...\n"

#int quiet;
option (v, verbose) { $quiet = 0 } "some more information is displayed."
option (q, quiet) { $quiet = 2 } "suppress some non critical warnings."

#int nosalt;
option (nosalt) { $nosalt = 1 } "Do not use salt."

#int show_time;
option (time) { $show_time = 1 } "Show time elapsed."

#int hmac;
option (m, hmac) { $hmac = 1 } "Use password to hash (hmac)."

#int double_check;
option (d, doublecheck) { $double_check = 1 } "Double check passwords."

#int check;
option (c, check) { $check = 1 } "check files."

#int binary;
option (b, binary) { $binary = 1 } "treat input files as binary."

#int text;
option (t, text) { $text = 1 } "treat input files as text."

#char *kmode;
option (o, keymode) STR "kmode" { $kmode = $1 } "keyword mode"
                                                "Use the --listkeygen parameter to view all supported modes."

#int config;
#char *config_file;
option (i, config) STR "config" { $config=1; if (@1==1) $config_file = $1 } "Use configuration file FILE."

#char *algorithm;
option (a, algorithm) STR "algorithm" { $algorithm = $1 } "specify the algorithm. "
                                                           "Use the --list parameter to show the supported algorithms."

#int nolock;
option (n, nolock) { $nolock = 1 } "Do not lock files."

option (l, list) { hash_list(); } "Prints a list of the algorithms supported."
 
#char *keys;
option (k, key) STR "key" { $keys = $1; } "specify the key"


option (listkeygen) { list_keygen_algorithms(); exit(0); } "Prints a list of the key generation algorithms supported."
option (h, help) { gaa_help(); exit(0); } "prints this help"
option (V, version) { hash_version(); exit(0); } "prints the version number"
option (L, license) { hash_license(); exit(0); } "displays license information."

#int size;
#char **input;
rest optional *STR "file1 file2...fileN" { $input = $1; $size = @1 }

init { $quiet=1; $config=0; $kmode = NULL; $hmac = 0;
       $algorithm=NULL; $keys=NULL; $config_file=NULL; $input=NULL;
       $double_check=0; $nolock=0; $nosalt=0; $check=0; $text=0; 
       $binary=0; $show_time=0; }

INCOMP bt
1	nmav	1.1	helpnode "Usage : shash [options] file1 file2 ...\n"
2
3			#int quiet;
4			option (v, verbose) { $quiet = 0 } "some more information is displayed."
5			option (q, quiet) { $quiet = 2 } "suppress some non critical warnings."
6
7			#int nosalt;
8			option (nosalt) { $nosalt = 1 } "Do not use salt."
9
10	nmav	1.2	#int show_time;
11			option (time) { $show_time = 1 } "Show time elapsed."
12
13	nmav	1.1	#int hmac;
14			option (m, hmac) { $hmac = 1 } "Use password to hash (hmac)."
15
16			#int double_check;
17			option (d, doublecheck) { $double_check = 1 } "Double check passwords."
18
19			#int check;
20			option (c, check) { $check = 1 } "check files."
21
22			#int binary;
23			option (b, binary) { $binary = 1 } "treat input files as binary."
24
25			#int text;
26			option (t, text) { $text = 1 } "treat input files as text."
27
28			#char *kmode;
29			option (o, keymode) STR "kmode" { $kmode = $1 } "keyword mode"
30			"Use the --listkeygen parameter to view all supported modes."
31
32			#int config;
33			#char *config_file;
34			option (i, config) STR "config" { $config=1; if (@1==1) $config_file = $1 } "Use configuration file FILE."
35
36			#char *algorithm;
37			option (a, algorithm) STR "algorithm" { $algorithm = $1 } "specify the algorithm. "
38			"Use the --list parameter to show the supported algorithms."
39
40			#int nolock;
41			option (n, nolock) { $nolock = 1 } "Do not lock files."
42
43			option (l, list) { hash_list(); } "Prints a list of the algorithms supported."
44
45			#char *keys;
46			option (k, key) STR "key" { $keys = $1; } "specify the key"
47
48
49			option (listkeygen) { list_keygen_algorithms(); exit(0); } "Prints a list of the key generation algorithms supported."
50			option (h, help) { gaa_help(); exit(0); } "prints this help"
51			option (V, version) { hash_version(); exit(0); } "prints the version number"
52			option (L, license) { hash_license(); exit(0); } "displays license information."
53
54			#int size;
55			#char **input;
56			rest optional *STR "file1 file2...fileN" { $input = $1; $size = @1 }
57
58			init { $quiet=1; $config=0; $kmode = NULL; $hmac = 0;
59			$algorithm=NULL; $keys=NULL; $config_file=NULL; $input=NULL;
60			$double_check=0; $nolock=0; $nosalt=0; $check=0; $text=0;
61	nmav	1.2	$binary=0; $show_time=0; }
62	nmav	1.1
63			INCOMP bt