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.361 2004/09/06 20:40:37 mast Exp $ + // $Id: master.pike.in,v 1.362 2004/10/09 11:47:02 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:2665:       mixed err = catch {    prog=(program)argv[0];    };       if (err) {    if( !file_stat(argv[0]) )    exit(1, "Could not find file %O.\n", argv[0]);    if( !file_stat(argv[0])->isreg )    exit(1, "File %O is not a regular file.\n", argv[0]); +  if( !master_read_file(argv[0]) ) +  exit(1, "File %O is not readable.\n", argv[0]);    error( "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;    }