[PD-cvs] pd/src builtins.c,1.1.2.24,1.1.2.25

Mathieu Bouchard matju at users.sourceforge.net
Mon Jul 9 19:42:53 CEST 2007


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16807

Modified Files:
      Tag: desiredata
	builtins.c 
Log Message:
whatever


Index: builtins.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v
retrieving revision 1.1.2.24
retrieving revision 1.1.2.25
diff -C2 -d -r1.1.2.24 -r1.1.2.25
*** builtins.c	30 Jun 2007 05:57:28 -0000	1.1.2.24
--- builtins.c	9 Jul 2007 17:42:51 -0000	1.1.2.25
***************
*** 3074,3077 ****
--- 3074,3080 ----
  }
  
+ /* ---------------------------------------------------------------- */
+ /* new desiredata classes are below this point. */
+ 
  /* warning: [unpost] is not reentrant yet. */
  static t_class *unpost_class;
***************
*** 3118,3126 ****
  }
  
! static void unpost_setup() {
      unpost_class = class_new2("unpost",unpost_new,0,sizeof(t_unpost),0,"");
      class_addanything(unpost_class, unpost_anything);
  }
  
  void builtins_setup() {
      t_symbol *s = gensym("acoustics.pd");
--- 3121,3164 ----
  }
  
! struct t_unparse : t_object {};
! static t_class *unparse_class;
! void *unparse_new (t_symbol *s) {
!     t_unparse *x = (t_unparse *)pd_new(unparse_class);
!     outlet_new(x,&s_symbol);
! }
! void unparse_list (t_unparse *x, t_symbol *s, int argc, t_atom *argv) {
!     char buf[MAXPDSTRING]; /* bugger overflow. */
!     int j=0;
!     for (int i=0; i<argc; i++) {
! 	atom_string(argv+i,buf+j,MAXPDSTRING);
! 	j+=strlen(buf+j);
! 	buf[j++]=' ';
!     }
!     buf[j]=0;
! }
! 
! struct t_parse : t_object {};
! static t_class *parse_class;
! void *parse_new (t_symbol *s) {
!     t_parse *x = (t_parse *)pd_new(parse_class);
!     outlet_new(x,&s_list);
!     return x;
! }
! void parse_symbol (t_unpost *x, t_symbol *s) {
!     t_binbuf *b = binbuf_new();
!     binbuf_text(b,s->name,s->n);
!     outlet_anything(x->outlet,&s_list,b->n,b->v);
!     binbuf_free(b);
! }
! static void matju_setup() {
      unpost_class = class_new2("unpost",unpost_new,0,sizeof(t_unpost),0,"");
      class_addanything(unpost_class, unpost_anything);
+     parse_class = class_new2("parse",parse_new,0,sizeof(t_parse),0,"");
+     class_addsymbol(parse_class, parse_symbol);
  }
  
+ /* end of new desiredata classes */
+ /* ---------------------------------------------------------------- */
+ 
  void builtins_setup() {
      t_symbol *s = gensym("acoustics.pd");
***************
*** 3161,3189 ****
      value_setup();
  
!     qlist_class = class_new2("qlist",qlist_new,qlist_free,sizeof(t_qlist),0,"");
!     class_addmethod2(qlist_class,qlist_rewind, "rewind","");
!     class_addmethod2(qlist_class,qlist_next, "next","F");
!     class_addmethod2(qlist_class,qlist_set, "set","*");
!     class_addmethod2(qlist_class,qlist_clear, "clear","");
!     class_addmethod2(qlist_class,qlist_add, "add","*");
!     class_addmethod2(qlist_class,qlist_add2, "add2","*");
!     class_addmethod2(qlist_class,qlist_add, "append","*");
!     class_addmethod2(qlist_class,qlist_read, "read","sS");
!     class_addmethod2(qlist_class,qlist_write, "write","sS");
!     class_addmethod2(qlist_class,qlist_print, "print","S");
!     class_addmethod2(qlist_class,qlist_tempo, "tempo","f");
!     class_addbang(qlist_class, qlist_bang);
  
!     textfile_class = class_new2("textfile",textfile_new,textfile_free,sizeof(t_textfile),0,"");
!     class_addmethod2(textfile_class,textfile_rewind, "rewind","");
!     class_addmethod2(textfile_class,qlist_set, "set","*");
!     class_addmethod2(textfile_class,qlist_clear, "clear","");
!     class_addmethod2(textfile_class,qlist_add, "add","*");
!     class_addmethod2(textfile_class,qlist_add2, "add2","*");
!     class_addmethod2(textfile_class,qlist_add, "append","*");
!     class_addmethod2(textfile_class,qlist_read, "read","sS");
!     class_addmethod2(textfile_class,qlist_write, "write","sS");
!     class_addmethod2(textfile_class,qlist_print, "print","S");
!     class_addbang(textfile_class, textfile_bang);
      netsend_setup();
      netreceive_setup();
--- 3199,3228 ----
      value_setup();
  
!     t_class *c;
!     qlist_class = c = class_new2("qlist",qlist_new,qlist_free,sizeof(t_qlist),0,"");
!     class_addmethod2(c,qlist_rewind, "rewind","");
!     class_addmethod2(c,qlist_next, "next","F");
!     class_addmethod2(c,qlist_set, "set","*");
!     class_addmethod2(c,qlist_clear, "clear","");
!     class_addmethod2(c,qlist_add, "add","*");
!     class_addmethod2(c,qlist_add2, "add2","*");
!     class_addmethod2(c,qlist_add, "append","*");
!     class_addmethod2(c,qlist_read, "read","sS");
!     class_addmethod2(c,qlist_write, "write","sS");
!     class_addmethod2(c,qlist_print, "print","S");
!     class_addmethod2(c,qlist_tempo, "tempo","f");
!     class_addbang(c,qlist_bang);
  
!     textfile_class = c = class_new2("textfile",textfile_new,textfile_free,sizeof(t_textfile),0,"");
!     class_addmethod2(c,textfile_rewind, "rewind","");
!     class_addmethod2(c,qlist_set, "set","*");
!     class_addmethod2(c,qlist_clear, "clear","");
!     class_addmethod2(c,qlist_add, "add","*");
!     class_addmethod2(c,qlist_add2, "add2","*");
!     class_addmethod2(c,qlist_add, "append","*");
!     class_addmethod2(c,qlist_read, "read","sS");
!     class_addmethod2(c,qlist_write, "write","sS");
!     class_addmethod2(c,qlist_print, "print","S");
!     class_addbang(c,textfile_bang);
      netsend_setup();
      netreceive_setup();
***************
*** 3198,3201 ****
      arithmetic_setup();
      midi_setup();
!     unpost_setup();
  }
--- 3237,3240 ----
      arithmetic_setup();
      midi_setup();
!     matju_setup();
  }





More information about the Pd-cvs mailing list