pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // This file is part of Pike. For copyright information see COPYRIGHT.   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.368 2004/12/26 01:06:18 per Exp $ + // $Id: master.pike.in,v 1.369 2004/12/26 11:54:03 per Exp $      #pike __REAL_VERSION__   //#pragma strict_types      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "¤/" != "\244/"   #error "master.pike.in is corrupted."   #endif   
pike.git/lib/master.pike.in:1103:   {    foreach(master_efuns, string e)    if (this[e])    add_constant(e, this[e]);    else    error("Function %O is missing from master.pike.\n", e);       add_constant("strlen", sizeof);    add_constant("write", write);    add_constant("werror", werror); +  // To make it possible to overload get_dir and file_stat later on. +  // It's not possible to replace efuns with normal functions in .o-files    -  +  add_constant("get_dir", master_get_dir ); +  add_constant("file_stat", lambda( string f, int|void d ) { return file_stat(f,d);} ); +    #define CO(X) add_constant(#X,Builtin.__backend->X)    CO(call_out);    CO(_do_call_outs);    CO(find_call_out);    CO(remove_call_out);    CO(call_out_info);      #if "¤share_prefix¤"[0]!='¤'    // add path for architecture-independant files    add_include_path("¤share_prefix¤/include");