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 */