pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2003-11-10
2003-11-10 01:35:45 by Martin Stjernholm <mast@lysator.liu.se>
f0ace387a9a8d45ba1812b1402a4dbebaf820ed9 (
21
lines) (+
11
/-
10
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed some lfun types.
Rev: src/program.c:1.531
2:
|| 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: program.c,v 1.
530
2003/11/
09
01:
10
:
14
mast Exp $
+
|| $Id: program.c,v 1.
531
2003/11/
10
01:
35
:
45
mast Exp $
*/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
530
2003/11/
09
01:
10
:
14
mast Exp $");
+
RCSID("$Id: program.c,v 1.
531
2003/11/
10
01:
35
:
45
mast Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
165:
tFuncV(tNone,tVoid,tVoid), /* "__INIT", */ tFuncV(tNone,tZero,tVoid), /* "create", */ tFuncV(tNone,tVoid,tVoid), /* "destroy", */
-
tFuncV(
tNone
,tZero,tMix), /* "`+", */
-
tFuncV
(
tNone
,tZero,tMix),
/* "`-", */
+
tFuncV(
tZero
,tZero,tMix), /* "`+", */
+
tFunc
(
tOr(tVoid
,tZero
)
,tMix), /* "`-", */
tFuncV(tNone,tZero,tMix), /* "`&", */ tFuncV(tNone,tZero,tMix), /* "`|", */ tFuncV(tNone,tZero,tMix), /* "`^", */
190:
tFuncV(tNone,tVoid,tArray), /* "_indices", */ tFuncV(tNone,tVoid,tArray), /* "_values", */ tFuncV(tNone,tZero,tMix), /* "`()", */
-
tFuncV(
tNone
,tZero,tMix), /* "``+", */
-
tFuncV(
tNone,
tZero,tMix), /* "``-", */
+
tFuncV(
tZero
,tZero,tMix), /* "``+", */
+
tFuncV(tZero,
tVoid,
tMix), /* "``-", */
tFuncV(tNone,tZero,tMix), /* "``&", */ tFuncV(tNone,tZero,tMix), /* "``|", */ tFuncV(tNone,tZero,tMix), /* "``^", */
200:
tFuncV(tNone,tZero,tMix), /* "``*", */ tFuncV(tNone,tZero,tMix), /* "``/", */ tFuncV(tNone,tZero,tMix), /* "``%", */
-
tFuncV(tZero,
tVoid
,tMix), /* "`+=", */
+
tFuncV(tZero,
tZero
,tMix), /* "`+=", */
tFuncV(tStr,tVoid,tInt), /* "_is_type", */ tFuncV(tInt tOr(tMap(tStr,tInt),tVoid),tVoid,tStr), /* "_sprintf", */ tFuncV(tMix,tVoid,tInt), /* "_equal", */
340:
*! @[lfun::create()], @[predef::destruct()] */
-
/*! @decl mixed lfun::`+(zero ...
args
)
+
/*! @decl mixed lfun::`+(zero
arg, zero
...
rest
)
*! *! Left associative addition operator callback. *!
348:
*! @[lfun::``+()], @[lfun::`+=()], @[predef::`+()] */
-
/*! @decl this_program lfun::`+=(zero ...
args
)
+
/*! @decl this_program lfun::`+=(zero
arg, zero
...
rest
)
*! *! Left associative addition operator callback that destructively *! assigns the result of the addition to this object. It should
371:
*! @[lfun::`+()], @[predef::`+()] */
-
/*! @decl mixed lfun::
`-
(zero ...
args
)
+
/*! @decl mixed lfun::
``+
(zero
arg, zero
...
rest
)
*! *! Left associative subtraction operator callback. *!