From 287ba1d1caf47420764001cfec22751feb306558 Mon Sep 17 00:00:00 2001 From: Cameron Cawley Date: Wed, 17 Apr 2019 22:21:17 +0100 Subject: RISCOS: Update FindHelp --- dists/riscos/FindHelp,fd1 | 39 ++++++++++++++++++--------------------- 1 file changed, 18 insertions(+), 21 deletions(-) (limited to 'dists/riscos/FindHelp,fd1') diff --git a/dists/riscos/FindHelp,fd1 b/dists/riscos/FindHelp,fd1 index 289936b54f..b319bfbf25 100644 --- a/dists/riscos/FindHelp,fd1 +++ b/dists/riscos/FindHelp,fd1 @@ -1,23 +1,20 @@ ON ERROR PROCerror +SYS "XOS_ReadVarVal","StrongHelp$Dir",-1,-1 TO ,,stronghelp% file$="" +readme$="" SYS "Territory_Number" TO current_territory% REPEAT - READ territory%, prefix$, quickstart$, readme$ - IF territory%=current_territory% OR territory%=-1 THEN - IF quickstart$<>"" THEN - SYS "OS_File",20,".docs."+prefix$+quickstart$ TO qtype% - IF qtype%<>0 THEN - file$=".docs."+prefix$+quickstart$ - ENDIF - ENDIF - IF readme$<>"" THEN - SYS "OS_File",20,".docs."+prefix$+readme$ TO rtype% - IF rtype%<>0 THEN + READ territory%, prefix$, readme$ + WHILE readme$<>"" + IF territory%=current_territory% OR territory%=-1 THEN + SYS "OS_File",20,".docs."+prefix$+readme$ TO type%,,,,,,ftype% + IF type%<>0 AND NOT (stronghelp%=0 AND ftype%=&3D6) THEN file$=".docs."+prefix$+readme$ ENDIF ENDIF - ENDIF + READ readme$ + ENDWHILE UNTIL territory%=-1 OR file$<>"" IF file$<>"" THEN @@ -31,12 +28,12 @@ DEF PROCerror ENDPROC REM Reference: https://www.riscosopen.org/wiki/documentation/show/Territory%20Numbers -DATA 4, "it.", "GuidaRapida", "" -DATA 5, "es.", "InicioRapido", "" -DATA 6, "fr.", "DemarrageRapide", "" -DATA 7, "de.", "Schnellstart", "LIESMICH" -DATA 11, "se.", "Snabbstart", "LasMig" -DATA 14, "da.", "HurtigStart", "" -DATA 15, "no-nb.", "HurtigStart", "" -DATA 134, "cz.", "", "PrectiMe" -DATA -1, "", "QuickStart", "README" +DATA 4, "it.", "GuidaRapida", "" +DATA 5, "es.", "InicioRapido", "" +DATA 6, "fr.", "DemarrageRapide", "" +DATA 7, "de.", "Schnellstart", "LIESMICH", "" +DATA 11, "se.", "Snabbstart", "LasMig", "" +DATA 14, "da.", "HurtigStart", "" +DATA 15, "no-nb.", "HurtigStart", "" +DATA 134, "cz.", "PrectiMe", "" +DATA -1, "", "QuickStart", "README/md", "README", "ScummVM", "" -- cgit v1.2.3