1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-01 09:10:37 +00:00

Print Output Simplification

Minor change to simplify and clean up the output which QB64 creates with
PRINT statements with multiple print segments such as PRINT "A"; "B";
"C".
This commit is contained in:
SteveMcNeill 2017-08-02 21:40:32 -04:00
parent dc1fca8e1c
commit dc22c6e5a8
3 changed files with 5 additions and 3 deletions

2
.gitignore vendored
View file

@ -1,5 +1,7 @@
internal/c/c_compiler
internal/temp
internal/temp2
internal/temp3
*.o
*.a
*.exe

View file

@ -4,4 +4,4 @@ DIM SHARED AutoBuildMsg AS STRING
Version$ = "1.1"
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
'integer. If you make a change, update the date and increase the id!
BuildNum$ = "20170802/57"
BuildNum$ = "20170802/58"

View file

@ -22470,6 +22470,7 @@ END IF
b = 0
e$ = ""
last = 0
PRINT #12, "tqbs=qbs_new(0,0);" 'initialize the temp string
FOR i = 2 TO n
a2$ = getelement(ca$, i)
IF a2$ = "(" THEN b = b + 1
@ -22501,12 +22502,10 @@ FOR i = 2 TO n
END IF
IF (typ AND ISREFERENCE) THEN e$ = refer(e$, typ, 0)
IF Error_Happened THEN EXIT SUB
PRINT #12, "tqbs=qbs_new(0,0);"
PRINT #12, "qbs_set(tqbs," + e$ + ");"
PRINT #12, "if (new_error) goto skip" + u$ + ";"
IF lp THEN PRINT #12, "lprint_makefit(tqbs);" ELSE PRINT #12, "makefit(tqbs);"
PRINT #12, "qbs_" + lp$ + "print(tqbs,0);"
PRINT #12, "qbs_free(tqbs);"
ELSE
IF a2$ = "," THEN l$ = l$ + sp + a2$
IF a2$ = ";" THEN
@ -22533,6 +22532,7 @@ NEXT
IF LEN(e$) THEN a2$ = "": last = 1: GOTO printlast
IF n = 1 THEN PRINT #12, "qbs_" + lp$ + "print(nothingstring,1);"
PRINT #12, "skip" + u$ + ":"
PRINT #12, "qbs_free(tqbs);"
PRINT #12, cleanupstringprocessingcall$ + "0);"
IF lp THEN PRINT #12, "tab_LPRINT=0;"
tlayout$ = l$