/*
	$VER: WebfontSetter 1.0 (16.12.2005) by Fulvio Peruggi (peruggi@unina.it)
	Saves a backup of your AWeb 3.5+ "browser" configuration file and presets TrueType webfonts.
*/

/* Normal fonts (AWeb default) */
font.1.1='FON1 arialregular.font 15'
font.1.2='FON2 arialregular.font 18'
font.1.3='FON3 arialregular.font 21'
font.1.4='FON4 arialregular.font 24'
font.1.5='FON5 arialregular.font 32'
font.1.6='FON6 arialregular.font 40'
font.1.7='FON7 arialregular.font 60'
/* Fixed width fonts (AWeb default) */
font.2.1='FOF1 couriernewregular.font 15'
font.2.2='FOF2 couriernewregular.font 18'
font.2.3='FOF3 couriernewregular.font 21'
font.2.4='FOF4 couriernewregular.font 24'
font.2.5='FOF5 couriernewregular.font 32'
font.2.6='FOF6 couriernewregular.font 40'
font.2.7='FOF7 couriernewregular.font 60'
/* Trap for proportional sans-serif fonts */
font.3.1='FONA sans-serif1arialregular.font15'
font.3.2='FONA sans-serif2arialregular.font18'
font.3.3='FONA sans-serif3arialregular.font21'
font.3.4='FONA sans-serif4arialregular.font24'
font.3.5='FONA sans-serif5arialregular.font32'
font.3.6='FONA sans-serif6arialregular.font40'
font.3.7='FONA sans-serif7arialregular.font60'
/* Trap for proportional serif fonts */
font.4.1='FONA serif1timesnewromanregular.font15'
font.4.2='FONA serif2timesnewromanregular.font18'
font.4.3='FONA serif3timesnewromanregular.font21'
font.4.4='FONA serif4timesnewromanregular.font24'
font.4.5='FONA serif5timesnewromanregular.font32'
font.4.6='FONA serif6timesnewromanregular.font40'
font.4.7='FONA serif7timesnewromanregular.font60'
/* Trap for monospace fonts */
font.5.1='FONA monospace1couriernewregular.font15'
font.5.2='FONA monospace2couriernewregular.font18'
font.5.3='FONA monospace3couriernewregular.font21'
font.5.4='FONA monospace4couriernewregular.font24'
font.5.5='FONA monospace5couriernewregular.font32'
font.5.6='FONA monospace6couriernewregular.font40'
font.5.7='FONA monospace7couriernewregular.font60'
/* Webfonts */
font.6.1='FONA Andale Mono1andalemonoregular.font15'
font.6.2='FONA Andale Mono2andalemonoregular.font18'
font.6.3='FONA Andale Mono3andalemonoregular.font21'
font.6.4='FONA Andale Mono4andalemonoregular.font24'
font.6.5='FONA Andale Mono5andalemonoregular.font32'
font.6.6='FONA Andale Mono6andalemonoregular.font40'
font.6.7='FONA Andale Mono7andalemonoregular.font60'
font.7.1='FONA Arial1arialregular.font15'
font.7.2='FONA Arial2arialregular.font18'
font.7.3='FONA Arial3arialregular.font21'
font.7.4='FONA Arial4arialregular.font24'
font.7.5='FONA Arial5arialregular.font32'
font.7.6='FONA Arial6arialregular.font40'
font.7.7='FONA Arial7arialregular.font60'
font.8.1='FONA Arial Black1arialblackregular.font15'
font.8.2='FONA Arial Black2arialblackregular.font18'
font.8.3='FONA Arial Black3arialblackregular.font21'
font.8.4='FONA Arial Black4arialblackregular.font24'
font.8.5='FONA Arial Black5arialblackregular.font32'
font.8.6='FONA Arial Black6arialblackregular.font40'
font.8.7='FONA Arial Black7arialblackregular.font60'
font.9.1='FONA Comic Sans MS1comicsansmsregular.font18'
font.9.2='FONA Comic Sans MS2comicsansmsregular.font22'
font.9.3='FONA Comic Sans MS3comicsansmsregular.font25'
font.9.4='FONA Comic Sans MS4comicsansmsregular.font29'
font.9.5='FONA Comic Sans MS5comicsansmsregular.font38'
font.9.6='FONA Comic Sans MS6comicsansmsregular.font48'
font.9.7='FONA Comic Sans MS7comicsansmsregular.font72'
font.10.1='FONA Courier New1couriernewregular.font15'
font.10.2='FONA Courier New2couriernewregular.font18'
font.10.3='FONA Courier New3couriernewregular.font21'
font.10.4='FONA Courier New4couriernewregular.font24'
font.10.5='FONA Courier New5couriernewregular.font32'
font.10.6='FONA Courier New6couriernewregular.font40'
font.10.7='FONA Courier New7couriernewregular.font60'
font.11.1='FONA Georgia1georgiaregular.font15'
font.11.2='FONA Georgia2georgiaregular.font18'
font.11.3='FONA Georgia3georgiaregular.font21'
font.11.4='FONA Georgia4georgiaregular.font24'
font.11.5='FONA Georgia5georgiaregular.font32'
font.11.6='FONA Georgia6georgiaregular.font40'
font.11.7='FONA Georgia7georgiaregular.font60'
font.12.1='FONA Impact1impactregular.font16'
font.12.2='FONA Impact2impactregular.font19'
font.12.3='FONA Impact3impactregular.font22'
font.12.4='FONA Impact4impactregular.font25'
font.12.5='FONA Impact5impactregular.font34'
font.12.6='FONA Impact6impactregular.font42'
font.12.7='FONA Impact7impactregular.font63'
font.13.1='FONA Times New Roman1timesnewromanregular.font15'
font.13.2='FONA Times New Roman2timesnewromanregular.font18'
font.13.3='FONA Times New Roman3timesnewromanregular.font21'
font.13.4='FONA Times New Roman4timesnewromanregular.font24'
font.13.5='FONA Times New Roman5timesnewromanregular.font32'
font.13.6='FONA Times New Roman6timesnewromanregular.font40'
font.13.7='FONA Times New Roman7timesnewromanregular.font60'
font.14.1='FONA Trebuchet MS1trebuchetmsregular.font15'
font.14.2='FONA Trebuchet MS2trebuchetmsregular.font18'
font.14.3='FONA Trebuchet MS3trebuchetmsregular.font21'
font.14.4='FONA Trebuchet MS4trebuchetmsregular.font24'
font.14.5='FONA Trebuchet MS5trebuchetmsregular.font32'
font.14.6='FONA Trebuchet MS6trebuchetmsregular.font40'
font.14.7='FONA Trebuchet MS7trebuchetmsregular.font60'
font.15.1='FONA Verdana1verdanaregular.font16'
font.15.2='FONA Verdana2verdanaregular.font19'
font.15.3='FONA Verdana3verdanaregular.font22'
font.15.4='FONA Verdana4verdanaregular.font25'
font.15.5='FONA Verdana5verdanaregular.font34'
font.15.6='FONA Verdana6verdanaregular.font42'
font.15.7='FONA Verdana7verdanaregular.font63'
font.16.1='FONA Webdings1webdingsregular.font14'
font.16.2='FONA Webdings2webdingsregular.font16'
font.16.3='FONA Webdings3webdingsregular.font19'
font.16.4='FONA Webdings4webdingsregular.font22'
font.16.5='FONA Webdings5webdingsregular.font29'
font.16.6='FONA Webdings6webdingsregular.font36'
font.16.7='FONA Webdings7webdingsregular.font54'
/* Pseudo-webfonts */
font.17.1='FONA Arial Narrow1arialnarrowregular.font15'
font.17.2='FONA Arial Narrow2arialnarrowregular.font18'
font.17.3='FONA Arial Narrow3arialnarrowregular.font21'
font.17.4='FONA Arial Narrow4arialnarrowregular.font24'
font.17.5='FONA Arial Narrow5arialnarrowregular.font32'
font.17.6='FONA Arial Narrow6arialnarrowregular.font40'
font.17.7='FONA Arial Narrow7arialnarrowregular.font60'
font.18.1='FONA Lucida Sans Unicode1lucidasansunicoderegular.font20'
font.18.2='FONA Lucida Sans Unicode2lucidasansunicoderegular.font24'
font.18.3='FONA Lucida Sans Unicode3lucidasansunicoderegular.font28'
font.18.4='FONA Lucida Sans Unicode4lucidasansunicoderegular.font32'
font.18.5='FONA Lucida Sans Unicode5lucidasansunicoderegular.font43'
font.18.6='FONA Lucida Sans Unicode6lucidasansunicoderegular.font54'
font.18.7='FONA Lucida Sans Unicode7lucidasansunicoderegular.font81'
font.19.1='FONA Symbol1symbolregular.font17'
font.19.2='FONA Symbol2symbolregular.font20'
font.19.3='FONA Symbol3symbolregular.font23'
font.19.4='FONA Symbol4symbolregular.font26'
font.19.5='FONA Symbol5symbolregular.font35'
font.19.6='FONA Symbol6symbolregular.font44'
font.19.7='FONA Symbol7symbolregular.font66'
font.20.1='FONA Tahoma1tahomaregular.font16'
font.20.2='FONA Tahoma2tahomaregular.font19'
font.20.3='FONA Tahoma3tahomaregular.font22'
font.20.4='FONA Tahoma4tahomaregular.font25'
font.20.5='FONA Tahoma5tahomaregular.font34'
font.20.6='FONA Tahoma6tahomaregular.font42'
font.20.7='FONA Tahoma7tahomaregular.font63'
font.21.1='FONA Wingdings1wingdingsregular.font15'
font.21.2='FONA Wingdings2wingdingsregular.font18'
font.21.3='FONA Wingdings3wingdingsregular.font21'
font.21.4='FONA Wingdings4wingdingsregular.font24'
font.21.5='FONA Wingdings5wingdingsregular.font32'
font.21.6='FONA Wingdings6wingdingsregular.font40'
font.21.7='FONA Wingdings7wingdingsregular.font60'


