/setup.pir

  1# THIS IS A GENERATED FILE! DO NOT EDIT!
  2# Begin generated code
  3
  4.sub initial_load_bytecode :anon :load :init
  5    load_bytecode 'Getopt/Obj.pbc'
  6.end
  7
  8# end libs
  9.namespace [ ]
 10
 11.sub 'loadData' :subid('WSubId_1')
 12        .param string __ARG_1
 13.annotate 'file', 'setup.winxed'
 14.annotate 'line', 28
 15    load_language 'data_json'
 16    compreg $P1, 'data_json'
 17.annotate 'line', 29
 18    root_new $P2, ['parrot';'FileHandle']
 19    $P2.'open'(__ARG_1)
 20.annotate 'line', 30
 21    isnull $I1, $P2
 22    box $P4, $I1
 23    if $P4 goto __label_2
 24    $P4 = $P2.'is_closed'()
 25  __label_2:
 26    if_null $P4, __label_1
 27    unless $P4 goto __label_1
 28.annotate 'line', 31
 29    concat $S2, "Can't open ", __ARG_1
 30    root_new $P5, ['parrot';'Exception']
 31    $P5['message'] = $S2
 32    throw $P5
 33  __label_1: # endif
 34.annotate 'line', 32
 35    $P2.'encoding'('utf8')
 36.annotate 'line', 33
 37    $P4 = $P2.'readall'()
 38    null $S1
 39    if_null $P4, __label_3
 40    set $S1, $P4
 41  __label_3:
 42.annotate 'line', 34
 43    $P2.'close'()
 44.annotate 'line', 35
 45    $P3 = $P1.'compile'($S1)
 46.annotate 'line', 36
 47    .tailcall $P3()
 48.annotate 'line', 37
 49
 50.end # loadData
 51
 52
 53.sub 'main' :main
 54        .param pmc __ARG_1
 55.const 'Sub' WSubId_1 = "WSubId_1"
 56.annotate 'line', 44
 57    new $P1, [ 'Getopt'; 'Obj' ]
 58.annotate 'line', 45
 59    $P1.'notOptStop'(1)
 60.annotate 'line', 46
 61    $P1.'push_string'('file=s')
 62.annotate 'line', 47
 63    $P1.'push_string'('v')
 64.annotate 'line', 48
 65    $P5 = __ARG_1.'shift'()
 66    null $S1
 67    if_null $P5, __label_1
 68    set $S1, $P5
 69  __label_1:
 70.annotate 'line', 49
 71    $P2 = $P1.'get_options'(__ARG_1)
 72.annotate 'line', 50
 73    $P5 = $P2['v']
 74    isnull $I1, $P5
 75    not $I1
 76.annotate 'line', 51
 77    $P3 = $P2['file']
 78.annotate 'line', 55
 79    set $S2, 'setup.json'
 80.annotate 'line', 56
 81    if_null $P3, __label_2
 82.annotate 'line', 57
 83    set $S2, $P3
 84  __label_2: # endif
 85.annotate 'line', 58
 86    $P4 = WSubId_1($S2)
 87.annotate 'line', 60
 88    unless $I1 goto __label_3
 89.annotate 'line', 61
 90    $S3 = $P4['description']
 91.annotate 'line', 62
 92    print "\tFile: "
 93    say $S2
 94.annotate 'line', 63
 95    $P5 = $P4['name']
 96    print "\tName: "
 97    say $P5
 98.annotate 'line', 64
 99    print "\tDescription: "
100    say $S3
101.annotate 'line', 65
102    $P5 = $P4['copyright_holder']
103    print "\t(C) "
104    say $P5
105.annotate 'line', 66
106    say ''
107  __label_3: # endif
108.annotate 'line', 69
109    load_bytecode 'distutils.pbc'
110.annotate 'line', 70
111    'setup'(__ARG_1 :flat, $P4 :flat :named)
112.annotate 'line', 71
113
114.end # main
115
116# End generated code