From 1eef182b31a4cb2f55e26e7527469fc2902368a3 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Mon, 28 Feb 2005 13:10:41 +0000 Subject: cyclone alpha53 (see notes.txt for cyclone, bin and shared) svn path=/trunk/externals/miXed/; revision=2590 --- shared/common/binport.c | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'shared/common') diff --git a/shared/common/binport.c b/shared/common/binport.c index 1df9571..90cf251 100644 --- a/shared/common/binport.c +++ b/shared/common/binport.c @@ -96,6 +96,7 @@ enum { BINPORT_NULLTYPE, 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 }; @@ -535,6 +536,15 @@ static int binport_nextatom(t_binport *bp, t_atom *ap) if (!binport_setbysymtable(bp, ap, opval)) 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 */ ap->a_type = A_SEMI; -- cgit v1.2.1