[PD-cvs] externals/k_guile any.scm,NONE,1.1 local.scm,1.1,1.2 help-k_guile.pd,1.2,1.3

[ksvalast at users.sourceforge.net]

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;