Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

117 lines (108 sloc) 2.5 kb
# 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
Jump to Line
Something went wrong with that request. Please try again.