Title 'FILT.ASM', 'Text Filter' ; Text FILTer ; Version 1.0 ; Copyright (c) 1988, 1989 by Borland International, Inc. ; Used by permission of the author. ; ; This program performs various text filter functions. ; ; Usage: ; ; FILT [options] < in_file > out_file ; ; Options: ; ; x = expand tabs to spaces e = erase all tab stops ; c = compress spaces to tabs t# = set tab stop ; ; S = strip high bits m = left margin ; C = strip control chars d = delete left margin ; H = strip high (>127) bytes l# = truncate long lines ; U = all letters to upper-case r = remove trailing spaces ; L = all letters to lower-case b# = byte to end input lines ; A = capitalize words s = save carriage returns ; ; Z = write ^Z to output i# = input buffer size (20000) ; z = ignore ^Z in input o# = output buffer size (20000) include globals.inc _STACK segment DW 500h dup (?) EndStack LABEL BYTE _STACK ends _DATA segment PSP DW ? BUFLEN = 130 CMDBUF DB 130 dup (?) ; line definition LeftMar DW 0 ;left margin LeftDel DW 0 ;left characters to delete Trunc DW 0 ;truncate line length (truncate if non-zero) ; input control block InpBlk LABEL WORD DW 0 ;status DW 20000 ;buffer size DW ? DW ? DW 0 ;standard input device DW ? ; output control block OutBlk LABEL WORD DW 1 ;status DW 20000 ;buffer size DW ? DW ? DW 1 ;standard output device DW ? ; special characters FF EQU 12 ;form feed EOF EQU 26 ;carriage return EOL DB LF ;end of line character ; character options STR_LOB EQU 0001h ;strip low (control) bytes STR_HIB EQU 0002h ;strip high bytes STR_BIT EQU 0004h ;strip high bits MAK_UPR EQU 0008h ;make upper-case MAK_LWR EQU 0010h ;make lower-case MAK_CAP EQU 0020h ;capitalize REP_TAB EQU 0040h ;replace tabs with spaces REP_SPC EQU 0080h ;replace spaces with tabs SAV_CR EQU 0100h ;save CR's REM_SPC EQU 0200h ;delete trailing spaces SKP_EOF EQU 0400h ;skip input EOF SUP_EOF EQU 0800h ;suppress output EOF Options DW 0 InpSta DW 0 ; help message Help LABEL BYTE DB 13,10 DB 'Text Filter, Version 1.0',13,10 DB 13,10 DB 'Usage: FILT [options] < input_file > output_file',13,10 DB 13,10 DB 'Tab Replacement: Tab Assignment:',13,10 DB ' x = expand tabs to spaces e = erase all tab stops',13,10 DB ' c = compress spaces to tabs t# = set tab stop',13,10 DB 'Character Replacement: Line Format:',13,10 DB ' S = strip high bits m = add left margin',13,10 DB ' C = strip control chars d = delete left margin',13,10 DB ' H = strip high (>127) bytes l# = truncate long lines',13,10 DB ' U = all letters to upper-case r = remove trailing spaces',13,10 DB ' L = all letters to lower-case b# = byte to end input lines',13,10 DB ' A = capitalize words s = save carriage returns',13,10 DB 'End of File: I/O Buffer:',13,10 DB ' z = ignore ^Z in input i# = input buffer size (20000)',13,10 DB ' Z = suppress ^Z in output o# = output buffer size (20000)',13,10 DB '$' ; Messages and return codes. ; messages mess1 DB 37, 'Option error: "?", enter ? for help',13,10 mess2 DB 21, 'Insufficient memory',13,10 mess3 DB 12, 'Read error',13,10 mess4 DB 13, 'Write error',13,10 ; error table ErrTbl LABEL BYTE DB 3 DW OFFSET mess1 ;option error (0) DB 4 DW OFFSET mess2 ;insufficient memory (1) DB 2 DW OFFSET mess3 ;input error (2) DB 1 DW OFFSET mess4 ;output error (3) ; Uninitialized data. InpBuf DB ? ;input read location Margin DB MAXLIN dup (?) ;margin LinBuf DB MAXLIN+2 dup (?) ;line buffer TabTbl DB MAXLIN dup (?) ;tab table TabEndx LABEL BYTE TabEnd EQU OFFSET TabEndx ;end of tab table SpcCnt DW ? ;space count (for compressing spaces) TabOff LABEL WORD ;tab offset (decrements tab column number) DW 502 dup (?) ; Option table. OptTab LABEL BYTE DB ' ' DW 0, 0 ;option delimiter DB ',' DW 0, 0 ;option delimiter DB '-' DW 0, 0 ;option delimiter DB '/' DW 0, 0 ;option delimiter DB 'x' DW 0, REP_TAB ;expand tabs DB 'c' DW 0, REP_SPC ;compress spaces with tabs DB 'e' DW OFFSET SetOpt4, 0 ;erase all tab stops DB 't' DW OFFSET SetOpt5, 0 ;set tab stop DB 'S' DW 0, STR_BIT ;strip high bits DB 'C' DW 0, STR_LOB ;strip control (<32) chars DB 'H' DW 0, STR_HIB ;strip high (>127) bytes DB 'U' DW 0, MAK_UPR ;all letters to upper-case DB 'L' DW 0, MAK_LWR ;all letters to lower-case DB 'A' DW 0, MAK_CAP ;capitalize words DB 'm' DW OFFSET SetOpt7, 0 ;left margin DB 'd' DW OFFSET SetOpt8, 0 ;delete left margin DB 'l' DW OFFSET SetOpt6, 0 ;truncate lines DB 'r' DW 0, REM_SPC ;remove trailing spaces DB 'b' DW OFFSET SetOpt3, 0 ;byte to end input lines DB 's' DW 0, SAV_CR ;save CR's DB 'z' DW 0, SKP_EOF ;ignore input EOF DB 'Z' DW 0, SUP_EOF ;suppress output EOF DB 'i' DW OFFSET SetOpt1, 0 ;input buffer size (20000) DB 'o' DW OFFSET SetOpt2, 0 ;output buffer size (20000) DB '?' DW OFFSET SetOpt9, 0 ;display help DB 'h' DW OFFSET SetOpt9, 0 ;display help DB 0 _DATA ends _TEXT segment ; Main program. ; set up stack and reduce memory allocation FiltStart: lea bx, EndStack ;end of program mov cl, 4 shr bx, cl ;adjust to paragraph inc bx ;round up mov ax, ss add bx, ax mov ax, ds sub bx, ax mov ah, 4ah ;function int 21h ;execute ; initialize mov dx, DGROUP mov ds, dx mov PSP, es ;saved Program Segment Prefix mov es, dx mov dx, MAXLIN ;max margin spaces lea di, Margin ;margin area call Spaces ;store spaces call TabReset ;set default tab stops call ParseCmd ;parse command line ; input read buffer lea bx, InpBlk ;control block call FileAlloc ;set up buffer jc main3 ; output write buffer lea bx, OutBlk ;control block call FileAlloc ;set up buffer jc main3 ; process file call ProcDoc ;process document test InpSta, INP_ERR jnz main4 test InpSta, OUT_ERR jnz main5 ; close input buffer lea bx, InpBlk ;control block call FileFree ;close buffer ; close output buffer lea bx, OutBlk ;control block call FileFlush ;flush file first jc main5 call FileFree ;close buffer mov ax, 4c00h int 21h ; not enough memory main3: mov al, 1 call ErrorExit ; error reading input file main4: mov al, 2 call ErrorExit ; error writing output file main5: mov al, 3 call ErrorExit ; Error routine. ; ; Input ; al - local error number call ErrorExit ;error routine _TEXT ends END FiltStart