リスト4.4に倣って以下のプログラムを作成し、ast.c, printast.cならびにbisonが出力したpicoc1.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 "picoc1.tab.h"
FILE *af;
ExprNodePtr ex;
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 }
/* fib(k-2)+fib(k-1)*in()+binom(k,2) を表すトークンの配列 */
Ttokens thetokens[]={
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_T(MUL),T_ID("in"),T_CH('('),T_CH(')'),
T_T(ADD),T_ID("binom"),T_CH('('),T_ID("k"),T_CH(','),T_INT(2),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()の中身を定義していなければ、
undefined reference to yyerrorコンパイルエラーが出る。その場合は
ここでの定義は不要なので、mainの前までを削除する */
#if 0
int yyerror( char *msg ){
fprintf( stderr, msg );
exit( 1 );
}
#endif
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, "in", 1, 0, 1, NULL );
symAdd( SYM_FUNC, "fib", 2, 1, 0, NULL );
symAdd( SYM_FUNC, "binom", 3, 2, 0, NULL );
symAdd( SYM_VAR, "k", 0, 0, 0, NULL );
/* 構文解析を実行 */
if( yyparse() ) return EXIT_FAILURE;
/* 結果を出力 */
printASTExpr( argc, argv, ex );
return EXIT_SUCCESS;
}