[PD-cvs] externals/miXed/shared/common port.c,1.10,1.11

[Krzysztof Czaja]

Update of /cvsroot/pure-data/externals/miXed/shared/common
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8661/shared/common

Modified Files:
	port.c 
Log Message:


Index: port.c
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/shared/common/port.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** port.c	20 Apr 2004 13:55:28 -0000	1.10
--- port.c	21 Apr 2004 14:47:34 -0000	1.11
***************
*** 89,92 ****
--- 89,93 ----
  static t_symbol *portps_vtable;
  static t_symbol *portps_coll;
+ static t_symbol *portps_funbuff;
  static t_symbol *portps_picture;
  
***************
*** 501,504 ****
--- 502,513 ----
  }
  
+ static int imaction_N1_funbuff(t_port *x, char *arg)
+ {
+     import_emstart(x, portps_funbuff, &s_, 0);
+     import_emaddv(x, portps_funbuff, "si;", gensym("embed"),
+ 		  port_getint(x, 2) != 0);
+     return (PORT_NEXT);
+ }
+ 
  static int imaction_N1_picture(t_port *x, char *arg)
  {
***************
*** 565,568 ****
--- 574,587 ----
  }
  
+ static int imaction_P6_funbuff(t_port *x, char *arg)
+ {
+     binbuf_addv(x->x_outbb, "ssffs;",
+ 		gensym("#X"), gensym("obj"),
+ 		port_getx(x, 2), port_gety(x, 3), portps_funbuff);
+     import_emflush(x, portps_funbuff, &s_);
+     x->x_nobj++;
+     return (PORT_NEXT);
+ }
+ 
  /* LATER use hammer replacements */
  static int imaction_P6_pack(t_port *x, char *arg)
***************
*** 749,752 ****
--- 768,772 ----
  static int imaction_T1_set(t_port *x, char *arg)
  {
+     /* FIXME funbuff */
      if (import_emcopy(x, portps_vtable))
      {
***************
*** 841,844 ****
--- 861,865 ----
      { "vtable",      imaction_N1_vtable, 0, 0, 0 },
      { "coll",        imaction_N1_coll, 0, 0, 0 },
+     { "funbuff",     imaction_N1_funbuff, 0, 0, 0 },
      { "picture",     imaction_N1_picture, 0, 0, 0 }
  };
***************
*** 850,854 ****
      { "p",           imaction_P6_patcher, 0, 0, 0 },
      { "table",       imaction_P6_table, 0, 0, 0 },
!     { "coll",        imaction_P6_coll, 0, 0, 0 }
  };
  static t_portnode imnode_newobj = { imslots_newobj,
--- 871,876 ----
      { "p",           imaction_P6_patcher, 0, 0, 0 },
      { "table",       imaction_P6_table, 0, 0, 0 },
!     { "coll",        imaction_P6_coll, 0, 0, 0 },
!     { "funbuff",     imaction_P6_funbuff, 0, 0, 0 }
  };
  static t_portnode imnode_newobj = { imslots_newobj,
***************
*** 1270,1273 ****
--- 1292,1296 ----
  	portps_vtable = gensym("vtable");
  	portps_coll = gensym("coll");
+ 	portps_funbuff = gensym("funbuff");
  	portps_picture = gensym("picture");