リスト4.4に倣って以下のプログラムを作成し、ast.c, printast.cならびにbisonが出力したpicoc2.tab.cファイルとともにコンパイルする。
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "ast.h"
#include "gen.h"
#include "printast.h"
#if YYDEBUG
extern int yydebug;
#endif
/* bison -d -tが出力したヘッダーファイルをインクルードする */
#include "picoc2.tab.h"
FILE *af;
StmtNodePtr st;
typedef struct Tokens {
int sort;
int ival;
char *name;
} Ttokens;
#define T_T(t) { t, 0, NULL }
#define T_INT(k) { NUM, k, NULL }
#define T_ID(n) { ID, 0, n }
#define T_CH(c) { c, 0, NULL }
/*
if( k<2 ){ return 1; }
return fib(k-2)+fib(k-1);
を表すトークンの配列 */
Ttokens thetokens[] = {
T_T(IF), T_CH('('), T_ID("k"), T_T(BLT), T_INT(2), T_CH(')'), T_CH('{'),
T_T(RETURN), T_INT(1), T_CH(';'), T_CH('}'),
T_T(RETURN), T_ID("fib"), T_CH('('), T_ID("k"), T_T(SUB), T_INT(2), T_CH(')'),
T_T(ADD), T_ID("fib"), T_CH('('), T_ID("k"), T_T(SUB), T_INT(1), T_CH(')'),
T_CH(';'), T_CH(0) };
int yylex() {
static int i=0;
Ttokens *p = thetokens + i;
i++;
if(p->sort ==NUM)
yylval.ival = p->ival;
else if(p->sort==ID)
yylval.name = p->name;
return p->sort;
}
/* もし、bisonへの入力ファイル、例えばpicoc.yでyyerror()の中身を定義していれば、
multiple definition of `yyerror'などのコンパイルエラーが出る。その場合は
ここでの定義は不要なので、mainの前までを削除する */
int yyerror( char *msg ){
fprintf( stderr, msg );
exit( 1 );
}
int main( int argc, char **argv ){
#if YYDEBUG
int i;
for( i=1; i<argc; i++ ){
if( strcmp( argv[i], "-d" )==0 ) yydebug = 1;
}
#endif
/* 以下にthetokensに記述した関数と変数の定義を記述 */
symAdd( SYM_FUNC, "fib", 1, 1, 0, NULL );
symAdd( SYM_VAR, "k", 0, 0, 0, NULL );
/* 構文解析を実行 */
if( yyparse() ) return EXIT_FAILURE;
/* 結果を出力 */
printASTStmt( argc, argv, st );
return EXIT_SUCCESS;
}