1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 15:00:38 +00:00

Add -u command line switch

- `qb64 -u` can be used during build to populate internal/help, it basically invokes the "Update all pages" action from the IDE's Help menu
- switch is not listed in -? usage help, as I consider it a hidden build-only option
This commit is contained in:
Roland Heyder 2022-05-31 00:56:32 +02:00
parent 24250e4ce2
commit 7b91fdc592
2 changed files with 21 additions and 5 deletions

View file

@ -5415,7 +5415,9 @@ FUNCTION ide2 (ignore)
q$ = ideyesnobox("Update Help", "This can take up to 15 minutes.\nRedownload all cached help content from the wiki?")
PCOPY 2, 0
IF q$ = "Y" THEN
Help_Recaching = 1: Help_IgnoreCache = 1
uerr = ideupdatehelpbox
Help_Recaching = 0: Help_IgnoreCache = 0
PCOPY 3, 0: SCREEN , , 3, 0
IF uerr THEN
lnk$ = "Update All"
@ -18634,6 +18636,13 @@ END SUB
FUNCTION ideupdatehelpbox
ideupdatehelpbox = 0 'all good, getting 1 on error
IF Help_Recaching = 2 THEN
DIM FullMessage$(1 TO 2)
UpdateStep = 1
Help_ww = 78
GOTO startMainLoop
END IF
'-------- generic dialog box header --------
PCOPY 0, 2
PCOPY 0, 1
@ -18675,8 +18684,9 @@ FUNCTION ideupdatehelpbox
FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects
'-------- end of generic init --------
startMainLoop:
DO 'main loop
IF Help_Recaching = 2 GOTO updateRoutine
'-------- generic display dialog box & objects --------
idedrawpar p
@ -18781,6 +18791,7 @@ FUNCTION ideupdatehelpbox
END IF
'end of custom controls
updateRoutine:
'-------- update routine -------------------------------------
SELECT CASE UpdateStep
CASE 1
@ -18798,9 +18809,7 @@ FUNCTION ideupdatehelpbox
CASE 3
'Download and PARSE alphabetical index to build required F1 help links
FullMessage$(1) = "Regenerating keyword list..."
Help_Recaching = 1: Help_IgnoreCache = 1
a$ = Wiki$("Keyword Reference - Alphabetical")
Help_Recaching = 0: Help_IgnoreCache = 0
IF INSTR(a$, "{{PageInternalError}}") > 0 THEN ideupdatehelpbox = 1: EXIT DO
WikiParse a$
UpdateStep = UpdateStep + 1
@ -18858,15 +18867,14 @@ FUNCTION ideupdatehelpbox
f2$ = LEFT$(f2$, LEN(f2$) - 4)
n = n + 1
FullMessage$(2) = "Page title: " + f2$
Help_IgnoreCache = 1: Help_Recaching = 1
ignore$ = Wiki$(f2$)
Help_Recaching = 0: Help_IgnoreCache = 0
END IF
ELSE
UpdateStep = UpdateStep + 1
END IF
CASE 6
stoprecache:
IF Help_Recaching = 2 THEN EXIT DO
FullMessage$(1) = "All pages updated."
FullMessage$(2) = ""
idetxt(o(ButtonID).txt) = "#Close"

View file

@ -13104,6 +13104,14 @@ FUNCTION ParseCMDLineArgs$ ()
PRINT " -z Generate C code without compiling to executable"
PRINT
SYSTEM
CASE "-u" 'Invoke "Update all pages" to populate internal/help files (hidden build option)
Help_Recaching = 2: Help_IgnoreCache = 1
IF ideupdatehelpbox THEN
_DEST _CONSOLE
PRINT "Update failed: curl not found"
SYSTEM 1
END IF
SYSTEM
CASE "-c" 'Compile instead of edit
NoIDEMode = 1
cmdlineswitch = -1