Branch: Tag:

1998-05-18

1998-05-18 22:02:03 by Per Hedbor <ph@opera.com>

Added the 'format' function.

Rev: server/modules/tags/lisp.pike:1.9

1:   #define error(X) throw( ({ (X), backtrace() }) ) - constant cvs_version = "$Id: lisp.pike,v 1.8 1998/03/08 13:48:55 per Exp $"; + constant cvs_version = "$Id: lisp.pike,v 1.9 1998/05/18 22:02:03 per Exp $";      #include <module.h>   inherit "module";
362:    return Number( len );   }    - #if 0 +    object f_format(object arglist, object env, object globals)   {    string f = arglist->car->value;
380: Inside #if 0
   return String( sprintf(f, @args) );   }    + #if 0   object f_line_break(object arglist, object env, object globals)   {    string f = arglist->car->print();
396:      void init_roxen_functions(object environment, object conf)   { -  // environment->extend(make_symbol("format"), Builtin(f_format)); +  environment->extend(make_symbol("format"), Builtin(f_format));       environment->extend(make_symbol("r-get-string"), Builtin(f_get));    environment->extend(make_symbol("r-get-int"), Builtin(f_getint));