migrate to gitlab

1 files changed, 75 insertions, 0 deletions

diff --git a/bc.l b/bc.l
new file mode 100644
index 0000000..3fdb7ae
--- /dev/null
+++ b/bc.l
@@ -0,0 +1,75 @@
+%{
+#define _XOPEN_SOURCE 700
+#include "bc.h"
+#include "y.tab.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+int fileno(FILE *);
+%}
+
+DIGIT [0-9A-F]
+LETTER [a-z]
+WHITESPACE [ \t\f\v]
+MUL_OPS [*/%]
+
+%x COMMENT
+
+%%
+"/*"		{ BEGIN COMMENT; }
+<COMMENT>"*/"	{ BEGIN INITIAL; }
+<COMMENT>.|\n	;
+
+{DIGIT}+	{ bc_char += strlen(yytext); yylval.num = bc_new(yytext); return NUMBER; }
+\.{DIGIT}+	{ bc_char += strlen(yytext); yylval.num = bc_new(yytext); return NUMBER; }
+{DIGIT}+\.	{ bc_char += strlen(yytext); yylval.num = bc_new(yytext); return NUMBER; }
+{DIGIT}+\.{DIGIT}+ { bc_char += strlen(yytext); yylval.num = bc_new(yytext); return NUMBER; }
+
+"*"	{ bc_char += strlen(yytext); yylval.op = MUL; return MUL_OP; }
+"%"	{ bc_char += strlen(yytext); yylval.op = MOD; return MUL_OP; }
+"\/"	{ bc_char += strlen(yytext); yylval.op = DIV; return MUL_OP; }
+
+"+"	{ bc_char += strlen(yytext); yylval.op = ADD; return ADD_OP; }
+"-"	{ bc_char += strlen(yytext); yylval.op = SUB; return SUB_OP; }
+"^"	{ bc_char += strlen(yytext); yylval.op = POW; return POW_OP; }
+
+"="	{ bc_char += strlen(yytext); yylval.op = SET; return ASSIGN_OP; }
+"+="	{ bc_char += strlen(yytext); yylval.op = SADD; return ASSIGN_OP; }
+"-="	{ bc_char += strlen(yytext); yylval.op = SSUB; return ASSIGN_OP; }
+"*="	{ bc_char += strlen(yytext); yylval.op = SMUL; return ASSIGN_OP; }
+"\/="	{ bc_char += strlen(yytext); yylval.op = SDIV; return ASSIGN_OP; }
+"%="	{ bc_char += strlen(yytext); yylval.op = SMOD; return ASSIGN_OP; }
+"^="	{ bc_char += strlen(yytext); yylval.op = SPOW; return ASSIGN_OP; }
+
+"=="	{ bc_char += strlen(yytext); yylval.op = EQ; return REL_OP; }
+"<="	{ bc_char += strlen(yytext); yylval.op = LE; return REL_OP; }
+">="	{ bc_char += strlen(yytext); yylval.op = GE; return REL_OP; }
+"!="	{ bc_char += strlen(yytext); yylval.op = NE; return REL_OP; }
+"<"	{ bc_char += strlen(yytext); yylval.op = LT; return REL_OP; }
+">"	{ bc_char += strlen(yytext); yylval.op = GT; return REL_OP; }
+
+"++"	{ bc_char += strlen(yytext); yylval.op = INC; return INCR_DECR; }
+"--"	{ bc_char += strlen(yytext); yylval.op = DEC; return INCR_DECR; }
+
+"define"	{ bc_char += strlen(yytext); return Define; }
+"break"		{ bc_char += strlen(yytext); return Break; }
+"quit"		{ bc_char += strlen(yytext); return Quit; }
+"length"	{ bc_char += strlen(yytext); return Length; }
+"return"	{ bc_char += strlen(yytext); return Return; }
+"for"		{ bc_char += strlen(yytext); return For; }
+"if"		{ bc_char += strlen(yytext); return If; }
+"while"		{ bc_char += strlen(yytext); return While; }
+"sqrt"		{ bc_char += strlen(yytext); return Sqrt; }
+"scale"		{ bc_char += strlen(yytext); return Scale; }
+"ibase"		{ bc_char += strlen(yytext); return Ibase; }
+"obase"		{ bc_char += strlen(yytext); return Obase; }
+"auto"		{ bc_char += strlen(yytext); return Auto; }
+
+"\n"		{ bc_lineno++; bc_char = 1; return NEWLINE; }
+
+\(|\)|\[|\]|;|,	{ bc_char++; return yytext[0]; }
+
+{LETTER}	{ bc_char++; yylval.c = yytext[0]; return LETTER; }
+
+{WHITESPACE}	{ bc_char++; }
+.		{ bc_char++; }