1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
# Copyright (C) 2004-2008, Parrot Foundation.
=head1 NAME
examples/library/getopt_demo.pir - demonstrating use of the module Getopt/Obj.pir
=head1 SYNOPSIS
% ./parrot examples/library/getopt_demo.pir --help
% ./parrot examples/library/getopt_demo.pir --version
% ./parrot examples/library/getopt_demo.pir --string=asdf --bool --integer=42 some thing
=head1 DESCRIPTION
This demo program shows how to handle command line arguments with the
PIR library F<runtime/parrot/library/Getopt/Obj.pir>.
=cut
=head1 SUBROUTINES
=head2 main
This is executed when you call F<getopt_demo.pir>.
=cut
.sub main :main
.param pmc argv
load_bytecode "Getopt/Obj.pbc"
# shift name of the program, so that argv contains only options and extra params
.local string program_name
program_name = shift argv
# Specification of command line arguments.
.local pmc getopts
getopts = new ["Getopt";"Obj"]
# getopts."notOptStop"(1)
# --version, boolean
push getopts, "version|v"
# --help, boolean
push getopts, "help|h"
# --bool, boolean
push getopts, "bool|b"
# --string, string
push getopts, "string|s=s"
# --integer, integer
push getopts, "integer|i=i"
.local pmc opt
opt = getopts."get_options"(argv)
# Now we do what the passed options tell
.local int is_defined
# Was '--version' passed ?
is_defined = defined opt["version"]
unless is_defined goto NO_VERSION_FLAG
print "getopt_demo.pir 0.04\n"
end
NO_VERSION_FLAG:
# Was '--help' passed ?
is_defined = defined opt["help"]
unless is_defined goto NO_HELP_FLAG
usage( program_name )
end
NO_HELP_FLAG:
# Say Hi
print "Hi, I am 'getopt_demo.pir'.\n"
print "\n"
# handle the bool option
is_defined = defined opt["bool"]
unless is_defined goto NO_BOOL_OPTION
print "You have passed the option '--bool'.\n"
goto END_BOOL_OPTION
NO_BOOL_OPTION:
print "You haven't passed the option '--bool'. This is fine with me.\n"
END_BOOL_OPTION:
# handle the string option
is_defined = defined opt["string"]
unless is_defined goto NO_STRING_OPTION
.local string string_option
string_option = opt["string"]
print "You have passed the option '--string'. The value is '"
print string_option
print "'.\n"
goto END_STRING_OPTION
NO_STRING_OPTION:
print "You haven't passed the option '--string'. This is fine with me.\n"
END_STRING_OPTION:
# handle the integer option
is_defined = defined opt["integer"]
unless is_defined goto NO_INTEGER_OPTION
.local string integer_option
integer_option = opt["integer"]
print "You have passed the option '--integer'. The value is '"
print integer_option
print "'.\n"
goto END_INTEGER_OPTION
NO_INTEGER_OPTION:
print "You haven't passed the option '--integer'. This is fine with me.\n"
END_INTEGER_OPTION:
.local string other_arg
.local int cnt_other_args
cnt_other_args = 0
.local int num_other_args
num_other_args = argv
goto CHECK_OTHER_ARG_LOOP
REDO_OTHER_ARG_LOOP:
other_arg = argv[cnt_other_args]
print "You have passed the additional argument: '"
print other_arg
print "'.\n"
inc cnt_other_args
CHECK_OTHER_ARG_LOOP:
if cnt_other_args < num_other_args goto REDO_OTHER_ARG_LOOP
print "All args have been parsed.\n"
.end
=head2 usage
Print the usage message.
TODO: Pass a flag for EXIT_FAILURE and EXIT_SUCCESS
=cut
.sub usage
.param string program_name
print "Usage: ./parrot "
print program_name
print " [OPTION]... [STRING]...\n"
print "\n"
print "Operation modes:\n"
print " -h --help display this help and exit\n"
print " -v --version output version information and exit\n"
print "\n"
print "For demo of option parsing:\n"
print " -s --string=STRING a string option\n"
print " -i --integer=INTEGER an integer option\n"
print " -b --bool a boolean option\n"
.end
=head1 AUTHOR
Bernhard Schmalhofer - C<Bernhard.Schmalhofer@gmx.de>
=head1 SEE ALSO
F<runtime/parrot/library/Getopt/Obj.pir>
=cut
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
|
