/usr/share/doc/pccts/examples/sorcerer/test/test7/test7.c is in pccts 1.33MR33-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 | /*
* S O R C E R E R T r a n s l a t i o n H e a d e r
*
* SORCERER Developed by Terence Parr, Aaron Sawdey, & Gary Funck
* Parr Research Corporation, Intrepid Technology, University of Minnesota
* 1992-1994
* SORCERER Version 1.00B15
*/
#define SORCERER_VERSION 100B15
#define SORCERER_NONTRANSFORM
#include <stdio.h>
#include <setjmp.h>
#include "stdpccts.h" /* define ANTLR tree stuff and token types */
typedef AST SORAST;
#include "sorcerer.h"
extern void gen_stat();
extern void gen_expr();
void
#ifdef __USE_PROTOS
_refvar_inits(STreeParser *p)
#else
_refvar_inits(p)
STreeParser *p;
#endif
{
}
#include "errsupport.c" /* define some default error routines */
void gen_stat(_parser, _root)
STreeParser *_parser;
SORAST **_root;
{
SORAST *_t = *_root;
SORAST *t=NULL;
if ( _t!=NULL && (_t->token==ASSIGN) ) {
{_SAVE; TREE_CONSTR_PTRS;
_MATCH(ASSIGN);
_DOWN;
_MATCH(ID);
t=(SORAST *)_t;
_RIGHT;
gen_expr(_parser, &_t);
_RESTORE;
}
_RIGHT;
printf("\tstore %s\n", t->text);
}
else {
if ( _parser->guessing ) _GUESS_FAIL;
no_viable_alt(_parser, "gen_stat", _t);
}
*_root = _t;
}
void gen_expr(_parser, _root)
STreeParser *_parser;
SORAST **_root;
{
SORAST *_t = *_root;
SORAST *t=NULL;
if ( _t!=NULL && (_t->token==ADD) ) {
{_SAVE; TREE_CONSTR_PTRS;
_MATCH(ADD);
_DOWN;
gen_expr(_parser, &_t);
gen_expr(_parser, &_t);
_RESTORE;
}
_RIGHT;
printf("\tadd\n");
}
else {
if ( _t!=NULL && (_t->token==MULT) ) {
{_SAVE; TREE_CONSTR_PTRS;
_MATCH(MULT);
_DOWN;
gen_expr(_parser, &_t);
gen_expr(_parser, &_t);
_RESTORE;
}
_RIGHT;
printf("\tmult\n");
}
else {
if ( _t!=NULL && (_t->token==ID) ) {
_MATCH(ID);
t=(SORAST *)_t;
_RIGHT;
printf("\tpush %s\n", t->text);
}
else {
if ( _t!=NULL && (_t->token==INT) ) {
_MATCH(INT);
t=(SORAST *)_t;
_RIGHT;
printf("\tpush %s\n", t->text);
}
else {
if ( _parser->guessing ) _GUESS_FAIL;
no_viable_alt(_parser, "gen_expr", _t);
}
}
}
}
*_root = _t;
}
|