Checked in now. (The first and third chunk, that is, the middle was
appearantly fixed already).
/ Niels Möller ()
Previous text:
>2002-05-13 08:40:
>Subject: nettle.cmod
>--------------------------------------------------------------------
>New patch for precompile.pike, which actually seems to work:
>
>Index: precompile.pike
>===================================================================
>RCS file: /cvs/Pike/7.3/bin/precompile.pike,v
>retrieving revision 1.64
>diff -u -r1.64 precompile.pike
>--- precompile.pike 2002/03/13 15:03:25 1.64
>+++ precompile.pike 2002/05/13 06:38:03
>@@ -38,6 +38,7 @@
> * FIXME: this doesn't quite work
> * errname; The name used when throwing errors.
> * name; The name used when doing add_function.
>+ * inherit class; For PIKECLASS, a single superclass can be provided.
> *
> * FUNCTION OVERLOADING
> * You can define the same function several times with different
>@@ -1218,8 +1219,8 @@
> array proto=func[..p-1];
> array body=func[p];
> array rest=func[p+1..];
>- string name=(string)proto[-1];
>- mapping attributes=parse_attributes(proto[p+2..],
>+ string name=(string)proto[0];
>+ mapping attributes=parse_attributes(proto[1..],
> proto[-1]->file+":"+
> proto[-1]->line);
>
>@@ -1244,6 +1245,9 @@
> " start_new_program();\n"
> }))
> })+
>+ (attributes->inherit ?
>+ ({ sprintf("\n ADD_INHERIT(%s_program, 0);\n",
>+ attributes->inherit) }) : ({}) )+
> IFDEF("THIS_"+upper_case(name),
> ({ sprintf("\n %s_storage_offset=ADD_STORAGE(struct %s_struct);\n",name,name) }) )+
> subclass->addfuncs+
>
> / Niels Möller ()
>