lestes::ui Namespace Reference

Typedefs
typedef ptr< l_object >	lp
typedef ptr< l_atom >	lap
typedef list< srp< l_atom > >::iterator	lait
typedef ptr< l_object >	lp
Functions
ptr< l_object >	car (ptr< l_object > x)
ptr< l_object >	cdr (ptr< l_object > x)
ptr< l_object >	cons (ptr< l_object > a, ptr< l_object > d)
ptr< l_cons >	extra_cons (ptr< l_object > a, ptr< l_object > d)
lp	consp (lp x)
bool	endp (lp x)
lp	last_eval (lp x)
lp	list_eval (lp x)
lp	print (lp a)
ptr< l_object >	eval (ptr< l_object > x)
void	scan_string (lstring str)
void	yyparse ()
int	run ()
int	main (ptr< ::lestes::std::vector< lstring > > args)
int	yylex ()
void	yyerror (lstring)
Variables
const char *	code

---

Typedef Documentation

typedef list< srp < l_atom > >::iterator lestes::ui::lait

Definition at line 227 of file interp.cc.

typedef ptr< l_atom > lestes::ui::lap

Definition at line 37 of file interp.cc.

typedef ptr< l_object > lestes::ui::lp

Definition at line 36 of file interp.hh.

typedef ptr< l_object > lestes::ui::lp

Definition at line 34 of file interp.cc.

---

Function Documentation

lp lestes::ui::car

(

ptr< l_object >

x

)

Definition at line 39 of file interp.cc.

Referenced by last_eval(), and list_eval().

{
        return car_evaluator::instance()->go(x);
}

lp lestes::ui::cdr

(

ptr< l_object >

x

)

Definition at line 44 of file interp.cc.

Referenced by last_eval(), and list_eval().

{
        return cdr_evaluator::instance()->go(x);
}

lp lestes::ui::cons	(	ptr< l_object >	a,
		ptr< l_object >	d
	)

Definition at line 49 of file interp.cc.

{
        return l_cons::create(a, d);
}

lp lestes::ui::consp

(

lp

x

)

Definition at line 59 of file interp.cc.

Referenced by endp().

{
        return consp_evaluator::instance()->go(x);
}

bool lestes::ui::endp

(

lp

x

)

Definition at line 64 of file interp.cc.

References consp().

Referenced by last_eval(), and list_eval().

{
        return consp(x) == l_interpreter::nil_get();
}

lp lestes::ui::eval

(

ptr< l_object >

x

)

Definition at line 104 of file interp.cc.

Referenced by last_eval(), and list_eval().

{
        return basic_evaluator::instance()->go(x);
}

ptr< l_cons > lestes::ui::extra_cons	(	ptr< l_object >	a,
		ptr< l_object >	d
	)

Definition at line 54 of file interp.cc.

Referenced by list_eval().

{
        return l_cons::create(a, d);
}

lp lestes::ui::last_eval

(

lp

x

)

Definition at line 69 of file interp.cc.

References car(), cdr(), endp(), and eval().

{
        lp res;
        while (!endp(x)) {
                res = eval(car(x));
                x = cdr(x);
        }
        return res;
}

lp lestes::ui::list_eval

(

lp

x

)

Definition at line 79 of file interp.cc.

References car(), cdr(), endp(), eval(), extra_cons(), and run().

{
        ptr < l_cons > res, run, tmp;
        if (endp(x))
                return eval(x);
        run = res = extra_cons(l_interpreter::nil_get(), l_interpreter::nil_get());
        while (!endp(x)) {
                run->car_set(eval(car(x)));
                x = cdr(x);
                if (!endp(x)) {
                        tmp = extra_cons(l_interpreter::nil_get(), l_interpreter::nil_get());
                        run->cdr_set(tmp);
                        run = tmp;
                }
        }
        run->cdr_set(eval(x));
        return res;
}

int lestes::ui::main

(

ptr< ::lestes::std::vector< lstring > >

args

)

Definition at line 40 of file ui/main.cc.

{
        vector<lstring>::iterator it = args->begin();
        vector<lstring>::iterator end = args->end();
        lstring progname = args->front();
        ++it;

        lstring as_filename = "";
        lstring ss_filename = "";

        for ( ; it != end ; ++it) {
                if ((*it)[0] != '-') {
                        tokeniser::input_set(istream_wrapper::create(
                                new ::std::ifstream(it->c_str()), true));
                        goto name_was_set;
                }
                if (*it == "--dump-flat-as") {
                }
        }
name_was_set:
        if (++it != end) {
                ::std::cerr << progname << ": extraneous argument: ``" << *it << "''\n";
                exit(1);
        }
        return 0;
}

lp lestes::ui::print

(

lp

a

)

Definition at line 98 of file interp.cc.

{
        printer::instance()->go(a);
        return a;
}

int lestes::ui::run

(

void

)

Definition at line 65 of file interp.test.cc.

References code, scan_string(), and yyparse().

Referenced by lestes::std::mem::gc_test(), list_eval(), and main().

{
        l_interpreter::init();
        scan_string(code);
        yyparse();
}

void lestes::ui::scan_string

(

lstring

str

)

Referenced by run().

void lestes::ui::yyerror

(

lstring

)

Definition at line 38 of file specs.cc.

{
}

int lestes::ui::yylex

(

)

Referenced by lestes::lang::cplus::syn::source_streamer::next(), and lestes::lang::cplus::syn::yylex().

void lestes::ui::yyparse

(

)

---

Variable Documentation

const char* lestes::ui::code

Initial value:

" t nil ''t '(t) '(t . t)\n"
" '(t t t nil a b c d e f) (set 'a 'b) a"
" #'function #'car #'%fset"
"\"aaa\""
"((lambda l l) a t nil)"
"(%fset 'list (lambda l l))"
"(list a t t a)"
"((lambda (a b) b) a t)"
"((macro (a b) (list 'quote a)) baalzabub)"
"(%fset 'defmacro"
"       (macro (n a . b)"
"             (list '%fset (list 'quote n)"
"                   (list 'macro a . b))))"
"(%fset 'defun"
"       (macro (n a . b)"
"             (list '%fset (list 'quote n)"
"                   (list 'lambda a . b))))"
"(defun atom (x) (not (consp x)))"
"(defun not (x) (eq x nil))"
"(%fset 'endp 'atom)"
"(cond)"
"(cond ((eq t nil) 'a)"
"      (t 'b))"
"(defmacro if (a b c) (list 'cond (list a b) (list t c)))"

Definition at line 36 of file interp.test.cc.

Referenced by lestes::md::mem::global_variable_allocator::emit_asm_declarations_for_initialized(), lestes::md::mem::global_variable_allocator::emit_asm_declarations_for_uninitialized(), lestes::backend_v2::workers::simple_spillgen::process(), run(), lestes::backend_v2::intercode::visitor_ge_operand2asm::visit_ge_operand_mem(), and lestes::backend_v2::intercode::visitor_ge_operand2asm::visit_ge_operand_reg().

---