stowm 0.8.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (18) hide show
  1. checksums.yaml +7 -0
  2. data/README.md +8 -0
  3. data/bin/stowm +110 -0
  4. data/lib/stowm/env.nnd +61 -0
  5. data/lib/stowm/env.nndc +863 -0
  6. data/lib/stowm/listutil.nnd +40 -0
  7. data/lib/stowm/listutil.nndc +469 -0
  8. data/lib/stowm/main.nnd +340 -0
  9. data/lib/stowm/main.nndc +3848 -0
  10. data/lib/stowm/parseutil.nnd +121 -0
  11. data/lib/stowm/parseutil.nndc +1826 -0
  12. data/lib/stowm/specfile.nnd +113 -0
  13. data/lib/stowm/specfile.nndc +1166 -0
  14. data/lib/stowm/util.nnd +39 -0
  15. data/lib/stowm/util.nndc +395 -0
  16. data/lib/stowm/version.rb +5 -0
  17. data/lib/stowm.rb +35 -0
  18. metadata +75 -0
data/lib/stowm/parseutil.nndc ADDED
@@ -0,0 +1,1826 @@
1
+ #
2
+ # This file is nendo's compiled library file.
3
+ # generated "nendo -c src" command.
4
+ #
5
+
6
+ trampCall(
7
+ begin
8
+ embedBacktraceInfo( "", 1 );
9
+ delayCall( '_load', 'load',
10
+ begin
11
+ if @global_lisp_binding.has_key?('_load') then
12
+ trampCall(@_load)
13
+ else raise NameError.new( "Error: undefined variable load", "load" ) end
14
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
15
+ end ,
16
+ [
17
+ "srfi-9"
18
+ ]
19
+ )
20
+ end
21
+ )
22
+ #--------------------
23
+
24
+ trampCall(
25
+ begin
26
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 5 );
27
+ delayCall( '_require', 'require',
28
+ begin
29
+ if @global_lisp_binding.has_key?('_require') then
30
+ trampCall(@_require)
31
+ else raise NameError.new( "Error: undefined variable require", "require" ) end
32
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:5"] + __e.backtrace ) ; raise __e
33
+ end ,
34
+ [
35
+ "uri"
36
+ ]
37
+ )
38
+ end
39
+ )
40
+ #--------------------
41
+
42
+ trampCall(
43
+ begin #execFunc
44
+ def self._stowm_MIMARKext_MIMARKlist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKext_MIMARKlist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
45
+ @global_lisp_binding['_stowm_MIMARKext_MIMARKlist'] = self.method( :_stowm_MIMARKext_MIMARKlist_METHOD )
46
+ @_stowm_MIMARKext_MIMARKlist =
47
+ trampCall(
48
+ Cell.new(Cell.new("tar[.]gz",:"gz"),Cell.new(Cell.new("tgz",:"gz"),Cell.new(Cell.new("tar[.]bz2",:"bz2"),Cell.new(Cell.new("tar[.]xz",:"xz"),Cell.new(Cell.new("tar[.][zZ]",:"z"))))))
49
+ )
50
+ end
51
+ )
52
+ #--------------------
53
+
54
+ trampCall(
55
+ begin #execFunc
56
+ def self._stowm_MIMARKscheme_MIMARKlist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKscheme_MIMARKlist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
57
+ @global_lisp_binding['_stowm_MIMARKscheme_MIMARKlist'] = self.method( :_stowm_MIMARKscheme_MIMARKlist_METHOD )
58
+ @_stowm_MIMARKscheme_MIMARKlist =
59
+ trampCall(
60
+ Cell.new(:"http",Cell.new(:"https",Cell.new(:"ftp")))
61
+ )
62
+ end
63
+ )
64
+ #--------------------
65
+
66
+ trampCall(
67
+ begin #execFunc
68
+ def self._stowm_MIMARKrx_MIMARKproject_MIMARKname_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKrx_MIMARKproject_MIMARKname', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
69
+ @global_lisp_binding['_stowm_MIMARKrx_MIMARKproject_MIMARKname'] = self.method( :_stowm_MIMARKrx_MIMARKproject_MIMARKname_METHOD )
70
+ @_stowm_MIMARKrx_MIMARKproject_MIMARKname =
71
+ trampCall(
72
+ "([a-zA-Z][a-zA-Z0-9]+)"
73
+ )
74
+ end
75
+ )
76
+ #--------------------
77
+
78
+ trampCall(
79
+ begin #execFunc
80
+ def self._stowm_MIMARKrx_MIMARKversion_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKrx_MIMARKversion', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
81
+ @global_lisp_binding['_stowm_MIMARKrx_MIMARKversion'] = self.method( :_stowm_MIMARKrx_MIMARKversion_METHOD )
82
+ @_stowm_MIMARKrx_MIMARKversion =
83
+ trampCall(
84
+ "(.+)"
85
+ )
86
+ end
87
+ )
88
+ #--------------------
89
+
90
+ trampCall(
91
+ begin #execFunc
92
+ def self._stowm_MIMARKrx_MIMARKext_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKrx_MIMARKext', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
93
+ @global_lisp_binding['_stowm_MIMARKrx_MIMARKext'] = self.method( :_stowm_MIMARKrx_MIMARKext_METHOD )
94
+ @_stowm_MIMARKrx_MIMARKext =
95
+ trampCall(
96
+ begin
97
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 18 );
98
+ (
99
+ "(" +
100
+ begin
101
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 18 );
102
+ trampCall( self._string_MIMARKjoin_METHOD( 'string-join',
103
+ begin
104
+ if @global_lisp_binding.has_key?('_string_MIMARKjoin') then
105
+ trampCall(@_string_MIMARKjoin)
106
+ else raise NameError.new( "Error: undefined variable string-join", "string-join" ) end
107
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:18"] + __e.backtrace ) ; raise __e
108
+ end ,
109
+ [
110
+ begin
111
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 19 );
112
+ trampCall( self._map_METHOD( 'map',
113
+ begin
114
+ if @global_lisp_binding.has_key?('_map') then
115
+ trampCall(@_map)
116
+ else raise NameError.new( "Error: undefined variable map", "map" ) end
117
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:19"] + __e.backtrace ) ; raise __e
118
+ end ,
119
+ [
120
+ begin
121
+ if @global_lisp_binding.has_key?('_car') then
122
+ trampCall(@_car)
123
+ else raise NameError.new( "Error: undefined variable car", "car" ) end
124
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:19"] + __e.backtrace ) ; raise __e
125
+ end ,
126
+ begin
127
+ if @global_lisp_binding.has_key?('_stowm_MIMARKext_MIMARKlist') then
128
+ trampCall(@_stowm_MIMARKext_MIMARKlist)
129
+ else raise NameError.new( "Error: undefined variable stowm-ext-list", "stowm-ext-list" ) end
130
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:19"] + __e.backtrace ) ; raise __e
131
+ end
132
+ ]
133
+ ))
134
+ end ,
135
+ "|"
136
+ ]
137
+ ))
138
+ end +
139
+ ")"
140
+ )
141
+ end
142
+ )
143
+ end
144
+ )
145
+ #--------------------
146
+
147
+ trampCall(
148
+ begin #execFunc
149
+ def self._stowm_MIMARKsplit_MIMARKfilename_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKsplit_MIMARKfilename', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
150
+ @global_lisp_binding['_stowm_MIMARKsplit_MIMARKfilename'] = self.method( :_stowm_MIMARKsplit_MIMARKfilename_METHOD )
151
+ @_stowm_MIMARKsplit_MIMARKfilename =
152
+ trampCall(
153
+ Proc.new { |_filename|
154
+ begin #makeLet
155
+ ___lambda = lambda { |_filename_MIMARKand_MIMARKext|
156
+ begin #makeLet
157
+ ___lambda = lambda { |_filename,_ext|
158
+ if (
159
+ begin #execFunc
160
+ def self.___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
161
+ @global_lisp_binding['___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023'] = self.method( :___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023_METHOD )
162
+ @___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023 =
163
+ trampCall(
164
+ begin
165
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 33 );
166
+ trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match',
167
+ begin
168
+ if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then
169
+ trampCall(@_stowm_MIMARKregex_MIMARKmatch)
170
+ else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end
171
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e
172
+ end ,
173
+ [
174
+ begin
175
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 33 );
176
+ trampCall( self.__PLMARK_METHOD( '+',
177
+ begin
178
+ if @global_lisp_binding.has_key?('__PLMARK') then
179
+ trampCall(@__PLMARK)
180
+ else raise NameError.new( "Error: undefined variable +", "+" ) end
181
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e
182
+ end ,
183
+ [
184
+ "^" ,
185
+ begin
186
+ if @global_lisp_binding.has_key?('_stowm_MIMARKrx_MIMARKproject_MIMARKname') then
187
+ trampCall(@_stowm_MIMARKrx_MIMARKproject_MIMARKname)
188
+ else raise NameError.new( "Error: undefined variable stowm-rx-project-name", "stowm-rx-project-name" ) end
189
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e
190
+ end ,
191
+ "[-]" ,
192
+ begin
193
+ if @global_lisp_binding.has_key?('_stowm_MIMARKrx_MIMARKversion') then
194
+ trampCall(@_stowm_MIMARKrx_MIMARKversion)
195
+ else raise NameError.new( "Error: undefined variable stowm-rx-version", "stowm-rx-version" ) end
196
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e
197
+ end ,
198
+ "$"
199
+ ]
200
+ ))
201
+ end ,
202
+ begin
203
+ trampCall(_filename)
204
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:33"] + __e.backtrace ) ; raise __e
205
+ end
206
+ ]
207
+ ))
208
+ end
209
+ )
210
+ end
211
+ ) then
212
+ trampCall( callProcedure( nil, 'anonymouse',
213
+ Proc.new { |_x|
214
+ begin
215
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 35 );
216
+ trampCall( self._list_METHOD( 'list',
217
+ begin
218
+ if @global_lisp_binding.has_key?('_list') then
219
+ trampCall(@_list)
220
+ else raise NameError.new( "Error: undefined variable list", "list" ) end
221
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e
222
+ end ,
223
+ [
224
+ begin
225
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 35 );
226
+ trampCall( self._second_METHOD( 'second',
227
+ begin
228
+ if @global_lisp_binding.has_key?('_second') then
229
+ trampCall(@_second)
230
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
231
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e
232
+ end ,
233
+ [
234
+ begin
235
+ trampCall(_x)
236
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e
237
+ end
238
+ ]
239
+ ))
240
+ end ,
241
+ begin
242
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 35 );
243
+ trampCall( self._third_METHOD( 'third',
244
+ begin
245
+ if @global_lisp_binding.has_key?('_third') then
246
+ trampCall(@_third)
247
+ else raise NameError.new( "Error: undefined variable third", "third" ) end
248
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e
249
+ end ,
250
+ [
251
+ begin
252
+ trampCall(_x)
253
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e
254
+ end
255
+ ]
256
+ ))
257
+ end ,
258
+ begin
259
+ trampCall(_ext)
260
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:35"] + __e.backtrace ) ; raise __e
261
+ end
262
+ ]
263
+ ))
264
+ end
265
+ } ,
266
+ [
267
+ begin
268
+ if @global_lisp_binding.has_key?('___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023') then
269
+ trampCall(@___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023)
270
+ else raise NameError.new( "Error: undefined variable __gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023", "__gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70023" ) end
271
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
272
+ end
273
+ ]
274
+ ))
275
+ else
276
+ if (
277
+ begin #execFunc
278
+ def self.___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
279
+ @global_lisp_binding['___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022'] = self.method( :___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022_METHOD )
280
+ @___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022 =
281
+ trampCall(
282
+ begin
283
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 36 );
284
+ trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match',
285
+ begin
286
+ if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then
287
+ trampCall(@_stowm_MIMARKregex_MIMARKmatch)
288
+ else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end
289
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:36"] + __e.backtrace ) ; raise __e
290
+ end ,
291
+ [
292
+ begin
293
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 36 );
294
+ (
295
+ "^" +
296
+ begin
297
+ if @global_lisp_binding.has_key?('_stowm_MIMARKrx_MIMARKproject_MIMARKname') then
298
+ trampCall(@_stowm_MIMARKrx_MIMARKproject_MIMARKname)
299
+ else raise NameError.new( "Error: undefined variable stowm-rx-project-name", "stowm-rx-project-name" ) end
300
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:36"] + __e.backtrace ) ; raise __e
301
+ end +
302
+ "$"
303
+ )
304
+ end ,
305
+ begin
306
+ trampCall(_filename)
307
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:36"] + __e.backtrace ) ; raise __e
308
+ end
309
+ ]
310
+ ))
311
+ end
312
+ )
313
+ end
314
+ ) then
315
+ trampCall( callProcedure( nil, 'anonymouse',
316
+ Proc.new { |_x|
317
+ begin
318
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 38 );
319
+ trampCall( self._list_METHOD( 'list',
320
+ begin
321
+ if @global_lisp_binding.has_key?('_list') then
322
+ trampCall(@_list)
323
+ else raise NameError.new( "Error: undefined variable list", "list" ) end
324
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:38"] + __e.backtrace ) ; raise __e
325
+ end ,
326
+ [
327
+ begin
328
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 38 );
329
+ trampCall( self._second_METHOD( 'second',
330
+ begin
331
+ if @global_lisp_binding.has_key?('_second') then
332
+ trampCall(@_second)
333
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
334
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:38"] + __e.backtrace ) ; raise __e
335
+ end ,
336
+ [
337
+ begin
338
+ trampCall(_x)
339
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:38"] + __e.backtrace ) ; raise __e
340
+ end
341
+ ]
342
+ ))
343
+ end ,
344
+ false ,
345
+ begin
346
+ trampCall(_ext)
347
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:38"] + __e.backtrace ) ; raise __e
348
+ end
349
+ ]
350
+ ))
351
+ end
352
+ } ,
353
+ [
354
+ begin
355
+ if @global_lisp_binding.has_key?('___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022') then
356
+ trampCall(@___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022)
357
+ else raise NameError.new( "Error: undefined variable __gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022", "__gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70022" ) end
358
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
359
+ end
360
+ ]
361
+ ))
362
+ else
363
+ if (
364
+ true
365
+ ) then
366
+ Cell.new(false,Cell.new(false,Cell.new(false)))
367
+ else
368
+ Cell.new()
369
+ end
370
+ end
371
+ end
372
+ } ; ___lambda.call(
373
+ begin
374
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 30 );
375
+ _car(
376
+ begin
377
+ trampCall(_filename_MIMARKand_MIMARKext)
378
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:30"] + __e.backtrace ) ; raise __e
379
+ end
380
+ )
381
+ end ,
382
+ begin
383
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 31 );
384
+ _cdr(
385
+ begin
386
+ trampCall(_filename_MIMARKand_MIMARKext)
387
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:31"] + __e.backtrace ) ; raise __e
388
+ end
389
+ )
390
+ end
391
+ )
392
+ end
393
+ } ; ___lambda.call(
394
+ if (
395
+ begin #execFunc
396
+ def self.___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
397
+ @global_lisp_binding['___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020'] = self.method( :___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020_METHOD )
398
+ @___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020 =
399
+ trampCall(
400
+ begin
401
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 24 );
402
+ trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match',
403
+ begin
404
+ if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then
405
+ trampCall(@_stowm_MIMARKregex_MIMARKmatch)
406
+ else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end
407
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:24"] + __e.backtrace ) ; raise __e
408
+ end ,
409
+ [
410
+ begin
411
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 24 );
412
+ (
413
+ "(.+)[.]" +
414
+ begin
415
+ if @global_lisp_binding.has_key?('_stowm_MIMARKrx_MIMARKext') then
416
+ trampCall(@_stowm_MIMARKrx_MIMARKext)
417
+ else raise NameError.new( "Error: undefined variable stowm-rx-ext", "stowm-rx-ext" ) end
418
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:24"] + __e.backtrace ) ; raise __e
419
+ end +
420
+ "$"
421
+ )
422
+ end ,
423
+ begin
424
+ trampCall(_filename)
425
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:24"] + __e.backtrace ) ; raise __e
426
+ end
427
+ ]
428
+ ))
429
+ end
430
+ )
431
+ end
432
+ ) then
433
+ trampCall( callProcedure( nil, 'anonymouse',
434
+ Proc.new { |_x|
435
+ begin
436
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 26 );
437
+ _cons(
438
+ begin
439
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 26 );
440
+ trampCall( self._second_METHOD( 'second',
441
+ begin
442
+ if @global_lisp_binding.has_key?('_second') then
443
+ trampCall(@_second)
444
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
445
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:26"] + __e.backtrace ) ; raise __e
446
+ end ,
447
+ [
448
+ begin
449
+ trampCall(_x)
450
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:26"] + __e.backtrace ) ; raise __e
451
+ end
452
+ ]
453
+ ))
454
+ end ,
455
+ begin
456
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 27 );
457
+ trampCall( self._third_METHOD( 'third',
458
+ begin
459
+ if @global_lisp_binding.has_key?('_third') then
460
+ trampCall(@_third)
461
+ else raise NameError.new( "Error: undefined variable third", "third" ) end
462
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:27"] + __e.backtrace ) ; raise __e
463
+ end ,
464
+ [
465
+ begin
466
+ trampCall(_x)
467
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:27"] + __e.backtrace ) ; raise __e
468
+ end
469
+ ]
470
+ ))
471
+ end
472
+ )
473
+ end
474
+ } ,
475
+ [
476
+ begin
477
+ if @global_lisp_binding.has_key?('___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020') then
478
+ trampCall(@___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020)
479
+ else raise NameError.new( "Error: undefined variable __gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020", "__gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70020" ) end
480
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
481
+ end
482
+ ]
483
+ ))
484
+ else
485
+ if (
486
+ true
487
+ ) then
488
+ begin
489
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 29 );
490
+ delayCall( '_cons', 'cons',
491
+ begin
492
+ if @global_lisp_binding.has_key?('_cons') then
493
+ trampCall(@_cons)
494
+ else raise NameError.new( "Error: undefined variable cons", "cons" ) end
495
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:29"] + __e.backtrace ) ; raise __e
496
+ end ,
497
+ [
498
+ begin
499
+ trampCall(_filename)
500
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:29"] + __e.backtrace ) ; raise __e
501
+ end ,
502
+ false
503
+ ]
504
+ )
505
+ end
506
+ else
507
+ Cell.new()
508
+ end
509
+ end
510
+ )
511
+ end
512
+ }
513
+ )
514
+ end
515
+ )
516
+ #--------------------
517
+
518
+ trampCall(
519
+ begin #execFunc
520
+ def self._stowm_MIMARKsplit_MIMARKpath_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKsplit_MIMARKpath', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
521
+ @global_lisp_binding['_stowm_MIMARKsplit_MIMARKpath'] = self.method( :_stowm_MIMARKsplit_MIMARKpath_METHOD )
522
+ @_stowm_MIMARKsplit_MIMARKpath =
523
+ trampCall(
524
+ Proc.new { |_path|
525
+ begin #makeLet
526
+ ___lambda = lambda { |_lst|
527
+ begin #makeLet
528
+ ___lambda = lambda { |_dirname,_filename|
529
+ begin
530
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 46 );
531
+ delayCall( '_list', 'list',
532
+ begin
533
+ if @global_lisp_binding.has_key?('_list') then
534
+ trampCall(@_list)
535
+ else raise NameError.new( "Error: undefined variable list", "list" ) end
536
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:46"] + __e.backtrace ) ; raise __e
537
+ end ,
538
+ [
539
+ begin
540
+ trampCall(_dirname)
541
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:46"] + __e.backtrace ) ; raise __e
542
+ end ,
543
+ begin
544
+ trampCall(_filename)
545
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:46"] + __e.backtrace ) ; raise __e
546
+ end
547
+ ]
548
+ )
549
+ end
550
+ } ; ___lambda.call(
551
+ begin
552
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 44 );
553
+ trampCall( self._first_METHOD( 'first',
554
+ begin
555
+ if @global_lisp_binding.has_key?('_first') then
556
+ trampCall(@_first)
557
+ else raise NameError.new( "Error: undefined variable first", "first" ) end
558
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:44"] + __e.backtrace ) ; raise __e
559
+ end ,
560
+ [
561
+ begin
562
+ trampCall(_lst)
563
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:44"] + __e.backtrace ) ; raise __e
564
+ end
565
+ ]
566
+ ))
567
+ end ,
568
+ begin
569
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 45 );
570
+ trampCall( self._second_METHOD( 'second',
571
+ begin
572
+ if @global_lisp_binding.has_key?('_second') then
573
+ trampCall(@_second)
574
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
575
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:45"] + __e.backtrace ) ; raise __e
576
+ end ,
577
+ [
578
+ begin
579
+ trampCall(_lst)
580
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:45"] + __e.backtrace ) ; raise __e
581
+ end
582
+ ]
583
+ ))
584
+ end
585
+ )
586
+ end
587
+ } ; ___lambda.call(
588
+ begin
589
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 43 );
590
+ _to_MIMARKlist(
591
+ begin
592
+ trampCall(File).split(
593
+ begin
594
+ trampCall(_path)
595
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:43"] + __e.backtrace ) ; raise __e
596
+ end
597
+ )
598
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:43"] + __e.backtrace ) ; raise __e
599
+ end
600
+ )
601
+ end
602
+ )
603
+ end
604
+ }
605
+ )
606
+ end
607
+ )
608
+ #--------------------
609
+
610
+ trampCall(
611
+ begin #execFunc
612
+ def self._stowm_MIMARKget_MIMARKext_MIMARKtype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKget_MIMARKext_MIMARKtype', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
613
+ @global_lisp_binding['_stowm_MIMARKget_MIMARKext_MIMARKtype'] = self.method( :_stowm_MIMARKget_MIMARKext_MIMARKtype_METHOD )
614
+ @_stowm_MIMARKget_MIMARKext_MIMARKtype =
615
+ trampCall(
616
+ Proc.new { |_ext_MIMARKstring|
617
+ begin #makeLet
618
+ ___lambda = lambda { |_lst|
619
+ if (
620
+ begin
621
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 55 );
622
+ (
623
+ 0 <
624
+ begin
625
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 55 );
626
+ _length(
627
+ begin
628
+ trampCall(_lst)
629
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:55"] + __e.backtrace ) ; raise __e
630
+ end
631
+ )
632
+ end
633
+ )
634
+ end
635
+ ) then
636
+ begin
637
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 56 );
638
+ delayCall( '_first', 'first',
639
+ begin
640
+ if @global_lisp_binding.has_key?('_first') then
641
+ trampCall(@_first)
642
+ else raise NameError.new( "Error: undefined variable first", "first" ) end
643
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:56"] + __e.backtrace ) ; raise __e
644
+ end ,
645
+ [
646
+ begin
647
+ trampCall(_lst)
648
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:56"] + __e.backtrace ) ; raise __e
649
+ end
650
+ ]
651
+ )
652
+ end
653
+ else
654
+ false
655
+ end
656
+ } ; ___lambda.call(
657
+ begin
658
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 49 );
659
+ trampCall( self._filter_MIMARKmap_METHOD( 'filter-map',
660
+ begin
661
+ if @global_lisp_binding.has_key?('_filter_MIMARKmap') then
662
+ trampCall(@_filter_MIMARKmap)
663
+ else raise NameError.new( "Error: undefined variable filter-map", "filter-map" ) end
664
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:49"] + __e.backtrace ) ; raise __e
665
+ end ,
666
+ [
667
+ Proc.new { |_entry|
668
+ if (
669
+ begin
670
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 51 );
671
+ trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match',
672
+ begin
673
+ if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then
674
+ trampCall(@_stowm_MIMARKregex_MIMARKmatch)
675
+ else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end
676
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:51"] + __e.backtrace ) ; raise __e
677
+ end ,
678
+ [
679
+ begin
680
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 51 );
681
+ _car(
682
+ begin
683
+ trampCall(_entry)
684
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:51"] + __e.backtrace ) ; raise __e
685
+ end
686
+ )
687
+ end ,
688
+ begin
689
+ trampCall(_ext_MIMARKstring)
690
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:51"] + __e.backtrace ) ; raise __e
691
+ end
692
+ ]
693
+ ))
694
+ end
695
+ ) then
696
+ begin
697
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 52 );
698
+ _cdr(
699
+ begin
700
+ trampCall(_entry)
701
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:52"] + __e.backtrace ) ; raise __e
702
+ end
703
+ )
704
+ end
705
+ else
706
+ false
707
+ end
708
+ } ,
709
+ begin
710
+ if @global_lisp_binding.has_key?('_stowm_MIMARKext_MIMARKlist') then
711
+ trampCall(@_stowm_MIMARKext_MIMARKlist)
712
+ else raise NameError.new( "Error: undefined variable stowm-ext-list", "stowm-ext-list" ) end
713
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:54"] + __e.backtrace ) ; raise __e
714
+ end
715
+ ]
716
+ ))
717
+ end
718
+ )
719
+ end
720
+ }
721
+ )
722
+ end
723
+ )
724
+ #--------------------
725
+
726
+ trampCall(
727
+ begin #execFunc
728
+ def self._stowm_MIMARKget_MIMARKscheme_MIMARKtype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKget_MIMARKscheme_MIMARKtype', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
729
+ @global_lisp_binding['_stowm_MIMARKget_MIMARKscheme_MIMARKtype'] = self.method( :_stowm_MIMARKget_MIMARKscheme_MIMARKtype_METHOD )
730
+ @_stowm_MIMARKget_MIMARKscheme_MIMARKtype =
731
+ trampCall(
732
+ Proc.new { |_scheme_MIMARKstring|
733
+ if (
734
+ begin
735
+ trampCall(_scheme_MIMARKstring)
736
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:60"] + __e.backtrace ) ; raise __e
737
+ end
738
+ ) then
739
+ begin #makeLet
740
+ ___lambda = lambda { |_sym|
741
+ if (
742
+ begin
743
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 62 );
744
+ trampCall( self._memq_METHOD( 'memq',
745
+ begin
746
+ if @global_lisp_binding.has_key?('_memq') then
747
+ trampCall(@_memq)
748
+ else raise NameError.new( "Error: undefined variable memq", "memq" ) end
749
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:62"] + __e.backtrace ) ; raise __e
750
+ end ,
751
+ [
752
+ begin
753
+ trampCall(_sym)
754
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:62"] + __e.backtrace ) ; raise __e
755
+ end ,
756
+ begin
757
+ if @global_lisp_binding.has_key?('_stowm_MIMARKscheme_MIMARKlist') then
758
+ trampCall(@_stowm_MIMARKscheme_MIMARKlist)
759
+ else raise NameError.new( "Error: undefined variable stowm-scheme-list", "stowm-scheme-list" ) end
760
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:62"] + __e.backtrace ) ; raise __e
761
+ end
762
+ ]
763
+ ))
764
+ end
765
+ ) then
766
+ begin
767
+ trampCall(_sym)
768
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:63"] + __e.backtrace ) ; raise __e
769
+ end
770
+ else
771
+ :"unknown"
772
+ end
773
+ } ; ___lambda.call(
774
+ begin
775
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 61 );
776
+ _string_MIMARK_GTMARKsymbol(
777
+ begin
778
+ trampCall(_scheme_MIMARKstring)
779
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:61"] + __e.backtrace ) ; raise __e
780
+ end
781
+ )
782
+ end
783
+ )
784
+ end
785
+ else
786
+ :"empty"
787
+ end
788
+ }
789
+ )
790
+ end
791
+ )
792
+ #--------------------
793
+
794
+ trampCall(
795
+ begin #makeBegin
796
+ begin #execFunc
797
+ def self.__LTMARKparsed_GTMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__LTMARKparsed_GTMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
798
+ @global_lisp_binding['__LTMARKparsed_GTMARK'] = self.method( :__LTMARKparsed_GTMARK_METHOD )
799
+ @__LTMARKparsed_GTMARK =
800
+ trampCall(
801
+ begin
802
+ embedBacktraceInfo( "", 1 );
803
+ trampCall( self._make_MIMARKrecord_MIMARKtype_METHOD( 'make-record-type',
804
+ begin
805
+ if @global_lisp_binding.has_key?('_make_MIMARKrecord_MIMARKtype') then
806
+ trampCall(@_make_MIMARKrecord_MIMARKtype)
807
+ else raise NameError.new( "Error: undefined variable make-record-type", "make-record-type" ) end
808
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
809
+ end ,
810
+ [
811
+ :"<parsed>" ,
812
+ Cell.new(:"scheme",Cell.new(:"scheme-type",Cell.new(:"host",Cell.new(:"port",Cell.new(:"path",Cell.new(:"dir",Cell.new(:"filename",Cell.new(:"proj",Cell.new(:"ver",Cell.new(:"package",Cell.new(:"ext",Cell.new(:"arc-type"))))))))))))
813
+ ]
814
+ ))
815
+ end
816
+ )
817
+ end
818
+ begin #execFunc
819
+ def self._parsed_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_parsed', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
820
+ @global_lisp_binding['_parsed'] = self.method( :_parsed_METHOD )
821
+ @_parsed =
822
+ trampCall(
823
+ begin
824
+ embedBacktraceInfo( "", 1 );
825
+ trampCall( self._record_MIMARKconstructor_METHOD( 'record-constructor',
826
+ begin
827
+ if @global_lisp_binding.has_key?('_record_MIMARKconstructor') then
828
+ trampCall(@_record_MIMARKconstructor)
829
+ else raise NameError.new( "Error: undefined variable record-constructor", "record-constructor" ) end
830
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
831
+ end ,
832
+ [
833
+ begin
834
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
835
+ trampCall(@__LTMARKparsed_GTMARK)
836
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
837
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
838
+ end ,
839
+ Cell.new(:"scheme",Cell.new(:"scheme-type",Cell.new(:"host",Cell.new(:"port",Cell.new(:"path",Cell.new(:"dir",Cell.new(:"filename",Cell.new(:"proj",Cell.new(:"ver",Cell.new(:"package",Cell.new(:"ext",Cell.new(:"arc-type"))))))))))))
840
+ ]
841
+ ))
842
+ end
843
+ )
844
+ end
845
+ begin #execFunc
846
+ def self._parsed_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_parsed_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
847
+ @global_lisp_binding['_parsed_QUMARK'] = self.method( :_parsed_QUMARK_METHOD )
848
+ @_parsed_QUMARK =
849
+ trampCall(
850
+ begin
851
+ embedBacktraceInfo( "", 1 );
852
+ trampCall( self._record_MIMARKpredicate_METHOD( 'record-predicate',
853
+ begin
854
+ if @global_lisp_binding.has_key?('_record_MIMARKpredicate') then
855
+ trampCall(@_record_MIMARKpredicate)
856
+ else raise NameError.new( "Error: undefined variable record-predicate", "record-predicate" ) end
857
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
858
+ end ,
859
+ [
860
+ begin
861
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
862
+ trampCall(@__LTMARKparsed_GTMARK)
863
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
864
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
865
+ end
866
+ ]
867
+ ))
868
+ end
869
+ )
870
+ end
871
+ begin #execFunc
872
+ def self._scheme_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_scheme', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
873
+ @global_lisp_binding['_scheme'] = self.method( :_scheme_METHOD )
874
+ @_scheme =
875
+ trampCall(
876
+ begin
877
+ embedBacktraceInfo( "", 1 );
878
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
879
+ begin
880
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
881
+ trampCall(@_record_MIMARKaccessor)
882
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
883
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
884
+ end ,
885
+ [
886
+ begin
887
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
888
+ trampCall(@__LTMARKparsed_GTMARK)
889
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
890
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
891
+ end ,
892
+ :"scheme"
893
+ ]
894
+ ))
895
+ end
896
+ )
897
+ end
898
+ begin #execFunc
899
+ def self._scheme_MIMARKtype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_scheme_MIMARKtype', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
900
+ @global_lisp_binding['_scheme_MIMARKtype'] = self.method( :_scheme_MIMARKtype_METHOD )
901
+ @_scheme_MIMARKtype =
902
+ trampCall(
903
+ begin
904
+ embedBacktraceInfo( "", 1 );
905
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
906
+ begin
907
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
908
+ trampCall(@_record_MIMARKaccessor)
909
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
910
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
911
+ end ,
912
+ [
913
+ begin
914
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
915
+ trampCall(@__LTMARKparsed_GTMARK)
916
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
917
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
918
+ end ,
919
+ :"scheme-type"
920
+ ]
921
+ ))
922
+ end
923
+ )
924
+ end
925
+ begin #execFunc
926
+ def self._host_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_host', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
927
+ @global_lisp_binding['_host'] = self.method( :_host_METHOD )
928
+ @_host =
929
+ trampCall(
930
+ begin
931
+ embedBacktraceInfo( "", 1 );
932
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
933
+ begin
934
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
935
+ trampCall(@_record_MIMARKaccessor)
936
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
937
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
938
+ end ,
939
+ [
940
+ begin
941
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
942
+ trampCall(@__LTMARKparsed_GTMARK)
943
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
944
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
945
+ end ,
946
+ :"host"
947
+ ]
948
+ ))
949
+ end
950
+ )
951
+ end
952
+ begin #execFunc
953
+ def self._port_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_port', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
954
+ @global_lisp_binding['_port'] = self.method( :_port_METHOD )
955
+ @_port =
956
+ trampCall(
957
+ begin
958
+ embedBacktraceInfo( "", 1 );
959
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
960
+ begin
961
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
962
+ trampCall(@_record_MIMARKaccessor)
963
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
964
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
965
+ end ,
966
+ [
967
+ begin
968
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
969
+ trampCall(@__LTMARKparsed_GTMARK)
970
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
971
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
972
+ end ,
973
+ :"port"
974
+ ]
975
+ ))
976
+ end
977
+ )
978
+ end
979
+ begin #execFunc
980
+ def self._path_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_path', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
981
+ @global_lisp_binding['_path'] = self.method( :_path_METHOD )
982
+ @_path =
983
+ trampCall(
984
+ begin
985
+ embedBacktraceInfo( "", 1 );
986
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
987
+ begin
988
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
989
+ trampCall(@_record_MIMARKaccessor)
990
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
991
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
992
+ end ,
993
+ [
994
+ begin
995
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
996
+ trampCall(@__LTMARKparsed_GTMARK)
997
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
998
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
999
+ end ,
1000
+ :"path"
1001
+ ]
1002
+ ))
1003
+ end
1004
+ )
1005
+ end
1006
+ begin #execFunc
1007
+ def self._dir_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_dir', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1008
+ @global_lisp_binding['_dir'] = self.method( :_dir_METHOD )
1009
+ @_dir =
1010
+ trampCall(
1011
+ begin
1012
+ embedBacktraceInfo( "", 1 );
1013
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
1014
+ begin
1015
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
1016
+ trampCall(@_record_MIMARKaccessor)
1017
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
1018
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1019
+ end ,
1020
+ [
1021
+ begin
1022
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
1023
+ trampCall(@__LTMARKparsed_GTMARK)
1024
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
1025
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
1026
+ end ,
1027
+ :"dir"
1028
+ ]
1029
+ ))
1030
+ end
1031
+ )
1032
+ end
1033
+ begin #execFunc
1034
+ def self._filename_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_filename', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1035
+ @global_lisp_binding['_filename'] = self.method( :_filename_METHOD )
1036
+ @_filename =
1037
+ trampCall(
1038
+ begin
1039
+ embedBacktraceInfo( "", 1 );
1040
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
1041
+ begin
1042
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
1043
+ trampCall(@_record_MIMARKaccessor)
1044
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
1045
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1046
+ end ,
1047
+ [
1048
+ begin
1049
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
1050
+ trampCall(@__LTMARKparsed_GTMARK)
1051
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
1052
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
1053
+ end ,
1054
+ :"filename"
1055
+ ]
1056
+ ))
1057
+ end
1058
+ )
1059
+ end
1060
+ begin #execFunc
1061
+ def self._proj_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_proj', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1062
+ @global_lisp_binding['_proj'] = self.method( :_proj_METHOD )
1063
+ @_proj =
1064
+ trampCall(
1065
+ begin
1066
+ embedBacktraceInfo( "", 1 );
1067
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
1068
+ begin
1069
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
1070
+ trampCall(@_record_MIMARKaccessor)
1071
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
1072
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1073
+ end ,
1074
+ [
1075
+ begin
1076
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
1077
+ trampCall(@__LTMARKparsed_GTMARK)
1078
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
1079
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
1080
+ end ,
1081
+ :"proj"
1082
+ ]
1083
+ ))
1084
+ end
1085
+ )
1086
+ end
1087
+ begin #execFunc
1088
+ def self._ver_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_ver', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1089
+ @global_lisp_binding['_ver'] = self.method( :_ver_METHOD )
1090
+ @_ver =
1091
+ trampCall(
1092
+ begin
1093
+ embedBacktraceInfo( "", 1 );
1094
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
1095
+ begin
1096
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
1097
+ trampCall(@_record_MIMARKaccessor)
1098
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
1099
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1100
+ end ,
1101
+ [
1102
+ begin
1103
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
1104
+ trampCall(@__LTMARKparsed_GTMARK)
1105
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
1106
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
1107
+ end ,
1108
+ :"ver"
1109
+ ]
1110
+ ))
1111
+ end
1112
+ )
1113
+ end
1114
+ begin #execFunc
1115
+ def self._package_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_package', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1116
+ @global_lisp_binding['_package'] = self.method( :_package_METHOD )
1117
+ @_package =
1118
+ trampCall(
1119
+ begin
1120
+ embedBacktraceInfo( "", 1 );
1121
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
1122
+ begin
1123
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
1124
+ trampCall(@_record_MIMARKaccessor)
1125
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
1126
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1127
+ end ,
1128
+ [
1129
+ begin
1130
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
1131
+ trampCall(@__LTMARKparsed_GTMARK)
1132
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
1133
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
1134
+ end ,
1135
+ :"package"
1136
+ ]
1137
+ ))
1138
+ end
1139
+ )
1140
+ end
1141
+ begin #execFunc
1142
+ def self._ext_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_ext', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1143
+ @global_lisp_binding['_ext'] = self.method( :_ext_METHOD )
1144
+ @_ext =
1145
+ trampCall(
1146
+ begin
1147
+ embedBacktraceInfo( "", 1 );
1148
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
1149
+ begin
1150
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
1151
+ trampCall(@_record_MIMARKaccessor)
1152
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
1153
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1154
+ end ,
1155
+ [
1156
+ begin
1157
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
1158
+ trampCall(@__LTMARKparsed_GTMARK)
1159
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
1160
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
1161
+ end ,
1162
+ :"ext"
1163
+ ]
1164
+ ))
1165
+ end
1166
+ )
1167
+ end
1168
+ begin #execFunc
1169
+ def self._arc_MIMARKtype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_arc_MIMARKtype', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1170
+ @global_lisp_binding['_arc_MIMARKtype'] = self.method( :_arc_MIMARKtype_METHOD )
1171
+ @_arc_MIMARKtype =
1172
+ trampCall(
1173
+ begin
1174
+ embedBacktraceInfo( "", 1 );
1175
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
1176
+ begin
1177
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
1178
+ trampCall(@_record_MIMARKaccessor)
1179
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
1180
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1181
+ end ,
1182
+ [
1183
+ begin
1184
+ if @global_lisp_binding.has_key?('__LTMARKparsed_GTMARK') then
1185
+ trampCall(@__LTMARKparsed_GTMARK)
1186
+ else raise NameError.new( "Error: undefined variable <parsed>", "<parsed>" ) end
1187
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:68"] + __e.backtrace ) ; raise __e
1188
+ end ,
1189
+ :"arc-type"
1190
+ ]
1191
+ ))
1192
+ end
1193
+ )
1194
+ end
1195
+ end
1196
+ )
1197
+ #--------------------
1198
+
1199
+ trampCall(
1200
+ begin #execFunc
1201
+ def self._stowm_MIMARKparse_MIMARKurl_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKparse_MIMARKurl', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1202
+ @global_lisp_binding['_stowm_MIMARKparse_MIMARKurl'] = self.method( :_stowm_MIMARKparse_MIMARKurl_METHOD )
1203
+ @_stowm_MIMARKparse_MIMARKurl =
1204
+ trampCall(
1205
+ Proc.new { |_url_MIMARKstring|
1206
+ begin #makeLet
1207
+ ___lambda = lambda { |_url|
1208
+ begin #makeLet
1209
+ ___lambda = lambda { |_lst|
1210
+ begin #makeLet
1211
+ ___lambda = lambda { |_fields|
1212
+ begin
1213
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 95 );
1214
+ delayCall( '_parsed', 'parsed',
1215
+ begin
1216
+ if @global_lisp_binding.has_key?('_parsed') then
1217
+ trampCall(@_parsed)
1218
+ else raise NameError.new( "Error: undefined variable parsed", "parsed" ) end
1219
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:95"] + __e.backtrace ) ; raise __e
1220
+ end ,
1221
+ [
1222
+ begin
1223
+ trampCall(_url).scheme
1224
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:96"] + __e.backtrace ) ; raise __e
1225
+ end ,
1226
+ begin
1227
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 97 );
1228
+ trampCall( self._stowm_MIMARKget_MIMARKscheme_MIMARKtype_METHOD( 'stowm-get-scheme-type',
1229
+ begin
1230
+ if @global_lisp_binding.has_key?('_stowm_MIMARKget_MIMARKscheme_MIMARKtype') then
1231
+ trampCall(@_stowm_MIMARKget_MIMARKscheme_MIMARKtype)
1232
+ else raise NameError.new( "Error: undefined variable stowm-get-scheme-type", "stowm-get-scheme-type" ) end
1233
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:97"] + __e.backtrace ) ; raise __e
1234
+ end ,
1235
+ [
1236
+ begin
1237
+ trampCall(_url).scheme
1238
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:97"] + __e.backtrace ) ; raise __e
1239
+ end
1240
+ ]
1241
+ ))
1242
+ end ,
1243
+ begin
1244
+ trampCall(_url).host
1245
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:98"] + __e.backtrace ) ; raise __e
1246
+ end ,
1247
+ begin
1248
+ trampCall(_url).port
1249
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:99"] + __e.backtrace ) ; raise __e
1250
+ end ,
1251
+ begin
1252
+ trampCall(_url).path
1253
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:100"] + __e.backtrace ) ; raise __e
1254
+ end ,
1255
+ begin
1256
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 101 );
1257
+ trampCall( self._first_METHOD( 'first',
1258
+ begin
1259
+ if @global_lisp_binding.has_key?('_first') then
1260
+ trampCall(@_first)
1261
+ else raise NameError.new( "Error: undefined variable first", "first" ) end
1262
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:101"] + __e.backtrace ) ; raise __e
1263
+ end ,
1264
+ [
1265
+ begin
1266
+ trampCall(_lst)
1267
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:101"] + __e.backtrace ) ; raise __e
1268
+ end
1269
+ ]
1270
+ ))
1271
+ end ,
1272
+ begin
1273
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 102 );
1274
+ trampCall( self._second_METHOD( 'second',
1275
+ begin
1276
+ if @global_lisp_binding.has_key?('_second') then
1277
+ trampCall(@_second)
1278
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
1279
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:102"] + __e.backtrace ) ; raise __e
1280
+ end ,
1281
+ [
1282
+ begin
1283
+ trampCall(_lst)
1284
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:102"] + __e.backtrace ) ; raise __e
1285
+ end
1286
+ ]
1287
+ ))
1288
+ end ,
1289
+ begin #makeLet
1290
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70024|
1291
+ if (
1292
+ begin
1293
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70024)
1294
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1295
+ end
1296
+ ) then
1297
+ begin
1298
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70024)
1299
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1300
+ end
1301
+ else
1302
+ begin #makeLet
1303
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70025|
1304
+ if (
1305
+ begin
1306
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70025)
1307
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1308
+ end
1309
+ ) then
1310
+ begin
1311
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70025)
1312
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1313
+ end
1314
+ else
1315
+ false
1316
+ end
1317
+ } ; ___lambda.call(
1318
+ ""
1319
+ )
1320
+ end
1321
+ end
1322
+ } ; ___lambda.call(
1323
+ begin
1324
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 103 );
1325
+ trampCall( self._first_METHOD( 'first',
1326
+ begin
1327
+ if @global_lisp_binding.has_key?('_first') then
1328
+ trampCall(@_first)
1329
+ else raise NameError.new( "Error: undefined variable first", "first" ) end
1330
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:103"] + __e.backtrace ) ; raise __e
1331
+ end ,
1332
+ [
1333
+ begin
1334
+ trampCall(_fields)
1335
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:103"] + __e.backtrace ) ; raise __e
1336
+ end
1337
+ ]
1338
+ ))
1339
+ end
1340
+ )
1341
+ end ,
1342
+ begin #makeLet
1343
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70026|
1344
+ if (
1345
+ begin
1346
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70026)
1347
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1348
+ end
1349
+ ) then
1350
+ begin
1351
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70026)
1352
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1353
+ end
1354
+ else
1355
+ begin #makeLet
1356
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70027|
1357
+ if (
1358
+ begin
1359
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70027)
1360
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1361
+ end
1362
+ ) then
1363
+ begin
1364
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70027)
1365
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1366
+ end
1367
+ else
1368
+ false
1369
+ end
1370
+ } ; ___lambda.call(
1371
+ ""
1372
+ )
1373
+ end
1374
+ end
1375
+ } ; ___lambda.call(
1376
+ begin
1377
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 104 );
1378
+ trampCall( self._second_METHOD( 'second',
1379
+ begin
1380
+ if @global_lisp_binding.has_key?('_second') then
1381
+ trampCall(@_second)
1382
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
1383
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:104"] + __e.backtrace ) ; raise __e
1384
+ end ,
1385
+ [
1386
+ begin
1387
+ trampCall(_fields)
1388
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:104"] + __e.backtrace ) ; raise __e
1389
+ end
1390
+ ]
1391
+ ))
1392
+ end
1393
+ )
1394
+ end ,
1395
+ begin
1396
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 105 );
1397
+ (
1398
+ begin #makeLet
1399
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70028|
1400
+ if (
1401
+ begin
1402
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70028)
1403
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1404
+ end
1405
+ ) then
1406
+ begin
1407
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70028)
1408
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1409
+ end
1410
+ else
1411
+ begin #makeLet
1412
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70029|
1413
+ if (
1414
+ begin
1415
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70029)
1416
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1417
+ end
1418
+ ) then
1419
+ begin
1420
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70029)
1421
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1422
+ end
1423
+ else
1424
+ false
1425
+ end
1426
+ } ; ___lambda.call(
1427
+ ""
1428
+ )
1429
+ end
1430
+ end
1431
+ } ; ___lambda.call(
1432
+ begin
1433
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 105 );
1434
+ trampCall( self._first_METHOD( 'first',
1435
+ begin
1436
+ if @global_lisp_binding.has_key?('_first') then
1437
+ trampCall(@_first)
1438
+ else raise NameError.new( "Error: undefined variable first", "first" ) end
1439
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:105"] + __e.backtrace ) ; raise __e
1440
+ end ,
1441
+ [
1442
+ begin
1443
+ trampCall(_fields)
1444
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:105"] + __e.backtrace ) ; raise __e
1445
+ end
1446
+ ]
1447
+ ))
1448
+ end
1449
+ )
1450
+ end +
1451
+ "-" +
1452
+ begin #makeLet
1453
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70030|
1454
+ if (
1455
+ begin
1456
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70030)
1457
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1458
+ end
1459
+ ) then
1460
+ begin
1461
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70030)
1462
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1463
+ end
1464
+ else
1465
+ begin #makeLet
1466
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70031|
1467
+ if (
1468
+ begin
1469
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70031)
1470
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1471
+ end
1472
+ ) then
1473
+ begin
1474
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70031)
1475
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1476
+ end
1477
+ else
1478
+ false
1479
+ end
1480
+ } ; ___lambda.call(
1481
+ ""
1482
+ )
1483
+ end
1484
+ end
1485
+ } ; ___lambda.call(
1486
+ begin
1487
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 107 );
1488
+ trampCall( self._second_METHOD( 'second',
1489
+ begin
1490
+ if @global_lisp_binding.has_key?('_second') then
1491
+ trampCall(@_second)
1492
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
1493
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:107"] + __e.backtrace ) ; raise __e
1494
+ end ,
1495
+ [
1496
+ begin
1497
+ trampCall(_fields)
1498
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:107"] + __e.backtrace ) ; raise __e
1499
+ end
1500
+ ]
1501
+ ))
1502
+ end
1503
+ )
1504
+ end
1505
+ )
1506
+ end ,
1507
+ begin #makeLet
1508
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70032|
1509
+ if (
1510
+ begin
1511
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70032)
1512
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1513
+ end
1514
+ ) then
1515
+ begin
1516
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70032)
1517
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1518
+ end
1519
+ else
1520
+ begin #makeLet
1521
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70033|
1522
+ if (
1523
+ begin
1524
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70033)
1525
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1526
+ end
1527
+ ) then
1528
+ begin
1529
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70033)
1530
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1531
+ end
1532
+ else
1533
+ false
1534
+ end
1535
+ } ; ___lambda.call(
1536
+ ""
1537
+ )
1538
+ end
1539
+ end
1540
+ } ; ___lambda.call(
1541
+ begin
1542
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 108 );
1543
+ trampCall( self._third_METHOD( 'third',
1544
+ begin
1545
+ if @global_lisp_binding.has_key?('_third') then
1546
+ trampCall(@_third)
1547
+ else raise NameError.new( "Error: undefined variable third", "third" ) end
1548
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:108"] + __e.backtrace ) ; raise __e
1549
+ end ,
1550
+ [
1551
+ begin
1552
+ trampCall(_fields)
1553
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:108"] + __e.backtrace ) ; raise __e
1554
+ end
1555
+ ]
1556
+ ))
1557
+ end
1558
+ )
1559
+ end ,
1560
+ begin
1561
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 109 );
1562
+ trampCall( self._stowm_MIMARKget_MIMARKext_MIMARKtype_METHOD( 'stowm-get-ext-type',
1563
+ begin
1564
+ if @global_lisp_binding.has_key?('_stowm_MIMARKget_MIMARKext_MIMARKtype') then
1565
+ trampCall(@_stowm_MIMARKget_MIMARKext_MIMARKtype)
1566
+ else raise NameError.new( "Error: undefined variable stowm-get-ext-type", "stowm-get-ext-type" ) end
1567
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:109"] + __e.backtrace ) ; raise __e
1568
+ end ,
1569
+ [
1570
+ begin #makeLet
1571
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70034|
1572
+ if (
1573
+ begin
1574
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70034)
1575
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1576
+ end
1577
+ ) then
1578
+ begin
1579
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70034)
1580
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1581
+ end
1582
+ else
1583
+ begin #makeLet
1584
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70035|
1585
+ if (
1586
+ begin
1587
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70035)
1588
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1589
+ end
1590
+ ) then
1591
+ begin
1592
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70035)
1593
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1594
+ end
1595
+ else
1596
+ false
1597
+ end
1598
+ } ; ___lambda.call(
1599
+ ""
1600
+ )
1601
+ end
1602
+ end
1603
+ } ; ___lambda.call(
1604
+ begin
1605
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 109 );
1606
+ trampCall( self._third_METHOD( 'third',
1607
+ begin
1608
+ if @global_lisp_binding.has_key?('_third') then
1609
+ trampCall(@_third)
1610
+ else raise NameError.new( "Error: undefined variable third", "third" ) end
1611
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:109"] + __e.backtrace ) ; raise __e
1612
+ end ,
1613
+ [
1614
+ begin
1615
+ trampCall(_fields)
1616
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:109"] + __e.backtrace ) ; raise __e
1617
+ end
1618
+ ]
1619
+ ))
1620
+ end
1621
+ )
1622
+ end
1623
+ ]
1624
+ ))
1625
+ end
1626
+ ]
1627
+ )
1628
+ end
1629
+ } ; ___lambda.call(
1630
+ begin
1631
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 94 );
1632
+ trampCall( self._stowm_MIMARKsplit_MIMARKfilename_METHOD( 'stowm-split-filename',
1633
+ begin
1634
+ if @global_lisp_binding.has_key?('_stowm_MIMARKsplit_MIMARKfilename') then
1635
+ trampCall(@_stowm_MIMARKsplit_MIMARKfilename)
1636
+ else raise NameError.new( "Error: undefined variable stowm-split-filename", "stowm-split-filename" ) end
1637
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:94"] + __e.backtrace ) ; raise __e
1638
+ end ,
1639
+ [
1640
+ begin
1641
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 94 );
1642
+ trampCall( self._second_METHOD( 'second',
1643
+ begin
1644
+ if @global_lisp_binding.has_key?('_second') then
1645
+ trampCall(@_second)
1646
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
1647
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:94"] + __e.backtrace ) ; raise __e
1648
+ end ,
1649
+ [
1650
+ begin
1651
+ trampCall(_lst)
1652
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:94"] + __e.backtrace ) ; raise __e
1653
+ end
1654
+ ]
1655
+ ))
1656
+ end
1657
+ ]
1658
+ ))
1659
+ end
1660
+ )
1661
+ end
1662
+ } ; ___lambda.call(
1663
+ begin
1664
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 93 );
1665
+ trampCall( self._stowm_MIMARKsplit_MIMARKpath_METHOD( 'stowm-split-path',
1666
+ begin
1667
+ if @global_lisp_binding.has_key?('_stowm_MIMARKsplit_MIMARKpath') then
1668
+ trampCall(@_stowm_MIMARKsplit_MIMARKpath)
1669
+ else raise NameError.new( "Error: undefined variable stowm-split-path", "stowm-split-path" ) end
1670
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:93"] + __e.backtrace ) ; raise __e
1671
+ end ,
1672
+ [
1673
+ begin
1674
+ trampCall(_url).path
1675
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:93"] + __e.backtrace ) ; raise __e
1676
+ end
1677
+ ]
1678
+ ))
1679
+ end
1680
+ )
1681
+ end
1682
+ } ; ___lambda.call(
1683
+ begin
1684
+ trampCall(URI).parse(
1685
+ begin
1686
+ trampCall(_url_MIMARKstring)
1687
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:92"] + __e.backtrace ) ; raise __e
1688
+ end
1689
+ )
1690
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:92"] + __e.backtrace ) ; raise __e
1691
+ end
1692
+ )
1693
+ end
1694
+ }
1695
+ )
1696
+ end
1697
+ )
1698
+ #--------------------
1699
+
1700
+ trampCall(
1701
+ begin #execFunc
1702
+ def self._is_MIMARKvalid_MIMARKurl_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_is_MIMARKvalid_MIMARKurl_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1703
+ @global_lisp_binding['_is_MIMARKvalid_MIMARKurl_QUMARK'] = self.method( :_is_MIMARKvalid_MIMARKurl_QUMARK_METHOD )
1704
+ @_is_MIMARKvalid_MIMARKurl_QUMARK =
1705
+ trampCall(
1706
+ Proc.new { |_url_MIMARKstring|
1707
+ begin #makeLet
1708
+ ___lambda = lambda { |_parsed|
1709
+ if (
1710
+ begin
1711
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 114 );
1712
+ trampCall( self._arc_MIMARKtype_METHOD( 'arc-type',
1713
+ begin
1714
+ if @global_lisp_binding.has_key?('_arc_MIMARKtype') then
1715
+ trampCall(@_arc_MIMARKtype)
1716
+ else raise NameError.new( "Error: undefined variable arc-type", "arc-type" ) end
1717
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:114"] + __e.backtrace ) ; raise __e
1718
+ end ,
1719
+ [
1720
+ begin
1721
+ trampCall(_parsed)
1722
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:114"] + __e.backtrace ) ; raise __e
1723
+ end
1724
+ ]
1725
+ ))
1726
+ end
1727
+ ) then
1728
+ if (
1729
+ begin
1730
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 115 );
1731
+ _eq_QUMARK(
1732
+ :"unknown" ,
1733
+ begin
1734
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 115 );
1735
+ trampCall( self._scheme_MIMARKtype_METHOD( 'scheme-type',
1736
+ begin
1737
+ if @global_lisp_binding.has_key?('_scheme_MIMARKtype') then
1738
+ trampCall(@_scheme_MIMARKtype)
1739
+ else raise NameError.new( "Error: undefined variable scheme-type", "scheme-type" ) end
1740
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:115"] + __e.backtrace ) ; raise __e
1741
+ end ,
1742
+ [
1743
+ begin
1744
+ trampCall(_parsed)
1745
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:115"] + __e.backtrace ) ; raise __e
1746
+ end
1747
+ ]
1748
+ ))
1749
+ end
1750
+ )
1751
+ end
1752
+ ) then
1753
+ false
1754
+ else
1755
+ if (
1756
+ begin
1757
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 117 );
1758
+ (
1759
+ 0 <
1760
+ begin #makeLet
1761
+ ___lambda = lambda { |___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70036|
1762
+ begin
1763
+ trampCall(___gensym__b6c7393cf4e1701576f1c26c5b954fa4a5addba9_70036).size(
1764
+ )
1765
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1766
+ end
1767
+ } ; ___lambda.call(
1768
+ begin
1769
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 117 );
1770
+ trampCall( self._ver_METHOD( 'ver',
1771
+ begin
1772
+ if @global_lisp_binding.has_key?('_ver') then
1773
+ trampCall(@_ver)
1774
+ else raise NameError.new( "Error: undefined variable ver", "ver" ) end
1775
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:117"] + __e.backtrace ) ; raise __e
1776
+ end ,
1777
+ [
1778
+ begin
1779
+ trampCall(_parsed)
1780
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:117"] + __e.backtrace ) ; raise __e
1781
+ end
1782
+ ]
1783
+ ))
1784
+ end
1785
+ )
1786
+ end
1787
+ )
1788
+ end
1789
+ ) then
1790
+ true
1791
+ else
1792
+ false
1793
+ end
1794
+ end
1795
+ else
1796
+ false
1797
+ end
1798
+ } ; ___lambda.call(
1799
+ begin
1800
+ embedBacktraceInfo( "./lib/stowm/parseutil.nnd", 113 );
1801
+ trampCall( self._stowm_MIMARKparse_MIMARKurl_METHOD( 'stowm-parse-url',
1802
+ begin
1803
+ if @global_lisp_binding.has_key?('_stowm_MIMARKparse_MIMARKurl') then
1804
+ trampCall(@_stowm_MIMARKparse_MIMARKurl)
1805
+ else raise NameError.new( "Error: undefined variable stowm-parse-url", "stowm-parse-url" ) end
1806
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:113"] + __e.backtrace ) ; raise __e
1807
+ end ,
1808
+ [
1809
+ begin
1810
+ trampCall(_url_MIMARKstring)
1811
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/parseutil.nnd:113"] + __e.backtrace ) ; raise __e
1812
+ end
1813
+ ]
1814
+ ))
1815
+ end
1816
+ )
1817
+ end
1818
+ }
1819
+ )
1820
+ end
1821
+ )
1822
+
1823
+
1824
+ # -------------------------------------------------------
1825
+ # [EOF]
1826
+ # -------------------------------------------------------