/[gcl]/gcl/o/lex.c
ViewVC logotype

Diff of /gcl/o/lex.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:11 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 30  Foundation, 675 Mass Ave, Cambridge, MA Line 30  Foundation, 675 Mass Ave, Cambridge, MA
30    
31    
32  object  object
33  assoc_eq(key, alist)  assoc_eq(object key, object alist)
 object key, alist;  
34  {  {
35          object endp_temp;          object endp_temp;
36    
# Line 43  object key, alist; Line 42  object key, alist;
42          return(Cnil);          return(Cnil);
43  }  }
44    
45  lex_fun_bind(name, fun)  void
46  object name, fun;  lex_fun_bind(object name, object fun)
47  {  {
48          object *top = vs_top;          object *top = vs_top;
49    
# Line 55  object name, fun; Line 54  object name, fun;
54          vs_top = top;          vs_top = top;
55  }  }
56    
57  lex_macro_bind(name, exp_fun)  void
58  object name, exp_fun;  lex_macro_bind(object name, object exp_fun)
59  {  {
60          object *top = vs_top;          object *top = vs_top;
61          vs_push(make_cons(exp_fun, Cnil));          vs_push(make_cons(exp_fun, Cnil));
# Line 66  object name, exp_fun; Line 65  object name, exp_fun;
65          vs_top = top;          vs_top = top;
66  }  }
67    
68  lex_tag_bind(tag, id)  void
69  object tag, id;  lex_tag_bind(object tag, object id)
70  {  {
71          object *top = vs_top;          object *top = vs_top;
72    
# Line 78  object tag, id; Line 77  object tag, id;
77          vs_top = top;          vs_top = top;
78  }  }
79    
80  lex_block_bind(name, id)  void
81  object name, id;  lex_block_bind(object name, object id)
82  {  {
83          object *top = vs_top;          object *top = vs_top;
84    
# Line 91  object name, id; Line 90  object name, id;
90  }  }
91    
92  object  object
93  lex_tag_sch(tag)  lex_tag_sch(object tag)
 object tag;  
94  {  {
95          object endp_temp;          object endp_temp;
96    
# Line 106  object tag; Line 104  object tag;
104          return(Cnil);          return(Cnil);
105  }  }
106    
107  object lex_block_sch(name)  object lex_block_sch(object name)
 object name;  
108  {  {
109          object endp_temp;          object endp_temp;
110    
# Line 121  object name; Line 118  object name;
118          return(Cnil);          return(Cnil);
119  }  }
120    
121  init_lex()  void
122    init_lex(void)
123  {  {
124          sLfunction = make_ordinary("FUNCTION");          sLfunction = make_ordinary("FUNCTION");
125          enter_mark_origin(&sLfunction);          enter_mark_origin(&sLfunction);

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26