pike.git/ lib/ master.pike.in

2004-07-04

2004-07-04 17:23:02 by Stephen R. van den Berg <srb@cuci.nl>

• d4140ea37bd909e83005c0bc8be9f31eb0353c6a (22 lines) (+11/-11) ^{[ Show | Annotate ]}
  Branch: 7.9

werror() and write() implementation synced, code reduced

Rev: lib/master.pike.in:1.356
Rev: src/builtin_functions.c:1.560
Rev: src/dumpmaster.pike:1.14
Rev: src/modules/files/efuns.c:1.146

6:   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.355 2004/07/04 16:28:23 srb Exp $ + // $Id: master.pike.in,v 1.356 2004/07/04 17:23:02 srb Exp $      #pike __REAL_VERSION__   //#pragma strict_types
92:      #define Stat Files.Stat   #define capitalize(X) (upper_case((X)[..0])+(X)[1..]) - #define write(X ...) (Files()->_stdout->write(X)) +    #define trim_all_whites(X) (Builtin()->string_trim_all_whites (X))    - //! @appears void werror(string msg, mixed ... args) - //! - //! Write to standard error. - //! - void werror(mixed ... args) { -  _werror(@args); - } + private function write = Files()->_stdout->write; + private function werror = Files()->_stderr->write;      #ifdef RESOLV_DEBUG   
1066:    "normalize_path",    "getenv",    "putenv", -  "werror", +       #ifdef GETCWD_CACHE    "cd",
1087:   //! Writes a string on stdout. Works just like @[Stdio.File.write]   //! on @[Stdio.stdout].    + //! @decl int werror(string fmt, mixed ... args) + //! @appears werror + //! Writes a string on stderr. Works just like @[Stdio.File.write] + //! on @[Stdio.stderr]. +    /* Note that create is called before add_precompiled_program    */   static void create()
1098:    error("Function %O is missing from master.pike.\n", e);       add_constant("strlen", sizeof); -  add_constant("write", Files()->_stdout->write); +  add_constant("write", write); +  add_constant("werror", werror);      #define CO(X) add_constant(#X,Builtin.__backend->X)    CO(call_out);