/setup.pir

http://github.com/NotFound/winxed · Unknown · 116 lines · 108 code · 8 blank · 0 comment · 0 complexity · 557bf1a98652fab295f455eb9e1ce293 MD5 · raw file

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