Parent Directory | Revision Log | 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(); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |