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,3848 @@
1
+ #
2
+ # This file is nendo's compiled library file.
3
+ # generated "nendo -c src" command.
4
+ #
5
+
6
+ trampCall(
7
+ begin
8
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 4 );
9
+ delayCall( '_require', 'require',
10
+ begin
11
+ if @global_lisp_binding.has_key?('_require') then
12
+ trampCall(@_require)
13
+ else raise NameError.new( "Error: undefined variable require", "require" ) end
14
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:4"] + __e.backtrace ) ; raise __e
15
+ end ,
16
+ [
17
+ "fileutils"
18
+ ]
19
+ )
20
+ end
21
+ )
22
+ #--------------------
23
+
24
+ trampCall(
25
+ begin #execFunc
26
+ def self._display_MIMARKhelp_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_display_MIMARKhelp', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
27
+ @global_lisp_binding['_display_MIMARKhelp'] = self.method( :_display_MIMARKhelp_METHOD )
28
+ @_display_MIMARKhelp =
29
+ trampCall(
30
+ Proc.new { ||
31
+ begin
32
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 7 );
33
+ _print(
34
+ ""
35
+ )
36
+ end
37
+ begin
38
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 8 );
39
+ _print(
40
+ "Usage: "
41
+ )
42
+ end
43
+ begin
44
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 9 );
45
+ _print(
46
+ " 1. stowm URL of tar.gz ... fetch, generate specfile, build, install program."
47
+ )
48
+ end
49
+ begin
50
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 10 );
51
+ _print(
52
+ " stowm xxx.tar.gz ... generate specfile, build, install program."
53
+ )
54
+ end
55
+ begin
56
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 11 );
57
+ _print(
58
+ " 2. stowm list [proj] ... display installed program list."
59
+ )
60
+ end
61
+ begin
62
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 12 );
63
+ _print(
64
+ " 3. stowm enable [num] ... enable installed program. (stow -R)"
65
+ )
66
+ end
67
+ begin
68
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 13 );
69
+ _print(
70
+ " stowm enable [proj] ... enable installed program by name. (stow -D & stow -R)"
71
+ )
72
+ end
73
+ begin
74
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 14 );
75
+ _print(
76
+ " 4. stowm disable [num] ... disable installed program. (stow -D)"
77
+ )
78
+ end
79
+ begin
80
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 15 );
81
+ _print(
82
+ " stowm disable [proj] ... disalbe installed program by name. (stow -D)"
83
+ )
84
+ end
85
+ begin
86
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 16 );
87
+ _print(
88
+ " stowm rebuild [num] ... rebuild program. (create Makefile.tmp again)"
89
+ )
90
+ end
91
+ begin
92
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 17 );
93
+ _print(
94
+ " 5 stowm env ... display stowm environment."
95
+ )
96
+ end
97
+ begin
98
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 18 );
99
+ delayCall( '_print', 'print',
100
+ begin
101
+ if @global_lisp_binding.has_key?('_print') then
102
+ trampCall(@_print)
103
+ else raise NameError.new( "Error: undefined variable print", "print" ) end
104
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:18"] + __e.backtrace ) ; raise __e
105
+ end ,
106
+ [
107
+ ""
108
+ ]
109
+ )
110
+ end
111
+ }
112
+ )
113
+ end
114
+ )
115
+ #--------------------
116
+
117
+ trampCall(
118
+ begin #execFunc
119
+ def self._pickup_MIMARKpackage_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_pickup_MIMARKpackage', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
120
+ @global_lisp_binding['_pickup_MIMARKpackage'] = self.method( :_pickup_MIMARKpackage_METHOD )
121
+ @_pickup_MIMARKpackage =
122
+ trampCall(
123
+ Proc.new { |_path|
124
+ if (
125
+ begin #execFunc
126
+ def self.___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
127
+ @global_lisp_binding['___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017'] = self.method( :___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017_METHOD )
128
+ @___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017 =
129
+ trampCall(
130
+ begin
131
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 23 );
132
+ trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match',
133
+ begin
134
+ if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then
135
+ trampCall(@_stowm_MIMARKregex_MIMARKmatch)
136
+ else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end
137
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:23"] + __e.backtrace ) ; raise __e
138
+ end ,
139
+ [
140
+ "/stow/([^/]+)" ,
141
+ begin
142
+ trampCall(_path)
143
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:23"] + __e.backtrace ) ; raise __e
144
+ end
145
+ ]
146
+ ))
147
+ end
148
+ )
149
+ end
150
+ ) then
151
+ begin
152
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 24 );
153
+ delayCall( '_second', 'second',
154
+ begin
155
+ if @global_lisp_binding.has_key?('_second') then
156
+ trampCall(@_second)
157
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
158
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:24"] + __e.backtrace ) ; raise __e
159
+ end ,
160
+ [
161
+ begin
162
+ if @global_lisp_binding.has_key?('___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017') then
163
+ trampCall(@___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017)
164
+ else raise NameError.new( "Error: undefined variable __gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017", "__gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30017" ) end
165
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
166
+ end
167
+ ]
168
+ )
169
+ end
170
+ else
171
+ if (
172
+ true
173
+ ) then
174
+ false
175
+ else
176
+ Cell.new()
177
+ end
178
+ end
179
+ }
180
+ )
181
+ end
182
+ )
183
+ #--------------------
184
+
185
+ trampCall(
186
+ begin #execFunc
187
+ def self._get_MIMARKinstalled_MIMARKalist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_get_MIMARKinstalled_MIMARKalist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
188
+ @global_lisp_binding['_get_MIMARKinstalled_MIMARKalist'] = self.method( :_get_MIMARKinstalled_MIMARKalist_METHOD )
189
+ @_get_MIMARKinstalled_MIMARKalist =
190
+ trampCall(
191
+ Proc.new { |_local,_stow_MIMARKhome|
192
+ begin #makeLet
193
+ ___lambda = lambda { |_script|
194
+ begin
195
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 32 );
196
+ trampCall( self._stowm_MIMARKexec_MIMARKsh_METHOD( 'stowm-exec-sh',
197
+ begin
198
+ if @global_lisp_binding.has_key?('_stowm_MIMARKexec_MIMARKsh') then
199
+ trampCall(@_stowm_MIMARKexec_MIMARKsh)
200
+ else raise NameError.new( "Error: undefined variable stowm-exec-sh", "stowm-exec-sh" ) end
201
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:32"] + __e.backtrace ) ; raise __e
202
+ end ,
203
+ [
204
+ begin
205
+ trampCall(_script)
206
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:32"] + __e.backtrace ) ; raise __e
207
+ end ,
208
+ false
209
+ ]
210
+ ))
211
+ end
212
+ begin
213
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 33 );
214
+ delayCall( '_with_MIMARKopen', 'with-open',
215
+ begin
216
+ if @global_lisp_binding.has_key?('_with_MIMARKopen') then
217
+ trampCall(@_with_MIMARKopen)
218
+ else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end
219
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:33"] + __e.backtrace ) ; raise __e
220
+ end ,
221
+ [
222
+ "/tmp/stowm.cache" ,
223
+ Proc.new { |_f|
224
+ begin #makeLet
225
+ ___lambda = lambda { |_froms|
226
+ begin #makeLet
227
+ ___lambda = lambda { |_link_MIMARKalist|
228
+ begin
229
+ trampCall(_link_MIMARKalist)
230
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:47"] + __e.backtrace ) ; raise __e
231
+ end
232
+ } ; ___lambda.call(
233
+ begin
234
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 41 );
235
+ trampCall( self._filter_MIMARKmap_METHOD( 'filter-map',
236
+ begin
237
+ if @global_lisp_binding.has_key?('_filter_MIMARKmap') then
238
+ trampCall(@_filter_MIMARKmap)
239
+ else raise NameError.new( "Error: undefined variable filter-map", "filter-map" ) end
240
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:41"] + __e.backtrace ) ; raise __e
241
+ end ,
242
+ [
243
+ Proc.new { |_fn|
244
+ begin #makeLet
245
+ ___lambda = lambda { |_link|
246
+ if (
247
+ begin
248
+ embedBacktraceInfo( "", 1 );
249
+ _not(
250
+ begin
251
+ embedBacktraceInfo( "", 1 );
252
+ _eq_QUMARK(
253
+ false ,
254
+ begin
255
+ trampCall(_link)
256
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:44"] + __e.backtrace ) ; raise __e
257
+ end
258
+ )
259
+ end
260
+ )
261
+ end
262
+ ) then
263
+ begin
264
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 45 );
265
+ _cons(
266
+ begin
267
+ trampCall(_link)
268
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:45"] + __e.backtrace ) ; raise __e
269
+ end ,
270
+ begin
271
+ trampCall(_fn)
272
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:45"] + __e.backtrace ) ; raise __e
273
+ end
274
+ )
275
+ end
276
+ else
277
+ false
278
+ end
279
+ } ; ___lambda.call(
280
+ begin
281
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 43 );
282
+ trampCall( self._pickup_MIMARKpackage_METHOD( 'pickup-package',
283
+ begin
284
+ if @global_lisp_binding.has_key?('_pickup_MIMARKpackage') then
285
+ trampCall(@_pickup_MIMARKpackage)
286
+ else raise NameError.new( "Error: undefined variable pickup-package", "pickup-package" ) end
287
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:43"] + __e.backtrace ) ; raise __e
288
+ end ,
289
+ [
290
+ begin
291
+ trampCall(File).readlink(
292
+ begin
293
+ trampCall(_fn)
294
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:43"] + __e.backtrace ) ; raise __e
295
+ end
296
+ )
297
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:43"] + __e.backtrace ) ; raise __e
298
+ end
299
+ ]
300
+ ))
301
+ end
302
+ )
303
+ end
304
+ } ,
305
+ begin
306
+ trampCall(_froms)
307
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:46"] + __e.backtrace ) ; raise __e
308
+ end
309
+ ]
310
+ ))
311
+ end
312
+ )
313
+ end
314
+ } ; ___lambda.call(
315
+ begin
316
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 36 );
317
+ trampCall( self._map_METHOD( 'map',
318
+ begin
319
+ if @global_lisp_binding.has_key?('_map') then
320
+ trampCall(@_map)
321
+ else raise NameError.new( "Error: undefined variable map", "map" ) end
322
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:36"] + __e.backtrace ) ; raise __e
323
+ end ,
324
+ [
325
+ Proc.new { |_line|
326
+ begin
327
+ trampCall(_line).chomp(
328
+ )
329
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:38"] + __e.backtrace ) ; raise __e
330
+ end
331
+ } ,
332
+ begin
333
+ trampCall(_f).readlines.to_list(
334
+ )
335
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:39"] + __e.backtrace ) ; raise __e
336
+ end
337
+ ]
338
+ ))
339
+ end
340
+ )
341
+ end
342
+ }
343
+ ]
344
+ )
345
+ end
346
+ } ; ___lambda.call(
347
+ begin
348
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 31 );
349
+ trampCall( self._sprintf_METHOD( 'sprintf',
350
+ begin
351
+ if @global_lisp_binding.has_key?('_sprintf') then
352
+ trampCall(@_sprintf)
353
+ else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end
354
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:31"] + __e.backtrace ) ; raise __e
355
+ end ,
356
+ [
357
+ "find %s -type l | grep -v %s > /tmp/stowm.cache
358
+ " ,
359
+ begin
360
+ trampCall(_local)
361
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:31"] + __e.backtrace ) ; raise __e
362
+ end ,
363
+ begin
364
+ trampCall(_stow_MIMARKhome)
365
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:31"] + __e.backtrace ) ; raise __e
366
+ end
367
+ ]
368
+ ))
369
+ end
370
+ )
371
+ end
372
+ }
373
+ )
374
+ end
375
+ )
376
+ #--------------------
377
+
378
+ trampCall(
379
+ begin #execFunc
380
+ def self._get_MIMARKstowed_MIMARKlist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_get_MIMARKstowed_MIMARKlist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
381
+ @global_lisp_binding['_get_MIMARKstowed_MIMARKlist'] = self.method( :_get_MIMARKstowed_MIMARKlist_METHOD )
382
+ @_get_MIMARKstowed_MIMARKlist =
383
+ trampCall(
384
+ Proc.new { |_home_MIMARKrepos,_stow_MIMARKhome,_link_MIMARKalist|
385
+ begin #makeLet
386
+ ___lambda = lambda { |_projs|
387
+ begin #makeLet
388
+ ___lambda = lambda { |_projs_MIMARKhash|
389
+ begin #makeLet
390
+ ___lambda = lambda { |_stowed|
391
+ begin #makeLet
392
+ ___lambda = lambda { |_stowed_MIMARKhash|
393
+ begin #makeLet
394
+ ___lambda = lambda { |_all|
395
+ begin #makeLet
396
+ ___lambda = lambda { |_installed_MIMARKhash|
397
+ begin
398
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 68 );
399
+ delayCall( '_map', 'map',
400
+ begin
401
+ if @global_lisp_binding.has_key?('_map') then
402
+ trampCall(@_map)
403
+ else raise NameError.new( "Error: undefined variable map", "map" ) end
404
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:68"] + __e.backtrace ) ; raise __e
405
+ end ,
406
+ [
407
+ Proc.new { |_x,_cnt|
408
+ begin
409
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 70 );
410
+ _cons(
411
+ begin
412
+ trampCall(_x)
413
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:70"] + __e.backtrace ) ; raise __e
414
+ end ,
415
+ begin
416
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 71 );
417
+ trampCall( self._list_METHOD( 'list',
418
+ begin
419
+ if @global_lisp_binding.has_key?('_list') then
420
+ trampCall(@_list)
421
+ else raise NameError.new( "Error: undefined variable list", "list" ) end
422
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:71"] + __e.backtrace ) ; raise __e
423
+ end ,
424
+ [
425
+ if (
426
+ begin
427
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 72 );
428
+ trampCall( self._hash_MIMARKtable_MIMARKexist_QUMARK_METHOD( 'hash-table-exist?',
429
+ begin
430
+ if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARKexist_QUMARK') then
431
+ trampCall(@_hash_MIMARKtable_MIMARKexist_QUMARK)
432
+ else raise NameError.new( "Error: undefined variable hash-table-exist?", "hash-table-exist?" ) end
433
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:72"] + __e.backtrace ) ; raise __e
434
+ end ,
435
+ [
436
+ begin
437
+ trampCall(_stowed_MIMARKhash)
438
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:72"] + __e.backtrace ) ; raise __e
439
+ end ,
440
+ begin
441
+ trampCall(_x)
442
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:72"] + __e.backtrace ) ; raise __e
443
+ end
444
+ ]
445
+ ))
446
+ end
447
+ ) then
448
+ if (
449
+ begin
450
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 73 );
451
+ trampCall( self._hash_MIMARKtable_MIMARKexist_QUMARK_METHOD( 'hash-table-exist?',
452
+ begin
453
+ if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARKexist_QUMARK') then
454
+ trampCall(@_hash_MIMARKtable_MIMARKexist_QUMARK)
455
+ else raise NameError.new( "Error: undefined variable hash-table-exist?", "hash-table-exist?" ) end
456
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:73"] + __e.backtrace ) ; raise __e
457
+ end ,
458
+ [
459
+ begin
460
+ trampCall(_installed_MIMARKhash)
461
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:73"] + __e.backtrace ) ; raise __e
462
+ end ,
463
+ begin
464
+ trampCall(_x)
465
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:73"] + __e.backtrace ) ; raise __e
466
+ end
467
+ ]
468
+ ))
469
+ end
470
+ ) then
471
+ :"e"
472
+ else
473
+ false
474
+ end
475
+ else
476
+ false
477
+ end ,
478
+ if (
479
+ begin
480
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 75 );
481
+ trampCall( self._hash_MIMARKtable_MIMARKexist_QUMARK_METHOD( 'hash-table-exist?',
482
+ begin
483
+ if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARKexist_QUMARK') then
484
+ trampCall(@_hash_MIMARKtable_MIMARKexist_QUMARK)
485
+ else raise NameError.new( "Error: undefined variable hash-table-exist?", "hash-table-exist?" ) end
486
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:75"] + __e.backtrace ) ; raise __e
487
+ end ,
488
+ [
489
+ begin
490
+ trampCall(_stowed_MIMARKhash)
491
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:75"] + __e.backtrace ) ; raise __e
492
+ end ,
493
+ begin
494
+ trampCall(_x)
495
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:75"] + __e.backtrace ) ; raise __e
496
+ end
497
+ ]
498
+ ))
499
+ end
500
+ ) then
501
+ :"i"
502
+ else
503
+ false
504
+ end ,
505
+ if (
506
+ begin
507
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 76 );
508
+ trampCall( self._hash_MIMARKtable_MIMARKexist_QUMARK_METHOD( 'hash-table-exist?',
509
+ begin
510
+ if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARKexist_QUMARK') then
511
+ trampCall(@_hash_MIMARKtable_MIMARKexist_QUMARK)
512
+ else raise NameError.new( "Error: undefined variable hash-table-exist?", "hash-table-exist?" ) end
513
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:76"] + __e.backtrace ) ; raise __e
514
+ end ,
515
+ [
516
+ begin
517
+ trampCall(_projs_MIMARKhash)
518
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:76"] + __e.backtrace ) ; raise __e
519
+ end ,
520
+ begin
521
+ trampCall(_x)
522
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:76"] + __e.backtrace ) ; raise __e
523
+ end
524
+ ]
525
+ ))
526
+ end
527
+ ) then
528
+ :"s"
529
+ else
530
+ false
531
+ end ,
532
+ begin
533
+ trampCall(_cnt)
534
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:77"] + __e.backtrace ) ; raise __e
535
+ end
536
+ ]
537
+ ))
538
+ end
539
+ )
540
+ end
541
+ } ,
542
+ begin
543
+ trampCall(_all)
544
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:78"] + __e.backtrace ) ; raise __e
545
+ end ,
546
+ begin
547
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 79 );
548
+ trampCall( self._range_METHOD( 'range',
549
+ begin
550
+ if @global_lisp_binding.has_key?('_range') then
551
+ trampCall(@_range)
552
+ else raise NameError.new( "Error: undefined variable range", "range" ) end
553
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:79"] + __e.backtrace ) ; raise __e
554
+ end ,
555
+ [
556
+ begin
557
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 79 );
558
+ _length(
559
+ begin
560
+ trampCall(_all)
561
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:79"] + __e.backtrace ) ; raise __e
562
+ end
563
+ )
564
+ end
565
+ ]
566
+ ))
567
+ end
568
+ ]
569
+ )
570
+ end
571
+ } ; ___lambda.call(
572
+ begin
573
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 67 );
574
+ trampCall( self._alist_MIMARK_GTMARKhash_MIMARKtable_METHOD( 'alist->hash-table',
575
+ begin
576
+ if @global_lisp_binding.has_key?('_alist_MIMARK_GTMARKhash_MIMARKtable') then
577
+ trampCall(@_alist_MIMARK_GTMARKhash_MIMARKtable)
578
+ else raise NameError.new( "Error: undefined variable alist->hash-table", "alist->hash-table" ) end
579
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:67"] + __e.backtrace ) ; raise __e
580
+ end ,
581
+ [
582
+ begin
583
+ trampCall(_link_MIMARKalist)
584
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:67"] + __e.backtrace ) ; raise __e
585
+ end
586
+ ]
587
+ ))
588
+ end
589
+ )
590
+ end
591
+ } ; ___lambda.call(
592
+ begin
593
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 66 );
594
+ trampCall( self._sort_METHOD( 'sort',
595
+ begin
596
+ if @global_lisp_binding.has_key?('_sort') then
597
+ trampCall(@_sort)
598
+ else raise NameError.new( "Error: undefined variable sort", "sort" ) end
599
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e
600
+ end ,
601
+ [
602
+ begin
603
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 66 );
604
+ trampCall( self._delete_MIMARKduplicates_METHOD( 'delete-duplicates',
605
+ begin
606
+ if @global_lisp_binding.has_key?('_delete_MIMARKduplicates') then
607
+ trampCall(@_delete_MIMARKduplicates)
608
+ else raise NameError.new( "Error: undefined variable delete-duplicates", "delete-duplicates" ) end
609
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e
610
+ end ,
611
+ [
612
+ begin
613
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 66 );
614
+ trampCall( self._append_METHOD( 'append',
615
+ begin
616
+ if @global_lisp_binding.has_key?('_append') then
617
+ trampCall(@_append)
618
+ else raise NameError.new( "Error: undefined variable append", "append" ) end
619
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e
620
+ end ,
621
+ [
622
+ begin
623
+ trampCall(_projs)
624
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e
625
+ end ,
626
+ begin
627
+ trampCall(_stowed)
628
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:66"] + __e.backtrace ) ; raise __e
629
+ end
630
+ ]
631
+ ))
632
+ end
633
+ ]
634
+ ))
635
+ end
636
+ ]
637
+ ))
638
+ end
639
+ )
640
+ end
641
+ } ; ___lambda.call(
642
+ begin
643
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 63 );
644
+ trampCall( self._apply_METHOD( 'apply',
645
+ begin
646
+ if @global_lisp_binding.has_key?('_apply') then
647
+ trampCall(@_apply)
648
+ else raise NameError.new( "Error: undefined variable apply", "apply" ) end
649
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:63"] + __e.backtrace ) ; raise __e
650
+ end ,
651
+ [
652
+ begin
653
+ if @global_lisp_binding.has_key?('_hash_MIMARKtable') then
654
+ trampCall(@_hash_MIMARKtable)
655
+ else raise NameError.new( "Error: undefined variable hash-table", "hash-table" ) end
656
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:63"] + __e.backtrace ) ; raise __e
657
+ end ,
658
+ begin
659
+ if @global_lisp_binding.has_key?('_eq_QUMARK') then
660
+ trampCall(@_eq_QUMARK)
661
+ else raise NameError.new( "Error: undefined variable eq?", "eq?" ) end
662
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:63"] + __e.backtrace ) ; raise __e
663
+ end ,
664
+ begin
665
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 64 );
666
+ trampCall( self._map_METHOD( 'map',
667
+ begin
668
+ if @global_lisp_binding.has_key?('_map') then
669
+ trampCall(@_map)
670
+ else raise NameError.new( "Error: undefined variable map", "map" ) end
671
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:64"] + __e.backtrace ) ; raise __e
672
+ end ,
673
+ [
674
+ Proc.new { |_x|
675
+ begin
676
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 64 );
677
+ _cons(
678
+ begin
679
+ trampCall(_x)
680
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:64"] + __e.backtrace ) ; raise __e
681
+ end ,
682
+ true
683
+ )
684
+ end
685
+ } ,
686
+ begin
687
+ trampCall(_stowed)
688
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:65"] + __e.backtrace ) ; raise __e
689
+ end
690
+ ]
691
+ ))
692
+ end
693
+ ]
694
+ ))
695
+ end
696
+ )
697
+ end
698
+ } ; ___lambda.call(
699
+ begin
700
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 62 );
701
+ trampCall( self._stowm_MIMARKget_MIMARKdir_MIMARKentries_METHOD( 'stowm-get-dir-entries',
702
+ begin
703
+ if @global_lisp_binding.has_key?('_stowm_MIMARKget_MIMARKdir_MIMARKentries') then
704
+ trampCall(@_stowm_MIMARKget_MIMARKdir_MIMARKentries)
705
+ else raise NameError.new( "Error: undefined variable stowm-get-dir-entries", "stowm-get-dir-entries" ) end
706
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:62"] + __e.backtrace ) ; raise __e
707
+ end ,
708
+ [
709
+ begin
710
+ trampCall(_stow_MIMARKhome)
711
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:62"] + __e.backtrace ) ; raise __e
712
+ end
713
+ ]
714
+ ))
715
+ end
716
+ )
717
+ end
718
+ } ; ___lambda.call(
719
+ begin
720
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 59 );
721
+ trampCall( self._apply_METHOD( 'apply',
722
+ begin
723
+ if @global_lisp_binding.has_key?('_apply') then
724
+ trampCall(@_apply)
725
+ else raise NameError.new( "Error: undefined variable apply", "apply" ) end
726
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:59"] + __e.backtrace ) ; raise __e
727
+ end ,
728
+ [
729
+ begin
730
+ if @global_lisp_binding.has_key?('_hash_MIMARKtable') then
731
+ trampCall(@_hash_MIMARKtable)
732
+ else raise NameError.new( "Error: undefined variable hash-table", "hash-table" ) end
733
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:59"] + __e.backtrace ) ; raise __e
734
+ end ,
735
+ begin
736
+ if @global_lisp_binding.has_key?('_eq_QUMARK') then
737
+ trampCall(@_eq_QUMARK)
738
+ else raise NameError.new( "Error: undefined variable eq?", "eq?" ) end
739
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:59"] + __e.backtrace ) ; raise __e
740
+ end ,
741
+ begin
742
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 60 );
743
+ trampCall( self._map_METHOD( 'map',
744
+ begin
745
+ if @global_lisp_binding.has_key?('_map') then
746
+ trampCall(@_map)
747
+ else raise NameError.new( "Error: undefined variable map", "map" ) end
748
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:60"] + __e.backtrace ) ; raise __e
749
+ end ,
750
+ [
751
+ Proc.new { |_x|
752
+ begin
753
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 60 );
754
+ _cons(
755
+ begin
756
+ trampCall(_x)
757
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:60"] + __e.backtrace ) ; raise __e
758
+ end ,
759
+ true
760
+ )
761
+ end
762
+ } ,
763
+ begin
764
+ trampCall(_projs)
765
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:61"] + __e.backtrace ) ; raise __e
766
+ end
767
+ ]
768
+ ))
769
+ end
770
+ ]
771
+ ))
772
+ end
773
+ )
774
+ end
775
+ } ; ___lambda.call(
776
+ begin
777
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 58 );
778
+ trampCall( self._stowm_MIMARKget_MIMARKdir_MIMARKentries_METHOD( 'stowm-get-dir-entries',
779
+ begin
780
+ if @global_lisp_binding.has_key?('_stowm_MIMARKget_MIMARKdir_MIMARKentries') then
781
+ trampCall(@_stowm_MIMARKget_MIMARKdir_MIMARKentries)
782
+ else raise NameError.new( "Error: undefined variable stowm-get-dir-entries", "stowm-get-dir-entries" ) end
783
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:58"] + __e.backtrace ) ; raise __e
784
+ end ,
785
+ [
786
+ begin
787
+ trampCall(_home_MIMARKrepos)
788
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:58"] + __e.backtrace ) ; raise __e
789
+ end
790
+ ]
791
+ ))
792
+ end
793
+ )
794
+ end
795
+ }
796
+ )
797
+ end
798
+ )
799
+ #--------------------
800
+
801
+ trampCall(
802
+ begin #execFunc
803
+ def self._save_MIMARKinstalled_MIMARKdb_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_save_MIMARKinstalled_MIMARKdb', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
804
+ @global_lisp_binding['_save_MIMARKinstalled_MIMARKdb'] = self.method( :_save_MIMARKinstalled_MIMARKdb_METHOD )
805
+ @_save_MIMARKinstalled_MIMARKdb =
806
+ trampCall(
807
+ Proc.new { |_env|
808
+ begin #makeLet
809
+ ___lambda = lambda { |_link_MIMARKalist|
810
+ begin #makeLet
811
+ ___lambda = lambda { |_stowed_MIMARKlist|
812
+ begin
813
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 85 );
814
+ trampCall( self._printf_METHOD( 'printf',
815
+ begin
816
+ if @global_lisp_binding.has_key?('_printf') then
817
+ trampCall(@_printf)
818
+ else raise NameError.new( "Error: undefined variable printf", "printf" ) end
819
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:85"] + __e.backtrace ) ; raise __e
820
+ end ,
821
+ [
822
+ "Info: rebuild [%s]
823
+ " ,
824
+ begin
825
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 85 );
826
+ trampCall( self._db_MIMARKpath_METHOD( 'db-path',
827
+ begin
828
+ if @global_lisp_binding.has_key?('_db_MIMARKpath') then
829
+ trampCall(@_db_MIMARKpath)
830
+ else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end
831
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:85"] + __e.backtrace ) ; raise __e
832
+ end ,
833
+ [
834
+ begin
835
+ trampCall(_env)
836
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:85"] + __e.backtrace ) ; raise __e
837
+ end
838
+ ]
839
+ ))
840
+ end
841
+ ]
842
+ ))
843
+ end
844
+ begin
845
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 86 );
846
+ trampCall( self._with_MIMARKopen_METHOD( 'with-open',
847
+ begin
848
+ if @global_lisp_binding.has_key?('_with_MIMARKopen') then
849
+ trampCall(@_with_MIMARKopen)
850
+ else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end
851
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:86"] + __e.backtrace ) ; raise __e
852
+ end ,
853
+ [
854
+ begin
855
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 86 );
856
+ trampCall( self._db_MIMARKpath_METHOD( 'db-path',
857
+ begin
858
+ if @global_lisp_binding.has_key?('_db_MIMARKpath') then
859
+ trampCall(@_db_MIMARKpath)
860
+ else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end
861
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:86"] + __e.backtrace ) ; raise __e
862
+ end ,
863
+ [
864
+ begin
865
+ trampCall(_env)
866
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:86"] + __e.backtrace ) ; raise __e
867
+ end
868
+ ]
869
+ ))
870
+ end ,
871
+ Proc.new { |_f|
872
+ begin
873
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 88 );
874
+ trampCall( self._pretty_MIMARKprint_METHOD( 'pretty-print',
875
+ begin
876
+ if @global_lisp_binding.has_key?('_pretty_MIMARKprint') then
877
+ trampCall(@_pretty_MIMARKprint)
878
+ else raise NameError.new( "Error: undefined variable pretty-print", "pretty-print" ) end
879
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:88"] + __e.backtrace ) ; raise __e
880
+ end ,
881
+ [
882
+ begin
883
+ trampCall(_stowed_MIMARKlist)
884
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:88"] + __e.backtrace ) ; raise __e
885
+ end ,
886
+ begin
887
+ trampCall(_f)
888
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:88"] + __e.backtrace ) ; raise __e
889
+ end
890
+ ]
891
+ ))
892
+ end
893
+ } ,
894
+ "w"
895
+ ]
896
+ ))
897
+ end
898
+ } ; ___lambda.call(
899
+ begin
900
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 84 );
901
+ trampCall( self._get_MIMARKstowed_MIMARKlist_METHOD( 'get-stowed-list',
902
+ begin
903
+ if @global_lisp_binding.has_key?('_get_MIMARKstowed_MIMARKlist') then
904
+ trampCall(@_get_MIMARKstowed_MIMARKlist)
905
+ else raise NameError.new( "Error: undefined variable get-stowed-list", "get-stowed-list" ) end
906
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e
907
+ end ,
908
+ [
909
+ begin
910
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 84 );
911
+ trampCall( self._home_MIMARKrepos_METHOD( 'home-repos',
912
+ begin
913
+ if @global_lisp_binding.has_key?('_home_MIMARKrepos') then
914
+ trampCall(@_home_MIMARKrepos)
915
+ else raise NameError.new( "Error: undefined variable home-repos", "home-repos" ) end
916
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e
917
+ end ,
918
+ [
919
+ begin
920
+ trampCall(_env)
921
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e
922
+ end
923
+ ]
924
+ ))
925
+ end ,
926
+ begin
927
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 84 );
928
+ trampCall( self._stow_MIMARKhome_METHOD( 'stow-home',
929
+ begin
930
+ if @global_lisp_binding.has_key?('_stow_MIMARKhome') then
931
+ trampCall(@_stow_MIMARKhome)
932
+ else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end
933
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e
934
+ end ,
935
+ [
936
+ begin
937
+ trampCall(_env)
938
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e
939
+ end
940
+ ]
941
+ ))
942
+ end ,
943
+ begin
944
+ trampCall(_link_MIMARKalist)
945
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:84"] + __e.backtrace ) ; raise __e
946
+ end
947
+ ]
948
+ ))
949
+ end
950
+ )
951
+ end
952
+ } ; ___lambda.call(
953
+ begin
954
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 83 );
955
+ trampCall( self._get_MIMARKinstalled_MIMARKalist_METHOD( 'get-installed-alist',
956
+ begin
957
+ if @global_lisp_binding.has_key?('_get_MIMARKinstalled_MIMARKalist') then
958
+ trampCall(@_get_MIMARKinstalled_MIMARKalist)
959
+ else raise NameError.new( "Error: undefined variable get-installed-alist", "get-installed-alist" ) end
960
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e
961
+ end ,
962
+ [
963
+ begin
964
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 83 );
965
+ trampCall( self._local_METHOD( 'local',
966
+ begin
967
+ if @global_lisp_binding.has_key?('_local') then
968
+ trampCall(@_local)
969
+ else raise NameError.new( "Error: undefined variable local", "local" ) end
970
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e
971
+ end ,
972
+ [
973
+ begin
974
+ trampCall(_env)
975
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e
976
+ end
977
+ ]
978
+ ))
979
+ end ,
980
+ begin
981
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 83 );
982
+ trampCall( self._stow_MIMARKhome_METHOD( 'stow-home',
983
+ begin
984
+ if @global_lisp_binding.has_key?('_stow_MIMARKhome') then
985
+ trampCall(@_stow_MIMARKhome)
986
+ else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end
987
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e
988
+ end ,
989
+ [
990
+ begin
991
+ trampCall(_env)
992
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:83"] + __e.backtrace ) ; raise __e
993
+ end
994
+ ]
995
+ ))
996
+ end
997
+ ]
998
+ ))
999
+ end
1000
+ )
1001
+ end
1002
+ 0
1003
+ }
1004
+ )
1005
+ end
1006
+ )
1007
+ #--------------------
1008
+
1009
+ trampCall(
1010
+ begin #execFunc
1011
+ def self._rebuild_MIMARKinstalled_MIMARKdb_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_rebuild_MIMARKinstalled_MIMARKdb', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1012
+ @global_lisp_binding['_rebuild_MIMARKinstalled_MIMARKdb'] = self.method( :_rebuild_MIMARKinstalled_MIMARKdb_METHOD )
1013
+ @_rebuild_MIMARKinstalled_MIMARKdb =
1014
+ trampCall(
1015
+ Proc.new { |_env|
1016
+ if (
1017
+ begin #makeLet
1018
+ ___lambda = lambda { |___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30018|
1019
+ if (
1020
+ begin
1021
+ trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30018)
1022
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1023
+ end
1024
+ ) then
1025
+ begin
1026
+ trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30018)
1027
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1028
+ end
1029
+ else
1030
+ begin #makeLet
1031
+ ___lambda = lambda { |___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30019|
1032
+ if (
1033
+ begin
1034
+ trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30019)
1035
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1036
+ end
1037
+ ) then
1038
+ begin
1039
+ trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30019)
1040
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1041
+ end
1042
+ else
1043
+ begin #makeLet
1044
+ ___lambda = lambda { |___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30020|
1045
+ if (
1046
+ begin
1047
+ trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30020)
1048
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1049
+ end
1050
+ ) then
1051
+ begin
1052
+ trampCall(___gensym__f9c56f19504bfa406f76e508d9bd131510448a46_30020)
1053
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1054
+ end
1055
+ else
1056
+ false
1057
+ end
1058
+ } ; ___lambda.call(
1059
+ begin #makeLet
1060
+ ___lambda = lambda { |_local_MIMARKbin_MIMARKfs,_db_MIMARKfs|
1061
+ begin
1062
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 103 );
1063
+ (
1064
+ begin
1065
+ trampCall(_db_MIMARKfs).mtime.to_i(
1066
+ )
1067
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:104"] + __e.backtrace ) ; raise __e
1068
+ end <
1069
+ begin
1070
+ trampCall(_local_MIMARKbin_MIMARKfs).mtime.to_i(
1071
+ )
1072
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:105"] + __e.backtrace ) ; raise __e
1073
+ end
1074
+ )
1075
+ end
1076
+ } ; ___lambda.call(
1077
+ begin
1078
+ trampCall(File::Stat).new(
1079
+ begin
1080
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 101 );
1081
+ trampCall( self._bin_METHOD( 'bin',
1082
+ begin
1083
+ if @global_lisp_binding.has_key?('_bin') then
1084
+ trampCall(@_bin)
1085
+ else raise NameError.new( "Error: undefined variable bin", "bin" ) end
1086
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:101"] + __e.backtrace ) ; raise __e
1087
+ end ,
1088
+ [
1089
+ begin
1090
+ trampCall(_env)
1091
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:101"] + __e.backtrace ) ; raise __e
1092
+ end
1093
+ ]
1094
+ ))
1095
+ end
1096
+ )
1097
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:101"] + __e.backtrace ) ; raise __e
1098
+ end ,
1099
+ begin
1100
+ trampCall(File::Stat).new(
1101
+ begin
1102
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 102 );
1103
+ trampCall( self._db_MIMARKpath_METHOD( 'db-path',
1104
+ begin
1105
+ if @global_lisp_binding.has_key?('_db_MIMARKpath') then
1106
+ trampCall(@_db_MIMARKpath)
1107
+ else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end
1108
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:102"] + __e.backtrace ) ; raise __e
1109
+ end ,
1110
+ [
1111
+ begin
1112
+ trampCall(_env)
1113
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:102"] + __e.backtrace ) ; raise __e
1114
+ end
1115
+ ]
1116
+ ))
1117
+ end
1118
+ )
1119
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:102"] + __e.backtrace ) ; raise __e
1120
+ end
1121
+ )
1122
+ end
1123
+ )
1124
+ end
1125
+ end
1126
+ } ; ___lambda.call(
1127
+ begin #makeLet
1128
+ ___lambda = lambda { |_stow_MIMARKhome_MIMARKfs,_db_MIMARKfs|
1129
+ begin
1130
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 98 );
1131
+ (
1132
+ begin
1133
+ trampCall(_db_MIMARKfs).mtime.to_i(
1134
+ )
1135
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:99"] + __e.backtrace ) ; raise __e
1136
+ end <
1137
+ begin
1138
+ trampCall(_stow_MIMARKhome_MIMARKfs).mtime.to_i(
1139
+ )
1140
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:100"] + __e.backtrace ) ; raise __e
1141
+ end
1142
+ )
1143
+ end
1144
+ } ; ___lambda.call(
1145
+ begin
1146
+ trampCall(File::Stat).new(
1147
+ begin
1148
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 96 );
1149
+ trampCall( self._stow_MIMARKhome_METHOD( 'stow-home',
1150
+ begin
1151
+ if @global_lisp_binding.has_key?('_stow_MIMARKhome') then
1152
+ trampCall(@_stow_MIMARKhome)
1153
+ else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end
1154
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:96"] + __e.backtrace ) ; raise __e
1155
+ end ,
1156
+ [
1157
+ begin
1158
+ trampCall(_env)
1159
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:96"] + __e.backtrace ) ; raise __e
1160
+ end
1161
+ ]
1162
+ ))
1163
+ end
1164
+ )
1165
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:96"] + __e.backtrace ) ; raise __e
1166
+ end ,
1167
+ begin
1168
+ trampCall(File::Stat).new(
1169
+ begin
1170
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 97 );
1171
+ trampCall( self._db_MIMARKpath_METHOD( 'db-path',
1172
+ begin
1173
+ if @global_lisp_binding.has_key?('_db_MIMARKpath') then
1174
+ trampCall(@_db_MIMARKpath)
1175
+ else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end
1176
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:97"] + __e.backtrace ) ; raise __e
1177
+ end ,
1178
+ [
1179
+ begin
1180
+ trampCall(_env)
1181
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:97"] + __e.backtrace ) ; raise __e
1182
+ end
1183
+ ]
1184
+ ))
1185
+ end
1186
+ )
1187
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:97"] + __e.backtrace ) ; raise __e
1188
+ end
1189
+ )
1190
+ end
1191
+ )
1192
+ end
1193
+ end
1194
+ } ; ___lambda.call(
1195
+ begin
1196
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 95 );
1197
+ _not(
1198
+ begin
1199
+ trampCall(File).exist?(
1200
+ begin
1201
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 95 );
1202
+ trampCall( self._db_MIMARKpath_METHOD( 'db-path',
1203
+ begin
1204
+ if @global_lisp_binding.has_key?('_db_MIMARKpath') then
1205
+ trampCall(@_db_MIMARKpath)
1206
+ else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end
1207
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:95"] + __e.backtrace ) ; raise __e
1208
+ end ,
1209
+ [
1210
+ begin
1211
+ trampCall(_env)
1212
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:95"] + __e.backtrace ) ; raise __e
1213
+ end
1214
+ ]
1215
+ ))
1216
+ end
1217
+ )
1218
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:95"] + __e.backtrace ) ; raise __e
1219
+ end
1220
+ )
1221
+ end
1222
+ )
1223
+ end
1224
+ ) then
1225
+ begin
1226
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 106 );
1227
+ trampCall( self._save_MIMARKinstalled_MIMARKdb_METHOD( 'save-installed-db',
1228
+ begin
1229
+ if @global_lisp_binding.has_key?('_save_MIMARKinstalled_MIMARKdb') then
1230
+ trampCall(@_save_MIMARKinstalled_MIMARKdb)
1231
+ else raise NameError.new( "Error: undefined variable save-installed-db", "save-installed-db" ) end
1232
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:106"] + __e.backtrace ) ; raise __e
1233
+ end ,
1234
+ [
1235
+ begin
1236
+ trampCall(_env)
1237
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:106"] + __e.backtrace ) ; raise __e
1238
+ end
1239
+ ]
1240
+ ))
1241
+ end
1242
+ end
1243
+ begin
1244
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 107 );
1245
+ delayCall( '_with_MIMARKopen', 'with-open',
1246
+ begin
1247
+ if @global_lisp_binding.has_key?('_with_MIMARKopen') then
1248
+ trampCall(@_with_MIMARKopen)
1249
+ else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end
1250
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:107"] + __e.backtrace ) ; raise __e
1251
+ end ,
1252
+ [
1253
+ begin
1254
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 107 );
1255
+ trampCall( self._db_MIMARKpath_METHOD( 'db-path',
1256
+ begin
1257
+ if @global_lisp_binding.has_key?('_db_MIMARKpath') then
1258
+ trampCall(@_db_MIMARKpath)
1259
+ else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end
1260
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:107"] + __e.backtrace ) ; raise __e
1261
+ end ,
1262
+ [
1263
+ begin
1264
+ trampCall(_env)
1265
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:107"] + __e.backtrace ) ; raise __e
1266
+ end
1267
+ ]
1268
+ ))
1269
+ end ,
1270
+ Proc.new { |_f|
1271
+ begin
1272
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 109 );
1273
+ trampCall( self._read_METHOD( 'read',
1274
+ begin
1275
+ if @global_lisp_binding.has_key?('_read') then
1276
+ trampCall(@_read)
1277
+ else raise NameError.new( "Error: undefined variable read", "read" ) end
1278
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:109"] + __e.backtrace ) ; raise __e
1279
+ end ,
1280
+ [
1281
+ begin
1282
+ trampCall(_f)
1283
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:109"] + __e.backtrace ) ; raise __e
1284
+ end
1285
+ ]
1286
+ ))
1287
+ end
1288
+ }
1289
+ ]
1290
+ )
1291
+ end
1292
+ }
1293
+ )
1294
+ end
1295
+ )
1296
+ #--------------------
1297
+
1298
+ trampCall(
1299
+ begin #execFunc
1300
+ def self._display_MIMARKlist_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_display_MIMARKlist', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1301
+ @global_lisp_binding['_display_MIMARKlist'] = self.method( :_display_MIMARKlist_METHOD )
1302
+ @_display_MIMARKlist =
1303
+ trampCall(
1304
+ Proc.new { |_stowed_MIMARKlist,_keyword|
1305
+ begin #makeLetrec
1306
+ ___lambda = lambda { |_ox,__format_h,__format_d|
1307
+ _ox =
1308
+ Proc.new { |_bool_MIMARKval|
1309
+ if (
1310
+ begin
1311
+ trampCall(_bool_MIMARKval)
1312
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:115"] + __e.backtrace ) ; raise __e
1313
+ end
1314
+ ) then
1315
+ "O"
1316
+ else
1317
+ "-"
1318
+ end
1319
+ }
1320
+ __format_h =
1321
+ " %-35s %11s %11s
1322
+ "
1323
+ __format_d =
1324
+ " %3d) %-35s %11s %11s
1325
+ "
1326
+ begin #makeLet
1327
+ ___lambda = lambda { |_lst|
1328
+ begin
1329
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 127 );
1330
+ delayCall( '_print', 'print',
1331
+ begin
1332
+ if @global_lisp_binding.has_key?('_print') then
1333
+ trampCall(@_print)
1334
+ else raise NameError.new( "Error: undefined variable print", "print" ) end
1335
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:127"] + __e.backtrace ) ; raise __e
1336
+ end ,
1337
+ [
1338
+ begin
1339
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 128 );
1340
+ trampCall( self._apply_METHOD( 'apply',
1341
+ begin
1342
+ if @global_lisp_binding.has_key?('_apply') then
1343
+ trampCall(@_apply)
1344
+ else raise NameError.new( "Error: undefined variable apply", "apply" ) end
1345
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:128"] + __e.backtrace ) ; raise __e
1346
+ end ,
1347
+ [
1348
+ begin
1349
+ if @global_lisp_binding.has_key?('__PLMARK') then
1350
+ trampCall(@__PLMARK)
1351
+ else raise NameError.new( "Error: undefined variable +", "+" ) end
1352
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:128"] + __e.backtrace ) ; raise __e
1353
+ end ,
1354
+ begin
1355
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 129 );
1356
+ _cons(
1357
+ begin
1358
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 130 );
1359
+ trampCall( self._sprintf_METHOD( 'sprintf',
1360
+ begin
1361
+ if @global_lisp_binding.has_key?('_sprintf') then
1362
+ trampCall(@_sprintf)
1363
+ else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end
1364
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:130"] + __e.backtrace ) ; raise __e
1365
+ end ,
1366
+ [
1367
+ begin
1368
+ trampCall(__format_h)
1369
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:130"] + __e.backtrace ) ; raise __e
1370
+ end ,
1371
+ " <name>" ,
1372
+ "<enabled>" ,
1373
+ "<installed>"
1374
+ ]
1375
+ ))
1376
+ end ,
1377
+ begin
1378
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 131 );
1379
+ trampCall( self._map_METHOD( 'map',
1380
+ begin
1381
+ if @global_lisp_binding.has_key?('_map') then
1382
+ trampCall(@_map)
1383
+ else raise NameError.new( "Error: undefined variable map", "map" ) end
1384
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:131"] + __e.backtrace ) ; raise __e
1385
+ end ,
1386
+ [
1387
+ Proc.new { |_tree|
1388
+ begin
1389
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 133 );
1390
+ trampCall( self._apply_METHOD( 'apply',
1391
+ begin
1392
+ if @global_lisp_binding.has_key?('_apply') then
1393
+ trampCall(@_apply)
1394
+ else raise NameError.new( "Error: undefined variable apply", "apply" ) end
1395
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:133"] + __e.backtrace ) ; raise __e
1396
+ end ,
1397
+ [
1398
+ begin
1399
+ if @global_lisp_binding.has_key?('__PLMARK') then
1400
+ trampCall(@__PLMARK)
1401
+ else raise NameError.new( "Error: undefined variable +", "+" ) end
1402
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:133"] + __e.backtrace ) ; raise __e
1403
+ end ,
1404
+ begin
1405
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 134 );
1406
+ _cons(
1407
+ begin
1408
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 135 );
1409
+ trampCall( self._sprintf_METHOD( 'sprintf',
1410
+ begin
1411
+ if @global_lisp_binding.has_key?('_sprintf') then
1412
+ trampCall(@_sprintf)
1413
+ else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end
1414
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:135"] + __e.backtrace ) ; raise __e
1415
+ end ,
1416
+ [
1417
+ " %s
1418
+ " ,
1419
+ begin
1420
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 135 );
1421
+ _car(
1422
+ begin
1423
+ trampCall(_tree)
1424
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:135"] + __e.backtrace ) ; raise __e
1425
+ end
1426
+ )
1427
+ end
1428
+ ]
1429
+ ))
1430
+ end ,
1431
+ begin
1432
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 136 );
1433
+ trampCall( self._map_METHOD( 'map',
1434
+ begin
1435
+ if @global_lisp_binding.has_key?('_map') then
1436
+ trampCall(@_map)
1437
+ else raise NameError.new( "Error: undefined variable map", "map" ) end
1438
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:136"] + __e.backtrace ) ; raise __e
1439
+ end ,
1440
+ [
1441
+ Proc.new { |_x|
1442
+ begin
1443
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 138 );
1444
+ trampCall( self._sprintf_METHOD( 'sprintf',
1445
+ begin
1446
+ if @global_lisp_binding.has_key?('_sprintf') then
1447
+ trampCall(@_sprintf)
1448
+ else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end
1449
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:138"] + __e.backtrace ) ; raise __e
1450
+ end ,
1451
+ [
1452
+ begin
1453
+ trampCall(__format_d)
1454
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:138"] + __e.backtrace ) ; raise __e
1455
+ end ,
1456
+ begin
1457
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 139 );
1458
+ trampCall( self._fifth_METHOD( 'fifth',
1459
+ begin
1460
+ if @global_lisp_binding.has_key?('_fifth') then
1461
+ trampCall(@_fifth)
1462
+ else raise NameError.new( "Error: undefined variable fifth", "fifth" ) end
1463
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:139"] + __e.backtrace ) ; raise __e
1464
+ end ,
1465
+ [
1466
+ begin
1467
+ trampCall(_x)
1468
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:139"] + __e.backtrace ) ; raise __e
1469
+ end
1470
+ ]
1471
+ ))
1472
+ end ,
1473
+ begin
1474
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 140 );
1475
+ (
1476
+ " " +
1477
+ begin
1478
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 140 );
1479
+ trampCall( self._first_METHOD( 'first',
1480
+ begin
1481
+ if @global_lisp_binding.has_key?('_first') then
1482
+ trampCall(@_first)
1483
+ else raise NameError.new( "Error: undefined variable first", "first" ) end
1484
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:140"] + __e.backtrace ) ; raise __e
1485
+ end ,
1486
+ [
1487
+ begin
1488
+ trampCall(_x)
1489
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:140"] + __e.backtrace ) ; raise __e
1490
+ end
1491
+ ]
1492
+ ))
1493
+ end
1494
+ )
1495
+ end ,
1496
+ begin
1497
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 141 );
1498
+ trampCall( callProcedure( '_ox', 'ox',
1499
+ begin
1500
+ trampCall(_ox)
1501
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:141"] + __e.backtrace ) ; raise __e
1502
+ end ,
1503
+ [
1504
+ begin
1505
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 141 );
1506
+ trampCall( self._second_METHOD( 'second',
1507
+ begin
1508
+ if @global_lisp_binding.has_key?('_second') then
1509
+ trampCall(@_second)
1510
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
1511
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:141"] + __e.backtrace ) ; raise __e
1512
+ end ,
1513
+ [
1514
+ begin
1515
+ trampCall(_x)
1516
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:141"] + __e.backtrace ) ; raise __e
1517
+ end
1518
+ ]
1519
+ ))
1520
+ end
1521
+ ]
1522
+ ))
1523
+ end ,
1524
+ begin
1525
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 142 );
1526
+ trampCall( callProcedure( '_ox', 'ox',
1527
+ begin
1528
+ trampCall(_ox)
1529
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:142"] + __e.backtrace ) ; raise __e
1530
+ end ,
1531
+ [
1532
+ begin
1533
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 142 );
1534
+ trampCall( self._third_METHOD( 'third',
1535
+ begin
1536
+ if @global_lisp_binding.has_key?('_third') then
1537
+ trampCall(@_third)
1538
+ else raise NameError.new( "Error: undefined variable third", "third" ) end
1539
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:142"] + __e.backtrace ) ; raise __e
1540
+ end ,
1541
+ [
1542
+ begin
1543
+ trampCall(_x)
1544
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:142"] + __e.backtrace ) ; raise __e
1545
+ end
1546
+ ]
1547
+ ))
1548
+ end
1549
+ ]
1550
+ ))
1551
+ end
1552
+ ]
1553
+ ))
1554
+ end
1555
+ } ,
1556
+ begin
1557
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 143 );
1558
+ _cdr(
1559
+ begin
1560
+ trampCall(_tree)
1561
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:143"] + __e.backtrace ) ; raise __e
1562
+ end
1563
+ )
1564
+ end
1565
+ ]
1566
+ ))
1567
+ end
1568
+ )
1569
+ end
1570
+ ]
1571
+ ))
1572
+ end
1573
+ } ,
1574
+ begin
1575
+ trampCall(_lst)
1576
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:144"] + __e.backtrace ) ; raise __e
1577
+ end
1578
+ ]
1579
+ ))
1580
+ end
1581
+ )
1582
+ end
1583
+ ]
1584
+ ))
1585
+ end
1586
+ ]
1587
+ )
1588
+ end
1589
+ } ; ___lambda.call(
1590
+ if (
1591
+ begin
1592
+ trampCall(_keyword)
1593
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:120"] + __e.backtrace ) ; raise __e
1594
+ end
1595
+ ) then
1596
+ begin
1597
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 121 );
1598
+ delayCall( '_filter', 'filter',
1599
+ begin
1600
+ if @global_lisp_binding.has_key?('_filter') then
1601
+ trampCall(@_filter)
1602
+ else raise NameError.new( "Error: undefined variable filter", "filter" ) end
1603
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:121"] + __e.backtrace ) ; raise __e
1604
+ end ,
1605
+ [
1606
+ Proc.new { |_x|
1607
+ begin
1608
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 123 );
1609
+ trampCall( self._stowm_MIMARKregex_MIMARKmatch_METHOD( 'stowm-regex-match',
1610
+ begin
1611
+ if @global_lisp_binding.has_key?('_stowm_MIMARKregex_MIMARKmatch') then
1612
+ trampCall(@_stowm_MIMARKregex_MIMARKmatch)
1613
+ else raise NameError.new( "Error: undefined variable stowm-regex-match", "stowm-regex-match" ) end
1614
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:123"] + __e.backtrace ) ; raise __e
1615
+ end ,
1616
+ [
1617
+ begin
1618
+ trampCall(_keyword)
1619
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:123"] + __e.backtrace ) ; raise __e
1620
+ end ,
1621
+ begin
1622
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 123 );
1623
+ _car(
1624
+ begin
1625
+ trampCall(_x)
1626
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:123"] + __e.backtrace ) ; raise __e
1627
+ end
1628
+ )
1629
+ end
1630
+ ]
1631
+ ))
1632
+ end
1633
+ } ,
1634
+ begin
1635
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 124 );
1636
+ trampCall( self._stowed_MIMARKlist_MIMARKto_MIMARKtree_METHOD( 'stowed-list-to-tree',
1637
+ begin
1638
+ if @global_lisp_binding.has_key?('_stowed_MIMARKlist_MIMARKto_MIMARKtree') then
1639
+ trampCall(@_stowed_MIMARKlist_MIMARKto_MIMARKtree)
1640
+ else raise NameError.new( "Error: undefined variable stowed-list-to-tree", "stowed-list-to-tree" ) end
1641
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:124"] + __e.backtrace ) ; raise __e
1642
+ end ,
1643
+ [
1644
+ begin
1645
+ trampCall(_stowed_MIMARKlist)
1646
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:124"] + __e.backtrace ) ; raise __e
1647
+ end
1648
+ ]
1649
+ ))
1650
+ end
1651
+ ]
1652
+ )
1653
+ end
1654
+ else
1655
+ begin
1656
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 125 );
1657
+ delayCall( '_stowed_MIMARKlist_MIMARKto_MIMARKtree', 'stowed-list-to-tree',
1658
+ begin
1659
+ if @global_lisp_binding.has_key?('_stowed_MIMARKlist_MIMARKto_MIMARKtree') then
1660
+ trampCall(@_stowed_MIMARKlist_MIMARKto_MIMARKtree)
1661
+ else raise NameError.new( "Error: undefined variable stowed-list-to-tree", "stowed-list-to-tree" ) end
1662
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:125"] + __e.backtrace ) ; raise __e
1663
+ end ,
1664
+ [
1665
+ begin
1666
+ trampCall(_stowed_MIMARKlist)
1667
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:125"] + __e.backtrace ) ; raise __e
1668
+ end
1669
+ ]
1670
+ )
1671
+ end
1672
+ end
1673
+ )
1674
+ end
1675
+ } ; ___lambda.call(
1676
+ nil,nil,nil
1677
+ )
1678
+ end
1679
+ }
1680
+ )
1681
+ end
1682
+ )
1683
+ #--------------------
1684
+
1685
+ trampCall(
1686
+ begin #execFunc
1687
+ def self._stowm_MIMARKstderr_MIMARKtee_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKstderr_MIMARKtee', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1688
+ @global_lisp_binding['_stowm_MIMARKstderr_MIMARKtee'] = self.method( :_stowm_MIMARKstderr_MIMARKtee_METHOD )
1689
+ @_stowm_MIMARKstderr_MIMARKtee =
1690
+ trampCall(
1691
+ Proc.new { |_str|
1692
+ begin
1693
+ trampCall(STDERR).printf(
1694
+ "Info: %s
1695
+ " ,
1696
+ begin
1697
+ trampCall(_str)
1698
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:147"] + __e.backtrace ) ; raise __e
1699
+ end
1700
+ )
1701
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:147"] + __e.backtrace ) ; raise __e
1702
+ end
1703
+ begin
1704
+ trampCall(_str)
1705
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:148"] + __e.backtrace ) ; raise __e
1706
+ end
1707
+ }
1708
+ )
1709
+ end
1710
+ )
1711
+ #--------------------
1712
+
1713
+ trampCall(
1714
+ begin #execFunc
1715
+ def self._stowm_MIMARKrestow_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKrestow', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1716
+ @global_lisp_binding['_stowm_MIMARKrestow'] = self.method( :_stowm_MIMARKrestow_METHOD )
1717
+ @_stowm_MIMARKrestow =
1718
+ trampCall(
1719
+ Proc.new { |_env,_delete_MIMARKitem,_restow_MIMARKitem|
1720
+ begin #makeLet
1721
+ ___lambda = lambda { |_script|
1722
+ begin
1723
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 163 );
1724
+ trampCall( self._stowm_MIMARKexec_MIMARKsh_METHOD( 'stowm-exec-sh',
1725
+ begin
1726
+ if @global_lisp_binding.has_key?('_stowm_MIMARKexec_MIMARKsh') then
1727
+ trampCall(@_stowm_MIMARKexec_MIMARKsh)
1728
+ else raise NameError.new( "Error: undefined variable stowm-exec-sh", "stowm-exec-sh" ) end
1729
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:163"] + __e.backtrace ) ; raise __e
1730
+ end ,
1731
+ [
1732
+ begin
1733
+ trampCall(_script)
1734
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:163"] + __e.backtrace ) ; raise __e
1735
+ end ,
1736
+ false
1737
+ ]
1738
+ ))
1739
+ end
1740
+ begin
1741
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 164 );
1742
+ trampCall( self._save_MIMARKinstalled_MIMARKdb_METHOD( 'save-installed-db',
1743
+ begin
1744
+ if @global_lisp_binding.has_key?('_save_MIMARKinstalled_MIMARKdb') then
1745
+ trampCall(@_save_MIMARKinstalled_MIMARKdb)
1746
+ else raise NameError.new( "Error: undefined variable save-installed-db", "save-installed-db" ) end
1747
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:164"] + __e.backtrace ) ; raise __e
1748
+ end ,
1749
+ [
1750
+ begin
1751
+ trampCall(_env)
1752
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:164"] + __e.backtrace ) ; raise __e
1753
+ end
1754
+ ]
1755
+ ))
1756
+ end
1757
+ begin
1758
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 165 );
1759
+ delayCall( '_with_MIMARKopen', 'with-open',
1760
+ begin
1761
+ if @global_lisp_binding.has_key?('_with_MIMARKopen') then
1762
+ trampCall(@_with_MIMARKopen)
1763
+ else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end
1764
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:165"] + __e.backtrace ) ; raise __e
1765
+ end ,
1766
+ [
1767
+ begin
1768
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 165 );
1769
+ trampCall( self._db_MIMARKpath_METHOD( 'db-path',
1770
+ begin
1771
+ if @global_lisp_binding.has_key?('_db_MIMARKpath') then
1772
+ trampCall(@_db_MIMARKpath)
1773
+ else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end
1774
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:165"] + __e.backtrace ) ; raise __e
1775
+ end ,
1776
+ [
1777
+ begin
1778
+ trampCall(_env)
1779
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:165"] + __e.backtrace ) ; raise __e
1780
+ end
1781
+ ]
1782
+ ))
1783
+ end ,
1784
+ Proc.new { |_f|
1785
+ begin
1786
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 167 );
1787
+ trampCall( self._read_METHOD( 'read',
1788
+ begin
1789
+ if @global_lisp_binding.has_key?('_read') then
1790
+ trampCall(@_read)
1791
+ else raise NameError.new( "Error: undefined variable read", "read" ) end
1792
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:167"] + __e.backtrace ) ; raise __e
1793
+ end ,
1794
+ [
1795
+ begin
1796
+ trampCall(_f)
1797
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:167"] + __e.backtrace ) ; raise __e
1798
+ end
1799
+ ]
1800
+ ))
1801
+ end
1802
+ }
1803
+ ]
1804
+ )
1805
+ end
1806
+ } ; ___lambda.call(
1807
+ begin
1808
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 152 );
1809
+ trampCall( self._string_MIMARKjoin_METHOD( 'string-join',
1810
+ begin
1811
+ if @global_lisp_binding.has_key?('_string_MIMARKjoin') then
1812
+ trampCall(@_string_MIMARKjoin)
1813
+ else raise NameError.new( "Error: undefined variable string-join", "string-join" ) end
1814
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:152"] + __e.backtrace ) ; raise __e
1815
+ end ,
1816
+ [
1817
+ begin
1818
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 153 );
1819
+ trampCall( self._list_METHOD( 'list',
1820
+ begin
1821
+ if @global_lisp_binding.has_key?('_list') then
1822
+ trampCall(@_list)
1823
+ else raise NameError.new( "Error: undefined variable list", "list" ) end
1824
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:153"] + __e.backtrace ) ; raise __e
1825
+ end ,
1826
+ [
1827
+ begin
1828
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 154 );
1829
+ (
1830
+ "cd " +
1831
+ begin
1832
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 154 );
1833
+ trampCall( self._stow_MIMARKhome_METHOD( 'stow-home',
1834
+ begin
1835
+ if @global_lisp_binding.has_key?('_stow_MIMARKhome') then
1836
+ trampCall(@_stow_MIMARKhome)
1837
+ else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end
1838
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:154"] + __e.backtrace ) ; raise __e
1839
+ end ,
1840
+ [
1841
+ begin
1842
+ trampCall(_env)
1843
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:154"] + __e.backtrace ) ; raise __e
1844
+ end
1845
+ ]
1846
+ ))
1847
+ end
1848
+ )
1849
+ end ,
1850
+ if (
1851
+ begin
1852
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 155 );
1853
+ _null_QUMARK(
1854
+ begin
1855
+ trampCall(_delete_MIMARKitem)
1856
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:155"] + __e.backtrace ) ; raise __e
1857
+ end
1858
+ )
1859
+ end
1860
+ ) then
1861
+ ""
1862
+ else
1863
+ begin
1864
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 157 );
1865
+ trampCall( self._stowm_MIMARKstderr_MIMARKtee_METHOD( 'stowm-stderr-tee',
1866
+ begin
1867
+ if @global_lisp_binding.has_key?('_stowm_MIMARKstderr_MIMARKtee') then
1868
+ trampCall(@_stowm_MIMARKstderr_MIMARKtee)
1869
+ else raise NameError.new( "Error: undefined variable stowm-stderr-tee", "stowm-stderr-tee" ) end
1870
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e
1871
+ end ,
1872
+ [
1873
+ begin
1874
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 157 );
1875
+ trampCall( self._sprintf_METHOD( 'sprintf',
1876
+ begin
1877
+ if @global_lisp_binding.has_key?('_sprintf') then
1878
+ trampCall(@_sprintf)
1879
+ else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end
1880
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e
1881
+ end ,
1882
+ [
1883
+ "%s -D %s" ,
1884
+ begin
1885
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 157 );
1886
+ trampCall( self._stow_MIMARKprogram_METHOD( 'stow-program',
1887
+ begin
1888
+ if @global_lisp_binding.has_key?('_stow_MIMARKprogram') then
1889
+ trampCall(@_stow_MIMARKprogram)
1890
+ else raise NameError.new( "Error: undefined variable stow-program", "stow-program" ) end
1891
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e
1892
+ end ,
1893
+ [
1894
+ begin
1895
+ trampCall(_env)
1896
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e
1897
+ end
1898
+ ]
1899
+ ))
1900
+ end ,
1901
+ begin
1902
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 157 );
1903
+ _car(
1904
+ begin
1905
+ trampCall(_delete_MIMARKitem)
1906
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:157"] + __e.backtrace ) ; raise __e
1907
+ end
1908
+ )
1909
+ end
1910
+ ]
1911
+ ))
1912
+ end
1913
+ ]
1914
+ ))
1915
+ end
1916
+ end ,
1917
+ if (
1918
+ begin
1919
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 158 );
1920
+ _null_QUMARK(
1921
+ begin
1922
+ trampCall(_restow_MIMARKitem)
1923
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:158"] + __e.backtrace ) ; raise __e
1924
+ end
1925
+ )
1926
+ end
1927
+ ) then
1928
+ ""
1929
+ else
1930
+ begin
1931
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 160 );
1932
+ trampCall( self._stowm_MIMARKstderr_MIMARKtee_METHOD( 'stowm-stderr-tee',
1933
+ begin
1934
+ if @global_lisp_binding.has_key?('_stowm_MIMARKstderr_MIMARKtee') then
1935
+ trampCall(@_stowm_MIMARKstderr_MIMARKtee)
1936
+ else raise NameError.new( "Error: undefined variable stowm-stderr-tee", "stowm-stderr-tee" ) end
1937
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e
1938
+ end ,
1939
+ [
1940
+ begin
1941
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 160 );
1942
+ trampCall( self._sprintf_METHOD( 'sprintf',
1943
+ begin
1944
+ if @global_lisp_binding.has_key?('_sprintf') then
1945
+ trampCall(@_sprintf)
1946
+ else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end
1947
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e
1948
+ end ,
1949
+ [
1950
+ "%s -R %s" ,
1951
+ begin
1952
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 160 );
1953
+ trampCall( self._stow_MIMARKprogram_METHOD( 'stow-program',
1954
+ begin
1955
+ if @global_lisp_binding.has_key?('_stow_MIMARKprogram') then
1956
+ trampCall(@_stow_MIMARKprogram)
1957
+ else raise NameError.new( "Error: undefined variable stow-program", "stow-program" ) end
1958
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e
1959
+ end ,
1960
+ [
1961
+ begin
1962
+ trampCall(_env)
1963
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e
1964
+ end
1965
+ ]
1966
+ ))
1967
+ end ,
1968
+ begin
1969
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 160 );
1970
+ _car(
1971
+ begin
1972
+ trampCall(_restow_MIMARKitem)
1973
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:160"] + __e.backtrace ) ; raise __e
1974
+ end
1975
+ )
1976
+ end
1977
+ ]
1978
+ ))
1979
+ end
1980
+ ]
1981
+ ))
1982
+ end
1983
+ end ,
1984
+ ""
1985
+ ]
1986
+ ))
1987
+ end ,
1988
+ "
1989
+ "
1990
+ ]
1991
+ ))
1992
+ end
1993
+ )
1994
+ end
1995
+ }
1996
+ )
1997
+ end
1998
+ )
1999
+ #--------------------
2000
+
2001
+ trampCall(
2002
+ begin #execFunc
2003
+ def self._build_MIMARKpackage_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_build_MIMARKpackage', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2004
+ @global_lisp_binding['_build_MIMARKpackage'] = self.method( :_build_MIMARKpackage_METHOD )
2005
+ @_build_MIMARKpackage =
2006
+ trampCall(
2007
+ Proc.new { |_env,_spec_MIMARKobj,_makefile_MIMARKdir|
2008
+ begin #makeLet
2009
+ ___lambda = lambda { |_makefile_MIMARKpath|
2010
+ begin #makeLet
2011
+ ___lambda = lambda { |_makefile_MIMARKstr|
2012
+ begin
2013
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 179 );
2014
+ trampCall( self._with_MIMARKopen_METHOD( 'with-open',
2015
+ begin
2016
+ if @global_lisp_binding.has_key?('_with_MIMARKopen') then
2017
+ trampCall(@_with_MIMARKopen)
2018
+ else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end
2019
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:179"] + __e.backtrace ) ; raise __e
2020
+ end ,
2021
+ [
2022
+ begin
2023
+ trampCall(_makefile_MIMARKpath)
2024
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:180"] + __e.backtrace ) ; raise __e
2025
+ end ,
2026
+ Proc.new { |_f|
2027
+ begin
2028
+ trampCall(_f).printf(
2029
+ "%s" ,
2030
+ begin
2031
+ trampCall(_makefile_MIMARKstr)
2032
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:182"] + __e.backtrace ) ; raise __e
2033
+ end
2034
+ )
2035
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:182"] + __e.backtrace ) ; raise __e
2036
+ end
2037
+ begin
2038
+ trampCall(STDERR).printf(
2039
+ "Info : created Makefile [%s]
2040
+ " ,
2041
+ begin
2042
+ trampCall(_makefile_MIMARKpath)
2043
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:183"] + __e.backtrace ) ; raise __e
2044
+ end
2045
+ )
2046
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:183"] + __e.backtrace ) ; raise __e
2047
+ end
2048
+ } ,
2049
+ "w"
2050
+ ]
2051
+ ))
2052
+ end
2053
+ begin #makeLet
2054
+ ___lambda = lambda { |_script|
2055
+ begin
2056
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 189 );
2057
+ delayCall( '_stowm_MIMARKexec_MIMARKsh', 'stowm-exec-sh',
2058
+ begin
2059
+ if @global_lisp_binding.has_key?('_stowm_MIMARKexec_MIMARKsh') then
2060
+ trampCall(@_stowm_MIMARKexec_MIMARKsh)
2061
+ else raise NameError.new( "Error: undefined variable stowm-exec-sh", "stowm-exec-sh" ) end
2062
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:189"] + __e.backtrace ) ; raise __e
2063
+ end ,
2064
+ [
2065
+ begin
2066
+ trampCall(_script)
2067
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:189"] + __e.backtrace ) ; raise __e
2068
+ end
2069
+ ]
2070
+ )
2071
+ end
2072
+ } ; ___lambda.call(
2073
+ begin
2074
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 186 );
2075
+ (
2076
+ begin
2077
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 187 );
2078
+ trampCall( self._sprintf_METHOD( 'sprintf',
2079
+ begin
2080
+ if @global_lisp_binding.has_key?('_sprintf') then
2081
+ trampCall(@_sprintf)
2082
+ else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end
2083
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:187"] + __e.backtrace ) ; raise __e
2084
+ end ,
2085
+ [
2086
+ "make -C %s -f Makefile.tmp clean
2087
+ " ,
2088
+ begin
2089
+ trampCall(_makefile_MIMARKdir)
2090
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:187"] + __e.backtrace ) ; raise __e
2091
+ end
2092
+ ]
2093
+ ))
2094
+ end +
2095
+ begin
2096
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 188 );
2097
+ trampCall( self._sprintf_METHOD( 'sprintf',
2098
+ begin
2099
+ if @global_lisp_binding.has_key?('_sprintf') then
2100
+ trampCall(@_sprintf)
2101
+ else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end
2102
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:188"] + __e.backtrace ) ; raise __e
2103
+ end ,
2104
+ [
2105
+ "make -C %s -f Makefile.tmp
2106
+ " ,
2107
+ begin
2108
+ trampCall(_makefile_MIMARKdir)
2109
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:188"] + __e.backtrace ) ; raise __e
2110
+ end
2111
+ ]
2112
+ ))
2113
+ end
2114
+ )
2115
+ end
2116
+ )
2117
+ end
2118
+ } ; ___lambda.call(
2119
+ begin
2120
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 176 );
2121
+ trampCall( self._create_MIMARKmakefile_METHOD( 'create-makefile',
2122
+ begin
2123
+ if @global_lisp_binding.has_key?('_create_MIMARKmakefile') then
2124
+ trampCall(@_create_MIMARKmakefile)
2125
+ else raise NameError.new( "Error: undefined variable create-makefile", "create-makefile" ) end
2126
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:176"] + __e.backtrace ) ; raise __e
2127
+ end ,
2128
+ [
2129
+ begin
2130
+ trampCall(_spec_MIMARKobj)
2131
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:176"] + __e.backtrace ) ; raise __e
2132
+ end ,
2133
+ begin
2134
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 176 );
2135
+ trampCall( self._home_MIMARKrepos_METHOD( 'home-repos',
2136
+ begin
2137
+ if @global_lisp_binding.has_key?('_home_MIMARKrepos') then
2138
+ trampCall(@_home_MIMARKrepos)
2139
+ else raise NameError.new( "Error: undefined variable home-repos", "home-repos" ) end
2140
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:176"] + __e.backtrace ) ; raise __e
2141
+ end ,
2142
+ [
2143
+ begin
2144
+ trampCall(_env)
2145
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:176"] + __e.backtrace ) ; raise __e
2146
+ end
2147
+ ]
2148
+ ))
2149
+ end
2150
+ ]
2151
+ ))
2152
+ end
2153
+ )
2154
+ end
2155
+ } ; ___lambda.call(
2156
+ begin
2157
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 174 );
2158
+ (
2159
+ begin
2160
+ trampCall(_makefile_MIMARKdir)
2161
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:174"] + __e.backtrace ) ; raise __e
2162
+ end +
2163
+ "/Makefile.tmp"
2164
+ )
2165
+ end
2166
+ )
2167
+ end
2168
+ }
2169
+ )
2170
+ end
2171
+ )
2172
+ #--------------------
2173
+
2174
+ trampCall(
2175
+ begin #execFunc
2176
+ def self._action_MIMARKby_MIMARKurl_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_action_MIMARKby_MIMARKurl', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2177
+ @global_lisp_binding['_action_MIMARKby_MIMARKurl'] = self.method( :_action_MIMARKby_MIMARKurl_METHOD )
2178
+ @_action_MIMARKby_MIMARKurl =
2179
+ trampCall(
2180
+ Proc.new { |_env,_url|
2181
+ begin #makeLet
2182
+ ___lambda = lambda { |_parsed|
2183
+ begin #makeLet
2184
+ ___lambda = lambda { |_specfile_MIMARKstr|
2185
+ begin #makeLet
2186
+ ___lambda = lambda { |_specfile_MIMARKdir|
2187
+ begin #makeLet
2188
+ ___lambda = lambda { |_specfile_MIMARKpath|
2189
+ begin #makeLet
2190
+ ___lambda = lambda { |_makefile_MIMARKdir|
2191
+ if (
2192
+ begin
2193
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 205 );
2194
+ _not(
2195
+ begin
2196
+ trampCall(File).exist?(
2197
+ begin
2198
+ trampCall(_specfile_MIMARKdir)
2199
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:205"] + __e.backtrace ) ; raise __e
2200
+ end
2201
+ )
2202
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:205"] + __e.backtrace ) ; raise __e
2203
+ end
2204
+ )
2205
+ end
2206
+ ) then
2207
+ begin
2208
+ trampCall(FileUtils).mkdir_p(
2209
+ begin
2210
+ trampCall(_specfile_MIMARKdir)
2211
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:206"] + __e.backtrace ) ; raise __e
2212
+ end
2213
+ )
2214
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:206"] + __e.backtrace ) ; raise __e
2215
+ end
2216
+ end
2217
+ if (
2218
+ begin
2219
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 208 );
2220
+ _not(
2221
+ begin
2222
+ trampCall(File).exist?(
2223
+ begin
2224
+ trampCall(_makefile_MIMARKdir)
2225
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:208"] + __e.backtrace ) ; raise __e
2226
+ end
2227
+ )
2228
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:208"] + __e.backtrace ) ; raise __e
2229
+ end
2230
+ )
2231
+ end
2232
+ ) then
2233
+ begin
2234
+ trampCall(FileUtils).mkdir_p(
2235
+ begin
2236
+ trampCall(_makefile_MIMARKdir)
2237
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:209"] + __e.backtrace ) ; raise __e
2238
+ end
2239
+ )
2240
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:209"] + __e.backtrace ) ; raise __e
2241
+ end
2242
+ end
2243
+ if (
2244
+ begin
2245
+ trampCall(File).exist?(
2246
+ begin
2247
+ trampCall(_specfile_MIMARKpath)
2248
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:212"] + __e.backtrace ) ; raise __e
2249
+ end
2250
+ )
2251
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:212"] + __e.backtrace ) ; raise __e
2252
+ end
2253
+ ) then
2254
+ begin
2255
+ trampCall(STDERR).printf(
2256
+ "Info : alreay exist [%s] file. didn't touch.
2257
+ " ,
2258
+ begin
2259
+ trampCall(_specfile_MIMARKpath)
2260
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:213"] + __e.backtrace ) ; raise __e
2261
+ end
2262
+ )
2263
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:213"] + __e.backtrace ) ; raise __e
2264
+ end
2265
+ else
2266
+ begin
2267
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 214 );
2268
+ trampCall( self._with_MIMARKopen_METHOD( 'with-open',
2269
+ begin
2270
+ if @global_lisp_binding.has_key?('_with_MIMARKopen') then
2271
+ trampCall(@_with_MIMARKopen)
2272
+ else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end
2273
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:214"] + __e.backtrace ) ; raise __e
2274
+ end ,
2275
+ [
2276
+ begin
2277
+ trampCall(_specfile_MIMARKpath)
2278
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:215"] + __e.backtrace ) ; raise __e
2279
+ end ,
2280
+ Proc.new { |_f|
2281
+ begin
2282
+ trampCall(_f).printf(
2283
+ "%s" ,
2284
+ begin
2285
+ trampCall(_specfile_MIMARKstr)
2286
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:217"] + __e.backtrace ) ; raise __e
2287
+ end
2288
+ )
2289
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:217"] + __e.backtrace ) ; raise __e
2290
+ end
2291
+ begin
2292
+ trampCall(STDERR).printf(
2293
+ "Info : created spec [%s]
2294
+ " ,
2295
+ begin
2296
+ trampCall(_specfile_MIMARKpath)
2297
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:218"] + __e.backtrace ) ; raise __e
2298
+ end
2299
+ )
2300
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:218"] + __e.backtrace ) ; raise __e
2301
+ end
2302
+ } ,
2303
+ "w"
2304
+ ]
2305
+ ))
2306
+ end
2307
+ end
2308
+ begin #makeLet
2309
+ ___lambda = lambda { |_spec_MIMARKobj|
2310
+ begin
2311
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 229 );
2312
+ delayCall( '_build_MIMARKpackage', 'build-package',
2313
+ begin
2314
+ if @global_lisp_binding.has_key?('_build_MIMARKpackage') then
2315
+ trampCall(@_build_MIMARKpackage)
2316
+ else raise NameError.new( "Error: undefined variable build-package", "build-package" ) end
2317
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:229"] + __e.backtrace ) ; raise __e
2318
+ end ,
2319
+ [
2320
+ begin
2321
+ trampCall(_env)
2322
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:229"] + __e.backtrace ) ; raise __e
2323
+ end ,
2324
+ begin
2325
+ trampCall(_spec_MIMARKobj)
2326
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:229"] + __e.backtrace ) ; raise __e
2327
+ end ,
2328
+ begin
2329
+ trampCall(_makefile_MIMARKdir)
2330
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:229"] + __e.backtrace ) ; raise __e
2331
+ end
2332
+ ]
2333
+ )
2334
+ end
2335
+ } ; ___lambda.call(
2336
+ if (
2337
+ begin
2338
+ trampCall(File).exist?(
2339
+ begin
2340
+ trampCall(_specfile_MIMARKpath)
2341
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:224"] + __e.backtrace ) ; raise __e
2342
+ end
2343
+ )
2344
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:224"] + __e.backtrace ) ; raise __e
2345
+ end
2346
+ ) then
2347
+ begin
2348
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 225 );
2349
+ delayCall( '_load_MIMARKspecfile', 'load-specfile',
2350
+ begin
2351
+ if @global_lisp_binding.has_key?('_load_MIMARKspecfile') then
2352
+ trampCall(@_load_MIMARKspecfile)
2353
+ else raise NameError.new( "Error: undefined variable load-specfile", "load-specfile" ) end
2354
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:225"] + __e.backtrace ) ; raise __e
2355
+ end ,
2356
+ [
2357
+ begin
2358
+ trampCall(_specfile_MIMARKpath)
2359
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:225"] + __e.backtrace ) ; raise __e
2360
+ end
2361
+ ]
2362
+ )
2363
+ end
2364
+ else
2365
+ if (
2366
+ true
2367
+ ) then
2368
+ begin #makeBegin
2369
+ begin
2370
+ trampCall(STDERR).printf(
2371
+ "Error : not exist specfile [%s]."
2372
+ )
2373
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:227"] + __e.backtrace ) ; raise __e
2374
+ end
2375
+ begin
2376
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 228 );
2377
+ delayCall( '_exit', 'exit',
2378
+ begin
2379
+ if @global_lisp_binding.has_key?('_exit') then
2380
+ trampCall(@_exit)
2381
+ else raise NameError.new( "Error: undefined variable exit", "exit" ) end
2382
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:228"] + __e.backtrace ) ; raise __e
2383
+ end ,
2384
+ [
2385
+ 1
2386
+ ]
2387
+ )
2388
+ end
2389
+ end
2390
+ else
2391
+ Cell.new()
2392
+ end
2393
+ end
2394
+ )
2395
+ end
2396
+ } ; ___lambda.call(
2397
+ begin
2398
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 202 );
2399
+ (
2400
+ begin
2401
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 202 );
2402
+ trampCall( self._temp_METHOD( 'temp',
2403
+ begin
2404
+ if @global_lisp_binding.has_key?('_temp') then
2405
+ trampCall(@_temp)
2406
+ else raise NameError.new( "Error: undefined variable temp", "temp" ) end
2407
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:202"] + __e.backtrace ) ; raise __e
2408
+ end ,
2409
+ [
2410
+ begin
2411
+ trampCall(_env)
2412
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:202"] + __e.backtrace ) ; raise __e
2413
+ end
2414
+ ]
2415
+ ))
2416
+ end +
2417
+ "/" +
2418
+ begin
2419
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 202 );
2420
+ trampCall( self._package_METHOD( 'package',
2421
+ begin
2422
+ if @global_lisp_binding.has_key?('_package') then
2423
+ trampCall(@_package)
2424
+ else raise NameError.new( "Error: undefined variable package", "package" ) end
2425
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:202"] + __e.backtrace ) ; raise __e
2426
+ end ,
2427
+ [
2428
+ begin
2429
+ trampCall(_parsed)
2430
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:202"] + __e.backtrace ) ; raise __e
2431
+ end
2432
+ ]
2433
+ ))
2434
+ end
2435
+ )
2436
+ end
2437
+ )
2438
+ end
2439
+ } ; ___lambda.call(
2440
+ begin
2441
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 200 );
2442
+ trampCall( self.__PLMARK_METHOD( '+',
2443
+ begin
2444
+ if @global_lisp_binding.has_key?('__PLMARK') then
2445
+ trampCall(@__PLMARK)
2446
+ else raise NameError.new( "Error: undefined variable +", "+" ) end
2447
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:200"] + __e.backtrace ) ; raise __e
2448
+ end ,
2449
+ [
2450
+ begin
2451
+ trampCall(_specfile_MIMARKdir)
2452
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:200"] + __e.backtrace ) ; raise __e
2453
+ end ,
2454
+ "/" ,
2455
+ begin
2456
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 200 );
2457
+ trampCall( self._package_METHOD( 'package',
2458
+ begin
2459
+ if @global_lisp_binding.has_key?('_package') then
2460
+ trampCall(@_package)
2461
+ else raise NameError.new( "Error: undefined variable package", "package" ) end
2462
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:200"] + __e.backtrace ) ; raise __e
2463
+ end ,
2464
+ [
2465
+ begin
2466
+ trampCall(_parsed)
2467
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:200"] + __e.backtrace ) ; raise __e
2468
+ end
2469
+ ]
2470
+ ))
2471
+ end ,
2472
+ ".yml"
2473
+ ]
2474
+ ))
2475
+ end
2476
+ )
2477
+ end
2478
+ } ; ___lambda.call(
2479
+ begin
2480
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 198 );
2481
+ (
2482
+ begin
2483
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 198 );
2484
+ trampCall( self._home_MIMARKrepos_METHOD( 'home-repos',
2485
+ begin
2486
+ if @global_lisp_binding.has_key?('_home_MIMARKrepos') then
2487
+ trampCall(@_home_MIMARKrepos)
2488
+ else raise NameError.new( "Error: undefined variable home-repos", "home-repos" ) end
2489
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:198"] + __e.backtrace ) ; raise __e
2490
+ end ,
2491
+ [
2492
+ begin
2493
+ trampCall(_env)
2494
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:198"] + __e.backtrace ) ; raise __e
2495
+ end
2496
+ ]
2497
+ ))
2498
+ end +
2499
+ "/" +
2500
+ begin
2501
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 198 );
2502
+ trampCall( self._package_METHOD( 'package',
2503
+ begin
2504
+ if @global_lisp_binding.has_key?('_package') then
2505
+ trampCall(@_package)
2506
+ else raise NameError.new( "Error: undefined variable package", "package" ) end
2507
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:198"] + __e.backtrace ) ; raise __e
2508
+ end ,
2509
+ [
2510
+ begin
2511
+ trampCall(_parsed)
2512
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:198"] + __e.backtrace ) ; raise __e
2513
+ end
2514
+ ]
2515
+ ))
2516
+ end
2517
+ )
2518
+ end
2519
+ )
2520
+ end
2521
+ } ; ___lambda.call(
2522
+ begin
2523
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 196 );
2524
+ trampCall( self._create_MIMARKspecfile_METHOD( 'create-specfile',
2525
+ begin
2526
+ if @global_lisp_binding.has_key?('_create_MIMARKspecfile') then
2527
+ trampCall(@_create_MIMARKspecfile)
2528
+ else raise NameError.new( "Error: undefined variable create-specfile", "create-specfile" ) end
2529
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:196"] + __e.backtrace ) ; raise __e
2530
+ end ,
2531
+ [
2532
+ begin
2533
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 196 );
2534
+ trampCall( self._stow_MIMARKhome_METHOD( 'stow-home',
2535
+ begin
2536
+ if @global_lisp_binding.has_key?('_stow_MIMARKhome') then
2537
+ trampCall(@_stow_MIMARKhome)
2538
+ else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end
2539
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:196"] + __e.backtrace ) ; raise __e
2540
+ end ,
2541
+ [
2542
+ begin
2543
+ trampCall(_env)
2544
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:196"] + __e.backtrace ) ; raise __e
2545
+ end
2546
+ ]
2547
+ ))
2548
+ end ,
2549
+ begin
2550
+ trampCall(_url)
2551
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:196"] + __e.backtrace ) ; raise __e
2552
+ end
2553
+ ]
2554
+ ))
2555
+ end
2556
+ )
2557
+ end
2558
+ } ; ___lambda.call(
2559
+ begin
2560
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 194 );
2561
+ trampCall( self._stowm_MIMARKparse_MIMARKurl_METHOD( 'stowm-parse-url',
2562
+ begin
2563
+ if @global_lisp_binding.has_key?('_stowm_MIMARKparse_MIMARKurl') then
2564
+ trampCall(@_stowm_MIMARKparse_MIMARKurl)
2565
+ else raise NameError.new( "Error: undefined variable stowm-parse-url", "stowm-parse-url" ) end
2566
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:194"] + __e.backtrace ) ; raise __e
2567
+ end ,
2568
+ [
2569
+ begin
2570
+ trampCall(_url)
2571
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:194"] + __e.backtrace ) ; raise __e
2572
+ end
2573
+ ]
2574
+ ))
2575
+ end
2576
+ )
2577
+ end
2578
+ }
2579
+ )
2580
+ end
2581
+ )
2582
+ #--------------------
2583
+
2584
+ trampCall(
2585
+ begin #execFunc
2586
+ def self._action_MIMARKby_MIMARKkeyword_MIMARKname_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_action_MIMARKby_MIMARKkeyword_MIMARKname', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2587
+ @global_lisp_binding['_action_MIMARKby_MIMARKkeyword_MIMARKname'] = self.method( :_action_MIMARKby_MIMARKkeyword_MIMARKname_METHOD )
2588
+ @_action_MIMARKby_MIMARKkeyword_MIMARKname =
2589
+ trampCall(
2590
+ Proc.new { |_env,_keyword,_name,_stowed_MIMARKlist|
2591
+ begin #makeLet
2592
+ ___lambda = lambda { |_tree|
2593
+ if (
2594
+ begin
2595
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 237 );
2596
+ trampCall( self._eqv_QUMARK_METHOD( 'eqv?',
2597
+ begin
2598
+ if @global_lisp_binding.has_key?('_eqv_QUMARK') then
2599
+ trampCall(@_eqv_QUMARK)
2600
+ else raise NameError.new( "Error: undefined variable eqv?", "eqv?" ) end
2601
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:237"] + __e.backtrace ) ; raise __e
2602
+ end ,
2603
+ [
2604
+ :"enable" ,
2605
+ begin
2606
+ trampCall(_keyword)
2607
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:237"] + __e.backtrace ) ; raise __e
2608
+ end
2609
+ ]
2610
+ ))
2611
+ end
2612
+ ) then
2613
+ begin #makeLet
2614
+ ___lambda = lambda { |_num|
2615
+ if (
2616
+ begin
2617
+ trampCall(_num)
2618
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:240"] + __e.backtrace ) ; raise __e
2619
+ end
2620
+ ) then
2621
+ begin
2622
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 242 );
2623
+ delayCall( '_action_MIMARKby_MIMARKkeyword_MIMARKnum', 'action-by-keyword-num',
2624
+ begin
2625
+ if @global_lisp_binding.has_key?('_action_MIMARKby_MIMARKkeyword_MIMARKnum') then
2626
+ trampCall(@_action_MIMARKby_MIMARKkeyword_MIMARKnum)
2627
+ else raise NameError.new( "Error: undefined variable action-by-keyword-num", "action-by-keyword-num" ) end
2628
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:242"] + __e.backtrace ) ; raise __e
2629
+ end ,
2630
+ [
2631
+ begin
2632
+ trampCall(_env)
2633
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:242"] + __e.backtrace ) ; raise __e
2634
+ end ,
2635
+ :"enable" ,
2636
+ begin
2637
+ trampCall(_num)
2638
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:242"] + __e.backtrace ) ; raise __e
2639
+ end ,
2640
+ begin
2641
+ trampCall(_stowed_MIMARKlist)
2642
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:242"] + __e.backtrace ) ; raise __e
2643
+ end
2644
+ ]
2645
+ )
2646
+ end
2647
+ else
2648
+ begin #makeBegin
2649
+ begin
2650
+ trampCall(STDERR).printf(
2651
+ "Error: package [%s] was not stowed yet.
2652
+ " ,
2653
+ begin
2654
+ trampCall(_name)
2655
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:244"] + __e.backtrace ) ; raise __e
2656
+ end
2657
+ )
2658
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:244"] + __e.backtrace ) ; raise __e
2659
+ end
2660
+ begin
2661
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 245 );
2662
+ trampCall( self._display_MIMARKhelp_METHOD( 'display-help',
2663
+ begin
2664
+ if @global_lisp_binding.has_key?('_display_MIMARKhelp') then
2665
+ trampCall(@_display_MIMARKhelp)
2666
+ else raise NameError.new( "Error: undefined variable display-help", "display-help" ) end
2667
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:245"] + __e.backtrace ) ; raise __e
2668
+ end ,
2669
+ [
2670
+ ]
2671
+ ))
2672
+ end
2673
+ begin
2674
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 246 );
2675
+ delayCall( '_exit', 'exit',
2676
+ begin
2677
+ if @global_lisp_binding.has_key?('_exit') then
2678
+ trampCall(@_exit)
2679
+ else raise NameError.new( "Error: undefined variable exit", "exit" ) end
2680
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:246"] + __e.backtrace ) ; raise __e
2681
+ end ,
2682
+ [
2683
+ 1
2684
+ ]
2685
+ )
2686
+ end
2687
+ end
2688
+ end
2689
+ } ; ___lambda.call(
2690
+ begin
2691
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 239 );
2692
+ trampCall( self._resolve_MIMARKprogram_MIMARKnumber_METHOD( 'resolve-program-number',
2693
+ begin
2694
+ if @global_lisp_binding.has_key?('_resolve_MIMARKprogram_MIMARKnumber') then
2695
+ trampCall(@_resolve_MIMARKprogram_MIMARKnumber)
2696
+ else raise NameError.new( "Error: undefined variable resolve-program-number", "resolve-program-number" ) end
2697
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:239"] + __e.backtrace ) ; raise __e
2698
+ end ,
2699
+ [
2700
+ begin
2701
+ trampCall(_name)
2702
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:239"] + __e.backtrace ) ; raise __e
2703
+ end ,
2704
+ :"e" ,
2705
+ begin
2706
+ trampCall(_tree)
2707
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:239"] + __e.backtrace ) ; raise __e
2708
+ end
2709
+ ]
2710
+ ))
2711
+ end
2712
+ )
2713
+ end
2714
+ else
2715
+ if (
2716
+ begin
2717
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 247 );
2718
+ trampCall( self._eqv_QUMARK_METHOD( 'eqv?',
2719
+ begin
2720
+ if @global_lisp_binding.has_key?('_eqv_QUMARK') then
2721
+ trampCall(@_eqv_QUMARK)
2722
+ else raise NameError.new( "Error: undefined variable eqv?", "eqv?" ) end
2723
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:247"] + __e.backtrace ) ; raise __e
2724
+ end ,
2725
+ [
2726
+ :"disable" ,
2727
+ begin
2728
+ trampCall(_keyword)
2729
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:247"] + __e.backtrace ) ; raise __e
2730
+ end
2731
+ ]
2732
+ ))
2733
+ end
2734
+ ) then
2735
+ begin #makeLet
2736
+ ___lambda = lambda { |_num|
2737
+ if (
2738
+ begin
2739
+ trampCall(_num)
2740
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:250"] + __e.backtrace ) ; raise __e
2741
+ end
2742
+ ) then
2743
+ begin
2744
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 252 );
2745
+ delayCall( '_action_MIMARKby_MIMARKkeyword_MIMARKnum', 'action-by-keyword-num',
2746
+ begin
2747
+ if @global_lisp_binding.has_key?('_action_MIMARKby_MIMARKkeyword_MIMARKnum') then
2748
+ trampCall(@_action_MIMARKby_MIMARKkeyword_MIMARKnum)
2749
+ else raise NameError.new( "Error: undefined variable action-by-keyword-num", "action-by-keyword-num" ) end
2750
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:252"] + __e.backtrace ) ; raise __e
2751
+ end ,
2752
+ [
2753
+ begin
2754
+ trampCall(_env)
2755
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:252"] + __e.backtrace ) ; raise __e
2756
+ end ,
2757
+ :"disable" ,
2758
+ begin
2759
+ trampCall(_num)
2760
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:252"] + __e.backtrace ) ; raise __e
2761
+ end ,
2762
+ begin
2763
+ trampCall(_stowed_MIMARKlist)
2764
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:252"] + __e.backtrace ) ; raise __e
2765
+ end
2766
+ ]
2767
+ )
2768
+ end
2769
+ else
2770
+ begin #makeBegin
2771
+ begin
2772
+ trampCall(STDERR).printf(
2773
+ "Error: selected package [%s] was not enabled.
2774
+ " ,
2775
+ begin
2776
+ trampCall(_name)
2777
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:254"] + __e.backtrace ) ; raise __e
2778
+ end
2779
+ )
2780
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:254"] + __e.backtrace ) ; raise __e
2781
+ end
2782
+ begin
2783
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 255 );
2784
+ trampCall( self._display_MIMARKhelp_METHOD( 'display-help',
2785
+ begin
2786
+ if @global_lisp_binding.has_key?('_display_MIMARKhelp') then
2787
+ trampCall(@_display_MIMARKhelp)
2788
+ else raise NameError.new( "Error: undefined variable display-help", "display-help" ) end
2789
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:255"] + __e.backtrace ) ; raise __e
2790
+ end ,
2791
+ [
2792
+ ]
2793
+ ))
2794
+ end
2795
+ begin
2796
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 256 );
2797
+ delayCall( '_exit', 'exit',
2798
+ begin
2799
+ if @global_lisp_binding.has_key?('_exit') then
2800
+ trampCall(@_exit)
2801
+ else raise NameError.new( "Error: undefined variable exit", "exit" ) end
2802
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:256"] + __e.backtrace ) ; raise __e
2803
+ end ,
2804
+ [
2805
+ 1
2806
+ ]
2807
+ )
2808
+ end
2809
+ end
2810
+ end
2811
+ } ; ___lambda.call(
2812
+ begin
2813
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 249 );
2814
+ trampCall( self._resolve_MIMARKprogram_MIMARKnumber_METHOD( 'resolve-program-number',
2815
+ begin
2816
+ if @global_lisp_binding.has_key?('_resolve_MIMARKprogram_MIMARKnumber') then
2817
+ trampCall(@_resolve_MIMARKprogram_MIMARKnumber)
2818
+ else raise NameError.new( "Error: undefined variable resolve-program-number", "resolve-program-number" ) end
2819
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:249"] + __e.backtrace ) ; raise __e
2820
+ end ,
2821
+ [
2822
+ begin
2823
+ trampCall(_name)
2824
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:249"] + __e.backtrace ) ; raise __e
2825
+ end ,
2826
+ :"e" ,
2827
+ begin
2828
+ trampCall(_tree)
2829
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:249"] + __e.backtrace ) ; raise __e
2830
+ end
2831
+ ]
2832
+ ))
2833
+ end
2834
+ )
2835
+ end
2836
+ else
2837
+ Cell.new()
2838
+ end
2839
+ end
2840
+ } ; ___lambda.call(
2841
+ begin
2842
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 235 );
2843
+ trampCall( self._stowed_MIMARKlist_MIMARKto_MIMARKtree_METHOD( 'stowed-list-to-tree',
2844
+ begin
2845
+ if @global_lisp_binding.has_key?('_stowed_MIMARKlist_MIMARKto_MIMARKtree') then
2846
+ trampCall(@_stowed_MIMARKlist_MIMARKto_MIMARKtree)
2847
+ else raise NameError.new( "Error: undefined variable stowed-list-to-tree", "stowed-list-to-tree" ) end
2848
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:235"] + __e.backtrace ) ; raise __e
2849
+ end ,
2850
+ [
2851
+ begin
2852
+ trampCall(_stowed_MIMARKlist)
2853
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:235"] + __e.backtrace ) ; raise __e
2854
+ end
2855
+ ]
2856
+ ))
2857
+ end
2858
+ )
2859
+ end
2860
+ }
2861
+ )
2862
+ end
2863
+ )
2864
+ #--------------------
2865
+
2866
+ trampCall(
2867
+ begin #execFunc
2868
+ def self._rebuild_MIMARKnum_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_rebuild_MIMARKnum', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2869
+ @global_lisp_binding['_rebuild_MIMARKnum'] = self.method( :_rebuild_MIMARKnum_METHOD )
2870
+ @_rebuild_MIMARKnum =
2871
+ trampCall(
2872
+ Proc.new { |_env,_number,_stowed_MIMARKlist|
2873
+ begin #makeLet
2874
+ ___lambda = lambda { |_found|
2875
+ if (
2876
+ begin
2877
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 265 );
2878
+ _null_QUMARK(
2879
+ begin
2880
+ trampCall(_found)
2881
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:265"] + __e.backtrace ) ; raise __e
2882
+ end
2883
+ )
2884
+ end
2885
+ ) then
2886
+ begin #makeBegin
2887
+ begin
2888
+ trampCall(STDERR).printf(
2889
+ "Error: selected number [%d] was not found...
2890
+ " ,
2891
+ begin
2892
+ trampCall(_number)
2893
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:267"] + __e.backtrace ) ; raise __e
2894
+ end
2895
+ )
2896
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:267"] + __e.backtrace ) ; raise __e
2897
+ end
2898
+ begin
2899
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 268 );
2900
+ delayCall( '_exit', 'exit',
2901
+ begin
2902
+ if @global_lisp_binding.has_key?('_exit') then
2903
+ trampCall(@_exit)
2904
+ else raise NameError.new( "Error: undefined variable exit", "exit" ) end
2905
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:268"] + __e.backtrace ) ; raise __e
2906
+ end ,
2907
+ [
2908
+ 1
2909
+ ]
2910
+ )
2911
+ end
2912
+ end
2913
+ else
2914
+ begin #makeLet
2915
+ ___lambda = lambda { |_dirname|
2916
+ begin #makeLet
2917
+ ___lambda = lambda { |_basename|
2918
+ begin #makeLet
2919
+ ___lambda = lambda { |_specfile_MIMARKdir|
2920
+ begin #makeLet
2921
+ ___lambda = lambda { |_specfile_MIMARKpath|
2922
+ begin #makeLet
2923
+ ___lambda = lambda { |_makefile_MIMARKdir|
2924
+ begin #makeLet
2925
+ ___lambda = lambda { |_spec_MIMARKobj|
2926
+ begin
2927
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 286 );
2928
+ delayCall( '_build_MIMARKpackage', 'build-package',
2929
+ begin
2930
+ if @global_lisp_binding.has_key?('_build_MIMARKpackage') then
2931
+ trampCall(@_build_MIMARKpackage)
2932
+ else raise NameError.new( "Error: undefined variable build-package", "build-package" ) end
2933
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:286"] + __e.backtrace ) ; raise __e
2934
+ end ,
2935
+ [
2936
+ begin
2937
+ trampCall(_env)
2938
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:286"] + __e.backtrace ) ; raise __e
2939
+ end ,
2940
+ begin
2941
+ trampCall(_spec_MIMARKobj)
2942
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:286"] + __e.backtrace ) ; raise __e
2943
+ end ,
2944
+ begin
2945
+ trampCall(_makefile_MIMARKdir)
2946
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:286"] + __e.backtrace ) ; raise __e
2947
+ end
2948
+ ]
2949
+ )
2950
+ end
2951
+ } ; ___lambda.call(
2952
+ if (
2953
+ begin
2954
+ trampCall(File).exist?(
2955
+ begin
2956
+ trampCall(_specfile_MIMARKpath)
2957
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:281"] + __e.backtrace ) ; raise __e
2958
+ end
2959
+ )
2960
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:281"] + __e.backtrace ) ; raise __e
2961
+ end
2962
+ ) then
2963
+ begin
2964
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 282 );
2965
+ delayCall( '_load_MIMARKspecfile', 'load-specfile',
2966
+ begin
2967
+ if @global_lisp_binding.has_key?('_load_MIMARKspecfile') then
2968
+ trampCall(@_load_MIMARKspecfile)
2969
+ else raise NameError.new( "Error: undefined variable load-specfile", "load-specfile" ) end
2970
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:282"] + __e.backtrace ) ; raise __e
2971
+ end ,
2972
+ [
2973
+ begin
2974
+ trampCall(_specfile_MIMARKpath)
2975
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:282"] + __e.backtrace ) ; raise __e
2976
+ end
2977
+ ]
2978
+ )
2979
+ end
2980
+ else
2981
+ if (
2982
+ true
2983
+ ) then
2984
+ begin #makeBegin
2985
+ begin
2986
+ trampCall(STDERR).printf(
2987
+ "Error : not exist specfile [%s]."
2988
+ )
2989
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:284"] + __e.backtrace ) ; raise __e
2990
+ end
2991
+ begin
2992
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 285 );
2993
+ delayCall( '_exit', 'exit',
2994
+ begin
2995
+ if @global_lisp_binding.has_key?('_exit') then
2996
+ trampCall(@_exit)
2997
+ else raise NameError.new( "Error: undefined variable exit", "exit" ) end
2998
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:285"] + __e.backtrace ) ; raise __e
2999
+ end ,
3000
+ [
3001
+ 1
3002
+ ]
3003
+ )
3004
+ end
3005
+ end
3006
+ else
3007
+ Cell.new()
3008
+ end
3009
+ end
3010
+ )
3011
+ end
3012
+ } ; ___lambda.call(
3013
+ begin
3014
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 276 );
3015
+ (
3016
+ begin
3017
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 276 );
3018
+ trampCall( self._temp_METHOD( 'temp',
3019
+ begin
3020
+ if @global_lisp_binding.has_key?('_temp') then
3021
+ trampCall(@_temp)
3022
+ else raise NameError.new( "Error: undefined variable temp", "temp" ) end
3023
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:276"] + __e.backtrace ) ; raise __e
3024
+ end ,
3025
+ [
3026
+ begin
3027
+ trampCall(_env)
3028
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:276"] + __e.backtrace ) ; raise __e
3029
+ end
3030
+ ]
3031
+ ))
3032
+ end +
3033
+ "/" +
3034
+ begin
3035
+ trampCall(_dirname)
3036
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:276"] + __e.backtrace ) ; raise __e
3037
+ end
3038
+ )
3039
+ end
3040
+ )
3041
+ end
3042
+ } ; ___lambda.call(
3043
+ begin
3044
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 274 );
3045
+ trampCall( self.__PLMARK_METHOD( '+',
3046
+ begin
3047
+ if @global_lisp_binding.has_key?('__PLMARK') then
3048
+ trampCall(@__PLMARK)
3049
+ else raise NameError.new( "Error: undefined variable +", "+" ) end
3050
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:274"] + __e.backtrace ) ; raise __e
3051
+ end ,
3052
+ [
3053
+ begin
3054
+ trampCall(_specfile_MIMARKdir)
3055
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:274"] + __e.backtrace ) ; raise __e
3056
+ end ,
3057
+ "/" ,
3058
+ begin
3059
+ trampCall(_dirname)
3060
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:274"] + __e.backtrace ) ; raise __e
3061
+ end ,
3062
+ ".yml"
3063
+ ]
3064
+ ))
3065
+ end
3066
+ )
3067
+ end
3068
+ } ; ___lambda.call(
3069
+ begin
3070
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 272 );
3071
+ (
3072
+ begin
3073
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 272 );
3074
+ trampCall( self._home_MIMARKrepos_METHOD( 'home-repos',
3075
+ begin
3076
+ if @global_lisp_binding.has_key?('_home_MIMARKrepos') then
3077
+ trampCall(@_home_MIMARKrepos)
3078
+ else raise NameError.new( "Error: undefined variable home-repos", "home-repos" ) end
3079
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:272"] + __e.backtrace ) ; raise __e
3080
+ end ,
3081
+ [
3082
+ begin
3083
+ trampCall(_env)
3084
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:272"] + __e.backtrace ) ; raise __e
3085
+ end
3086
+ ]
3087
+ ))
3088
+ end +
3089
+ "/" +
3090
+ begin
3091
+ trampCall(_dirname)
3092
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:272"] + __e.backtrace ) ; raise __e
3093
+ end
3094
+ )
3095
+ end
3096
+ )
3097
+ end
3098
+ } ; ___lambda.call(
3099
+ begin
3100
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 270 );
3101
+ _car(
3102
+ begin
3103
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 270 );
3104
+ trampCall( self._stowm_MIMARKsplit_MIMARKfilename_METHOD( 'stowm-split-filename',
3105
+ begin
3106
+ if @global_lisp_binding.has_key?('_stowm_MIMARKsplit_MIMARKfilename') then
3107
+ trampCall(@_stowm_MIMARKsplit_MIMARKfilename)
3108
+ else raise NameError.new( "Error: undefined variable stowm-split-filename", "stowm-split-filename" ) end
3109
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:270"] + __e.backtrace ) ; raise __e
3110
+ end ,
3111
+ [
3112
+ begin
3113
+ trampCall(_dirname)
3114
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:270"] + __e.backtrace ) ; raise __e
3115
+ end
3116
+ ]
3117
+ ))
3118
+ end
3119
+ )
3120
+ end
3121
+ )
3122
+ end
3123
+ } ; ___lambda.call(
3124
+ begin
3125
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 269 );
3126
+ trampCall( self._caar_METHOD( 'caar',
3127
+ begin
3128
+ if @global_lisp_binding.has_key?('_caar') then
3129
+ trampCall(@_caar)
3130
+ else raise NameError.new( "Error: undefined variable caar", "caar" ) end
3131
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:269"] + __e.backtrace ) ; raise __e
3132
+ end ,
3133
+ [
3134
+ begin
3135
+ trampCall(_found)
3136
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:269"] + __e.backtrace ) ; raise __e
3137
+ end
3138
+ ]
3139
+ ))
3140
+ end
3141
+ )
3142
+ end
3143
+ end
3144
+ } ; ___lambda.call(
3145
+ begin
3146
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 261 );
3147
+ trampCall( self._filter_METHOD( 'filter',
3148
+ begin
3149
+ if @global_lisp_binding.has_key?('_filter') then
3150
+ trampCall(@_filter)
3151
+ else raise NameError.new( "Error: undefined variable filter", "filter" ) end
3152
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:261"] + __e.backtrace ) ; raise __e
3153
+ end ,
3154
+ [
3155
+ Proc.new { |_x|
3156
+ begin
3157
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 263 );
3158
+ __EQMARK(
3159
+ begin
3160
+ trampCall(_number)
3161
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:263"] + __e.backtrace ) ; raise __e
3162
+ end ,
3163
+ begin
3164
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 263 );
3165
+ trampCall( self._fifth_METHOD( 'fifth',
3166
+ begin
3167
+ if @global_lisp_binding.has_key?('_fifth') then
3168
+ trampCall(@_fifth)
3169
+ else raise NameError.new( "Error: undefined variable fifth", "fifth" ) end
3170
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:263"] + __e.backtrace ) ; raise __e
3171
+ end ,
3172
+ [
3173
+ begin
3174
+ trampCall(_x)
3175
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:263"] + __e.backtrace ) ; raise __e
3176
+ end
3177
+ ]
3178
+ ))
3179
+ end
3180
+ )
3181
+ end
3182
+ } ,
3183
+ begin
3184
+ trampCall(_stowed_MIMARKlist)
3185
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:264"] + __e.backtrace ) ; raise __e
3186
+ end
3187
+ ]
3188
+ ))
3189
+ end
3190
+ )
3191
+ end
3192
+ }
3193
+ )
3194
+ end
3195
+ )
3196
+ #--------------------
3197
+
3198
+ trampCall(
3199
+ begin #execFunc
3200
+ def self._action_MIMARKby_MIMARKkeyword_MIMARKnum_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_action_MIMARKby_MIMARKkeyword_MIMARKnum', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3201
+ @global_lisp_binding['_action_MIMARKby_MIMARKkeyword_MIMARKnum'] = self.method( :_action_MIMARKby_MIMARKkeyword_MIMARKnum_METHOD )
3202
+ @_action_MIMARKby_MIMARKkeyword_MIMARKnum =
3203
+ trampCall(
3204
+ Proc.new { |_env,_keyword,_number,_stowed_MIMARKlist|
3205
+ begin #makeLet
3206
+ ___lambda = lambda { |_delete_MIMARKaction|
3207
+ begin #makeLet
3208
+ ___lambda = lambda { |_found|
3209
+ if (
3210
+ begin
3211
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 300 );
3212
+ _null_QUMARK(
3213
+ begin
3214
+ trampCall(_found)
3215
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:300"] + __e.backtrace ) ; raise __e
3216
+ end
3217
+ )
3218
+ end
3219
+ ) then
3220
+ begin #makeBegin
3221
+ begin
3222
+ trampCall(STDERR).printf(
3223
+ "Error: selected number [%d] was not found...
3224
+ " ,
3225
+ begin
3226
+ trampCall(_number)
3227
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:302"] + __e.backtrace ) ; raise __e
3228
+ end
3229
+ )
3230
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:302"] + __e.backtrace ) ; raise __e
3231
+ end
3232
+ begin
3233
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 303 );
3234
+ delayCall( '_exit', 'exit',
3235
+ begin
3236
+ if @global_lisp_binding.has_key?('_exit') then
3237
+ trampCall(@_exit)
3238
+ else raise NameError.new( "Error: undefined variable exit", "exit" ) end
3239
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:303"] + __e.backtrace ) ; raise __e
3240
+ end ,
3241
+ [
3242
+ 1
3243
+ ]
3244
+ )
3245
+ end
3246
+ end
3247
+ else
3248
+ begin #makeLet
3249
+ ___lambda = lambda { |_dirname|
3250
+ begin #makeLet
3251
+ ___lambda = lambda { |_basename|
3252
+ begin #makeLet
3253
+ ___lambda = lambda { |_tree|
3254
+ begin #makeLet
3255
+ ___lambda = lambda { |_selection|
3256
+ begin #makeLet
3257
+ ___lambda = lambda { |_delete_MIMARKitem,_restow_MIMARKitem|
3258
+ if (
3259
+ begin
3260
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 324 );
3261
+ _null_QUMARK(
3262
+ begin
3263
+ trampCall(_restow_MIMARKitem)
3264
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:324"] + __e.backtrace ) ; raise __e
3265
+ end
3266
+ )
3267
+ end
3268
+ ) then
3269
+ begin #makeBegin
3270
+ begin
3271
+ trampCall(STDERR).printf(
3272
+ "Error: selected number [%d] was not installed yet.
3273
+ " ,
3274
+ begin
3275
+ trampCall(_number)
3276
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:325"] + __e.backtrace ) ; raise __e
3277
+ end
3278
+ )
3279
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:325"] + __e.backtrace ) ; raise __e
3280
+ end
3281
+ begin
3282
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 326 );
3283
+ delayCall( '_exit', 'exit',
3284
+ begin
3285
+ if @global_lisp_binding.has_key?('_exit') then
3286
+ trampCall(@_exit)
3287
+ else raise NameError.new( "Error: undefined variable exit", "exit" ) end
3288
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:326"] + __e.backtrace ) ; raise __e
3289
+ end ,
3290
+ [
3291
+ 1
3292
+ ]
3293
+ )
3294
+ end
3295
+ end
3296
+ else
3297
+ if (
3298
+ begin
3299
+ trampCall(_delete_MIMARKaction)
3300
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:327"] + __e.backtrace ) ; raise __e
3301
+ end
3302
+ ) then
3303
+ begin #makeLet
3304
+ ___lambda = lambda { |_lst|
3305
+ begin
3306
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 329 );
3307
+ delayCall( '_display_MIMARKlist', 'display-list',
3308
+ begin
3309
+ if @global_lisp_binding.has_key?('_display_MIMARKlist') then
3310
+ trampCall(@_display_MIMARKlist)
3311
+ else raise NameError.new( "Error: undefined variable display-list", "display-list" ) end
3312
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:329"] + __e.backtrace ) ; raise __e
3313
+ end ,
3314
+ [
3315
+ begin
3316
+ trampCall(_lst)
3317
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:329"] + __e.backtrace ) ; raise __e
3318
+ end ,
3319
+ begin
3320
+ trampCall(_basename)
3321
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:329"] + __e.backtrace ) ; raise __e
3322
+ end
3323
+ ]
3324
+ )
3325
+ end
3326
+ } ; ___lambda.call(
3327
+ begin
3328
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 328 );
3329
+ trampCall( self._stowm_MIMARKrestow_METHOD( 'stowm-restow',
3330
+ begin
3331
+ if @global_lisp_binding.has_key?('_stowm_MIMARKrestow') then
3332
+ trampCall(@_stowm_MIMARKrestow)
3333
+ else raise NameError.new( "Error: undefined variable stowm-restow", "stowm-restow" ) end
3334
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:328"] + __e.backtrace ) ; raise __e
3335
+ end ,
3336
+ [
3337
+ begin
3338
+ trampCall(_env)
3339
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:328"] + __e.backtrace ) ; raise __e
3340
+ end ,
3341
+ begin
3342
+ trampCall(_delete_MIMARKitem)
3343
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:328"] + __e.backtrace ) ; raise __e
3344
+ end ,
3345
+ Cell.new()
3346
+ ]
3347
+ ))
3348
+ end
3349
+ )
3350
+ end
3351
+ else
3352
+ if (
3353
+ begin
3354
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 330 );
3355
+ _equal_QUMARK(
3356
+ begin
3357
+ trampCall(_delete_MIMARKitem)
3358
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:330"] + __e.backtrace ) ; raise __e
3359
+ end ,
3360
+ begin
3361
+ trampCall(_restow_MIMARKitem)
3362
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:330"] + __e.backtrace ) ; raise __e
3363
+ end
3364
+ )
3365
+ end
3366
+ ) then
3367
+ begin #makeBegin
3368
+ begin
3369
+ trampCall(STDERR).printf(
3370
+ "Info: restow [%s].
3371
+ " ,
3372
+ begin
3373
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 331 );
3374
+ _car(
3375
+ begin
3376
+ trampCall(_restow_MIMARKitem)
3377
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:331"] + __e.backtrace ) ; raise __e
3378
+ end
3379
+ )
3380
+ end
3381
+ )
3382
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:331"] + __e.backtrace ) ; raise __e
3383
+ end
3384
+ begin #makeLet
3385
+ ___lambda = lambda { |_lst|
3386
+ begin
3387
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 333 );
3388
+ delayCall( '_display_MIMARKlist', 'display-list',
3389
+ begin
3390
+ if @global_lisp_binding.has_key?('_display_MIMARKlist') then
3391
+ trampCall(@_display_MIMARKlist)
3392
+ else raise NameError.new( "Error: undefined variable display-list", "display-list" ) end
3393
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:333"] + __e.backtrace ) ; raise __e
3394
+ end ,
3395
+ [
3396
+ begin
3397
+ trampCall(_lst)
3398
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:333"] + __e.backtrace ) ; raise __e
3399
+ end ,
3400
+ begin
3401
+ trampCall(_basename)
3402
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:333"] + __e.backtrace ) ; raise __e
3403
+ end
3404
+ ]
3405
+ )
3406
+ end
3407
+ } ; ___lambda.call(
3408
+ begin
3409
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 332 );
3410
+ trampCall( self._stowm_MIMARKrestow_METHOD( 'stowm-restow',
3411
+ begin
3412
+ if @global_lisp_binding.has_key?('_stowm_MIMARKrestow') then
3413
+ trampCall(@_stowm_MIMARKrestow)
3414
+ else raise NameError.new( "Error: undefined variable stowm-restow", "stowm-restow" ) end
3415
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:332"] + __e.backtrace ) ; raise __e
3416
+ end ,
3417
+ [
3418
+ begin
3419
+ trampCall(_env)
3420
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:332"] + __e.backtrace ) ; raise __e
3421
+ end ,
3422
+ begin
3423
+ trampCall(_delete_MIMARKitem)
3424
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:332"] + __e.backtrace ) ; raise __e
3425
+ end ,
3426
+ begin
3427
+ trampCall(_restow_MIMARKitem)
3428
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:332"] + __e.backtrace ) ; raise __e
3429
+ end
3430
+ ]
3431
+ ))
3432
+ end
3433
+ )
3434
+ end
3435
+ end
3436
+ else
3437
+ if (
3438
+ true
3439
+ ) then
3440
+ begin #makeLet
3441
+ ___lambda = lambda { |_lst|
3442
+ begin
3443
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 336 );
3444
+ delayCall( '_display_MIMARKlist', 'display-list',
3445
+ begin
3446
+ if @global_lisp_binding.has_key?('_display_MIMARKlist') then
3447
+ trampCall(@_display_MIMARKlist)
3448
+ else raise NameError.new( "Error: undefined variable display-list", "display-list" ) end
3449
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:336"] + __e.backtrace ) ; raise __e
3450
+ end ,
3451
+ [
3452
+ begin
3453
+ trampCall(_lst)
3454
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:336"] + __e.backtrace ) ; raise __e
3455
+ end ,
3456
+ begin
3457
+ trampCall(_basename)
3458
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:336"] + __e.backtrace ) ; raise __e
3459
+ end
3460
+ ]
3461
+ )
3462
+ end
3463
+ } ; ___lambda.call(
3464
+ begin
3465
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 335 );
3466
+ trampCall( self._stowm_MIMARKrestow_METHOD( 'stowm-restow',
3467
+ begin
3468
+ if @global_lisp_binding.has_key?('_stowm_MIMARKrestow') then
3469
+ trampCall(@_stowm_MIMARKrestow)
3470
+ else raise NameError.new( "Error: undefined variable stowm-restow", "stowm-restow" ) end
3471
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:335"] + __e.backtrace ) ; raise __e
3472
+ end ,
3473
+ [
3474
+ begin
3475
+ trampCall(_env)
3476
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:335"] + __e.backtrace ) ; raise __e
3477
+ end ,
3478
+ begin
3479
+ trampCall(_delete_MIMARKitem)
3480
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:335"] + __e.backtrace ) ; raise __e
3481
+ end ,
3482
+ begin
3483
+ trampCall(_restow_MIMARKitem)
3484
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:335"] + __e.backtrace ) ; raise __e
3485
+ end
3486
+ ]
3487
+ ))
3488
+ end
3489
+ )
3490
+ end
3491
+ else
3492
+ Cell.new()
3493
+ end
3494
+ end
3495
+ end
3496
+ end
3497
+ } ; ___lambda.call(
3498
+ begin
3499
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 309 );
3500
+ trampCall( self._filter_MIMARKmap_METHOD( 'filter-map',
3501
+ begin
3502
+ if @global_lisp_binding.has_key?('_filter_MIMARKmap') then
3503
+ trampCall(@_filter_MIMARKmap)
3504
+ else raise NameError.new( "Error: undefined variable filter-map", "filter-map" ) end
3505
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:309"] + __e.backtrace ) ; raise __e
3506
+ end ,
3507
+ [
3508
+ Proc.new { |_x|
3509
+ if (
3510
+ begin
3511
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 311 );
3512
+ __EQMARK(
3513
+ :"e" ,
3514
+ begin
3515
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 311 );
3516
+ trampCall( self._second_METHOD( 'second',
3517
+ begin
3518
+ if @global_lisp_binding.has_key?('_second') then
3519
+ trampCall(@_second)
3520
+ else raise NameError.new( "Error: undefined variable second", "second" ) end
3521
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:311"] + __e.backtrace ) ; raise __e
3522
+ end ,
3523
+ [
3524
+ begin
3525
+ trampCall(_x)
3526
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:311"] + __e.backtrace ) ; raise __e
3527
+ end
3528
+ ]
3529
+ ))
3530
+ end
3531
+ )
3532
+ end
3533
+ ) then
3534
+ begin
3535
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 312 );
3536
+ _car(
3537
+ begin
3538
+ trampCall(_x)
3539
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:312"] + __e.backtrace ) ; raise __e
3540
+ end
3541
+ )
3542
+ end
3543
+ else
3544
+ nil
3545
+ end
3546
+ } ,
3547
+ begin
3548
+ trampCall(_selection)
3549
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:314"] + __e.backtrace ) ; raise __e
3550
+ end
3551
+ ]
3552
+ ))
3553
+ end ,
3554
+ begin
3555
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 316 );
3556
+ trampCall( self._filter_MIMARKmap_METHOD( 'filter-map',
3557
+ begin
3558
+ if @global_lisp_binding.has_key?('_filter_MIMARKmap') then
3559
+ trampCall(@_filter_MIMARKmap)
3560
+ else raise NameError.new( "Error: undefined variable filter-map", "filter-map" ) end
3561
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:316"] + __e.backtrace ) ; raise __e
3562
+ end ,
3563
+ [
3564
+ Proc.new { |_x|
3565
+ if (
3566
+ if (
3567
+ begin
3568
+ embedBacktraceInfo( "", 1 );
3569
+ _not(
3570
+ begin
3571
+ embedBacktraceInfo( "", 1 );
3572
+ _eq_QUMARK(
3573
+ false ,
3574
+ begin
3575
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 318 );
3576
+ __EQMARK(
3577
+ :"i" ,
3578
+ begin
3579
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 318 );
3580
+ trampCall( self._third_METHOD( 'third',
3581
+ begin
3582
+ if @global_lisp_binding.has_key?('_third') then
3583
+ trampCall(@_third)
3584
+ else raise NameError.new( "Error: undefined variable third", "third" ) end
3585
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:318"] + __e.backtrace ) ; raise __e
3586
+ end ,
3587
+ [
3588
+ begin
3589
+ trampCall(_x)
3590
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:318"] + __e.backtrace ) ; raise __e
3591
+ end
3592
+ ]
3593
+ ))
3594
+ end
3595
+ )
3596
+ end
3597
+ )
3598
+ end
3599
+ )
3600
+ end
3601
+ ) then
3602
+ begin
3603
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 319 );
3604
+ __EQMARK(
3605
+ begin
3606
+ trampCall(_number)
3607
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:319"] + __e.backtrace ) ; raise __e
3608
+ end ,
3609
+ begin
3610
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 319 );
3611
+ trampCall( self._fifth_METHOD( 'fifth',
3612
+ begin
3613
+ if @global_lisp_binding.has_key?('_fifth') then
3614
+ trampCall(@_fifth)
3615
+ else raise NameError.new( "Error: undefined variable fifth", "fifth" ) end
3616
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:319"] + __e.backtrace ) ; raise __e
3617
+ end ,
3618
+ [
3619
+ begin
3620
+ trampCall(_x)
3621
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:319"] + __e.backtrace ) ; raise __e
3622
+ end
3623
+ ]
3624
+ ))
3625
+ end
3626
+ )
3627
+ end
3628
+ else
3629
+ false
3630
+ end
3631
+ ) then
3632
+ begin
3633
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 320 );
3634
+ _car(
3635
+ begin
3636
+ trampCall(_x)
3637
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:320"] + __e.backtrace ) ; raise __e
3638
+ end
3639
+ )
3640
+ end
3641
+ else
3642
+ nil
3643
+ end
3644
+ } ,
3645
+ begin
3646
+ trampCall(_selection)
3647
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:322"] + __e.backtrace ) ; raise __e
3648
+ end
3649
+ ]
3650
+ ))
3651
+ end
3652
+ )
3653
+ end
3654
+ } ; ___lambda.call(
3655
+ begin
3656
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 307 );
3657
+ trampCall( self._assv_MIMARKref_METHOD( 'assv-ref',
3658
+ begin
3659
+ if @global_lisp_binding.has_key?('_assv_MIMARKref') then
3660
+ trampCall(@_assv_MIMARKref)
3661
+ else raise NameError.new( "Error: undefined variable assv-ref", "assv-ref" ) end
3662
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:307"] + __e.backtrace ) ; raise __e
3663
+ end ,
3664
+ [
3665
+ begin
3666
+ trampCall(_basename)
3667
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:307"] + __e.backtrace ) ; raise __e
3668
+ end ,
3669
+ begin
3670
+ trampCall(_tree)
3671
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:307"] + __e.backtrace ) ; raise __e
3672
+ end
3673
+ ]
3674
+ ))
3675
+ end
3676
+ )
3677
+ end
3678
+ } ; ___lambda.call(
3679
+ begin
3680
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 306 );
3681
+ trampCall( self._stowed_MIMARKlist_MIMARKto_MIMARKtree_METHOD( 'stowed-list-to-tree',
3682
+ begin
3683
+ if @global_lisp_binding.has_key?('_stowed_MIMARKlist_MIMARKto_MIMARKtree') then
3684
+ trampCall(@_stowed_MIMARKlist_MIMARKto_MIMARKtree)
3685
+ else raise NameError.new( "Error: undefined variable stowed-list-to-tree", "stowed-list-to-tree" ) end
3686
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:306"] + __e.backtrace ) ; raise __e
3687
+ end ,
3688
+ [
3689
+ begin
3690
+ trampCall(_stowed_MIMARKlist)
3691
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:306"] + __e.backtrace ) ; raise __e
3692
+ end
3693
+ ]
3694
+ ))
3695
+ end
3696
+ )
3697
+ end
3698
+ } ; ___lambda.call(
3699
+ begin
3700
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 305 );
3701
+ _car(
3702
+ begin
3703
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 305 );
3704
+ trampCall( self._stowm_MIMARKsplit_MIMARKfilename_METHOD( 'stowm-split-filename',
3705
+ begin
3706
+ if @global_lisp_binding.has_key?('_stowm_MIMARKsplit_MIMARKfilename') then
3707
+ trampCall(@_stowm_MIMARKsplit_MIMARKfilename)
3708
+ else raise NameError.new( "Error: undefined variable stowm-split-filename", "stowm-split-filename" ) end
3709
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:305"] + __e.backtrace ) ; raise __e
3710
+ end ,
3711
+ [
3712
+ begin
3713
+ trampCall(_dirname)
3714
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:305"] + __e.backtrace ) ; raise __e
3715
+ end
3716
+ ]
3717
+ ))
3718
+ end
3719
+ )
3720
+ end
3721
+ )
3722
+ end
3723
+ } ; ___lambda.call(
3724
+ begin
3725
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 304 );
3726
+ trampCall( self._caar_METHOD( 'caar',
3727
+ begin
3728
+ if @global_lisp_binding.has_key?('_caar') then
3729
+ trampCall(@_caar)
3730
+ else raise NameError.new( "Error: undefined variable caar", "caar" ) end
3731
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:304"] + __e.backtrace ) ; raise __e
3732
+ end ,
3733
+ [
3734
+ begin
3735
+ trampCall(_found)
3736
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:304"] + __e.backtrace ) ; raise __e
3737
+ end
3738
+ ]
3739
+ ))
3740
+ end
3741
+ )
3742
+ end
3743
+ end
3744
+ } ; ___lambda.call(
3745
+ begin
3746
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 296 );
3747
+ trampCall( self._filter_METHOD( 'filter',
3748
+ begin
3749
+ if @global_lisp_binding.has_key?('_filter') then
3750
+ trampCall(@_filter)
3751
+ else raise NameError.new( "Error: undefined variable filter", "filter" ) end
3752
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:296"] + __e.backtrace ) ; raise __e
3753
+ end ,
3754
+ [
3755
+ Proc.new { |_x|
3756
+ begin
3757
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 298 );
3758
+ __EQMARK(
3759
+ begin
3760
+ trampCall(_number)
3761
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:298"] + __e.backtrace ) ; raise __e
3762
+ end ,
3763
+ begin
3764
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 298 );
3765
+ trampCall( self._fifth_METHOD( 'fifth',
3766
+ begin
3767
+ if @global_lisp_binding.has_key?('_fifth') then
3768
+ trampCall(@_fifth)
3769
+ else raise NameError.new( "Error: undefined variable fifth", "fifth" ) end
3770
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:298"] + __e.backtrace ) ; raise __e
3771
+ end ,
3772
+ [
3773
+ begin
3774
+ trampCall(_x)
3775
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:298"] + __e.backtrace ) ; raise __e
3776
+ end
3777
+ ]
3778
+ ))
3779
+ end
3780
+ )
3781
+ end
3782
+ } ,
3783
+ begin
3784
+ trampCall(_stowed_MIMARKlist)
3785
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:299"] + __e.backtrace ) ; raise __e
3786
+ end
3787
+ ]
3788
+ ))
3789
+ end
3790
+ )
3791
+ end
3792
+ } ; ___lambda.call(
3793
+ begin
3794
+ embedBacktraceInfo( "./lib/stowm/main.nnd", 291 );
3795
+ trampCall( self._eqv_QUMARK_METHOD( 'eqv?',
3796
+ begin
3797
+ if @global_lisp_binding.has_key?('_eqv_QUMARK') then
3798
+ trampCall(@_eqv_QUMARK)
3799
+ else raise NameError.new( "Error: undefined variable eqv?", "eqv?" ) end
3800
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:291"] + __e.backtrace ) ; raise __e
3801
+ end ,
3802
+ [
3803
+ :"disable" ,
3804
+ begin
3805
+ trampCall(_keyword)
3806
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:291"] + __e.backtrace ) ; raise __e
3807
+ end
3808
+ ]
3809
+ ))
3810
+ end
3811
+ )
3812
+ end
3813
+ }
3814
+ )
3815
+ end
3816
+ )
3817
+ #--------------------
3818
+
3819
+ trampCall(
3820
+ begin #execFunc
3821
+ def self._uname_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_uname', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3822
+ @global_lisp_binding['_uname'] = self.method( :_uname_METHOD )
3823
+ @_uname =
3824
+ trampCall(
3825
+ begin #makeLet
3826
+ ___lambda = lambda { |_f|
3827
+ begin
3828
+ trampCall(_f).readline.chop
3829
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:340"] + __e.backtrace ) ; raise __e
3830
+ end
3831
+ } ; ___lambda.call(
3832
+ begin
3833
+ trampCall(IO).popen(
3834
+ "uname" ,
3835
+ "r+"
3836
+ )
3837
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/main.nnd:339"] + __e.backtrace ) ; raise __e
3838
+ end
3839
+ )
3840
+ end
3841
+ )
3842
+ end
3843
+ )
3844
+
3845
+
3846
+ # -------------------------------------------------------
3847
+ # [EOF]
3848
+ # -------------------------------------------------------