Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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.