pike.git/ lib/ master.pike.in

2000-04-08

2000-04-08 01:42:51 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• b1693aa9e9d33cc63b587374b9bf75872527eaa8 (14 lines) (+9/-5) ^{[ Show | Annotate ]}
  Branch: 7.9

a little bit better module dumping

Rev: bin/install.pike:1.54
Rev: lib/master.pike.in:1.112
Rev: lib/modules/Standards.pmod/ASN1.pmod/Types.pmod:1.13
Rev: src/dumpmodule.pike:1.9
Rev: src/modules/Regexp/module.pmod.in:1.3

1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.111 2000/03/30 21:06:53 grubba Exp $ +  * $Id: master.pike.in,v 1.112 2000/04/08 01:30:19 hubbe Exp $    *    * Master-file for Pike.    *
574:    if(object o=low_cast_to_object(oname, current_file))    return o;    error("Cast '"+oname+"' to object failed"+ -  (current_file?sprintf("for '%s'",current_file):"")+".\n"); +  ((current_file && current_file!="-")?sprintf(" for '%s'",current_file):"")+".\n");    return 0;   }   
1646:    function functionof(string x)    {    if(sscanf(x,"efun:%s",x)) return f[x]; +  if(sscanf(x,"resolv:%s",x)) return resolv(x);    return 0;    }       object objectof(string x)    {    if(sscanf(x,"efun:%s",x)) return f[x]; -  +  if(sscanf(x,"resolv:%s",x)) return resolv(x);    return cast_to_object(x,0);    }       program programof(string x)    {    if(sscanf(x,"efun:%s",x)) return f[x]; -  +  if(sscanf(x,"resolv:%s",x)) return resolv(x);    return cast_to_program(x,0);    }       mixed encode_object(object x)    { -  +  if(x->_encode) return x->_encode();    error("Cannot encode objects yet.\n");    }       -  mixed decode_object(object x) +  mixed decode_object(object o, mixed data)    { -  error("Cannot encode objects yet.\n"); +  o->_decode(data);    }   }