Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

update NEWS and generated files

  • Loading branch information...
commit 5952fb170194a9ed48d6c14160f316950655ad18 1 parent 5779af8
@NotFound authored
Showing with 10,129 additions and 15,981 deletions.
  1. +1 −0  NEWS
  2. +10,024 −15,646 pir/winxed_compiler.pir
  3. +96 −295 pir/winxed_installed.pir
  4. +8 −40 setup.pir
View
1  NEWS
@@ -5,6 +5,7 @@ Version 1.4
- 'multi' modifier improved
- Fixes and improvements in builtins compile time evaluation
- throw "string" now emits throw instead of die
+ - Several minor optimizations of generated code
Version 1.3
- builtin sleep
View
25,670 pir/winxed_compiler.pir
10,024 additions, 15,646 deletions not shown
View
391 pir/winxed_installed.pir
@@ -1,7 +1,6 @@
# THIS IS A GENERATED FILE! DO NOT EDIT!
# Begin generated code
-
.sub initial_load_bytecode :anon :load :init
load_bytecode 'Getopt/Obj.pbc'
.end
@@ -11,11 +10,8 @@
.sub 'WinxedDriverOptions' :method
.param pmc __ARG_1
-# Body
-# {
.annotate 'file', 'winxed_installed.winxed'
.annotate 'line', 19
-# var options: $P1
root_new $P1, ['parrot';'ResizablePMCArray']
assign $P1, 12
.annotate 'line', 20
@@ -124,7 +120,6 @@
.annotate 'line', 38
$P4 = self.'get_options'(__ARG_1)
setattribute self, 'opts', $P4
-# }
.annotate 'line', 39
.end # WinxedDriverOptions
@@ -132,17 +127,13 @@
.sub 'getbool' :method
.param string __ARG_1
-# Body
-# {
.annotate 'line', 42
-# var value: $P1
getattribute $P2, self, 'opts'
$P1 = $P2[__ARG_1]
.annotate 'line', 43
isnull $I1, $P1
not $I1
.return($I1)
-# }
.annotate 'line', 44
.end # getbool
@@ -150,14 +141,10 @@
.sub 'getstring' :method
.param string __ARG_1
-# Body
-# {
.annotate 'line', 47
-# var value: $P1
getattribute $P2, self, 'opts'
$P1 = $P2[__ARG_1]
.annotate 'line', 48
-# result: $S1
null $S1
.annotate 'line', 49
if_null $P1, __label_1
@@ -166,32 +153,24 @@
__label_1: # endif
.annotate 'line', 51
.return($S1)
-# }
.annotate 'line', 52
.end # getstring
.sub 'showhelp' :method
-# Body
-# {
.annotate 'line', 55
getattribute $P2, self, 'name'
-# builtin say
print 'Usage: '
print $P2
say ' [options] [program] [args]'
-# builtin say
.annotate 'line', 56
say ' Available options:'
.annotate 'line', 57
-# l: $I1
null $I1
.annotate 'line', 58
-# i: $I2
null $I2
.annotate 'line', 59
-# var o: $P1
null $P1
.annotate 'line', 60
getattribute $P2, self, 'options'
@@ -201,18 +180,15 @@
__label_1: # for iteration
unless $P3 goto __label_2
shift $P1, $P3
-# {
.annotate 'line', 61
$P4 = $P1[0]
set $S2, $P4
-# builtin length
length $I3, $S2
add $I2, $I3, 4
.annotate 'line', 62
le $I2, $I1, __label_3
set $I1, $I2
__label_3: # endif
-# }
goto __label_1
__label_2: # endfor
.annotate 'line', 64
@@ -223,23 +199,15 @@
__label_4: # for iteration
unless $P5 goto __label_5
shift $P1, $P5
-# {
.annotate 'line', 65
-# s: $S1
$S1 = $P1[0]
.annotate 'line', 66
-# builtin length
- length $I5, $S1
- isgt $I4, $I5, 1
- unless $I4 goto __label_8
-# builtin substr
+ length $I4, $S1
+ isgt $I3, $I4, 1
+ unless $I3 goto __label_8
substr $S2, $S1, 1, 1
- isne $I6, $S2, '='
- set $I3, $I6
- goto __label_9
+ isne $I3, $S2, '='
__label_8:
- set $I3, $I4
- __label_9:
unless $I3 goto __label_6
.annotate 'line', 67
concat $S3, '--', $S1
@@ -251,22 +219,18 @@
set $S1, $S4
__label_7: # endif
.annotate 'line', 70
-# builtin length
length $I3, $S1
sub $I2, $I1, $I3
.annotate 'line', 71
repeat $S2, ' ', $I2
$P2 = $P1[1]
-# builtin say
print ' '
print $S1
print $S2
print '-> '
say $P2
-# }
goto __label_4
__label_5: # endfor
-# }
.annotate 'line', 73
.end # showhelp
@@ -289,10 +253,7 @@
.param pmc __ARG_1
.param string __ARG_2
.param int __ARG_3
-# Body
-# {
.annotate 'line', 79
-# value: $S1
$P3 = __ARG_1.'getstring'(__ARG_2)
null $S1
if_null $P3, __label_1
@@ -300,20 +261,14 @@
__label_1:
.annotate 'line', 80
if_null $S1, __label_2
-# {
.annotate 'line', 81
-# var lpaths: $P1
-# builtin getinterp
getinterp $P3
$P1 = $P3[9]
.annotate 'line', 82
-# var pathlib: $P2
$P2 = $P1[__ARG_3]
.annotate 'line', 83
$P2.'push'($S1)
-# }
__label_2: # endif
-# }
.annotate 'line', 85
.end # path_option
@@ -322,31 +277,20 @@
.sub 'extname' :subid('WSubId_3') :anon
.param string __ARG_1
.param string __ARG_2
-# Body
-# {
.annotate 'line', 91
-# newname: $S1
null $S1
.annotate 'line', 92
-# l: $I1
-# builtin length
length $I1, __ARG_1
.annotate 'line', 93
- isgt $I3, $I1, 7
- unless $I3 goto __label_3
-# builtin substr
+ isgt $I2, $I1, 7
+ unless $I2 goto __label_3
substr $S2, __ARG_1, -7
- iseq $I4, $S2, '.winxed'
- set $I2, $I4
- goto __label_4
+ iseq $I2, $S2, '.winxed'
__label_3:
- set $I2, $I3
- __label_4:
unless $I2 goto __label_1
.annotate 'line', 94
- sub $I5, $I1, 7
-# builtin substr
- substr $S3, __ARG_1, 0, $I5
+ sub $I3, $I1, 7
+ substr $S3, __ARG_1, 0, $I3
concat $S4, $S3, __ARG_2
set $S1, $S4
goto __label_2
@@ -357,50 +301,36 @@
__label_2: # endif
.annotate 'line', 97
.return($S1)
-# }
.annotate 'line', 98
.end # extname
.sub 'getcompiler' :subid('WSubId_1') :anon
-# Body
-# {
.annotate 'line', 102
-# var compiler: $P1
null $P1
.annotate 'line', 103
-# try: create handler
new $P2, 'ExceptionHandler'
set_label $P2, __label_1
push_eh $P2
-# try: begin
.annotate 'line', 104
-# builtin load_language
load_language 'winxed'
compreg $P1, 'winxed'
-# try: end
pop_eh
goto __label_2
-.annotate 'line', 103
-# catch
__label_1:
+.annotate 'line', 103
.get_results($P3)
finalize $P3
pop_eh
-# catch end
__label_2:
.annotate 'line', 106
unless_null $P1, __label_3
-# {
-# builtin die
.annotate 'line', 114
die "winxed: Cannot load language"
-# }
__label_3: # endif
.annotate 'line', 116
.return($P1)
-# }
.annotate 'line', 117
.end # getcompiler
@@ -411,79 +341,60 @@
.const 'Sub' WSubId_1 = "WSubId_1"
.const 'Sub' WSubId_2 = "WSubId_2"
.const 'Sub' WSubId_3 = "WSubId_3"
-# Body
-# {
.annotate 'line', 121
-# var optionset: $P1
new $P1, [ 'WinxedDriverOptions' ]
$P1.'WinxedDriverOptions'(__ARG_1)
.annotate 'line', 123
$P12 = $P1.'getbool'('version')
if_null $P12, __label_1
unless $P12 goto __label_1
-# {
.annotate 'line', 124
-# var compiler: $P2
$P2 = WSubId_1()
.annotate 'line', 125
$P12 = $P2.'version_string'()
-# builtin say
say $P12
-# builtin exit
.annotate 'line', 126
exit 0
-# }
__label_1: # endif
.annotate 'line', 129
-# help: $I1
$P12 = $P1.'getbool'('help')
set $I1, $P12
.annotate 'line', 130
-# compileonly: $I2
$P12 = $P1.'getbool'('c')
set $I2, $P12
.annotate 'line', 131
-# target: $S1
$P12 = $P1.'getstring'('target')
null $S1
if_null $P12, __label_2
set $S1, $P12
__label_2:
.annotate 'line', 132
-# eval: $S2
$P12 = $P1.'getstring'('e')
null $S2
if_null $P12, __label_3
set $S2, $P12
__label_3:
.annotate 'line', 133
-# objectname: $S3
$P12 = $P1.'getstring'('o')
null $S3
if_null $P12, __label_4
set $S3, $P12
__label_4:
.annotate 'line', 134
-# debug: $I3
$P12 = $P1.'getbool'('debug')
set $I3, $P12
.annotate 'line', 135
-# nowarn: $I4
$P12 = $P1.'getbool'('nowarn')
set $I4, $P12
.annotate 'line', 136
-# noan: $I5
$P12 = $P1.'getbool'('noan')
set $I5, $P12
.annotate 'line', 138
unless $I1 goto __label_5
-# {
.annotate 'line', 139
$P1.'showhelp'()
-# builtin exit
.annotate 'line', 140
exit 0
-# }
__label_5: # endif
.annotate 'line', 143
WSubId_2($P1, 'L', 1)
@@ -492,7 +403,6 @@
.annotate 'line', 145
WSubId_2($P1, 'X', 2)
.annotate 'line', 147
-# var compileoptions: $P3
root_new $P3, ['parrot';'Hash']
.annotate 'line', 148
$P3["debug"] = $I3
@@ -502,35 +412,25 @@
$P3["nowarn"] = $I4
.annotate 'line', 152
unless $I2 goto __label_6
-# {
.annotate 'line', 153
if_null $S1, __label_8
-# builtin die
.annotate 'line', 154
die "options -c and --target can't be used together"
__label_8: # endif
.annotate 'line', 155
$P3["target"] = "pir"
-# }
goto __label_7
__label_6: # else
-# {
.annotate 'line', 158
unless_null $S1, __label_9
.annotate 'line', 159
set $S1, ''
__label_9: # endif
-# switch
.annotate 'line', 160
- set $S7, $S1
- set $S8, ''
- if $S7 == $S8 goto __label_12
- set $S8, 'run'
- if $S7 == $S8 goto __label_13
- set $S8, 'pir'
- if $S7 == $S8 goto __label_14
- set $S8, 'include'
- if $S7 == $S8 goto __label_15
+ if $S1 == '' goto __label_12
+ if $S1 == 'run' goto __label_13
+ if $S1 == 'pir' goto __label_14
+ if $S1 == 'include' goto __label_15
goto __label_11
__label_12: # case
__label_13: # case
@@ -544,175 +444,127 @@
goto __label_10 # break
__label_11: # default
.annotate 'line', 170
- concat $S9, "Invalid target '", $S1
- concat $S9, $S9, "'"
-# builtin die
- die $S9
+ concat $S8, "Invalid target '", $S1
+ concat $S8, $S8, "'"
+ die $S8
__label_10: # switch end
-# }
__label_7: # endif
.annotate 'line', 174
- isnull $I9, $S3
- not $I9
- unless $I9 goto __label_17
- not $I10, $I2
- set $I8, $I10
- goto __label_18
+ isnull $I8, $S3
+ not $I8
+ unless $I8 goto __label_17
+ not $I8, $I2
__label_17:
- set $I8, $I9
- __label_18:
unless $I8 goto __label_16
-# builtin die
.annotate 'line', 175
die '-o without -c or --target is not supported yet'
__label_16: # endif
.annotate 'line', 177
-# var compiler: $P4
$P4 = WSubId_1()
.annotate 'line', 179
-# var code: $P5
null $P5
.annotate 'line', 180
-# outfilename: $S4
null $S4
.annotate 'line', 181
-# try: create handler
new $P12, 'ExceptionHandler'
- set_label $P12, __label_19
+ set_label $P12, __label_18
$P12.'handle_types'(567)
push_eh $P12
-# try: begin
-# {
.annotate 'line', 182
- unless_null $S2, __label_21
-# {
+ unless_null $S2, __label_20
.annotate 'line', 183
-# builtin elements
elements $I8, __ARG_1
- ge $I8, 1, __label_23
-# {
-# builtin say
+ ge $I8, 1, __label_22
.annotate 'line', 184
say "ERROR: No program specified"
.annotate 'line', 185
$P1.'showhelp'()
-# builtin exit
.annotate 'line', 186
exit 1
-# }
- __label_23: # endif
+ __label_22: # endif
.annotate 'line', 188
-# srcfilename: $S5
$S5 = __ARG_1[0]
.annotate 'line', 189
- unless $I2 goto __label_25
- isnull $I9, $S3
- set $I8, $I9
- goto __label_26
- __label_25:
set $I8, $I2
- __label_26:
unless $I8 goto __label_24
+ isnull $I8, $S3
+ __label_24:
+ unless $I8 goto __label_23
.annotate 'line', 190
$P12 = WSubId_3($S5, '.pir')
set $S4, $P12
- __label_24: # endif
+ __label_23: # endif
.annotate 'line', 191
$P5 = $P4.'compile_from_file'($S5, $P3 :flat :named)
-# }
- goto __label_22
- __label_21: # else
-# {
+ goto __label_21
+ __label_20: # else
.annotate 'line', 195
-# var output: $P6
null $P6
.annotate 'line', 196
-# var outfile: $P7
null $P7
.annotate 'line', 197
- unless $I2 goto __label_27
-# {
+ unless $I2 goto __label_25
.annotate 'line', 198
- unless_null $S4, __label_28
+ unless_null $S4, __label_26
.annotate 'line', 199
set $S4, $S3
- __label_28: # endif
+ __label_26: # endif
.annotate 'line', 200
- isnull $I9, $S4
- not $I9
- unless $I9 goto __label_31
- isne $I10, $S4, "-"
- set $I8, $I10
- goto __label_32
- __label_31:
- set $I8, $I9
- __label_32:
+ isnull $I8, $S4
+ not $I8
unless $I8 goto __label_29
-# {
+ isne $I8, $S4, "-"
+ __label_29:
+ unless $I8 goto __label_27
.annotate 'line', 201
-# builtin open
root_new $P7, ['parrot';'FileHandle']
$P7.'open'($S4,'w')
.annotate 'line', 202
set $P6, $P7
-# }
- goto __label_30
- __label_29: # else
+ goto __label_28
+ __label_27: # else
.annotate 'line', 205
-# builtin getstdout
getstdout $P6
- __label_30: # endif
+ __label_28: # endif
.annotate 'line', 206
$P3['output'] = $P6
-# }
- __label_27: # endif
+ __label_25: # endif
.annotate 'line', 208
-# expr: $S6
concat $S7, 'function main[main](argv){', $S2
concat $S7, $S7, ';}'
set $S6, $S7
.annotate 'line', 209
$P5 = $P4.'compile'($S6, $P3 :flat :named)
.annotate 'line', 211
- unless $I2 goto __label_33
-# {
+ unless $I2 goto __label_30
.annotate 'line', 212
- if_null $P7, __label_35
+ if_null $P7, __label_32
.annotate 'line', 213
$P7.'close'()
- __label_35: # endif
-# builtin exit
+ __label_32: # endif
.annotate 'line', 214
exit 0
-# }
- goto __label_34
- __label_33: # else
+ goto __label_31
+ __label_30: # else
.annotate 'line', 217
__ARG_1.'unshift'('__EVAL__')
- __label_34: # endif
-# }
- __label_22: # endif
-# }
-# try: end
+ __label_31: # endif
+ __label_21: # endif
pop_eh
- goto __label_20
+ goto __label_19
+ __label_18:
.annotate 'line', 181
-# catch
- __label_19:
.get_results($P8)
finalize $P8
pop_eh
-# {
.annotate 'line', 221
-# var payload: $P9
$P9 = $P8["payload"]
.annotate 'line', 222
- if_null $P9, __label_36
+ if_null $P9, __label_33
.annotate 'line', 223
getattribute $P12, $P9, 'filename'
getattribute $P13, $P9, 'line'
getattribute $P14, $P9, 'message'
-# builtin cry
getstderr $P0
print $P0, $P12
print $P0, ':'
@@ -720,123 +572,93 @@
print $P0, ': '
print $P0, $P14
print $P0, "\n"
- goto __label_37
- __label_36: # else
+
+ goto __label_34
+ __label_33: # else
.annotate 'line', 225
$P15 = $P8["message"]
-# builtin cry
getstderr $P0
print $P0, $P15
print $P0, "\n"
- __label_37: # endif
-# builtin exit
+
+ __label_34: # endif
.annotate 'line', 226
exit 1
-# }
-# catch end
- __label_20:
+ __label_19:
.annotate 'line', 229
- unless $I2 goto __label_38
-# {
+ unless $I2 goto __label_35
.annotate 'line', 230
- unless_null $S4, __label_39
+ unless_null $S4, __label_36
.annotate 'line', 231
set $S4, $S3
- __label_39: # endif
+ __label_36: # endif
.annotate 'line', 232
-# create: $I6
- isnull $I8, $S4
- not $I8
- unless $I8 goto __label_40
- isne $I9, $S4, "-"
- set $I6, $I9
- goto __label_41
- __label_40:
- set $I6, $I8
- __label_41:
+ isnull $I6, $S4
+ not $I6
+ unless $I6 goto __label_37
+ isne $I6, $S4, "-"
+ __label_37:
.annotate 'line', 233
-# var outfile: $P10
- unless $I6 goto __label_43
-# builtin open
+ unless $I6 goto __label_39
root_new $P10, ['parrot';'FileHandle']
$P10.'open'($S4,'w')
- goto __label_42
- __label_43:
-# builtin getstdout
+ goto __label_38
+ __label_39:
getstdout $P12
set $P10, $P12
- __label_42:
+ __label_38:
.annotate 'line', 234
$P10.'print'($P5)
.annotate 'line', 235
- unless $I6 goto __label_44
+ unless $I6 goto __label_40
.annotate 'line', 236
$P10.'close'()
- __label_44: # endif
-# builtin exit
+ __label_40: # endif
.annotate 'line', 237
exit 0
-# }
- __label_38: # endif
+ __label_35: # endif
.annotate 'line', 242
-# var sub: $P11
null $P11
.annotate 'line', 243
-# try: create handler
new $P12, 'ExceptionHandler'
- set_label $P12, __label_45
+ set_label $P12, __label_41
push_eh $P12
-# try: begin
-# {
.annotate 'line', 244
$P11 = $P5.'get_main'()
-# }
-# try: end
pop_eh
- goto __label_46
+ goto __label_42
+ __label_41:
.annotate 'line', 243
-# catch
- __label_45:
.get_results($P13)
finalize $P13
pop_eh
-# {
-# for loop
.annotate 'line', 247
-# i: $I7
null $I7
- __label_49: # for condition
-# {
+ __label_45: # for condition
.annotate 'line', 248
$P11 = $P5[$I7]
.annotate 'line', 249
- unless_null $P11, __label_50
- goto __label_48 # break
- __label_50: # endif
+ unless_null $P11, __label_46
+ goto __label_44 # break
+ __label_46: # endif
.annotate 'line', 251
-# builtin string
set $S7, $P11
- ne $S7, 'main', __label_51
- goto __label_48 # break
- __label_51: # endif
-.annotate 'line', 252
-# }
- __label_47: # for iteration
+ ne $S7, 'main', __label_47
+ goto __label_44 # break
+ __label_47: # endif
+ __label_43: # for iteration
.annotate 'line', 247
inc $I7
- goto __label_49
- __label_48: # for end
+ goto __label_45
+ __label_44: # for end
.annotate 'line', 255
- unless_null $P11, __label_52
+ unless_null $P11, __label_48
.annotate 'line', 256
$P11 = $P5[0]
- __label_52: # endif
-# }
-# catch end
- __label_46:
+ __label_48: # endif
+ __label_42:
.annotate 'line', 258
.return($P11)
-# }
.annotate 'line', 259
.end # process_args
@@ -845,70 +667,49 @@
.sub 'main' :main
.param pmc __ARG_1
.const 'Sub' WSubId_4 = "WSubId_4"
-# Body
-# {
.annotate 'line', 263
-# var mainsub: $P1
$P1 = WSubId_4(__ARG_1)
.annotate 'line', 266
-# retval: $I1
null $I1
.annotate 'line', 267
-# try: create handler
new $P4, 'ExceptionHandler'
set_label $P4, __label_1
$P4.'handle_types_except'(64)
push_eh $P4
-# try: begin
-# {
.annotate 'line', 268
-# var retvalp: $P2
$P2 = $P1(__ARG_1)
.annotate 'line', 269
if_null $P2, __label_3
.annotate 'line', 270
set $I1, $P2
__label_3: # endif
-# }
-# try: end
pop_eh
goto __label_2
-.annotate 'line', 267
-# catch
__label_1:
+.annotate 'line', 267
.get_results($P3)
finalize $P3
pop_eh
-# {
.annotate 'line', 273
-# msg: $S1
$S1 = $P3['message']
.annotate 'line', 274
- isnull $I3, $S1
- not $I3
- unless $I3 goto __label_5
- isne $I4, $S1, ''
- set $I2, $I4
- goto __label_6
+ isnull $I2, $S1
+ not $I2
+ unless $I2 goto __label_5
+ isne $I2, $S1, ''
__label_5:
- set $I2, $I3
- __label_6:
unless $I2 goto __label_4
.annotate 'line', 275
-# builtin cry
getstderr $P0
print $P0, $S1
print $P0, "\n"
+
__label_4: # endif
.annotate 'line', 276
set $I1, 1
-# }
-# catch end
__label_2:
.annotate 'line', 278
-# builtin exit
exit $I1
-# }
.annotate 'line', 279
.end # main
View
48 setup.pir
@@ -1,7 +1,6 @@
# THIS IS A GENERATED FILE! DO NOT EDIT!
# Begin generated code
-
.sub initial_load_bytecode :anon :load :init
load_bytecode 'Getopt/Obj.pbc'
.end
@@ -11,54 +10,41 @@
.sub 'loadData' :subid('WSubId_1')
.param string __ARG_1
-# Body
-# {
.annotate 'file', 'setup.winxed'
.annotate 'line', 28
-# var json: $P1
-# builtin load_language
load_language 'data_json'
compreg $P1, 'data_json'
.annotate 'line', 29
-# var file: $P2
-# builtin open
root_new $P2, ['parrot';'FileHandle']
$P2.'open'(__ARG_1)
.annotate 'line', 30
isnull $I1, $P2
- if $I1 goto __label_2
- $P5 = $P2.'is_closed'()
- set $P4, $P5
- goto __label_3
- __label_2:
box $P4, $I1
- __label_3:
+ 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
-# builtin Error
- root_new $P6, ['parrot';'Exception']
- $P6['message'] = $S2
- throw $P6
+ root_new $P5, ['parrot';'Exception']
+ $P5['message'] = $S2
+ throw $P5
__label_1: # endif
.annotate 'line', 32
$P2.'encoding'('utf8')
.annotate 'line', 33
-# jsondata: $S1
$P4 = $P2.'readall'()
null $S1
- if_null $P4, __label_4
+ if_null $P4, __label_3
set $S1, $P4
- __label_4:
+ __label_3:
.annotate 'line', 34
$P2.'close'()
.annotate 'line', 35
-# var code: $P3
$P3 = $P1.'compile'($S1)
.annotate 'line', 36
.tailcall $P3()
-# }
.annotate 'line', 37
.end # loadData
@@ -67,10 +53,7 @@
.sub 'main' :main
.param pmc __ARG_1
.const 'Sub' WSubId_1 = "WSubId_1"
-# Body
-# {
.annotate 'line', 44
-# var getopts: $P1
new $P1, [ 'Getopt'; 'Obj' ]
.annotate 'line', 45
$P1.'notOptStop'(1)
@@ -79,25 +62,20 @@
.annotate 'line', 47
$P1.'push_string'('v')
.annotate 'line', 48
-# progname: $S1
$P5 = __ARG_1.'shift'()
null $S1
if_null $P5, __label_1
set $S1, $P5
__label_1:
.annotate 'line', 49
-# var opts: $P2
$P2 = $P1.'get_options'(__ARG_1)
.annotate 'line', 50
-# verbose: $I1
$P5 = $P2['v']
isnull $I1, $P5
not $I1
.annotate 'line', 51
-# var file: $P3
$P3 = $P2['file']
.annotate 'line', 55
-# filename: $S2
set $S2, 'setup.json'
.annotate 'line', 56
if_null $P3, __label_2
@@ -105,42 +83,32 @@
set $S2, $P3
__label_2: # endif
.annotate 'line', 58
-# var data: $P4
$P4 = WSubId_1($S2)
.annotate 'line', 60
unless $I1 goto __label_3
-# {
.annotate 'line', 61
-# description: $S3
$S3 = $P4['description']
.annotate 'line', 62
-# builtin say
print "\tFile: "
say $S2
.annotate 'line', 63
$P5 = $P4['name']
-# builtin say
print "\tName: "
say $P5
.annotate 'line', 64
-# builtin say
print "\tDescription: "
say $S3
.annotate 'line', 65
$P5 = $P4['copyright_holder']
-# builtin say
print "\t(C) "
say $P5
-# builtin say
.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
Please sign in to comment.
Something went wrong with that request. Please try again.