/***************************************************************************
*
* Copyright (c) 1998-1999 Niels Möller
* Copyright (c) 1999 BalaBit Computing
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* $Id: command.h,v 1.1 1999/07/10 13:23:09 bazsi Exp $
*
***************************************************************************/
#ifndef __COMMAND_H_INCLUDED
#define __COMMAND_H_INCLUDED
#include "list.h"
#include "io.h"
#include <stdarg.h>
#define CLASS_DECLARE
#include "command.h.x"
#undef CLASS_DECLARE
/* Continuation based command execution. A command can take one object
* as argument, and returns one object. */
/* CLASS:
(class
(name command_continuation)
(vars
(c method int "struct ol_object *result")))
*/
/* CLASS:
(class
(name command)
(vars
(call method int "struct ol_object *arg"
"struct command_continuation *c")))
*/
/* CLASS:
(class
(name command_simple)
(super command)
(vars
;; Like call, but returns the value immediately rather than
;; using a continuation function
(call_simple method "struct ol_object *" "struct ol_object *")))
*/
#define COMMAND_CALL(f, a, c) \
((f)->call((f), (struct ol_object *) (a), (c)))
#define COMMAND_RETURN(r, v) \
((r) ? ((r)->c((r), (struct ol_object *) (v))) : ST_OK | ST_GOON)
#define COMMAND_SIMPLE(f, a) \
((f)->call_simple((f), (struct ol_object *)(a)))
int do_call_simple_command(struct command *s,
struct ol_object *arg,
struct command_continuation *c);
#define STATIC_COMMAND_SIMPLE(f) \
{ { STATIC_HEADER, do_call_simple_command }, f}
struct command *make_parallell_progn(struct object_list *body);
extern struct command_simple progn_command;
/* CLASS:
(class
(name command_frame)
(super command_continuation)
(vars
(up object command_continuation)))
*/
/* Commands that need to collect some arguments before actually doing
* anything. */
/* The collect_info_n classes keeps track about what to do whith the
* next argument. As long as we collect arguments without doing
* anything, the f field in collect_info_n will point to the
* constructor make_collect_state_n. */
/* CLASS:
(class
(name collect_info_4)
(vars
(f method "struct ol_object *"
"struct ol_object *" "struct ol_object *"
"struct ol_object *" "struct ol_object *")
;; No next field
))
*/
/* CLASS:
(class
(name collect_info_3)
(vars
(f method "struct ol_object *"
"struct ol_object *" "struct ol_object *"
"struct ol_object *")
(next object collect_info_4)))
*/
/* CLASS:
(class
(name collect_info_2)
(vars
(f method "struct ol_object *"
"struct ol_object *" "struct ol_object *")
(next object collect_info_3)))
*/
/* CLASS:
(class
(name collect_info_1)
(super command_simple)
(vars
(f method "struct ol_object *"
"struct ol_object *")
(next object collect_info_2)))
*/
struct ol_object *
do_collect_1(struct command_simple *s, struct ol_object *a);
struct ol_object *
make_collect_state_1(struct collect_info_1 *info,
struct ol_object *a);
struct ol_object *
make_collect_state_2(struct collect_info_2 *info,
struct ol_object *a,
struct ol_object *b);
struct ol_object *
make_collect_state_3(struct collect_info_3 *info,
struct ol_object *a,
struct ol_object *b,
struct ol_object *c);
#define STATIC_COLLECT_1(next) \
{ { { STATIC_HEADER, do_call_simple_command }, do_collect_1}, \
make_collect_state_1, next }
#define STATIC_COLLECT_2(next) \
{ STATIC_HEADER, make_collect_state_2, next }
#define STATIC_COLLECT_2_FINAL(f) \
{ STATIC_HEADER, f, NULL }
#define STATIC_COLLECT_3(next) \
{ STATIC_HEADER, make_collect_state_3, next }
#define STATIC_COLLECT_3_FINAL(f) \
{ STATIC_HEADER, f, NULL }
extern struct command_simple command_unimplemented;
#define COMMAND_UNIMPLEMENTED (&command_unimplemented.super.super)
struct command command_die_on_null;
/* The CLASS_* macros are used by automatically generated evaluation code */
struct command_continuation *
make_apply(struct command *f, struct command_continuation *c);
struct ol_object *gaba_apply(struct ol_object *f,
struct ol_object *x);
#define CLASS_APPLY gaba_apply
extern struct command_simple command_I;
#define CLASS_VALUE_I (&command_I.super.super)
#define CLASS_APPLY_I_1(x) (x)
extern struct command_simple command_K;
struct command *make_command_K_1(struct ol_object *x);
#define CLASS_VALUE_K (&command_K.super.super)
#define CLASS_APPLY_K_1(x) ((struct ol_object *) make_command_K_1(x))
extern struct collect_info_1 command_S;
/* extern struct collect_info_2 collect_info_S_2; */
struct command *make_command_S_2(struct command *f,
struct command *g);
#define CLASS_VALUE_S (&command_S.super.super.super)
#define CLASS_APPLY_S_1(f) (make_collect_state_1(&command_S, (f)))
#define CLASS_APPLY_S_2(f, g) (collect_S_2(NULL, (f), (g)))
extern struct collect_info_1 command_Sp;
extern struct collect_info_2 collect_info_Sp_2;
/* extern struct collect_info_3 collect_info_Sp_3; */
struct command *make_command_Sp_3(struct command *c,
struct command *f,
struct command *g);
struct ol_object *collect_S_2(struct collect_info_2 *info,
struct ol_object *f,
struct ol_object *g);
struct ol_object *collect_Sp_3(struct collect_info_3 *info,
struct ol_object *c,
struct ol_object *f,
struct ol_object *g);
#define CLASS_VALUE_Sp (&command_Sp.super.super)
#define CLASS_APPLY_Sp_1(c) (make_collect_state_1(&command_Sp, (c)))
#define CLASS_APPLY_Sp_2(c, f) \
(make_collect_state_2(&collect_info_Sp_2, (c), (f)))
#define CLASS_APPLY_Sp_3(c, f, g) (collect_Sp_3(NULL, (c), (f), (g)))
extern struct collect_info_1 command_B;
/* extern struct collect_info_2 collect_info_B_2; */
struct command *make_command_B_2(struct command *f,
struct command *g);
struct ol_object *collect_B_2(struct collect_info_2 *info,
struct ol_object *f,
struct ol_object *g);
#define CLASS_VALUE_B (&command_B.super.super)
#define CLASS_APPLY_B_1(f) (make_collect_state_1(&command_B, (f)))
#define CLASS_APPLY_B_2(f, g) (collect_B_2(NULL, (f), (g)))
extern struct collect_info_1 command_Bp;
extern struct collect_info_2 collect_info_Bp_2;
extern struct collect_info_3 collect_info_Bp_3;
struct command *make_command_Bp_3(struct command *c,
struct command *f,
struct command *g);
struct ol_object *collect_Bp_3(struct collect_info_3 *info,
struct ol_object *c,
struct ol_object *f,
struct ol_object *g);
#define CLASS_VALUE_Bp (&command_Bp.super.super)
#define CLASS_APPLY_Bp_1(c) (make_collect_state_1(&command_Bp, (c)))
#define CLASS_APPLY_Bp_2(c, f) \
(make_collect_state_2(&collect_info_Bp_2, (c), (f)))
#define CLASS_APPLY_Bp_3(c, f, g) (collect_Bp_3(NULL, (c), (f), (g)))
extern struct collect_info_1 command_C;
/* extern struct collect_info_2 collect_info_C_2; */
struct command *
make_command_C_2(struct command *f,
struct ol_object *y);
struct ol_object *
collect_C_2(struct collect_info_2 *info,
struct ol_object *f,
struct ol_object *y);
#define CLASS_VALUE_C (&command_C.super.super.super)
#define CLASS_APPLY_C_1(f) (make_collect_state_1(&command_C, (f)))
#define CLASS_APPLY_C_2(f, y) (collect_C_2(NULL, (f), (y)))
extern struct collect_info_1 command_Cp;
extern struct collect_info_2 collect_info_Cp_2;
/* extern struct collect_info_3 collect_info_Cp_3; */
struct command *
make_command_Cp_3(struct command *c,
struct command *f,
struct ol_object *y);
struct ol_object *
collect_Cp_3(struct collect_info_3 *info,
struct ol_object *c,
struct ol_object *f,
struct ol_object *y);
#define CLASS_VALUE_Cp (&command_Cp.super.super)
#define CLASS_APPLY_Cp_1(c) (make_collect_state_1(&command_Cp, (c)))
#define CLASS_APPLY_Cp_2(c, f) \
(make_collect_state_2(&collect_info_Cp_2, (c), (f)))
#define CLASS_APPLY_Cp_3(c, f, y) (collect_Cp_3(NULL, (c), (f), (y)))
#endif
syntax highlighted by Code2HTML, v. 0.9.1