home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 25 / CD_ASCQ_25_1095.iso / dos / tools / par330 / exampl15.pom < prev    next >
Text File  |  1995-09-06  |  2KB  |  68 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   First, we must obtain the input file name.
  7. ;
  8. ;   $COMMAND will look something like this:
  9. ;   C:\POM\POM.EXE EXAMPL15.POM EXAMPL01.TXT EXAMPL15.LST
  10. ;
  11. ;   Thus, we want to parse out what is between the second and third spaces.
  12. ;
  13. SET      cmd = $COMMAND
  14. PARSE    fname cmd "2* " "3* "
  15. ;
  16. ;   Skip this file if it isn't one of the ones we want.
  17. ;   We do this using a "does not contain" comparison.
  18. ;
  19. NEXTFILE "XMPDAT01.TXT XMPDAT04.TXT XMPDAT07.TXT" ~ fname
  20. ;
  21. ;   Output the file name at the beginning of a new input file.
  22. ;   Note that lastcmd is null ("") until it is first set.
  23. ;
  24. BEGIN cmd <> lastcmd
  25.   SOUND "BIP"
  26.   ;
  27.   ;   Get the input file name and set up the underline
  28.   ;
  29.   SETLEN   flen  fname
  30.   SET      uline = ""
  31.   PAD      uline "L" "-" flen
  32.   ;
  33.   ;   Unless this is the first file, output three linefeeds.
  34.   ;
  35.   OUTEND   lastcmd <> "" |
  36.   OUTEND   lastcmd <> "" |
  37.   OUTEND   lastcmd <> "" |
  38.   ;
  39.   ;   Output the title (i.e. the file name)
  40.   ;
  41.   OUTEND   |{fname}
  42.   OUTEND   |{uline}
  43.   OUTEND   |
  44.   SET      lastcmd = $COMMAND
  45. END
  46. ;
  47. ;   Allow null lines
  48. ;
  49. MINLEN   "0"
  50. ;
  51. ;   The file XMPDAT07.TXT contains tab characters, so we will replace
  52. ;   each one with two spaces.  
  53. ;
  54. BEGIN fname = "XMPDAT07.TXT"
  55.   CHANGE   $FLINE  $TAB  "  "
  56.   ;
  57.   ;   On lines with an even number of characters in the first column,
  58.   ;   we end up with an extra space in column 23, so we will remove it.
  59.   ;
  60.   BEGIN $FLINE[23] = " "
  61.     APPEND $FLINE $FLINE[1 22] $FLINE[24 80]
  62.   END
  63. END
  64. ;
  65. ;   Output the file data
  66. ;
  67. OUTEND   |{$FLINE}
  68.