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.412 2008/02/28 18:18:28 grubba Exp $ + // $Id: master.pike.in,v 1.413 2008/03/20 15:03:07 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:1501:      #ifdef __NT__   #define FIX_CASE(X) lower_case(X)   #else   #define FIX_CASE(X) (X)   #endif /* __NT__ */       static string base_from_filename(string fname)    {    string low_name = FIX_CASE(fname); +  catch { +  // FIXME: Warn on failure? +  low_name = utf8_to_string(low_name); +  // FIXME: MacOS X/HFS uses decomposed Unicode by default. +  // Use Unicode.normalize(low_name, "NFC") to fix. +  };    if (has_prefix(low_name, ".#")) return 0;    if (has_suffix(low_name, ".pike") ||    has_suffix(low_name, ".pmod")) {    return fname[..<5];    }    if (has_suffix(low_name, ".so")) {    return fname[..<3];    }    return 0;    }