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,863 @@
1
+ #
2
+ # This file is nendo's compiled library file.
3
+ # generated "nendo -c src" command.
4
+ #
5
+
6
+ trampCall(
7
+ begin
8
+ embedBacktraceInfo( "", 1 );
9
+ delayCall( '_load', 'load',
10
+ begin
11
+ if @global_lisp_binding.has_key?('_load') then
12
+ trampCall(@_load)
13
+ else raise NameError.new( "Error: undefined variable load", "load" ) end
14
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
15
+ end ,
16
+ [
17
+ "srfi-9"
18
+ ]
19
+ )
20
+ end
21
+ )
22
+ #--------------------
23
+
24
+ trampCall(
25
+ begin #makeBegin
26
+ begin #execFunc
27
+ def self.__LTMARKstowm_MIMARKenv_GTMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__LTMARKstowm_MIMARKenv_GTMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
28
+ @global_lisp_binding['__LTMARKstowm_MIMARKenv_GTMARK'] = self.method( :__LTMARKstowm_MIMARKenv_GTMARK_METHOD )
29
+ @__LTMARKstowm_MIMARKenv_GTMARK =
30
+ trampCall(
31
+ begin
32
+ embedBacktraceInfo( "", 1 );
33
+ trampCall( self._make_MIMARKrecord_MIMARKtype_METHOD( 'make-record-type',
34
+ begin
35
+ if @global_lisp_binding.has_key?('_make_MIMARKrecord_MIMARKtype') then
36
+ trampCall(@_make_MIMARKrecord_MIMARKtype)
37
+ else raise NameError.new( "Error: undefined variable make-record-type", "make-record-type" ) end
38
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
39
+ end ,
40
+ [
41
+ :"<stowm-env>" ,
42
+ Cell.new(:"pwd",Cell.new(:"home",Cell.new(:"home-repos",Cell.new(:"stow-home",Cell.new(:"local",Cell.new(:"bin",Cell.new(:"lib",Cell.new(:"temp",Cell.new(:"inifile-path",Cell.new(:"db-path",Cell.new(:"stow-program")))))))))))
43
+ ]
44
+ ))
45
+ end
46
+ )
47
+ end
48
+ begin #execFunc
49
+ def self._stowm_MIMARKenv_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKenv', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
50
+ @global_lisp_binding['_stowm_MIMARKenv'] = self.method( :_stowm_MIMARKenv_METHOD )
51
+ @_stowm_MIMARKenv =
52
+ trampCall(
53
+ begin
54
+ embedBacktraceInfo( "", 1 );
55
+ trampCall( self._record_MIMARKconstructor_METHOD( 'record-constructor',
56
+ begin
57
+ if @global_lisp_binding.has_key?('_record_MIMARKconstructor') then
58
+ trampCall(@_record_MIMARKconstructor)
59
+ else raise NameError.new( "Error: undefined variable record-constructor", "record-constructor" ) end
60
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
61
+ end ,
62
+ [
63
+ begin
64
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
65
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
66
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
67
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
68
+ end ,
69
+ Cell.new(:"pwd",Cell.new(:"home",Cell.new(:"home-repos",Cell.new(:"stow-home",Cell.new(:"local",Cell.new(:"bin",Cell.new(:"lib",Cell.new(:"temp",Cell.new(:"inifile-path",Cell.new(:"db-path",Cell.new(:"stow-program")))))))))))
70
+ ]
71
+ ))
72
+ end
73
+ )
74
+ end
75
+ begin #execFunc
76
+ def self._stowm_MIMARKenv_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKenv_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
77
+ @global_lisp_binding['_stowm_MIMARKenv_QUMARK'] = self.method( :_stowm_MIMARKenv_QUMARK_METHOD )
78
+ @_stowm_MIMARKenv_QUMARK =
79
+ trampCall(
80
+ begin
81
+ embedBacktraceInfo( "", 1 );
82
+ trampCall( self._record_MIMARKpredicate_METHOD( 'record-predicate',
83
+ begin
84
+ if @global_lisp_binding.has_key?('_record_MIMARKpredicate') then
85
+ trampCall(@_record_MIMARKpredicate)
86
+ else raise NameError.new( "Error: undefined variable record-predicate", "record-predicate" ) end
87
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
88
+ end ,
89
+ [
90
+ begin
91
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
92
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
93
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
94
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
95
+ end
96
+ ]
97
+ ))
98
+ end
99
+ )
100
+ end
101
+ begin #execFunc
102
+ def self._pwd_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_pwd', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
103
+ @global_lisp_binding['_pwd'] = self.method( :_pwd_METHOD )
104
+ @_pwd =
105
+ trampCall(
106
+ begin
107
+ embedBacktraceInfo( "", 1 );
108
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
109
+ begin
110
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
111
+ trampCall(@_record_MIMARKaccessor)
112
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
113
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
114
+ end ,
115
+ [
116
+ begin
117
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
118
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
119
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
120
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
121
+ end ,
122
+ :"pwd"
123
+ ]
124
+ ))
125
+ end
126
+ )
127
+ end
128
+ begin #execFunc
129
+ def self._home_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_home', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
130
+ @global_lisp_binding['_home'] = self.method( :_home_METHOD )
131
+ @_home =
132
+ trampCall(
133
+ begin
134
+ embedBacktraceInfo( "", 1 );
135
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
136
+ begin
137
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
138
+ trampCall(@_record_MIMARKaccessor)
139
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
140
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
141
+ end ,
142
+ [
143
+ begin
144
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
145
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
146
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
147
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
148
+ end ,
149
+ :"home"
150
+ ]
151
+ ))
152
+ end
153
+ )
154
+ end
155
+ begin #execFunc
156
+ def self._home_MIMARKrepos_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_home_MIMARKrepos', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
157
+ @global_lisp_binding['_home_MIMARKrepos'] = self.method( :_home_MIMARKrepos_METHOD )
158
+ @_home_MIMARKrepos =
159
+ trampCall(
160
+ begin
161
+ embedBacktraceInfo( "", 1 );
162
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
163
+ begin
164
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
165
+ trampCall(@_record_MIMARKaccessor)
166
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
167
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
168
+ end ,
169
+ [
170
+ begin
171
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
172
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
173
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
174
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
175
+ end ,
176
+ :"home-repos"
177
+ ]
178
+ ))
179
+ end
180
+ )
181
+ end
182
+ begin #execFunc
183
+ def self._stow_MIMARKhome_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stow_MIMARKhome', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
184
+ @global_lisp_binding['_stow_MIMARKhome'] = self.method( :_stow_MIMARKhome_METHOD )
185
+ @_stow_MIMARKhome =
186
+ trampCall(
187
+ begin
188
+ embedBacktraceInfo( "", 1 );
189
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
190
+ begin
191
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
192
+ trampCall(@_record_MIMARKaccessor)
193
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
194
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
195
+ end ,
196
+ [
197
+ begin
198
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
199
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
200
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
201
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
202
+ end ,
203
+ :"stow-home"
204
+ ]
205
+ ))
206
+ end
207
+ )
208
+ end
209
+ begin #execFunc
210
+ def self._local_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_local', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
211
+ @global_lisp_binding['_local'] = self.method( :_local_METHOD )
212
+ @_local =
213
+ trampCall(
214
+ begin
215
+ embedBacktraceInfo( "", 1 );
216
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
217
+ begin
218
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
219
+ trampCall(@_record_MIMARKaccessor)
220
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
221
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
222
+ end ,
223
+ [
224
+ begin
225
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
226
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
227
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
228
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
229
+ end ,
230
+ :"local"
231
+ ]
232
+ ))
233
+ end
234
+ )
235
+ end
236
+ begin #execFunc
237
+ def self._bin_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_bin', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
238
+ @global_lisp_binding['_bin'] = self.method( :_bin_METHOD )
239
+ @_bin =
240
+ trampCall(
241
+ begin
242
+ embedBacktraceInfo( "", 1 );
243
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
244
+ begin
245
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
246
+ trampCall(@_record_MIMARKaccessor)
247
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
248
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
249
+ end ,
250
+ [
251
+ begin
252
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
253
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
254
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
255
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
256
+ end ,
257
+ :"bin"
258
+ ]
259
+ ))
260
+ end
261
+ )
262
+ end
263
+ begin #execFunc
264
+ def self._lib_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_lib', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
265
+ @global_lisp_binding['_lib'] = self.method( :_lib_METHOD )
266
+ @_lib =
267
+ trampCall(
268
+ begin
269
+ embedBacktraceInfo( "", 1 );
270
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
271
+ begin
272
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
273
+ trampCall(@_record_MIMARKaccessor)
274
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
275
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
276
+ end ,
277
+ [
278
+ begin
279
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
280
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
281
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
282
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
283
+ end ,
284
+ :"lib"
285
+ ]
286
+ ))
287
+ end
288
+ )
289
+ end
290
+ begin #execFunc
291
+ def self._temp_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_temp', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
292
+ @global_lisp_binding['_temp'] = self.method( :_temp_METHOD )
293
+ @_temp =
294
+ trampCall(
295
+ begin
296
+ embedBacktraceInfo( "", 1 );
297
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
298
+ begin
299
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
300
+ trampCall(@_record_MIMARKaccessor)
301
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
302
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
303
+ end ,
304
+ [
305
+ begin
306
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
307
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
308
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
309
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
310
+ end ,
311
+ :"temp"
312
+ ]
313
+ ))
314
+ end
315
+ )
316
+ end
317
+ begin #execFunc
318
+ def self._inifile_MIMARKpath_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_inifile_MIMARKpath', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
319
+ @global_lisp_binding['_inifile_MIMARKpath'] = self.method( :_inifile_MIMARKpath_METHOD )
320
+ @_inifile_MIMARKpath =
321
+ trampCall(
322
+ begin
323
+ embedBacktraceInfo( "", 1 );
324
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
325
+ begin
326
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
327
+ trampCall(@_record_MIMARKaccessor)
328
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
329
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
330
+ end ,
331
+ [
332
+ begin
333
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
334
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
335
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
336
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
337
+ end ,
338
+ :"inifile-path"
339
+ ]
340
+ ))
341
+ end
342
+ )
343
+ end
344
+ begin #execFunc
345
+ def self._db_MIMARKpath_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_db_MIMARKpath', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
346
+ @global_lisp_binding['_db_MIMARKpath'] = self.method( :_db_MIMARKpath_METHOD )
347
+ @_db_MIMARKpath =
348
+ trampCall(
349
+ begin
350
+ embedBacktraceInfo( "", 1 );
351
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
352
+ begin
353
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
354
+ trampCall(@_record_MIMARKaccessor)
355
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
356
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
357
+ end ,
358
+ [
359
+ begin
360
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
361
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
362
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
363
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
364
+ end ,
365
+ :"db-path"
366
+ ]
367
+ ))
368
+ end
369
+ )
370
+ end
371
+ begin #execFunc
372
+ def self._stow_MIMARKprogram_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stow_MIMARKprogram', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
373
+ @global_lisp_binding['_stow_MIMARKprogram'] = self.method( :_stow_MIMARKprogram_METHOD )
374
+ @_stow_MIMARKprogram =
375
+ trampCall(
376
+ begin
377
+ embedBacktraceInfo( "", 1 );
378
+ trampCall( self._record_MIMARKaccessor_METHOD( 'record-accessor',
379
+ begin
380
+ if @global_lisp_binding.has_key?('_record_MIMARKaccessor') then
381
+ trampCall(@_record_MIMARKaccessor)
382
+ else raise NameError.new( "Error: undefined variable record-accessor", "record-accessor" ) end
383
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
384
+ end ,
385
+ [
386
+ begin
387
+ if @global_lisp_binding.has_key?('__LTMARKstowm_MIMARKenv_GTMARK') then
388
+ trampCall(@__LTMARKstowm_MIMARKenv_GTMARK)
389
+ else raise NameError.new( "Error: undefined variable <stowm-env>", "<stowm-env>" ) end
390
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:6"] + __e.backtrace ) ; raise __e
391
+ end ,
392
+ :"stow-program"
393
+ ]
394
+ ))
395
+ end
396
+ )
397
+ end
398
+ end
399
+ )
400
+ #--------------------
401
+
402
+ trampCall(
403
+ begin #execFunc
404
+ def self._stowm_MIMARKget_MIMARKdefault_MIMARKenv_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKget_MIMARKdefault_MIMARKenv', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
405
+ @global_lisp_binding['_stowm_MIMARKget_MIMARKdefault_MIMARKenv'] = self.method( :_stowm_MIMARKget_MIMARKdefault_MIMARKenv_METHOD )
406
+ @_stowm_MIMARKget_MIMARKdefault_MIMARKenv =
407
+ trampCall(
408
+ Proc.new { ||
409
+ begin
410
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 23 );
411
+ delayCall( '_stowm_MIMARKenv', 'stowm-env',
412
+ begin
413
+ if @global_lisp_binding.has_key?('_stowm_MIMARKenv') then
414
+ trampCall(@_stowm_MIMARKenv)
415
+ else raise NameError.new( "Error: undefined variable stowm-env", "stowm-env" ) end
416
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:23"] + __e.backtrace ) ; raise __e
417
+ end ,
418
+ [
419
+ begin
420
+ trampCall(ENV).fetch(
421
+ "PWD"
422
+ )
423
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:24"] + __e.backtrace ) ; raise __e
424
+ end ,
425
+ begin
426
+ trampCall(ENV).fetch(
427
+ "HOME"
428
+ )
429
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:25"] + __e.backtrace ) ; raise __e
430
+ end ,
431
+ begin
432
+ trampCall(File).expand_path(
433
+ "~/stowm"
434
+ )
435
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:26"] + __e.backtrace ) ; raise __e
436
+ end ,
437
+ "/usr/local/stow" ,
438
+ "/usr/local" ,
439
+ "/usr/local/bin" ,
440
+ "/usr/local/lib" ,
441
+ "/tmp/stowm" ,
442
+ begin
443
+ trampCall(File).expand_path(
444
+ "~/.stowm"
445
+ )
446
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:32"] + __e.backtrace ) ; raise __e
447
+ end ,
448
+ begin
449
+ trampCall(File).expand_path(
450
+ "~/.stowm.db"
451
+ )
452
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:33"] + __e.backtrace ) ; raise __e
453
+ end ,
454
+ begin #makeLet
455
+ ___lambda = lambda { |_lst|
456
+ if (
457
+ begin
458
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 44 );
459
+ (
460
+ 0 <
461
+ begin
462
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 44 );
463
+ _length(
464
+ begin
465
+ trampCall(_lst)
466
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:44"] + __e.backtrace ) ; raise __e
467
+ end
468
+ )
469
+ end
470
+ )
471
+ end
472
+ ) then
473
+ begin
474
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 45 );
475
+ trampCall( self._caar_METHOD( 'caar',
476
+ begin
477
+ if @global_lisp_binding.has_key?('_caar') then
478
+ trampCall(@_caar)
479
+ else raise NameError.new( "Error: undefined variable caar", "caar" ) end
480
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:45"] + __e.backtrace ) ; raise __e
481
+ end ,
482
+ [
483
+ begin
484
+ trampCall(_lst)
485
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:45"] + __e.backtrace ) ; raise __e
486
+ end
487
+ ]
488
+ ))
489
+ end
490
+ else
491
+ false
492
+ end
493
+ } ; ___lambda.call(
494
+ begin
495
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 35 );
496
+ trampCall( self._filter_MIMARKmap_METHOD( 'filter-map',
497
+ begin
498
+ if @global_lisp_binding.has_key?('_filter_MIMARKmap') then
499
+ trampCall(@_filter_MIMARKmap)
500
+ else raise NameError.new( "Error: undefined variable filter-map", "filter-map" ) end
501
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:35"] + __e.backtrace ) ; raise __e
502
+ end ,
503
+ [
504
+ Proc.new { |_x|
505
+ begin #makeLet
506
+ ___lambda = lambda { |_path1,_path2|
507
+ if (
508
+ begin
509
+ trampCall(File).exist?(
510
+ begin
511
+ trampCall(_path1)
512
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:39"] + __e.backtrace ) ; raise __e
513
+ end
514
+ )
515
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:39"] + __e.backtrace ) ; raise __e
516
+ end
517
+ ) then
518
+ begin
519
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 40 );
520
+ _cons(
521
+ begin
522
+ trampCall(_path1)
523
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:40"] + __e.backtrace ) ; raise __e
524
+ end ,
525
+ begin
526
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 40 );
527
+ _cdr(
528
+ begin
529
+ trampCall(_x)
530
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:40"] + __e.backtrace ) ; raise __e
531
+ end
532
+ )
533
+ end
534
+ )
535
+ end
536
+ else
537
+ if (
538
+ begin
539
+ trampCall(File).exist?(
540
+ begin
541
+ trampCall(_path2)
542
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:41"] + __e.backtrace ) ; raise __e
543
+ end
544
+ )
545
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:41"] + __e.backtrace ) ; raise __e
546
+ end
547
+ ) then
548
+ begin
549
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 42 );
550
+ _cons(
551
+ begin
552
+ trampCall(_path2)
553
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:42"] + __e.backtrace ) ; raise __e
554
+ end ,
555
+ begin
556
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 42 );
557
+ _cdr(
558
+ begin
559
+ trampCall(_x)
560
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:42"] + __e.backtrace ) ; raise __e
561
+ end
562
+ )
563
+ end
564
+ )
565
+ end
566
+ end
567
+ end
568
+ } ; ___lambda.call(
569
+ begin
570
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 37 );
571
+ (
572
+ "/usr/bin/" +
573
+ begin
574
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 37 );
575
+ _car(
576
+ begin
577
+ trampCall(_x)
578
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:37"] + __e.backtrace ) ; raise __e
579
+ end
580
+ )
581
+ end
582
+ )
583
+ end ,
584
+ begin
585
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 38 );
586
+ (
587
+ "/usr/local/bin/" +
588
+ begin
589
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 38 );
590
+ _car(
591
+ begin
592
+ trampCall(_x)
593
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:38"] + __e.backtrace ) ; raise __e
594
+ end
595
+ )
596
+ end
597
+ )
598
+ end
599
+ )
600
+ end
601
+ } ,
602
+ Cell.new(Cell.new("xstow","-f"),Cell.new(Cell.new("stow","")))
603
+ ]
604
+ ))
605
+ end
606
+ )
607
+ end
608
+ ]
609
+ )
610
+ end
611
+ }
612
+ )
613
+ end
614
+ )
615
+ #--------------------
616
+
617
+ trampCall(
618
+ begin #execFunc
619
+ def self._stowm_MIMARKenv_MIMARKto_MIMARKstring_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKenv_MIMARKto_MIMARKstring', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
620
+ @global_lisp_binding['_stowm_MIMARKenv_MIMARKto_MIMARKstring'] = self.method( :_stowm_MIMARKenv_MIMARKto_MIMARKstring_METHOD )
621
+ @_stowm_MIMARKenv_MIMARKto_MIMARKstring =
622
+ trampCall(
623
+ Proc.new { |_env|
624
+ begin
625
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 50 );
626
+ delayCall( '_string_MIMARKjoin', 'string-join',
627
+ begin
628
+ if @global_lisp_binding.has_key?('_string_MIMARKjoin') then
629
+ trampCall(@_string_MIMARKjoin)
630
+ else raise NameError.new( "Error: undefined variable string-join", "string-join" ) end
631
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:50"] + __e.backtrace ) ; raise __e
632
+ end ,
633
+ [
634
+ begin
635
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 51 );
636
+ trampCall( self._map_METHOD( 'map',
637
+ begin
638
+ if @global_lisp_binding.has_key?('_map') then
639
+ trampCall(@_map)
640
+ else raise NameError.new( "Error: undefined variable map", "map" ) end
641
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:51"] + __e.backtrace ) ; raise __e
642
+ end ,
643
+ [
644
+ Proc.new { |_x|
645
+ begin
646
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 53 );
647
+ trampCall( self._sprintf_METHOD( 'sprintf',
648
+ begin
649
+ if @global_lisp_binding.has_key?('_sprintf') then
650
+ trampCall(@_sprintf)
651
+ else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end
652
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:53"] + __e.backtrace ) ; raise __e
653
+ end ,
654
+ [
655
+ " %-20s %-30s" ,
656
+ begin
657
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 53 );
658
+ _car(
659
+ begin
660
+ trampCall(_x)
661
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:53"] + __e.backtrace ) ; raise __e
662
+ end
663
+ )
664
+ end ,
665
+ begin
666
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 53 );
667
+ _cdr(
668
+ begin
669
+ trampCall(_x)
670
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:53"] + __e.backtrace ) ; raise __e
671
+ end
672
+ )
673
+ end
674
+ ]
675
+ ))
676
+ end
677
+ } ,
678
+ begin
679
+ embedBacktraceInfo( "", 1 );
680
+ _cons(
681
+ begin
682
+ embedBacktraceInfo( "", 1 );
683
+ _cons(
684
+ "stow home: " ,
685
+ begin
686
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 55 );
687
+ trampCall( self._stow_MIMARKhome_METHOD( 'stow-home',
688
+ begin
689
+ if @global_lisp_binding.has_key?('_stow_MIMARKhome') then
690
+ trampCall(@_stow_MIMARKhome)
691
+ else raise NameError.new( "Error: undefined variable stow-home", "stow-home" ) end
692
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:55"] + __e.backtrace ) ; raise __e
693
+ end ,
694
+ [
695
+ begin
696
+ trampCall(_env)
697
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:55"] + __e.backtrace ) ; raise __e
698
+ end
699
+ ]
700
+ ))
701
+ end
702
+ )
703
+ end ,
704
+ begin
705
+ embedBacktraceInfo( "", 1 );
706
+ _cons(
707
+ begin
708
+ embedBacktraceInfo( "", 1 );
709
+ _cons(
710
+ "stow program: " ,
711
+ begin
712
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 56 );
713
+ trampCall( self._stow_MIMARKprogram_METHOD( 'stow-program',
714
+ begin
715
+ if @global_lisp_binding.has_key?('_stow_MIMARKprogram') then
716
+ trampCall(@_stow_MIMARKprogram)
717
+ else raise NameError.new( "Error: undefined variable stow-program", "stow-program" ) end
718
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:56"] + __e.backtrace ) ; raise __e
719
+ end ,
720
+ [
721
+ begin
722
+ trampCall(_env)
723
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:56"] + __e.backtrace ) ; raise __e
724
+ end
725
+ ]
726
+ ))
727
+ end
728
+ )
729
+ end ,
730
+ begin
731
+ embedBacktraceInfo( "", 1 );
732
+ _cons(
733
+ begin
734
+ embedBacktraceInfo( "", 1 );
735
+ _cons(
736
+ "stown repository: " ,
737
+ begin
738
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 57 );
739
+ trampCall( self._home_MIMARKrepos_METHOD( 'home-repos',
740
+ begin
741
+ if @global_lisp_binding.has_key?('_home_MIMARKrepos') then
742
+ trampCall(@_home_MIMARKrepos)
743
+ else raise NameError.new( "Error: undefined variable home-repos", "home-repos" ) end
744
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:57"] + __e.backtrace ) ; raise __e
745
+ end ,
746
+ [
747
+ begin
748
+ trampCall(_env)
749
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:57"] + __e.backtrace ) ; raise __e
750
+ end
751
+ ]
752
+ ))
753
+ end
754
+ )
755
+ end ,
756
+ begin
757
+ embedBacktraceInfo( "", 1 );
758
+ _cons(
759
+ begin
760
+ embedBacktraceInfo( "", 1 );
761
+ _cons(
762
+ "stowm rcfile path: " ,
763
+ begin
764
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 58 );
765
+ trampCall( self._inifile_MIMARKpath_METHOD( 'inifile-path',
766
+ begin
767
+ if @global_lisp_binding.has_key?('_inifile_MIMARKpath') then
768
+ trampCall(@_inifile_MIMARKpath)
769
+ else raise NameError.new( "Error: undefined variable inifile-path", "inifile-path" ) end
770
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:58"] + __e.backtrace ) ; raise __e
771
+ end ,
772
+ [
773
+ begin
774
+ trampCall(_env)
775
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:58"] + __e.backtrace ) ; raise __e
776
+ end
777
+ ]
778
+ ))
779
+ end
780
+ )
781
+ end ,
782
+ begin
783
+ embedBacktraceInfo( "", 1 );
784
+ _cons(
785
+ begin
786
+ embedBacktraceInfo( "", 1 );
787
+ _cons(
788
+ "stowm db path: " ,
789
+ begin
790
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 59 );
791
+ trampCall( self._db_MIMARKpath_METHOD( 'db-path',
792
+ begin
793
+ if @global_lisp_binding.has_key?('_db_MIMARKpath') then
794
+ trampCall(@_db_MIMARKpath)
795
+ else raise NameError.new( "Error: undefined variable db-path", "db-path" ) end
796
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:59"] + __e.backtrace ) ; raise __e
797
+ end ,
798
+ [
799
+ begin
800
+ trampCall(_env)
801
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:59"] + __e.backtrace ) ; raise __e
802
+ end
803
+ ]
804
+ ))
805
+ end
806
+ )
807
+ end ,
808
+ begin
809
+ embedBacktraceInfo( "", 1 );
810
+ _cons(
811
+ begin
812
+ embedBacktraceInfo( "", 1 );
813
+ _cons(
814
+ "stowm tmp: " ,
815
+ begin
816
+ embedBacktraceInfo( "./lib/stowm/env.nnd", 60 );
817
+ trampCall( self._temp_METHOD( 'temp',
818
+ begin
819
+ if @global_lisp_binding.has_key?('_temp') then
820
+ trampCall(@_temp)
821
+ else raise NameError.new( "Error: undefined variable temp", "temp" ) end
822
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:60"] + __e.backtrace ) ; raise __e
823
+ end ,
824
+ [
825
+ begin
826
+ trampCall(_env)
827
+ rescue => __e ; __e.set_backtrace( ["./lib/stowm/env.nnd:60"] + __e.backtrace ) ; raise __e
828
+ end
829
+ ]
830
+ ))
831
+ end
832
+ )
833
+ end ,
834
+ Cell.new()
835
+ )
836
+ end
837
+ )
838
+ end
839
+ )
840
+ end
841
+ )
842
+ end
843
+ )
844
+ end
845
+ )
846
+ end
847
+ ]
848
+ ))
849
+ end ,
850
+ "
851
+ "
852
+ ]
853
+ )
854
+ end
855
+ }
856
+ )
857
+ end
858
+ )
859
+
860
+
861
+ # -------------------------------------------------------
862
+ # [EOF]
863
+ # -------------------------------------------------------