🚀 go-pugleaf

Submitted-by: NONE
Posting-number: Volume 1, Source:16
Archive-name: util/show
Architecture: ANY_2
Version-number: 1.00

This utility displays non-rpinting characters in a file.

Enjoy.


=show.c
-
-/*
- * show.c
- *
- * Display non-printing chars in a file.
- *	Non-printing character mappings:
- *		CHARACTER	DISPLAYED AS
- * 		tab 		>
- * 		newline 	$
- * 		control X 	~X	where X is any control character
- * 		delete 		~~
- * 	Newlines and tabs are also echoed to output as control characters.
- *
- * Usage:
- * 	show [file_1] [file_2] [file_3] [...]
- *
- * 	If no file is specified, show reads from standard in. 
- *
- * Contributed Anonymously.  Written: November 1983
- *
- * Version 1.00
- *
- */
-
-#include "stdio.h"
-
-#define BLANK ' '
-#define TAB   '\t'
-#define NL    '\n'
-
-main(argc, argv)
-int argc ;
-char *argv[] ;
-{
-	FILE *input ;
-
-
-	argc-- ; argv++ ;
-
-	if( argc == 0 )
-		show( stdin ) ;
-
-	else
-		for( ; argc>0 ; argc--,argv++)
-			if( (input=fopen(*argv,"r")) == NULL ) {
-				fprintf(stderr, "show: can't open %s\n", *argv) ;
-				exit(1) ;
-			}
-			else {
-				show(input) ;
-				fclose( input ) ;
-			}
-
-	exit(0) ;
-
-} /* end main */
-
-/* show - print invisible chars */
-
-show( in )
-FILE *in ;
-{
-	int c ;
-
-
-	while( (c=agetc(in)) != EOF )
-		if( c == NL ) {
-			aputc( '$', stdout ) ;
-			aputc( NL, stdout ) ;
-		}
-		else if( c == TAB )
-			aputc( '>', stdout ) ;
-		else if( c < BLANK ) {
-			aputc( '~', stdout ) ;
-			aputc( c+'@', stdout ) ;
-		}
-		else if( c == 0x7f ) {
-			aputc( '~', stdout ) ;
-			aputc( '~', stdout ) ;
-		}
-		else
-			aputc( c, stdout ) ;
-
-} /* end show */
-
+ END OF ARCHIVE