Update of /cvsroot/pure-data/externals/k_guile In directory sc8-pr-cvs1:/tmp/cvs-serv22075
Modified Files: local.scm help-k_guile.pd Added Files: any.scm Log Message: An inlet can receive anything by using any as type
--- NEW FILE: any.scm ---
(pd-inlet 0 'any (lambda x (pd-display "Got " x " to inlet 0")))
Index: local.scm =================================================================== RCS file: /cvsroot/pure-data/externals/k_guile/local.scm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** local.scm 8 Jan 2004 14:55:24 -0000 1.1 --- local.scm 16 Jan 2004 15:07:14 -0000 1.2 *************** *** 57,60 **** --- 57,61 ---- ;; (define pd-inlet-vector (make-vector 1 '())) + (define pd-inlet-anyvector (make-vector 1 '()))
(define (pd-set-inlet-func) *************** *** 65,68 **** --- 66,74 ---- (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) *************** *** 74,78 **** (if (and (pd-check-number inlet-num "pd-inlet") (pd-legalinlet inlet-num)) ! (let ((inlet-funcs (vector-ref pd-inlet-vector inlet-num))) (vector-set! pd-inlet-vector inlet-num --- 80,87 ---- (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
Index: help-k_guile.pd =================================================================== RCS file: /cvsroot/pure-data/externals/k_guile/help-k_guile.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** help-k_guile.pd 12 Jan 2004 13:25:12 -0000 1.2 --- help-k_guile.pd 16 Jan 2004 15:07:14 -0000 1.3 *************** *** 1,3 **** ! #N canvas 372 11 707 547 10; #X obj 101 135 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 256; --- 1,3 ---- ! #N canvas 481 303 707 547 10; #X obj 101 135 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 256; *************** *** 44,47 **** --- 44,56 ---- #X msg 512 286 eval (newline); #X msg 512 309 eval (display(environ)); + #X obj 65 487 k_guile any.scm; + #X msg 25 448 reload; + #X obj 193 448 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 + -262144 -1 -1 0 256; + #X msg 149 446 gakk; + #X obj 261 446 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 + -1; + #X msg 289 447 list 2 3 4; + #X msg 90 446 we 3 2; #X connect 0 0 1 0; #X connect 1 0 2 0; *************** *** 67,68 **** --- 76,83 ---- #X connect 30 0 24 0; #X connect 31 0 24 0; + #X connect 33 0 32 0; + #X connect 34 0 32 0; + #X connect 35 0 32 0; + #X connect 36 0 32 0; + #X connect 37 0 32 0; + #X connect 38 0 32 0;