/setup.pir
http://github.com/NotFound/winxed · Unknown · 116 lines · 108 code · 8 blank · 0 comment · 0 complexity · 557bf1a98652fab295f455eb9e1ce293 MD5 · raw file
- # 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