pike.git/
lib/
master.pike.in
Branch:
Tag:
Non-build tags
All tags
No tags
2004-01-12
2004-01-12 23:37:07 by Martin Nilsson <mani@lysator.liu.se>
eba0233cd2470963b6077cd03755bad3d4e2eda6 (
66
lines) (+
29
/-
37
)
[
Show
|
Annotate
]
Branch:
7.9
Removed some whitespaces an stuff.
Rev: lib/master.pike.in:1.331
6:
// Pike is distributed under GPL, LGPL and MPL. See the file COPYING // for more information. //
-
// $Id: master.pike.in,v 1.
330
2004/01/12 23:
17
:
02
nilsson Exp $
+
// $Id: master.pike.in,v 1.
331
2004/01/12 23:
37
:
07
nilsson Exp $
#pike __REAL_VERSION__
304:
int ___newest=newest; \ newest=0
-
+
#define AUTORELOAD_FINISH(VAR, CACHE, FILE) \ if(autoreload_on) { \ mixed val = CACHE[FILE]; \
2761:
//! character code conversion. string decode_charset(string data, string charset) {
-
// werror("decode_charset(%O, %O)\n", data, charset);
-
+
if (!_charset_mod) { object mod = [object]resolv("Locale");
2771:
compile_cb_error ("Cannot handle charset - no Locale.Charset module found."); }
-
+
if (mixed err = catch { object decoder = ([function(string:object)]_charset_mod->decoder)(charset); return ([function(void:string)]([function(string:object)]decoder->
2781:
}
-
+
class Describer { int clipped=0;
2812:
if (!ident[stuff]++) identify_stack += indices([mapping]stuff) + values([mapping]stuff); }
-
+
} }
2822:
if(sizeof(m) < maxlen) { string t = sprintf("%O", m);
-
if (sizeof(t) < (maxlen + 2))
{
+
if (sizeof(t) < (maxlen + 2))
return t;
-
}
+
t = 0; } clipped++; if(maxlen>10)
-
{
+
return sprintf("%O+[%d]",m[..maxlen-5],sizeof(m)-(maxlen-5));
-
}else{
+
return "string["+sizeof(m)+"]"; }
-
}
+
string describe_array (array m, int maxlen) {