stowm 0.8.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
@@ -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
+ # -------------------------------------------------------