mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 17:00:26 +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:
parent
dc1fca8e1c
commit
dc22c6e5a8
2
.gitignore
vendored
2
.gitignore
vendored
|
@ -1,5 +1,7 @@
|
||||||
internal/c/c_compiler
|
internal/c/c_compiler
|
||||||
internal/temp
|
internal/temp
|
||||||
|
internal/temp2
|
||||||
|
internal/temp3
|
||||||
*.o
|
*.o
|
||||||
*.a
|
*.a
|
||||||
*.exe
|
*.exe
|
||||||
|
|
|
@ -4,4 +4,4 @@ DIM SHARED AutoBuildMsg AS STRING
|
||||||
Version$ = "1.1"
|
Version$ = "1.1"
|
||||||
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
|
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
|
||||||
'integer. If you make a change, update the date and increase the id!
|
'integer. If you make a change, update the date and increase the id!
|
||||||
BuildNum$ = "20170802/57"
|
BuildNum$ = "20170802/58"
|
||||||
|
|
|
@ -22470,6 +22470,7 @@ END IF
|
||||||
b = 0
|
b = 0
|
||||||
e$ = ""
|
e$ = ""
|
||||||
last = 0
|
last = 0
|
||||||
|
PRINT #12, "tqbs=qbs_new(0,0);" 'initialize the temp string
|
||||||
FOR i = 2 TO n
|
FOR i = 2 TO n
|
||||||
a2$ = getelement(ca$, i)
|
a2$ = getelement(ca$, i)
|
||||||
IF a2$ = "(" THEN b = b + 1
|
IF a2$ = "(" THEN b = b + 1
|
||||||
|
@ -22501,12 +22502,10 @@ FOR i = 2 TO n
|
||||||
END IF
|
END IF
|
||||||
IF (typ AND ISREFERENCE) THEN e$ = refer(e$, typ, 0)
|
IF (typ AND ISREFERENCE) THEN e$ = refer(e$, typ, 0)
|
||||||
IF Error_Happened THEN EXIT SUB
|
IF Error_Happened THEN EXIT SUB
|
||||||
PRINT #12, "tqbs=qbs_new(0,0);"
|
|
||||||
PRINT #12, "qbs_set(tqbs," + e$ + ");"
|
PRINT #12, "qbs_set(tqbs," + e$ + ");"
|
||||||
PRINT #12, "if (new_error) goto skip" + u$ + ";"
|
PRINT #12, "if (new_error) goto skip" + u$ + ";"
|
||||||
IF lp THEN PRINT #12, "lprint_makefit(tqbs);" ELSE PRINT #12, "makefit(tqbs);"
|
IF lp THEN PRINT #12, "lprint_makefit(tqbs);" ELSE PRINT #12, "makefit(tqbs);"
|
||||||
PRINT #12, "qbs_" + lp$ + "print(tqbs,0);"
|
PRINT #12, "qbs_" + lp$ + "print(tqbs,0);"
|
||||||
PRINT #12, "qbs_free(tqbs);"
|
|
||||||
ELSE
|
ELSE
|
||||||
IF a2$ = "," THEN l$ = l$ + sp + a2$
|
IF a2$ = "," THEN l$ = l$ + sp + a2$
|
||||||
IF a2$ = ";" THEN
|
IF a2$ = ";" THEN
|
||||||
|
@ -22533,6 +22532,7 @@ NEXT
|
||||||
IF LEN(e$) THEN a2$ = "": last = 1: GOTO printlast
|
IF LEN(e$) THEN a2$ = "": last = 1: GOTO printlast
|
||||||
IF n = 1 THEN PRINT #12, "qbs_" + lp$ + "print(nothingstring,1);"
|
IF n = 1 THEN PRINT #12, "qbs_" + lp$ + "print(nothingstring,1);"
|
||||||
PRINT #12, "skip" + u$ + ":"
|
PRINT #12, "skip" + u$ + ":"
|
||||||
|
PRINT #12, "qbs_free(tqbs);"
|
||||||
PRINT #12, cleanupstringprocessingcall$ + "0);"
|
PRINT #12, cleanupstringprocessingcall$ + "0);"
|
||||||
IF lp THEN PRINT #12, "tab_LPRINT=0;"
|
IF lp THEN PRINT #12, "tab_LPRINT=0;"
|
||||||
tlayout$ = l$
|
tlayout$ = l$
|
||||||
|
|
Loading…
Reference in a new issue