STRIPPER
Interactive File Modification

STRIPPER is a FORTRAN90 program which carries out some simple modifications to a file.

It even knows a little bit about special kinds of files, such as "FORTRAN", "C" or "C++" source codes. STRIPPER can delete control characters, capitalize all characters, extract the fifth word from every line, write out only columns 10 through 50, copy only the lines with or without a particular string, and a few other tricks.

If you want to use the program, run it and try the "H" (help) command first.

Historical note and rant: this program was first developed in order to deal with a flood of FORTRAN77 program files which had both TAB characters (stupid, stupid) and sequence numbers (too distasteful to mention any further).

Feeding such data to the compiler was asking for trouble, particularly if, beforehand, you had made any editing changes that caused the continuation character (oh my, did I forget to mention those things?) to shift out of its position, or the sequence numbers to poke their noses into the text fields.

Some of these problems would be invisible to the programmer, because many editors conspired to hide or "process" TAB characters in an indefensibly deceptive way. (This ALL goes back to "C" and "int's" and other abbreviations and shortcuts that seem to serve the incompetent or lazy typist while scattering deadly traps for the innocent). ...Anyway, I got tired of replacing TAB's and stripping out sequence numbers, so I wrote a program called strip to do it for me. It got renamed stripper because there was some UNIX utility that got to the strip name first.

Licensing:

The computer code and data files made available on this web page are distributed under the GNU LGPL license.

Languages:

STRIPPER is available in a FORTRAN90 version.

Related Data and Programs:

CR2CRLF, a C++ program which replaces carriage returns by carriage returns + line feeds.

CR2LF, a C++ program which reads a text file and replaces carriage returns by line feeds.

CRRM, a C++ program which removes all carriage returns from a file.

DEBLANK, a C++ program which makes a copy of a text file which contains no blank lines.

DECOMMENT, a C++ program which makes a copy of a text file which contains no "comment" lines (that begin with "#").

DETROFF, a C++ program which removes from a file every occurrence of the TROFF overprint pair character+backspace, which can make a MAN page printable;

FILUM, a FORTRAN90 library which performs various operations on files.

REFORMAT, a FORTRAN90 program which reads a text file that contains only real values, and writes a copy which has a fixed number of real values on each line.

REWORD, a C++ program which reads a text file and writes a copy which has a fixed number of "words" per line.

UNCONTROL, a C++ program which makes a copy of a text file which contains no control characters.

WRAP, a C++ program which makes a copy of a text file in which no line is longer than a user-specified wrap length.

Source Code:

• stripper.f90, the source code;

List of Routines:

• MAIN is the main program for STRIPPER.
• CH_CAP capitalizes a single character.
• CH_IS_ALPHA returns TRUE if C is an alphabetic character.
• CH_IS_CONTROL reports whether a character is a control character or not.
• CH_LOW lowercases a single character.
• CH_TO_ROT13 converts a character to its ROT13 equivalent.
• CH_TO_SYM returns a printable symbol for any ASCII character.
• CHRA_TO_S replaces control characters by printable symbols.
• CHRDT6 replaces TAB characters by 6 spaces.
• CHRS_TO_A replaces all control symbols by control characters.
• DOML handles the left margin of the line of text.
• GETINP reads the next chunk of input from the input file.
• GETLIN reads (or "unreads") lines from a file.
• HELLO prints out the program's name and last date of revision.
• HELP prints out the command options.
• INIT sets or restores the default values of the user options.
• LALPHA returns .TRUE. if STRING contains only alphabetic characters.
• LDIGIT returns .TRUE. if STRING contains only digits or blanks.
• LINE_GET gets the next input line.
• LINE_PUT writes the line to the output file.
• NUMCON counts the number of control characters in a line of text.
• RUBOUT deletes the pair "character" + BACKSPACE from a string.
• S_BLANK_DELETE removes blanks from a string, left justifying the remainder.
• S_C_LAST returns the last nonblank character in a string.
• S_CAP replaces any lowercase letters by uppercase ones in a string.
• S_CAT concatenates two strings to make a third string.
• S_CHOP "chops out" a portion of a string, and closes up the hole.
• S_CONTAINS_ANY_ALPHA is TRUE if the string contains any alphabetic character.
• S_CONTROL_BLANK replaces control characters with blanks.
• S_CONTROL_DELETE removes all control characters from a string.
• S_EQI is a case insensitive comparison of two strings for equality.
• S_INDEXI is a case-insensitive INDEX function.
• S_LOW replaces all uppercase letters by lowercase ones.
• S_ONLY_ALPHAB checks if a string is only alphabetic and blanks.
• S_ONLY_DIGITB returns .TRUE. if the string contains only digits or blanks.
• S_TO_ROT13 "rotates" the alphabetical characters in a string by 13 positions.
• SHOW displays the values of the user variables.
• STRIPIT processes the file.
• SYM_TO_CH returns the character represented by a symbol.
• TIMESTAMP prints the current YMDHMS date as a time stamp.
• TOKEN_NDX finds the N-th FORTRAN variable name in a string.
• TOKEN_NEXT finds the next FORTRAN variable name in a string.
• WORD_CAP capitalizes the first character of each word in a string.
• WORD_INDEX finds the word of a given index in a string.
• WORD_NEXT finds the next (blank separated) word in a string.
• WORD_NEXT2 returns the first word in a string.

You can go up one level to the FORTRAN90 source codes.