home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / FWARexx1.lha / FWMacros / FontList.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-08-29  |  3.6 KB  |  121 lines
  1. /* -------------------------------------------------------------*/
  2. /* Final Writer 2 Arexx Macro - FontList             */
  3. /* ©1993, 1994 Mike Hartigan                    */
  4. /*                                */
  5. /* This macro will display the complete (?) character set using    */
  6. /* all of the fonts in the selected font drawer.         */
  7. /*                                */
  8. /* -------------------------------------------------------------*/
  9.  
  10. options results
  11.  
  12. TempFile = "T:FWFontList"  /* This is just good programming style :-} */
  13.  
  14. /* First, we need the font path */
  15. 'status FontPath'
  16. FontName = Result
  17.  
  18. /* Since 'status FontPath' includes the current font's name, we need to strip it 
  19.    We'll do this by searching backwards from the end until we find the last '/' (or ':') 
  20.    character, and delete from there to the end, leaving us with just the path. */
  21.  
  22. pos = LASTPOS('/', FontName)
  23. IF ( pos ~= 0 ) 
  24. then    /* If we found it, then DELSTR */
  25.     FontPath = DELSTR(FontName, pos)
  26. ELSE     DO /* If no '/' is found, then search for ':' (volume name) */
  27.     pos = LASTPOS(':', FontName)
  28.     IF ( pos ~= 0 ) 
  29.     THEN    /* If we found it, then DELSTR */
  30.         FontPath = DELSTR(FontName, pos + 1)
  31.     ELSE     EXIT 20
  32.     END
  33.  
  34. 'RequestText "Path selection..." "Select font path" "' FontPath '"'
  35. FontPath = Result
  36.  
  37. /* No sense re-inventing the wheel.  AmigaDOS's LIST will give us all the
  38.    file names in this drawer.  There's probably a thousand ways to do this.  This
  39.    is just one. */
  40.  
  41. /* This line will recognize my Type 1 font drawer (change the path to whatever
  42.    is appropriate to your environment). */
  43.  
  44. IF ~( index(UPPER(FontPath),"PSFONTS") = 0 )
  45. THEN address command 'list >' TempFile FontPath || '#?.PFB files lformat "%s%s"'
  46. ELSE address command 'list >' TempFile FontPath ' files ~(#?.info) lformat "%s%s"'
  47. address command 'sort ' Tempfile Tempfile
  48.  
  49. /* We now have a file (T:FCFontList) consisting of the something similar 
  50.    to the following:
  51.  
  52.     FinalWriter:FWFonts/FWSWOLFonts/A
  53.     FinalWriter:FWFonts/FWSWOLFonts/A_Bold
  54.     FinalWriter:FWFonts/FWSWOLFonts/A_BoldItalic
  55.     .
  56.     .
  57.     .
  58.  
  59. (you get the idea)
  60.  
  61.    That's half the battle.  We'll now use the font names to load each font and 
  62.    add the necessary 'Type' commands to type some stuff. */
  63.  
  64. 'SectionSetup Top .5 Bottom .5 Inside .75 Outside .25'
  65. IF ~OPEN('infile', TempFile, "R") 
  66. THEN     EXIT 10
  67. x = 0
  68. DO WHILE 1                /* DO Forever - We'll EXIT on EOF) */
  69.     FullFontName = ReadLn('infile')
  70.     IF EOF('infile')
  71.     THEN     EXIT
  72.     IF LENGTH(FullFontName) = 0 
  73.     THEN     Iterate
  74.     /* We'll strip the path from the name for display */
  75.     pos = LASTPOS('/', FullFontName)
  76.     IF ( pos ~= 0 ) 
  77.     THEN    /* If we found it, then DELSTR */
  78.         FontName = RIGHT(FullFontName, LENGTH(FullFontName) - pos)
  79.     ELSE     DO
  80.         pos = LASTPOS(':', FullFontName)
  81.         IF ( pos ~= 0 ) 
  82.         THEN    /* If we found it, then DELSTR */
  83.             FontName = Right(FullFontName, LENGTH(FullFontName) - pos)
  84.         ELSE     EXIT 20
  85.         END
  86.     'Font ' || FullFontName    /* make sure we can use it */ 
  87.     IF RC = 0 
  88.     THEN    DO
  89.         'FontSize 14'
  90.         'Font SoftSans_Bold'  /* We'll always display the font name in SoftSans_Bold */
  91.         'Type ' || FontName
  92.         'Font ' || FullFontName
  93.         'NewParagraph'
  94.         'FontSize 18' 
  95.         'Type     
  96. '
  97.         'NewParagraph'
  98.         'Type  !"#$%&' || "'" || '()*+,-./0123456789:;<=>?'
  99.         'NewParagraph'
  100.         'Type @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'
  101.         'NewParagraph'
  102.         'Type `abcdefghijklmnopqrstuvwxyz{|}~'
  103.         'NewParagraph'
  104.         'Type €‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ'
  105.         'NewParagraph'
  106.         'Type  ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿'
  107.         'NewParagraph'
  108.         'Type ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß'
  109.         'NewParagraph'
  110.         'Type àáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ'
  111.         'NewParagraph'
  112.         'NewParagraph'
  113.         x = x + 1
  114.         if x = 3
  115.         then    DO
  116.             InsertPageBreak
  117.             x = 0
  118.             END
  119.         END
  120. END
  121.