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

use line input to read a line of a file insdeas of peek, fixes hang on files without "\n" at the end.

Browse Source
This commit is contained in:
Jim 2015-07-12 22:10:31 -07:00
parent afa8e9bf1a
commit edcdfd3231
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
yab-IDE/BuildFactory/BuildFactory.yab
View File

@ -314,13 +314,18 @@ end sub
// read in one line from the given file
/////////////////////////////////////////
sub LineInput$(n)
local tmp : local tmp$
while (tmp <> 10)
tmp = peek(n)
if (tmp < 0) continue
tmp$ = tmp$ + chr$(tmp)
wend
local tmp : local tmp$
// while (tmp <> 10)
// tmp = peek(n)
// if (tmp < 0) continue
// tmp$ = tmp$ + chr$(tmp)
// wend
// line input allows for final lines without a newline "\n"
line input #n tmp$
return trim$(tmp$)
end sub