pike.git/
lib/
master.pike.in
Branch:
Tag:
Non-build tags
All tags
No tags
2006-01-21
2006-01-21 14:35:45 by Henrik Grubbström (Grubba) <grubba@grubba.org>
61fdd7b521192666577a61dd52bf7e6eacd31ea4 (
36
lines) (+
34
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed typo.
Rev: lib/master.pike.in:1.384
6:
// Pike is distributed under GPL, LGPL and MPL. See the file COPYING // for more information. //
-
// $Id: master.pike.in,v 1.
383
2006/01/
19
21:
19
:
52
grubba Exp $
+
// $Id: master.pike.in,v 1.
384
2006/01/
21
14
:
35
:
45
grubba Exp $
#pike __REAL_VERSION__ //#pragma strict_types
722:
Builtin.mutex compilation_mutex = Builtin()->mutex(); #endif
+
#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);
+
if (has_prefix(low_name, ".#")) return 0;
+
if (has_suffix(low_name, ".pike") ||
+
has_suffix(low_name, ".pmod")) {
+
return fname[..sizeof(fname)-6];
+
}
+
if (has_suffix(low_name, ".so")) {
+
return fname[..sizeof(fname)-4];
+
}
+
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;
+
+
// FIXME: Warn here?
+
return 0;
+
}
+
static program low_findprog(string pname, string ext, object|void handler,
4372:
int `<(mixed v) { return objectp(v) && CMP(v) < 0; } int `>(mixed v) { return objectp(v) && CMP(v) > 0; } int `==(mixed v) { return objectp(v) && CMP(v)== 0; }
-
int _hash() { return major * 4711 + minor ; }
+
int _
_
hash() { return major * 4711 + minor ; }
string _sprintf(int t) { switch(t) {