# # This file is nendo's compiled library file. # generated “nendo -c src” command. #
trampCall(
begin embedBacktraceInfo( "./lib/stowm/util.nnd", 3 ); delayCall( '_require', 'require', begin if @global_lisp_binding.has_key?('_require') then trampCall(@_require) else raise NameError.new( "Error: undefined variable require", "require" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:3"] + __e.backtrace ) ; raise __e end , [ "digest/sha1" ] ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKregex_MIMARKmatch_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKregex_MIMARKmatch', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKregex_MIMARKmatch'] = self.method( :_stowm_MIMARKregex_MIMARKmatch_METHOD ) @_stowm_MIMARKregex_MIMARKmatch = trampCall( Proc.new { |_regex,_str| begin #makeLet ___lambda = lambda { |_regex| begin #makeLet ___lambda = lambda { |_matchdata| if ( begin trampCall(_matchdata) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:12"] + __e.backtrace ) ; raise __e end ) then begin trampCall(_matchdata).to_a.to_list( ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:13"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/util.nnd", 11 ); trampCall( self._rxmatch_METHOD( 'rxmatch', begin if @global_lisp_binding.has_key?('_rxmatch') then trampCall(@_rxmatch) else raise NameError.new( "Error: undefined variable rxmatch", "rxmatch" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:11"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_regex) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:11"] + __e.backtrace ) ; raise __e end , begin trampCall(_str) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:11"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( if ( begin embedBacktraceInfo( "./lib/stowm/util.nnd", 8 ); trampCall( self._regexp_QUMARK_METHOD( 'regexp?', begin if @global_lisp_binding.has_key?('_regexp_QUMARK') then trampCall(@_regexp_QUMARK) else raise NameError.new( "Error: undefined variable regexp?", "regexp?" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:8"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_regex) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:8"] + __e.backtrace ) ; raise __e end ] )) end ) then begin trampCall(_regex) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:9"] + __e.backtrace ) ; raise __e end else begin embedBacktraceInfo( "./lib/stowm/util.nnd", 10 ); delayCall( '_string_MIMARK_GTMARKregexp', 'string->regexp', begin if @global_lisp_binding.has_key?('_string_MIMARK_GTMARKregexp') then trampCall(@_string_MIMARK_GTMARKregexp) else raise NameError.new( "Error: undefined variable string->regexp", "string->regexp" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:10"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_regex) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:10"] + __e.backtrace ) ; raise __e end ] ) end end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKexec_MIMARKsh_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKexec_MIMARKsh', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKexec_MIMARKsh'] = self.method( :_stowm_MIMARKexec_MIMARKsh_METHOD ) @_stowm_MIMARKexec_MIMARKsh = trampCall( Proc.new { |_script,*__rest__| _disp = __rest__[0] ; begin #makeLet ___lambda = lambda { |_digest| begin #makeLet ___lambda = lambda { |_tmpfile| begin embedBacktraceInfo( "./lib/stowm/util.nnd", 20 ); trampCall( self._with_MIMARKopen_METHOD( 'with-open', begin if @global_lisp_binding.has_key?('_with_MIMARKopen') then trampCall(@_with_MIMARKopen) else raise NameError.new( "Error: undefined variable with-open", "with-open" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:20"] + __e.backtrace ) ; raise __e end , [ begin trampCall(_tmpfile) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:21"] + __e.backtrace ) ; raise __e end , Proc.new { |_f| begin trampCall(_f).puts( begin trampCall(_script) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:23"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:23"] + __e.backtrace ) ; raise __e end } , "w" ] )) end if ( begin embedBacktraceInfo( "./lib/stowm/util.nnd", 25 ); _car( begin trampCall(_disp) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:25"] + __e.backtrace ) ; raise __e end ) end ) then begin embedBacktraceInfo( "./lib/stowm/util.nnd", 25 ); trampCall( self._printf_METHOD( 'printf', begin if @global_lisp_binding.has_key?('_printf') then trampCall(@_printf) else raise NameError.new( "Error: undefined variable printf", "printf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:25"] + __e.backtrace ) ; raise __e end , [ "---BEGIN---(%s)
“ ,
begin trampCall(_tmpfile) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:25"] + __e.backtrace ) ; raise __e end ] )) end end begin trampCall(Kernel).system( begin embedBacktraceInfo( "./lib/stowm/util.nnd", 26 ); ( "bash " + begin trampCall(_tmpfile) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:26"] + __e.backtrace ) ; raise __e end ) end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:26"] + __e.backtrace ) ; raise __e end if ( begin embedBacktraceInfo( "./lib/stowm/util.nnd", 27 ); _car( begin trampCall(_disp) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:27"] + __e.backtrace ) ; raise __e end ) end ) then begin embedBacktraceInfo( "./lib/stowm/util.nnd", 27 ); _print( "---END---" ) end end begin trampCall(File).delete( begin trampCall(_tmpfile) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:28"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:28"] + __e.backtrace ) ; raise __e end } ; ___lambda.call( begin embedBacktraceInfo( "./lib/stowm/util.nnd", 19 ); trampCall( self._sprintf_METHOD( 'sprintf', begin if @global_lisp_binding.has_key?('_sprintf') then trampCall(@_sprintf) else raise NameError.new( "Error: undefined variable sprintf", "sprintf" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:19"] + __e.backtrace ) ; raise __e end , [ "/tmp/stowm_script.%s.sh" , begin trampCall(_digest) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:19"] + __e.backtrace ) ; raise __e end ] )) end ) end } ; ___lambda.call( begin trampCall(Digest::SHA1).hexdigest( begin trampCall(_script) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:18"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:18"] + __e.backtrace ) ; raise __e end ) end } ) end )
——————–
trampCall(
begin #execFunc def self._stowm_MIMARKget_MIMARKdir_MIMARKentries_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_stowm_MIMARKget_MIMARKdir_MIMARKentries', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end @global_lisp_binding['_stowm_MIMARKget_MIMARKdir_MIMARKentries'] = self.method( :_stowm_MIMARKget_MIMARKdir_MIMARKentries_METHOD ) @_stowm_MIMARKget_MIMARKdir_MIMARKentries = trampCall( Proc.new { |_path| begin embedBacktraceInfo( "./lib/stowm/util.nnd", 33 ); delayCall( '_filter', 'filter', begin if @global_lisp_binding.has_key?('_filter') then trampCall(@_filter) else raise NameError.new( "Error: undefined variable filter", "filter" ) end rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:33"] + __e.backtrace ) ; raise __e end , [ Proc.new { |_x| begin embedBacktraceInfo( "./lib/stowm/util.nnd", 35 ); _not( begin #makeLet ___lambda = lambda { |___gensym__647e1909ee9b53b5ba1ef80b65074bbce8690d16_30004| if ( begin trampCall(___gensym__647e1909ee9b53b5ba1ef80b65074bbce8690d16_30004) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__647e1909ee9b53b5ba1ef80b65074bbce8690d16_30004) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__647e1909ee9b53b5ba1ef80b65074bbce8690d16_30005| if ( begin trampCall(___gensym__647e1909ee9b53b5ba1ef80b65074bbce8690d16_30005) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__647e1909ee9b53b5ba1ef80b65074bbce8690d16_30005) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else begin #makeLet ___lambda = lambda { |___gensym__647e1909ee9b53b5ba1ef80b65074bbce8690d16_30006| if ( begin trampCall(___gensym__647e1909ee9b53b5ba1ef80b65074bbce8690d16_30006) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end ) then begin trampCall(___gensym__647e1909ee9b53b5ba1ef80b65074bbce8690d16_30006) rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e end else false end } ; ___lambda.call( begin trampCall(_x).match( "^[.]" ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:37"] + __e.backtrace ) ; raise __e end ) end end } ; ___lambda.call( begin trampCall(_x).match( "[/]?[.][.]$" ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:36"] + __e.backtrace ) ; raise __e end ) end end } ; ___lambda.call( begin trampCall(_x).match( "[/]?[.]$" ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:35"] + __e.backtrace ) ; raise __e end ) end ) end } , begin embedBacktraceInfo( "./lib/stowm/util.nnd", 38 ); _to_MIMARKlist( begin trampCall(Dir).entries( begin trampCall(_path) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:38"] + __e.backtrace ) ; raise __e end ) rescue => __e ; __e.set_backtrace( ["./lib/stowm/util.nnd:38"] + __e.backtrace ) ; raise __e end ) end ] ) end } ) end )
# ——————————————————- # [EOF] # ——————————————————-