QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-07 15:40:24 +00:00
Code Releases Wiki Activity

Reduces percentage updates for console compilation.

Browse source
This commit is contained in:
FellippeHeitor 2020-01-22 14:59:30 -03:00
parent 3ac4b2fedd
commit bd7a6757d0
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
source/qb64.bas
View file

@ -2724,17 +2724,20 @@ DO
'END IF 'END IF
maxprogresswidth = 50 'arbitrary maxprogresswidth = 50 'arbitrary
percentage = INT(reallinenumber / totallinenumber * 100) percentage = INT(reallinenumber / totallinenumber * 100)
percentagechars = INT(maxprogresswidth * reallinenumber / totallinenumber) IF percentage <> prevpercentage THEN
IF ConsoleMode THEN prevpercentage = percentage
PRINT "[" + STRING$(percentagechars, ".") + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%"; percentagechars = INT(maxprogresswidth * reallinenumber / totallinenumber)
IF os$ = "LNX" THEN IF ConsoleMode THEN
PRINT CHR$(27) + "[A" PRINT "[" + STRING$(percentagechars, ".") + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
IF os$ = "LNX" THEN
PRINT CHR$(27) + "[A"
ELSE
PRINT CHR$(13);
END IF
ELSE ELSE
PRINT CHR$(13); LOCATE , 1
PRINT "[" + STRING$(percentagechars, 254) + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
END IF END IF
ELSE
LOCATE , 1
PRINT "[" + STRING$(percentagechars, 254) + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
END IF END IF
END IF END IF
@ -12509,7 +12512,7 @@ FUNCTION ParseCMDLineArgs$ ()
CASE "-s" 'Settings CASE "-s" 'Settings
settingsMode = -1 settingsMode = -1
_DEST _CONSOLE _DEST _CONSOLE
IF qb64versionprinted = 0 THEN qb64versionprinted = -1: PRINT "QB64 COMPILER V" + Version$ IF qb64versionprinted = 0 THEN qb64versionprinted = -1: PRINT "QB64 Compiler V" + Version$
SELECT CASE LCASE$(MID$(token$, 3)) SELECT CASE LCASE$(MID$(token$, 3))
CASE "" CASE ""
PRINT "debuginfo = "; PRINT "debuginfo = ";