say 'Working...'
call open('STDERR','NIL:','write')
parse arg lib .
lib=upper(lib)
address command
'C:Rename ENVARC:AWeb3/browser AS ENVARC:AWeb3/browser_backup_file'
if RC>0 then do
   say 'Error: execution halted.'
   say 'Nothing was changed in your AWeb configuration files.'
   exit
   end
call open('in','ENV:AWeb3/browser','read')
call open('out','RAM:browser','write')
call writeln('out',readln('in'))
do forever
   line=readln('in')
   if line='' then leave
   if left(line,3)='FON' ^ left(line,3)='FOF' then nop
   else leave
   end
do i=1 to 21
   do j=1 to 7
      if lib='TTF.LIBRARY' then font.i.j=delstr(font.i.j,pos('regular',font.i.j),7)
      call writeln('out',font.i.j)
      end
   end
call writeln('out',line)
do forever
   line=readln('in')
   if line='' then leave
   call writeln('out',line)
   end
call close('in')
call close('out')
'C:Copy RAM:browser TO ENV:AWeb3/browser QUIET'
'C:Copy RAM:browser TO ENVARC:AWeb3/browser QUIET'
'C:Delete RAM:browser QUIET'
say 'Your "ENV:AWeb3/browser" configuration file has been converted:'
say 'now AWeb uses truetype webfonts.'
exit