-
Notifications
You must be signed in to change notification settings - Fork 7
/
Copy pathsetup.pir
116 lines (108 loc) · 2.44 KB
/
setup.pir
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
# THIS IS A GENERATED FILE! DO NOT EDIT!
# Begin generated code
.sub initial_load_bytecode :anon :load :init
load_bytecode 'Getopt/Obj.pbc'
.end
# end libs
.namespace [ ]
.sub 'loadData' :subid('WSubId_1')
.param string __ARG_1
.annotate 'file', 'setup.winxed'
.annotate 'line', 28
load_language 'data_json'
compreg $P1, 'data_json'
.annotate 'line', 29
root_new $P2, ['parrot';'FileHandle']
$P2.'open'(__ARG_1)
.annotate 'line', 30
isnull $I1, $P2
box $P4, $I1
if $P4 goto __label_2
$P4 = $P2.'is_closed'()
__label_2:
if_null $P4, __label_1
unless $P4 goto __label_1
.annotate 'line', 31
concat $S2, "Can't open ", __ARG_1
root_new $P5, ['parrot';'Exception']
$P5['message'] = $S2
throw $P5
__label_1: # endif
.annotate 'line', 32
$P2.'encoding'('utf8')
.annotate 'line', 33
$P4 = $P2.'readall'()
null $S1
if_null $P4, __label_3
set $S1, $P4
__label_3:
.annotate 'line', 34
$P2.'close'()
.annotate 'line', 35
$P3 = $P1.'compile'($S1)
.annotate 'line', 36
.tailcall $P3()
.annotate 'line', 37
.end # loadData
.sub 'main' :main
.param pmc __ARG_1
.const 'Sub' WSubId_1 = "WSubId_1"
.annotate 'line', 44
new $P1, [ 'Getopt'; 'Obj' ]
.annotate 'line', 45
$P1.'notOptStop'(1)
.annotate 'line', 46
$P1.'push_string'('file=s')
.annotate 'line', 47
$P1.'push_string'('v')
.annotate 'line', 48
$P5 = __ARG_1.'shift'()
null $S1
if_null $P5, __label_1
set $S1, $P5
__label_1:
.annotate 'line', 49
$P2 = $P1.'get_options'(__ARG_1)
.annotate 'line', 50
$P5 = $P2['v']
isnull $I1, $P5
not $I1
.annotate 'line', 51
$P3 = $P2['file']
.annotate 'line', 55
set $S2, 'setup.json'
.annotate 'line', 56
if_null $P3, __label_2
.annotate 'line', 57
set $S2, $P3
__label_2: # endif
.annotate 'line', 58
$P4 = WSubId_1($S2)
.annotate 'line', 60
unless $I1 goto __label_3
.annotate 'line', 61
$S3 = $P4['description']
.annotate 'line', 62
print "\tFile: "
say $S2
.annotate 'line', 63
$P5 = $P4['name']
print "\tName: "
say $P5
.annotate 'line', 64
print "\tDescription: "
say $S3
.annotate 'line', 65
$P5 = $P4['copyright_holder']
print "\t(C) "
say $P5
.annotate 'line', 66
say ''
__label_3: # endif
.annotate 'line', 69
load_bytecode 'distutils.pbc'
.annotate 'line', 70
'setup'(__ARG_1 :flat, $P4 :flat :named)
.annotate 'line', 71
.end # main
# End generated code