first commit

Author: hcj

.Trash-0/files/src.lex

@@ -0,0 +1,83 @@
+TOKEN-TYPE          TOKEN-VALUE
+-------------------------------------------------
+T_Int               int
+T_Identifier        main
+(                   (
+)                   )
+{                   {
+T_Int               int
+T_Identifier        n
+;                   ;
+T_Identifier        n
+=                   =
+T_IntConstant       1
+;                   ;
+T_Print             print
+(                   (
+T_StringConstant    "The first 10 number of the fibonacci sequence:"
+)                   )
+;                   ;
+T_While             while
+(                   (
+T_Identifier        n
+T_Le                <=
+T_IntConstant       10
+)                   )
+{                   {
+T_Print             print
+(                   (
+T_StringConstant    "fib(%d)=%d"
+,                   ,
+T_Identifier        n
+,                   ,
+T_Identifier        fib
+(                   (
+T_Identifier        n
+)                   )
+)                   )
+;                   ;
+T_Identifier        n
+=                   =
+T_Identifier        n
++                   +
+T_IntConstant       1
+;                   ;
+}                   }
+T_Return            return
+T_IntConstant       0
+;                   ;
+}                   }
+T_Int               int
+T_Identifier        fib
+(                   (
+T_Int               int
+T_Identifier        n
+)                   )
+{                   {
+T_If                if
+(                   (
+T_Identifier        n
+T_Le                <=
+T_IntConstant       2
+)                   )
+{                   {
+T_Return            return
+T_IntConstant       1
+;                   ;
+}                   }
+T_Return            return
+T_Identifier        fib
+(                   (
+T_Identifier        n
+-                   -
+T_IntConstant       1
+)                   )
++                   +
+T_Identifier        fib
+(                   (
+T_Identifier        n
+-                   -
+T_IntConstant       2
+)                   )
+;                   ;
+}                   }

.Trash-0/info/src.lex.trashinfo

@@ -0,0 +1,3 @@
+[Trash Info]
+Path=ch8/tinyc_scanner/src.lex
+DeletionDate=2015-05-31T09:42:08

README.md

@@ -0,0 +1 @@
+http://pandolia.net/tinyc

ch13/bison_1/calc.l

@@ -0,0 +1,13 @@
+%{
+#include "y.tab.h"
+%}
+
+%%
+[0-9]+          { yylval = atoi(yytext); return T_NUM; }
+[-/+*()\n]      { return yytext[0]; }
+.               { return 0; /* end when meet everything else */ }
+%%
+
+int yywrap(void) { 
+    return 1;
+}

ch13/bison_1/calc.y

@@ -0,0 +1,29 @@
+%{
+#include <stdio.h>
+void yyerror(const char* msg) {}
+%}
+
+%token T_NUM
+
+%left '+' '-'
+%left '*' '/'
+
+%%
+
+S   :   S E '\n'        { printf("ans = %d\n", $2); }
+    |   /* empty */     { /* empty */ }
+    ;
+
+E   :   E '+' E         { $$ = $1 + $3; }
+    |   E '-' E         { $$ = $1 - $3; }
+    |   E '*' E         { $$ = $1 * $3; }
+    |   E '/' E         { $$ = $1 / $3; }
+    |   T_NUM           { $$ = $1; }
+    |   '(' E ')'       { $$ = $2; }
+    ;
+
+%%
+
+int main() {
+    return yyparse();
+}

ch13/bison_1/makefile

@@ -0,0 +1,14 @@
+CC = gcc
+OBJ = lex.yy.o y.tab.o
+
+calc: $(OBJ)
+	$(CC) -o calc $(OBJ)
+
+lex.yy.c: calc.l y.tab.c
+	flex $<
+
+y.tab.c: calc.y
+	bison -vdty $<
+
+clean:
+	rm -f *.o lex.yy.c y.tab.c y.tab.h y.output calc

ch13/bison_2/makefile

@@ -0,0 +1,22 @@
+CC = gcc
+OUT = tcc
+OBJ = lex.yy.o y.tab.o
+SCANNER = scanner.l
+PARSER = parser.y
+
+build: $(OUT)
+
+run: $(OUT)
+	./$(OUT) < test.c > test.asm
+
+clean:
+	rm -f *.o lex.yy.c y.tab.c y.tab.h y.output $(OUT)
+
+$(OUT): $(OBJ)
+	$(CC) -o $(OUT) $(OBJ)
+
+lex.yy.c: $(SCANNER) y.tab.c
+	flex $<
+
+y.tab.c: $(PARSER)
+	bison -vdty $<

ch13/bison_2/parser.y

@@ -0,0 +1,37 @@
+%{
+#include <stdio.h>
+#include <stdlib.h>
+void yyerror(const char*);
+#define YYSTYPE char *
+%}
+
+%token T_IntConstant T_Identifier
+
+%left '+' '-'
+%left '*' '/'
+%right U_neg
+
+%%
+
+S   :   Stmt
+    |   S Stmt
+    ;
+
+Stmt:   T_Identifier '=' E ';'  { printf("pop %s\n\n", $1); }
+    ;
+
+E   :   E '+' E                 { printf("add\n"); }
+    |   E '-' E                 { printf("sub\n"); }
+    |   E '*' E                 { printf("mul\n"); }
+    |   E '/' E                 { printf("div\n"); }
+    |   '-' E %prec U_neg       { printf("neg\n"); }
+    |   T_IntConstant           { printf("push %s\n", $1); }
+    |   T_Identifier            { printf("push %s\n", $1); }
+    |   '(' E ')'               { /* empty */ }
+    ;
+
+%%
+
+int main() {
+    return yyparse();
+}

ch13/bison_2/scanner.l

@@ -0,0 +1,36 @@
+%{
+#define YYSTYPE char *
+#include "y.tab.h"
+int cur_line = 1;
+void yyerror(const char *msg);
+void unrecognized_char(char c);
+%}
+
+OPERATOR        [-/+*()=;]
+INTEGER         [0-9]+
+IDENTIFIER      [_a-zA-Z][_a-zA-Z0-9]*
+WHITESPACE      [ \t]*
+
+%%
+{OPERATOR}      { return yytext[0]; }
+{INTEGER}       { yylval = strdup(yytext); return T_IntConstant; }
+{IDENTIFIER}    { yylval = strdup(yytext); return T_Identifier; }
+{WHITESPACE}    { /* ignore every whitespcace */ }
+\n              { cur_line++; }
+.               { unrecognized_char(yytext[0]); }
+%%
+
+int yywrap(void) { 
+    return 1;
+}
+
+void unrecognized_char(char c) {
+    char buf[32] = "Unrecognized character: ?";
+    buf[24] = c;
+    yyerror(buf);
+}
+
+void yyerror(const char *msg) {
+    printf("Error at line %d:\n\t%s\n", cur_line, msg);
+    exit(1);
+}

ch13/bison_2/test.asm

@@ -0,0 +1,23 @@
+push 1
+push 2
+push 2
+push 2
+add
+mul
+add
+pop a
+
+push c
+push d
+add
+pop b
+
+push f
+push 7
+push 8
+mul
+push 9
+div
+add
+pop e
+