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.416 2008/05/01 10:39:56 nilsson Exp $ + // $Id: master.pike.in,v 1.417 2008/05/12 13:54:14 grubba 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:1214:   mixed handle_attribute_constant(string attr, mixed arg,    mixed arg_type, mixed cont_type)   {   #if 0    werror("handle_attribute_constant(%O, %O, %O, %O)\n",    attr, arg, arg_type, cont_type);   #endif /* 0 */    switch(attr) {    case "sprintf_format":    return __handle_sprintf_format(attr, arg, arg_type, cont_type); +  case "lower_case": +  if (stringp(arg) && lower_case(arg) != arg) { +  /* FIXME: Warn. */    } -  +  }    return UNDEFINED;   }      /* This array contains the names of the functions    * that a replacing master-object may want to override.    */   constant master_efuns = ({    "error",    "basename",    "dirname",
pike.git/lib/master.pike.in:3013:       argv[0] = search(programs, prog) || argv[0];    } else {    argv[0]=combine_path_with_cwd(argv[0]);       mixed err = catch {    prog=(program)argv[0];    };       if (err) { -  string eno = strerror(errno()); +     string fn = argv[0];    if( !file_stat(fn) )    {    if( file_stat(fn+".pike") )    fn += ".pike";    else -  exit(1, "Could not find file %O. %s.\n", fn, eno); +  exit(1, "Could not find file %O.\n", fn);    }    if( !file_stat(fn)->isreg )    exit(1, "File %O is not a regular file.\n", fn);    if( !master_read_file(fn) ) -  exit(1, "File %O is not readable. %s.\n", fn, eno); +  exit(1, "File %O is not readable. %s.\n", +  fn, strerror(errno()));    exit(1, "Pike: Failed to compile script:\n"    "%s\n", stringp(err[0])?err[0]:describe_backtrace(err));    }       // Don't list the program with its real path in the programs    // mapping, so that reverse lookups (typically by the codec)    // always find the canonical "/main" instead.    programs[argv[0]] = no_value;    }