ELFp44G4 (EEEUUEUUQtdCO<N,M>G/JEB64=3AF:.D%LI5C1)-@ (;K#$&'*9!?+"8270H*   p&U U |V V  "6&O<UEH:(`4 Xc -4@ICJv9%Q[B(VV_A^: V |VxVh;6.4ImumViHl}l'0_DYNAMIC_GLOBAL_OFFSET_TABLE_mallocstrcpysprintffgetcungetcfgetsscm_mem2stringscm_eval_stringpostscm_consscm_string_to_symbolscm_call_4s_floats_lists_symbolscm_lengthscm_call_2atom_getsymbolargatom_getfloatargscm_make_realscm_num2ulongcallocpd_newinlet_newgensymoutlet_newscm_protect_objectpd_bindscm_ulong2numpd_unbindscm_unprotect_objectpd_freescm_num2dbloutlet_floatpd_floatscm_list_refscm_number_pscm_real_poutlet_listpd_listoutlet_symbolpd_symboloutlet_bangpd_bangscm_init_guilescm_c_define_gsubrscm_permanent_objectfopenfclosescm_gc_protect_objectscm_call_1scm_gc_unprotect_objectoutlet_freeinlet_freek_guile_setupclass_newclass_addanythingclass_addmethodclass_sethelpsymbollibc.so.6libm.so.6libguile.so.12_edata__bss_start_endGLIBC_2.1GLIBC_2.0ii !ii +yc ]4X1j ]GM 0 u            !!!(!5!@!M!X!e!p!}!!!!!!!!!!!" ""'"7"O"e"t""""""""##-#@#\#y###### $E$Z$$A%%%%%%%%%%&&$&*&7&E&[&p&v&&U  NF@@$@$@!3B*yGTGGeG<"GT"Gy"G"G"G"G #G2#G#G%G!E"!]"!"!"!"!"!#!;#!$!BBBBBB5 B#BJ$B&B!II]++n+8U//+//$'$'%':;[;1?c<rgR U =<<b""_$"|:#<uC W %%&<&`&$&_ #7H&%HLLLMD3#gw2x(%c))M~M Em 4 , , , , , ,!,-!,E!,]!,u!,!,!,!,!,!,",",j"""""##b#C#9*$K3$K$=F%=$J$JO%JX%J$%0%6h&6%{&&./&.J&UWVS 5V\$ u31 QXZSW=V[^_]Ív1ҽЉΉ߉у LQS5VhhCP5V뢍vVST$`v St&SP ShOV4$"ɁT[^WSV1IQRPY5VV[_ÉUWVST$4T$T$@D$0ӉD$|$8D$t$ Pt$0t'S$^G9|ȋD$ [^_]=t%uЃ}u t_ St St"hCS^v| h'Fۃ svFƒ tCPߋCPB hC뿍vUWVS ue } V)ĉVP}PShhuCju@(4ee[^t+_UWVS e uu )tXQhuCjVpt0u WPShVee[^t+_Ð hCݐ v멍vSD$$\$ pZYPhuCjt$,@(4t+[ÍvSD$tLShuCjPXt$ D$ pZYPSt+[É hC吃 p뵍vST$$\$ t:BPZYPhuCjt$,@(4t+[ËBPBVSSD$t$teQhuCjPXt= t FP^ZPS[t+^ÍvFPBӃ hCӐ p뜍vS\$(huCjt$,@(4t+[Ð D$t=RhuCjP@t Pt+Ív hC吃 pčvD$p$ÐW hjjjhChjjjhChjjjhCh0jjjhChTjjjhDhxjjjh$Dhjjjh.Dh jjjh:DhjjjhMDh,jjjh^DhjjjhqDhjjjhDh\jjjhDhjjjhDhtjjjhDh<jjjhDhjjjhDhL jjjhDY_1@'IQh@'PjhDP$VjhEP$VjhEP$Vjh+EP$Vjh=EP$VjhOEP$Vj haEPV_ÍvUWVS|$(t$,hDV1 h5$@5$r$@C$)EHt$ hmE$ƒ[^_]É W PjhuEPZYP5Vu @W,G0R]w0닉VhE1넉S5VËD$ C4C8ZYPS1uC8ڃ[ÍvVS t$v05V;^|T1;^ |1 v,Xv0[v$F(D$ [^v F(4C;^ |붍vF$ p XF$4C;^|S\$s05VXs,Ys0XZs4S[WD$1IQR P5V5V_É Qjjjj (length args) 0) (pd-c-send-list symbol (cons firstarg args))) ((list? firstarg) (pd-c-send-list symbol firstarg)) ((number? firstarg) (pd-c-send-number symbol firstarg)) ((string? firstarg) (pd-c-send-string symbol firstarg)) ((eq? 'bang firstarg) (pd-c-send-bang symbol)) ((symbol? firstarg) (pd-c-send-symbol symbol firstarg)) (else (pd-display "Unknown argument to pd-outlet-or-send:" firstarg))))) (define (pd-get-symbol sym) (if (not (symbol? sym)) (pd-display sym " is not a scheme symbol") (pd-c-get-symbol sym))) (define (pd-backtrace-eval string) (eval-string string)) (define (pd-display-errorfunc key . args) (let ((dasstack (make-stack #t))) (display-backtrace dasstack (current-output-port) #f #f) ;(display (stack-ref (make-stack #t) 1)) ;(display (stack-length (make-stack #t))) (display key)(newline) (display args) (newline)) 0) (define (pd-backtrace-run thunk) (stack-catch #t thunk pd-display-errorfunc)) (define (pd-backtrace-runx func arg1) (stack-catch #t (lambda x (apply func x)) pd-display-errorfunc)) (define (pd-backtrace-run1 func arg1) (stack-catch #t (lambda () (func arg1)) pd-display-errorfunc)) (define (pd-backtrace-run2 func arg1 arg2) (stack-catch #t (lambda () (func arg1 arg2)) pd-display-errorfunc)) (define (pd-backtrace-run3 func arg1 arg2 arg3) (stack-catch #t (lambda () (func arg1 arg2 arg3)) pd-display-errorfunc)) (define (pd-backtrace-run4 func arg1 arg2 arg3 arg4) (stack-catch #t (lambda () (func arg1 arg2 arg3 arg4)) pd-display-errorfunc)) (pd-backtrace-run1 pd-load-if-exists "/etc/.k_guile.scm") (pd-backtrace-run1 pd-load-if-exists (string-append (getenv "HOME") "/.k_guile.scm")) (define (pd-instance-func pd-instance)(define pd-num-inlets 1) (define pd-num-outlets 0) (define (pd-legaloutlet outlet-num) (if (and (< outlet-num pd-num-outlets) (>= outlet-num 0)) #t (begin (pd-display "outlet-num out of range") #f))) (define (pd-legalinlet inlet-num) (if (and (< inlet-num pd-num-inlets) (>= inlet-num 0)) #t (begin (pd-display "inlet-num out of range") #f))) (define pd-inlet-vector (make-vector 1 '())) (define pd-inlet-anyvector (make-vector 1 '())) (define (pd-inlet-func inlet-num symbol args) (let ((inlet-func (assq symbol (vector-ref pd-inlet-vector inlet-num)))) (if (not inlet-func) (begin (set! inlet-func (assq 'any (vector-ref pd-inlet-vector inlet-num))) (set! args (cons symbol args)))) (if inlet-func (apply (cadr inlet-func) args) (pd-display "No function defined for handling \'" symbol " to inlet " inlet-num)))) (define (pd-inlet inlet-num symbol func) (if (not (procedure? func)) (pd-display "Wrong argument to pd-inlet: " func " is not a procedure") (if (and (pd-check-number inlet-num "pd-inlet") (pd-legalinlet inlet-num)) (let ((inlet-funcs (vector-ref (if (eq? symbol 'any) pd-inlet-anyvector pd-inlet-vector) inlet-num))) (vector-set! pd-inlet-vector inlet-num (cons (list symbol func) inlet-funcs)))))) (define (pd-inlets new-num-inlets) (let ((num-inlets (if (pd-c-inited? pd-instance) (pd-c-get-num-inlets pd-instance) new-num-inlets))) (if (pd-check-number num-inlets "pd-inlets") (if (<= num-inlets 0) (pd-display "num-inlets must be greater than 0, not " num-inlets) (begin (set! pd-num-inlets num-inlets) (set! pd-inlet-vector (make-vector num-inlets '())) (pd-c-inlets pd-instance num-inlets)))))) (define (pd-outlets new-num-outlets) (let ((num-outlets (if (pd-c-inited? pd-instance) (pd-c-get-num-outlets pd-instance) new-num-outlets))) (if (pd-check-number num-outlets "pd-outlets") (if (<= num-outlets 0) (pd-display "num-outlets must be greater than 0, not " num-outlets) (begin (set! pd-num-outlets num-outlets) (pd-c-outlets pd-instance num-outlets)))))) (define (pd-outlet outlet-num firstarg . args) (if (pd-legaloutlet outlet-num) (cond ((> (length args) 0) (pd-c-outlet-list pd-instance outlet-num issymbol (cons firstarg args))) ((list? firstarg) (pd-c-outlet-list pd-instance outlet-num firstarg)) ((number? firstarg) (pd-c-outlet-number pd-instance outlet-num firstarg)) ((string? firstarg) (pd-c-outlet-string pd-instance outlet-num firstarg)) ((eq? 'bang firstarg) (pd-c-outlet-bang pd-instance outlet-num)) ((symbol? firstarg) (pd-c-outlet-symbol pd-instance outlet-num firstarg)) (else (pd-display "Unknown argument to pd-outlet-or-send:" firstarg))))) (define pd-local-bindings '()) (define (pd-bind symbol func) (set! pd-local-bindings (pd-bind-do symbol func pd-local-bindings))) (define (pd-unbind symbol) (set! pd-local-bindings (pd-unbind-do symbol pd-local-bindings))) (define (pd-unbind-all) (if (not (null? pd-local-bindings)) (begin (pd-unbind (car (car pd-local-bindings))) (pd-unbind-all)))) (define pd-destroy-func #f) (define (pd-set-destroy-func thunk) (if (not (procedure? thunk)) (pd-display "Wrong argument to pd-set-destroy-func: " thunk " is not a procedure.") (set! pd-destroy-func thunk))) (define (pd-cleanup-func) (if pd-destroy-func (begin (pd-destroy-func) (set! pd-destroy-func #f))) (pd-unbind-all)) (cons pd-inlet-func pd-cleanup-func))%s%sStrangeGET_POINTER()anythinggpd_outletgpd_send_numberno receivergpd_outlet_or_send_listundefinedpd-c-outletspd-c-inletspd-c-inited?pd-c-get-num-inletspd-c-get-num-outletspd-c-bindpd-c-unbindpd-c-outlet-numberpd-c-outlet-listpd-c-outlet-symbolpd-c-outlet-stringpd-c-outlet-bangpd-c-send-numberpd-c-send-listpd-c-send-symbolpd-c-send-stringpd-c-send-bangpd-c-get-symbolpd-backtrace-runpd-backtrace-runxpd-backtrace-run1pd-backtrace-run2pd-backtrace-run3pd-backtrace-run4eval-stringFailed.pd-instance-funcfile "%s" not found. k_guilereloadevalhelp-k_guile.pdindexworkaround& 5  x o oo* o|UGCC: (GNU) 3.3.2 20031022 (Red Hat Linux 3.3.2-1).shstrtab.hash.dynsym.dynstr.gnu.version.gnu.version_r.rel.dyn.text.rodata.data.dynamic.got.bss.comment P 5!o* * .o 0=  x FppL2&&0 TUEZUEc|V|F hVF(mF3Fv