pike.git/
src/
builtin.cmod
Branch:
Tag:
Non-build tags
All tags
No tags
2001-07-01
2001-07-01 15:39:16 by Henrik Grubbström (Grubba) <grubba@grubba.org>
f01b12d5a8d0dd82f46acb2cccbedecd1f7a7e5f (
18
lines) (+
16
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed support for encoding.
Rev: src/builtin.cmod:1.52
1:
/* -*- c -*-
-
* $Id: builtin.cmod,v 1.
51
2001/07/01
13
:
12
:
46
grubba Exp $
+
* $Id: builtin.cmod,v 1.
52
2001/07/01
15
:
39
:
16
grubba Exp $
*/ #include "global.h"
1302:
return DO_NOT_WARN((int)my_quick_strcmp(a->ind, b->ind)); }
-
PIKEFUN void create(array(string) from, array(string) to)
+
PIKEFUN void create(array(string)
|void
from
_
, array(string)
|void
to
_
)
{ int i;
-
+
struct array *from;
+
struct array *to;
+
if (!args) {
+
push_int(0);
+
return;
+
}
+
if (!from_ || !to_) {
+
Pike_error("Bad number of arguments to create().\n");
+
}
+
from = from_->u.array;
+
to = to_->u.array;
if (from->size != to->size) { Pike_error("Replace must have equal-sized from and to arrays.\n"); }
1354:
if ((x >= 0) && (x < 256)) THIS->set_end[x] = i+1; }
+
pop_n_elems(args);
+
push_int(0);
} static int find_longest_prefix(char *str,