/[gcl]/gcl/bin/dpp.c
ViewVC logotype

Diff of /gcl/bin/dpp.c

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

revision 1.3 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.4 by camm, Sat Feb 15 00:38:27 2003 UTC
# Line 92  char pool[POOLSIZE]; Line 92  char pool[POOLSIZE];
92  char *poolp;  char *poolp;
93    
94  char *function;  char *function;
95    int fstatic;
96    
97  char *required[MAXREQ];  char *required[MAXREQ];
98  int nreq;  int nreq;
# Line 412  get_return() Line 413  get_return()
413  void  void
414  put_fhead()  put_fhead()
415  {  {
416          fprintf(out, "void\nL%s()\n{", function);          fprintf(out, "%svoid\nL%s()\n{", fstatic ? "static " : "",function);
417  }  }
418    
419  void  void
# Line 601  LOOP: Line 602  LOOP:
602          if (readc() != '(')          if (readc() != '(')
603                  error("@( expected");                  error("@( expected");
604          p = read_token();          p = read_token();
605            fstatic=0;
606            if (strcmp(p, "static") == 0) {
607              fstatic=1;
608              p = read_token();
609            }
610          if (strcmp(p, "defun") == 0) {          if (strcmp(p, "defun") == 0) {
611                  get_function();                  get_function();
612                  get_lambda_list();                  get_lambda_list();

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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