haikuprojects/Yab2Cpp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix flex-bison.yab

Browse Source
This commit is contained in:
Jim Saxton
2017-08-05 21:31:17 -07:00
parent f2f13d7c3f
commit 6cdea126bd
1 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
yab-IDE/BuildFactory/flex-bison.yab
View File

@@ -15,6 +15,8 @@ system ("mv flex.c tmpflex.c")
open #1, "tmpflex.c", "r" open #1, "tmpflex.c", "r"
open #2, "outflex.c", "w" open #2, "outflex.c", "w"
while (a$<>"#include <stdlib.h>") while (a$<>"#include <stdlib.h>")
line input #1 a$ line input #1 a$
print #2 a$ print #2 a$
@@ -23,6 +25,20 @@ wend
print #2 "#include <zlib.h>" print #2 "#include <zlib.h>"
print #2 "#include "+chr$(34)+"program.h"+chr$(34) print #2 "#include "+chr$(34)+"program.h"+chr$(34)
print #2 "static int isparsed = 0;" print #2 "static int isparsed = 0;"
systype$=system$("getarch")
systype$=trim$(systype$)
if systype$="x86_64" then
while (a$<>"#define YY_BUF_SIZE 32768")
line input #1 a$
if (a$<>"#define YY_BUF_SIZE 32768") print #2 a$
wend
print #2 "#define YY_BUF_SIZE PROGLEN"
endif
while (a$<>"#define YY_BUF_SIZE 16384") while (a$<>"#define YY_BUF_SIZE 16384")
line input #1 a$ line input #1 a$
@@ -35,7 +51,7 @@ found=0
while (found=0) while (found=0)
line input #1 a$ line input #1 a$
if (!instr(a$,"while ( (result = fread"))then if (!instr(a$,"while ( (result = fread")) and (!instr(a$,"while ( (result = (int) fread")) then
print #2 a$ print #2 a$
else else
found=1 found=1