/[cvs]/stack/stack.h
ViewVC logotype

Annotation of /stack/stack.h

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.21 - (hide annotations)
Sat Mar 30 02:31:24 2002 UTC (22 years, 1 month ago) by teddy
Branch: MAIN
Changes since 1.20: +17 -4 lines
File MIME type: text/plain 
stack.c (gc_init): Don't GC ports.
(nl): Added an "environment*" argument.  All callers changed.
(nlport): New function.
(type): Know about ports.
(print_val): Added a FILE* argument to print to.  All callers changed.
	Also check for write errors from "fprintf".  Also, print
	ports.  If printing a list, goto out of it if a write error
	occurs and don't print any further.
(print_): Check for errors after "print_val".
(printport_, printport, princport_, princport): New functions.
(print_st): Added an "environment*" argument.  All callers changed.
(eval): Toss empty lists; if lists are functions, then empty lists are
	NOPs.  Also, don't eval ports.
(main): Reset error after showing it to protect "nl" and "printstack".
(copy_val): Don't protect the old value.  Was there ever a need to do
	that?  Also, know about ports.
(readline): Just call "readlinestream".
(readlineport, readlinestream): New functions.
(read): Just call "readstream".
(readport, readstream): New functions.
(sx_6f70656e, sx_636c6f7365): New functions "open" and "close".

