mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 15:40:24 +00:00
Reduces percentage updates for console compilation.
This commit is contained in:
parent
3ac4b2fedd
commit
bd7a6757d0
|
@ -2724,6 +2724,8 @@ DO
|
|||
'END IF
|
||||
maxprogresswidth = 50 'arbitrary
|
||||
percentage = INT(reallinenumber / totallinenumber * 100)
|
||||
IF percentage <> prevpercentage THEN
|
||||
prevpercentage = percentage
|
||||
percentagechars = INT(maxprogresswidth * reallinenumber / totallinenumber)
|
||||
IF ConsoleMode THEN
|
||||
PRINT "[" + STRING$(percentagechars, ".") + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
|
||||
|
@ -2737,6 +2739,7 @@ DO
|
|||
PRINT "[" + STRING$(percentagechars, 254) + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
|
||||
a3$ = LTRIM$(RTRIM$(a3$))
|
||||
wholeline = a3$
|
||||
|
@ -12509,7 +12512,7 @@ FUNCTION ParseCMDLineArgs$ ()
|
|||
CASE "-s" 'Settings
|
||||
settingsMode = -1
|
||||
_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))
|
||||
CASE ""
|
||||
PRINT "debuginfo = ";
|
||||
|
|
Loading…
Reference in a new issue