pike.git
/
lib
/
master.pike.in
version
»
Context lines:
10
20
40
80
file
none
3
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; }