stack.h (value.type): New type; "port".
(value.content): New container; "p".
(nl): Added an "environment*" argument.
(nlport): New function.
(print_val): Added a FILE* argument.
(printport_, printport, princport_, princport): New functions.
(print_st): Added an "environment*" argument.
(readlineport, readlinestream, readport, readstream, sx_6f70656e,
sx_636c6f7365): New functions.
1 teddy 1.4 /*
2     stack - an interactive interpreter for a stack-based language
3     Copyright (C) 2002 Mats Alritzson and Teddy Hogeborn
4    
5     This program is free software; you can redistribute it and/or modify
6     it under the terms of the GNU General Public License as published by
7     the Free Software Foundation; either version 2 of the License, or
8     (at your option) any later version.
9    
10     This program is distributed in the hope that it will be useful,
11     but WITHOUT ANY WARRANTY; without even the implied warranty of
12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13     GNU General Public License for more details.
14    
15     You should have received a copy of the GNU General Public License
16     along with this program; if not, write to the Free Software
17     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18    
19     Authors: Mats Alritzson <masse@fukt.bth.se>
20     Teddy Hogeborn <teddy@fukt.bth.se>
21     */
22 teddy 1.1
23     #define HASHTBLSIZE 2048
24    
25     /* First, define some types. */
26    
27 masse 1.10 struct cons_struct;
28 masse 1.13 struct symbol_struct;
29 masse 1.10
30 teddy 1.1 /* A value of some type */
31     typedef struct {
32     enum {
33 teddy 1.15 empty, /* The empty list */
34 teddy 1.1 integer,
35 masse 1.5 tfloat,
36 teddy 1.1 string,
37     func, /* Function pointer */
38 teddy 1.11 symb, /* Symbol */
39 teddy 1.21 tcons, /* A pair of two values */
40     port /* An I/O port */
41 masse 1.5 } type:4; /* Type of stack element */
42 masse 1.2
43 teddy 1.9 union {
44     struct {
45 teddy 1.11 unsigned int mark:1; /* Used internally in the GC */
46     unsigned int protect:1; /* Protect from GC */
47 teddy 1.9 } flag;
48 teddy 1.11 unsigned int no_gc:2; /* Both flags as one integer */
49     } gc; /* Garbage collector stuff */
50 teddy 1.1
51     union {
52     void *ptr; /* Pointer to the content */
53 teddy 1.11 struct cons_struct *c; /* ...or a pointer to a cons cell */
54 masse 1.13 struct symbol_struct *sym; /* ...or a pointer to a symbol */
55 teddy 1.21 FILE *p; /* ...or an I/O stream */
56 masse 1.5 int i; /* ...or an integer */
57 teddy 1.11 float f; /* ...or a floating point number */
58 teddy 1.1 } content; /* Stores a pointer or an integer */
59    
60     } value;
61    
62 masse 1.10 /* An item (value) on a stack */
63     typedef struct stackitem_struct
64     {
65     value *item; /* The value on the stack */
66     /* (This is never NULL) */
67     struct stackitem_struct *next; /* Next item */
68     } stackitem;
69    
70 teddy 1.11 typedef struct cons_struct { /* A pair of two values */
71 masse 1.10 value *car;
72     value *cdr;
73 teddy 1.16 } pair;
74 masse 1.10
75 teddy 1.1 /* A symbol with a name and possible value */
76     /* (These do not need reference counters, they are kept unique by
77     hashing.) */
78     typedef struct symbol_struct {
79     char *id; /* Symbol name */
80     value *val; /* The value (if any) bound to it */
81     struct symbol_struct *next; /* In case of hashing conflicts, a */
82     } symbol; /* symbol is a kind of stack item. */
83    
84     /* A type for a hash table for symbols */
85     typedef symbol *hashtbl[HASHTBLSIZE]; /* Hash table declaration */
86    
87     /* An environment; gives access to the stack and a hash table of
88     defined symbols */
89     typedef struct {
90 masse 1.12 value *head; /* Head of the stack */
91 teddy 1.1 hashtbl symbols; /* Hash table of all variable bindings */
92     int err; /* Error flag */
93     char *in_string; /* Input pending to be read */
94     char *free_string; /* Free this string when all input is
95 teddy 1.4 read from in_string */
96 teddy 1.1 FILE *inputstream; /* stdin or a file, most likely */
97     int interactive; /* print prompts, stack, etc */
98 teddy 1.15
99     /* Garbage Collector stuff*/
100     stackitem *gc_ref; /* Stack of all allocated values */
101     int gc_limit; /* Run GC when this much is allocated */
102     int gc_count; /* Amount currently allocated */
103 teddy 1.1 } environment;
104    
105     /* A type for pointers to external functions */
106 masse 1.2 typedef void (*funcp)(environment*); /* funcp is a pointer to a void
107 teddy 1.1 function (environment *) */
108    
109 masse 1.2 void init_env(environment*);
110     void printerr(const char*);
111     extern void toss(environment*);
112     symbol **hash(hashtbl, const char*);
113     value* new_val(environment*);
114     void gc_mark(value*);
115 teddy 1.17 void gc_maybe(environment*);
116 masse 1.2 extern void gc_init(environment*);
117 teddy 1.17 void protect(value*);
118     void unprotect(value*);
119 masse 1.2 void push_val(environment*, value*);
120     void push_int(environment*, int);
121 masse 1.5 void push_float(environment*, float);
122 masse 1.2 void push_cstring(environment*, const char*);
123     char *mangle_str(const char*);
124     extern void mangle(environment*);
125     void push_sym(environment*, const char*);
126 teddy 1.21 extern void nl(environment*);
127     extern void nlport(environment*);
128 masse 1.2 extern void type(environment*);
129 teddy 1.21 void print_val(environment *, value*, int, stackitem*, FILE*);
130 masse 1.2 extern void print_(environment*);
131     extern void print(environment*);
132     extern void princ_(environment*);
133     extern void princ(environment*);
134 teddy 1.21 extern void printport_(environment*);
135     extern void printport(environment*);
136     extern void princport_(environment*);
137     extern void princport(environment*);
138     void print_st(environment*, value*, long);
139 masse 1.2 extern void printstack(environment*);
140     extern void swap(environment*);
141     extern void rot(environment*);
142     extern void rcl(environment*);
143     extern void eval(environment*);
144     extern void rev(environment*);
145     extern void pack(environment*);
146     extern void expand(environment*);
147     extern void eq(environment*);
148     extern void not(environment*);
149     extern void neq(environment*);
150     extern void def(environment*);
151     extern void quit(environment*);
152     extern void clear(environment*);
153     extern void words(environment*);
154     void forget_sym(symbol**);
155     extern void forget(environment*);
156     extern void errn(environment*);
157     extern void sx_2b(environment*);
158     extern void sx_2d(environment*);
159     extern void sx_3e(environment*);
160 teddy 1.17 extern void sx_3c(environment*);
161     extern void sx_3c3d(environment*);
162     extern void sx_3e3d(environment*);
163 masse 1.2 value *copy_val(environment*, value*);
164     extern void sx_647570(environment*);
165     extern void sx_6966(environment*);
166     extern void ifelse(environment*);
167 teddy 1.17 extern void sx_656c7365(environment*);
168     extern void then(environment*);
169 masse 1.2 extern void sx_7768696c65(environment*);
170     extern void sx_666f72(environment*);
171 teddy 1.17 extern void foreach(environment*);
172 masse 1.2 extern void to(environment*);
173     extern void readline(environment*);
174 teddy 1.21 extern void readlineport(environment*);
175     void readlinestream(environment*, FILE*);
176 masse 1.2 extern void sx_72656164(environment*);
177 teddy 1.21 extern void readport(environment*);
178     void readstream(environment*, FILE*);
179 teddy 1.17 extern void beep(environment*);
180     extern void sx_77616974(environment*);
181 masse 1.5 extern void copying(environment*);
182     extern void warranty(environment*);
183     extern void sx_2a(environment*);
184     extern void sx_2f(environment*);
185     extern void mod(environment*);
186 masse 1.6 extern void sx_646976(environment*);
187 teddy 1.17 extern void setcar(environment*);
188     extern void setcdr(environment*);
189     extern void car(environment*);
190     extern void cdr(environment*);
191     extern void cons(environment*);
192 teddy 1.18 extern void assq(environment*);
193 teddy 1.19 void assocgen(environment*, funcp);
194 masse 1.20 extern void sx_646f(environment *);
195 teddy 1.21 extern void sx_6f70656e(environment*);
196     extern void sx_636c6f7365(environment*);
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26