summaryrefslogtreecommitdiff
path: root/!NetSurf/FixFonts,ffb
diff options
context:
space:
mode:
authorDaniel Silverstone <dsilvers@digital-scurf.org>2018-04-22 11:15:23 +0100
committerDaniel Silverstone <dsilvers@digital-scurf.org>2018-04-22 11:15:23 +0100
commitde806db28e91e0c216200eef130d4672e29efb01 (patch)
treeed513b031067e2ed475d90639101ceafa99443e6 /!NetSurf/FixFonts,ffb
parente864997842e157172211ee0dc749590d7547b594 (diff)
downloadnetsurf-de806db28e91e0c216200eef130d4672e29efb01.tar.gz
netsurf-de806db28e91e0c216200eef130d4672e29efb01.tar.bz2
Move !NetSurf into frontends/riscos and fix up
Diffstat (limited to '!NetSurf/FixFonts,ffb')
-rw-r--r--!NetSurf/FixFonts,ffb147
1 files changed, 0 insertions, 147 deletions
diff --git a/!NetSurf/FixFonts,ffb b/!NetSurf/FixFonts,ffb
deleted file mode 100644
index c6b73d0b0..000000000
--- a/!NetSurf/FixFonts,ffb
+++ /dev/null
@@ -1,147 +0,0 @@
-REM Attempt to fix broken font installations which have non-Base0 copies of the
-REM ROM fonts in !Fonts on disc.
-
-ON ERROR ON ERROR OFF: PRINT REPORT$ + " (at line " + STR$ERL + ")": END
-
-DIM f$(11)
-f$() = "Corpus.Bold","Corpus.Bold.Oblique","Corpus.Medium","Corpus.Medium.Oblique","Homerton.Bold","Homerton.Bold.Oblique","Homerton.Medium","Homerton.Medium.Oblique","Trinity.Bold","Trinity.Bold.Italic","Trinity.Medium","Trinity.Medium.Italic"
-
-PRINT "FONT INSTALLATION FIX"
-PRINT
-
-PRINT "Checking ROM fonts"
-PRINT
-ok% = TRUE
-FOR f% = 0 TO 11
- PROCcheck_rom_font(f$(f%))
-NEXT
-PRINT
-IF NOT ok% THEN
- PRINT "One or more of the standard ROM fonts are missing!"
- PRINT "Please contact the developers stating your RISC OS version."
- END
-ENDIF
-
-
-PRINT "Searching for obsolete copies in Boot:Resources.!Fonts"
-PRINT
-ok% = TRUE
-FOR f% = 0 TO 11
- PROCcheck_disc_font(f$(f%))
-NEXT
-PRINT
-IF ok% THEN
- PRINT "No problems were found."
- END
-ENDIF
-
-PRINT "One or more obsolete fonts were found in !Fonts."
-PRINT
-PRINT "Press Y to move these fonts to a new directory"
-PRINT "called 'ObsolFonts' and remove them from the"
-PRINT "font list ('Messages1'),"
-PRINT "or any other key to exit without changes."
-key$ = GET$
-IF INSTR("Yy", key$) = 0 THEN
- PRINT
- PRINT "Exiting without changes."
- END
-ENDIF
-PRINT
-
-PRINT "Creating 'ObsolFonts' directory - ";
-SYS"OS_File", 8, "<Boot$Dir>.^.ObsolFonts"
-PRINT "done"
-PRINT
-PRINT "Closing open files - ";
-SYS"OS_FSControl", 22
-PRINT "done"
-PRINT
-PRINT "Removing fonts from font list - ";
-file% = OPENIN "<Boot$Dir>.Resources.!Fonts.Messages1"
-IF file% THEN
- new% = OPENOUT "<Boot$Dir>.Resources.!Fonts.Messages_"
- IF new% = 0 THEN
- PRINT "Failed to open new font list"
- END
- ENDIF
- WHILE NOT EOF#file%
- line$ = GET$#file%
- ok% = TRUE
- FOR f% = 0 TO 11
- IF INSTR(line$, "Font_" + f$(f%) + ":") <> 0 THEN ok% = FALSE
- NEXT
- IF ok% THEN
- BPUT#new%, line$
- ENDIF
- ENDWHILE
- CLOSE#file%
- CLOSE#new%
- SYS"OS_File", 18, "<Boot$Dir>.Resources.!Fonts.Messages_", &fff
- SYS"XOS_FSControl", 27, "<Boot$Dir>.^.ObsolFonts.Messages1"
- SYS"OS_FSControl", 25, "<Boot$Dir>.Resources.!Fonts.Messages1", "<Boot$Dir>.^.ObsolFonts.Messages1"
- SYS"OS_FSControl", 25, "<Boot$Dir>.Resources.!Fonts.Messages_", "<Boot$Dir>.Resources.!Fonts.Messages1"
-ENDIF
-PRINT "done"
-PRINT
-PRINT "Moving away obsolete fonts"
-PRINT
-FOR f% = 0 TO 11
- PROCfix_font(f$(f%))
-NEXT
-PRINT
-PRINT "Finished"
-PRINT "Please restart your machine for the changes to take effect."
-
-END
-
-
-
-DEF PROCcheck_rom_font(f$)
-PRINT " "; f$;
-SYS"OS_File", 17, "Resources:$.Fonts." + f$ + ".Outlines0" TO t1%
-SYS"OS_File", 17, "Resources:$.Fonts." + f$ + ".IntMetric0" TO t2%
-IF t1% = 1 AND t2% = 1 THEN
- PRINT " - ok"
-ELSE
- PRINT " - MISSING"
- ok% = FALSE
-ENDIF
-ENDPROC
-
-
-
-DEF PROCcheck_disc_font(f$)
-SYS"OS_File", 17, "<Boot$Dir>.Resources.!Fonts." + f$ + ".Outlines" TO t%
-IF t% <> 0 THEN
- PRINT " "; f$
- ok% = FALSE
-ENDIF
-ENDPROC
-
-
-
-DEF PROCfix_font(f$)
-SYS"OS_File", 17, "<Boot$Dir>.Resources.!Fonts." + f$ + ".Outlines" TO t%
-IF t% = 0 THEN ENDPROC
-
-PRINT " "; f$; " - ";
-i% = 0
-REPEAT
- i% = INSTR(f$, ".", i% + 1)
- IF i% <> 0 THEN
- SYS"OS_File", 8, "<Boot$Dir>.^.ObsolFonts." + LEFT$(f$, i% - 1)
- ENDIF
-UNTIL i% = 0
-SYS"OS_File", 8, "<Boot$Dir>.^.ObsolFonts." + f$
-
-SYS"OS_FSControl", 25, "<Boot$Dir>.Resources.!Fonts." + f$ + ".Outlines", "<Boot$Dir>.^.ObsolFonts." + f$ + ".Outlines"
-
-SYS"OS_File", 17, "<Boot$Dir>.Resources.!Fonts." + f$ + ".IntMetrics" TO t%
-IF t% <> 0 THEN
- SYS"OS_FSControl", 25, "<Boot$Dir>.Resources.!Fonts." + f$ + ".IntMetrics", "<Boot$Dir>.^.ObsolFonts." + f$ + ".IntMetrics"
-ENDIF
-
-PRINT "done"
-ENDPROC
-