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.387 2006/06/08 11:37:01 mast Exp $ + // $Id: master.pike.in,v 1.388 2006/11/04 19:08:24 nilsson 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:727:   #else   #define FIX_CASE(X) (X)   #endif /* __NT__ */      static string base_from_filename(string fname)   {    string low_name = FIX_CASE(fname);    if (has_prefix(low_name, ".#")) return 0;    if (has_suffix(low_name, ".pike") ||    has_suffix(low_name, ".pmod")) { -  return fname[..sizeof(fname)-6]; +  return fname[..<5];    }    if (has_suffix(low_name, ".so")) { -  return fname[..sizeof(fname)-4]; +  return fname[..<3];    }    return 0;   }      static int prio_from_filename(string fname)   {    fname = FIX_CASE(fname);    if (has_suffix(fname, ".pmod")) return 3;    if (has_suffix(fname, ".so")) return 2;    if (has_suffix(fname, ".pike")) return 1;