[PD-cvs] externals/miXed/shared/common binport.c,1.8,1.9

[Krzysztof Czaja]

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

Modified Files:
	binport.c 
Log Message:
cyclone alpha53 (see notes.txt for cyclone, bin and shared)

Index: binport.c
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/shared/common/binport.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** binport.c	27 Jan 2005 14:42:53 -0000	1.8
--- binport.c	28 Feb 2005 13:10:40 -0000	1.9
***************
*** 97,100 ****
--- 97,101 ----
      BINPORT_INTTYPE = 1, BINPORT_FLOATTYPE, BINPORT_SYMTYPE,
      BINPORT_DEFINTTYPE = 5, BINPORT_DEFFLOATTYPE, BINPORT_DEFSYMTYPE,
+     BINPORT_DEFDOLLSYMTYPE = 9,
      BINPORT_SEMITYPE = 10, BINPORT_COMMATYPE,
      BINPORT_DOLLARTYPE, BINPORT_DOLLSYMTYPE
***************
*** 536,539 ****
--- 537,549 ----
  	    goto badbin;
  	break;
+     case BINPORT_DEFDOLLSYMTYPE:  /* half-byte #symbol id */
+ 	if (!binport_setbysymtable(bp, ap, opval))
+ 	    goto badbin;
+ 	sprintf(buf, "#%s", ap->a_w.w_symbol->s_name);
+ #ifdef BINPORT_DEBUG
+ 	binport_warning(buf);
+ #endif
+ 	ap->a_w.w_symbol = gensym(buf);
+ 	break;
      case BINPORT_SEMITYPE:
  	/* LATER warn about nonzero opval */