3 Copyright (C) 2003/2007 Angel Ortega <angel@triptico.com>
5 mpsl.h - Minimum Profit Scripting Language
7 This program is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License
9 as published by the Free Software Foundation; either version 2
10 of the License, or (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
21 http://www.triptico.com
29 extern int mpsl_trace
;
30 extern int mpsl_abort
;
32 int mpsl_is_true(mpdm_t v
);
33 mpdm_t
mpsl_boolean(int b
);
35 mpdm_t
mpsl_set_symbol(mpdm_t s
, mpdm_t v
);
36 mpdm_t
mpsl_get_symbol(mpdm_t s
);
38 mpdm_t
mpsl_error(mpdm_t err
);
40 mpdm_t
mpsl_exec_p(mpdm_t c
, mpdm_t args
);
41 mpdm_t
mpsl_mkins(wchar_t * opcode
, int args
, mpdm_t a1
, mpdm_t a2
, mpdm_t a3
);
43 mpdm_t
mpsl_compile(mpdm_t code
);
44 mpdm_t
mpsl_compile_file(mpdm_t filename
);
45 mpdm_t
mpsl_eval(mpdm_t code
, mpdm_t args
);
47 void mpsl_argv(int argc
, char * argv
[]);
49 int mpsl_startup(void);
50 void mpsl_shutdown(void);
52 wchar_t *mpsl_dump_1(const mpdm_t v
, int l
, wchar_t *ptr
, int *size
);