home *** CD-ROM | disk | FTP | other *** search
- Newsgroups: comp.sources.misc
- From: pvr@wang.com (Peter Reilley)
- Subject: v26i045: beav - Binary file editor and viewer, v1.32, Part09/09
- Message-ID: <1991Nov21.230432.2045@sparky.imd.sterling.com>
- X-Md4-Signature: 043726ce9c92a10db09bf5c98e53ae33
- Date: Thu, 21 Nov 1991 23:04:32 GMT
- Approved: kent@sparky.imd.sterling.com
-
- Submitted-by: pvr@wang.com (Peter Reilley)
- Posting-number: Volume 26, Issue 45
- Archive-name: beav/part09
- Environment: UNIX, AIX, MS-DOS, AMIGA
- Supersedes: beav: Volume 22, Issue 10-18
-
- #! /bin/sh
- # into a shell via "sh file" or similar. To overwrite existing files,
- # type "sh file -c".
- # The tool that generated this appeared in the comp.sources.unix newsgroup;
- # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
- # Contents: beav.lnk cinfo.c makefile.amg makefile.bsd makefile.dos
- # makefile.ibm makefile.uxv
- # Wrapped by kent@sparky on Thu Nov 21 16:47:03 1991
- PATH=/bin:/usr/bin:/usr/ucb ; export PATH
- echo If this archive is complete, you will see the following message:
- echo ' "shar: End of archive 9 (of 9)."'
- if test -f 'beav.lnk' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'beav.lnk'\"
- else
- echo shar: Extracting \"'beav.lnk'\" \(193 characters\)
- sed "s/^X//" >'beav.lnk' <<'END_OF_FILE'
- XBASIC +BUFFER +CINFO +DISPLAY +ECHO +EXTEND + EBCDIC +
- XFILE +FILEIO +FORMAT +KBD +LINE +MAIN +RANDOM +REGION +
- XSEARCH +SPAWN +SYMBOL +TEXT +TTY +TTYIO +TTYKBD +
- XWINDOW +WORD + WANGPC
- XBEAV.EXE;
- END_OF_FILE
- if test 193 -ne `wc -c <'beav.lnk'`; then
- echo shar: \"'beav.lnk'\" unpacked with wrong size!
- fi
- # end of 'beav.lnk'
- fi
- if test -f 'cinfo.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'cinfo.c'\"
- else
- echo shar: Extracting \"'cinfo.c'\" \(2414 characters\)
- sed "s/^X//" >'cinfo.c' <<'END_OF_FILE'
- X/*
- X* Character class tables.
- X* Do it yourself character classification
- X* macros, that understand the multinational character set,
- X* and let me ask some questions the standard macros (in
- X* ctype.h) don't let you ask.
- X*/
- X#include "def.h"
- X
- X/*
- X* This table, indexed by a character drawn
- X* from the 256 member character set, is used by my
- X* own character type macros to answer questions about the
- X* type of a character. It handles the full multinational
- X* character set, and lets me ask some questions that the
- X* standard "ctype" macros cannot ask.
- X*/
- Xchar cinfo[256] =
- X{
- X
- X _C, _C, _C, _C, /* 0x0X */
- X _C, _C, _C, _C,
- X _C, _C, _C, _C,
- X _C, _C, _C, _C,
- X _C, _C, _C, _C, /* 0x1X */
- X _C, _C, _C, _C,
- X _C, _C, _C, _C,
- X _C, _C, _C, _C,
- X 0, 0, 0, 0, /* 0x2X */
- X _W, 0, 0, _W,
- X 0, 0, 0, 0,
- X 0, 0, 0, 0,
- X _W, _W, _W, _W, /* 0x3X */
- X _W, _W, _W, _W,
- X _W, _W, 0, 0,
- X 0, 0, 0, 0,
- X 0, _U | _W, _U | _W, _U | _W,/* 0x4X */
- X _U | _W, _U | _W, _U | _W, _U | _W,
- X _U | _W, _U | _W, _U | _W, _U | _W,
- X _U | _W, _U | _W, _U | _W, _U | _W,
- X _U | _W, _U | _W, _U | _W, _U | _W,/* 0x5X */
- X _U | _W, _U | _W, _U | _W, _U | _W,
- X _U | _W, _U | _W, _U | _W, 0,
- X 0, 0, 0, _W,
- X 0, _L | _W, _L | _W, _L | _W,/* 0x6X */
- X _L | _W, _L | _W, _L | _W, _L | _W,
- X _L | _W, _L | _W, _L | _W, _L | _W,
- X _L | _W, _L | _W, _L | _W, _L | _W,
- X _L | _W, _L | _W, _L | _W, _L | _W,/* 0x7X */
- X _L | _W, _L | _W, _L | _W, _L | _W,
- X _L | _W, _L | _W, _L | _W, 0,
- X 0, 0, 0, _C,
- X 0, 0, 0, 0, /* 0x8X */
- X 0, 0, 0, 0,
- X 0, 0, 0, 0,
- X 0, 0, 0, 0,
- X 0, 0, 0, 0, /* 0x9X */
- X 0, 0, 0, 0,
- X 0, 0, 0, 0,
- X 0, 0, 0, 0,
- X 0, 0, 0, 0, /* 0xAX */
- X 0, 0, 0, 0,
- X 0, 0, 0, 0,
- X 0, 0, 0, 0,
- X 0, 0, 0, 0, /* 0xBX */
- X 0, 0, 0, 0,
- X 0, 0, 0, 0,
- X 0, 0, 0, 0,
- X _U | _W, _U | _W, _U | _W, _U | _W,/* 0xCX */
- X _U | _W, _U | _W, _U | _W, _U | _W,
- X _U | _W, _U | _W, _U | _W, _U | _W,
- X _U | _W, _U | _W, _U | _W, _U | _W,
- X 0, _U | _W, _U | _W, _U | _W,/* 0xDX */
- X _U | _W, _U | _W, _U | _W, _U | _W,
- X _U | _W, _U | _W, _U | _W, _U | _W,
- X _U | _W, _U | _W, 0, _W,
- X _L | _W, _L | _W, _L | _W, _L | _W,/* 0xEX */
- X _L | _W, _L | _W, _L | _W, _L | _W,
- X _L | _W, _L | _W, _L | _W, _L | _W,
- X _L | _W, _L | _W, _L | _W, _L | _W,
- X 0, _L | _W, _L | _W, _L | _W,/* 0xFX */
- X _L | _W, _L | _W, _L | _W, _L | _W,
- X _L | _W, _L | _W, _L | _W, _L | _W,
- X _L | _W, _L | _W, 0, 0
- X};
- X
- END_OF_FILE
- if test 2414 -ne `wc -c <'cinfo.c'`; then
- echo shar: \"'cinfo.c'\" unpacked with wrong size!
- fi
- # end of 'cinfo.c'
- fi
- if test -f 'makefile.amg' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'makefile.amg'\"
- else
- echo shar: Extracting \"'makefile.amg'\" \(600 characters\)
- sed "s/^X//" >'makefile.amg' <<'END_OF_FILE'
- X#
- X# Makefile for commodore amiga version of beav, SAS C V5.10a, SJR Jun 1991.
- X#
- X# Modifications
- X#---------------
- X#
- X# 21st August 1991 - Version 1.32 - SJR
- X#
- X#
- XCFLAGS= -cw -j93i85i -DNOPROTO -DANSI
- XCC= lc
- X
- XOFILES= amiga.o basic.o ebcdic.o fileio.o region.o text.o wangpc.o \
- X buffer.o echo.o main.o search.o tty.o window.o \
- X cinfo.o extend.o kbd.o spawn.o ttyio.o termio.o tcap.o word.o \
- X display.o file.o line.o random.o symbol.o ttykbd.o format.o
- X
- X# If using SAS LMK comment out the following line
- XHFILES= def.h
- X
- Xbeav: $(OFILES)
- X blink with amibeav.lnk
- X# protect $@ add p
- X
- X$(OFILES): $(HFILES)
- END_OF_FILE
- if test 600 -ne `wc -c <'makefile.amg'`; then
- echo shar: \"'makefile.amg'\" unpacked with wrong size!
- fi
- # end of 'makefile.amg'
- fi
- if test -f 'makefile.bsd' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'makefile.bsd'\"
- else
- echo shar: Extracting \"'makefile.bsd'\" \(667 characters\)
- sed "s/^X//" >'makefile.bsd' <<'END_OF_FILE'
- X# This is the makefile for BSD UNIX
- XCFLAGS= -O -DUNIX -DBSD -DNOPROTO
- X
- XOFILES= basic.o ebcdic.o fileio.o region.o text.o wangpc.o \
- X buffer.o echo.o main.o search.o tty.o window.o \
- X cinfo.o extend.o kbd.o spawn.o ttyio.o termio.o tcap.o word.o \
- X display.o file.o line.o random.o symbol.o ttykbd.o format.o
- X
- X
- XCFILES= basic.c ebcdic.c fileio.c region.c text.c wangpc.c \
- X buffer.c echo.c format.c main.c search.c tty.c window.c \
- X cinfo.c extend.c kbd.c spawn.c ttyio.c termio.c tcap.c word.c \
- X display.c file.c line.c random.c symbol.c ttykbd.c
- X
- XHFILES= def.h
- X
- Xbeav: $(OFILES)
- X $(CC) $(CFLAGS) $(OFILES) -ltermcap -lc -o beav
- X
- X(OFILES): $(HFILES)
- END_OF_FILE
- if test 667 -ne `wc -c <'makefile.bsd'`; then
- echo shar: \"'makefile.bsd'\" unpacked with wrong size!
- fi
- # end of 'makefile.bsd'
- fi
- if test -f 'makefile.dos' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'makefile.dos'\"
- else
- echo shar: Extracting \"'makefile.dos'\" \(1897 characters\)
- sed "s/^X//" >'makefile.dos' <<'END_OF_FILE'
- X# makefile for BEAV under MSDOS using Microsoft MSC 5.1
- X
- XBASIC.OBJ: BASIC.C DEF.H PROTOTYP.H
- X CL -c -Ml BASIC.C ;
- X
- XBUFFER.OBJ: BUFFER.C DEF.H PROTOTYP.H
- X CL -c -Ml BUFFER.C ;
- X
- XCINFO.OBJ: CINFO.C DEF.H PROTOTYP.H
- X CL -c -Ml CINFO.C ;
- X
- XDISPLAY.OBJ: DISPLAY.C DEF.H PROTOTYP.H
- X CL -c -Ml DISPLAY.C ;
- X
- XEBCDIC.OBJ: EBCDIC.C DEF.H PROTOTYP.H
- X CL -c -Ml EBCDIC.C ;
- X
- XECHO.OBJ: ECHO.C DEF.H PROTOTYP.H
- X CL -c -Ml ECHO.C ;
- X
- XEXTEND.OBJ: EXTEND.C DEF.H PROTOTYP.H
- X CL -c -Ml EXTEND.C ;
- X
- XFILE.OBJ: FILE.C DEF.H PROTOTYP.H
- X CL -c -Ml FILE.C ;
- X
- XFILEIO.OBJ: FILEIO.C DEF.H PROTOTYP.H
- X CL -c -Ml FILEIO.C ;
- X
- XFORMAT.OBJ: FORMAT.C DEF.H PROTOTYP.H
- X CL -c -Ml FORMAT.C ;
- X
- XKBD.OBJ: KBD.C DEF.H PROTOTYP.H
- X CL -c -Ml KBD.C ;
- X
- XLINE.OBJ: LINE.C DEF.H PROTOTYP.H
- X CL -c -Ml LINE.C ;
- X
- XMAIN.OBJ: MAIN.C DEF.H PROTOTYP.H
- X CL -c -Ml MAIN.C ;
- X
- XRANDOM.OBJ: RANDOM.C DEF.H PROTOTYP.H
- X CL -c -Ml RANDOM.C ;
- X
- XREGION.OBJ: REGION.C DEF.H PROTOTYP.H
- X CL -c -Ml REGION.C ;
- X
- XSEARCH.OBJ: SEARCH.C DEF.H PROTOTYP.H
- X CL -c -Ml SEARCH.C ;
- X
- XSPAWN.OBJ: SPAWN.C DEF.H PROTOTYP.H
- X CL -c -Ml SPAWN.C ;
- X
- XSYMBOL.OBJ: SYMBOL.C DEF.H PROTOTYP.H
- X CL -c -Ml SYMBOL.C ;
- X
- XTEXT.OBJ: TEXT.C DEF.H PROTOTYP.H
- X CL -c -Ml TEXT.C ;
- X
- XTTY.OBJ: TTY.C DEF.H PROTOTYP.H
- X CL -c -Ml TTY.C ;
- X
- XTTYIO.OBJ: TTYIO.C DEF.H PROTOTYP.H
- X CL -c -Ml TTYIO.C ;
- X
- XTTYKBD.OBJ: TTYKBD.C DEF.H PROTOTYP.H
- X CL -c -Ml TTYKBD.C ;
- X
- XWANGPC.OBJ: WANGPC.C DEF.H PROTOTYP.H
- X CL -c -Ml WANGPC.C ;
- X
- XWINDOW.OBJ: WINDOW.C DEF.H PROTOTYP.H
- X CL -c -Ml WINDOW.C ;
- X
- XWORD.OBJ: WORD.C DEF.H PROTOTYP.H
- X CL -c -Ml WORD.C ;
- X
- XBEAV.EXE: BASIC.OBJ BUFFER.OBJ CINFO.OBJ DISPLAY.OBJ ECHO.OBJ EXTEND.OBJ \
- X EBCDIC.OBJ FILE.OBJ FILEIO.OBJ FORMAT.OBJ KBD.OBJ LINE.OBJ \
- X MAIN.OBJ RANDOM.OBJ TEXT.OBJ \
- X REGION.OBJ SEARCH.OBJ SPAWN.OBJ SYMBOL.OBJ TTY.OBJ TTYIO.OBJ \
- X TTYKBD.OBJ WINDOW.OBJ WORD.OBJ WANGPC.OBJ
- X LINK @beav.lnk
- X
- X
- X
- X
- END_OF_FILE
- if test 1897 -ne `wc -c <'makefile.dos'`; then
- echo shar: \"'makefile.dos'\" unpacked with wrong size!
- fi
- # end of 'makefile.dos'
- fi
- if test -f 'makefile.ibm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'makefile.ibm'\"
- else
- echo shar: Extracting \"'makefile.ibm'\" \(666 characters\)
- sed "s/^X//" >'makefile.ibm' <<'END_OF_FILE'
- X# This is a makefile for IBM RS/6000
- XCFLAGS= -O -DUNIX -DNOPROTO
- X
- XOFILES= basic.o ebcdic.o fileio.o region.o text.o wangpc.o \
- X buffer.o echo.o main.o search.o tty.o window.o \
- X cinfo.o extend.o kbd.o spawn.o ttyio.o termio.o tcap.o word.o \
- X display.o file.o line.o random.o symbol.o ttykbd.o format.o
- X
- X
- XCFILES= basic.c ebcdic.c fileio.c region.c text.c wangpc.c \
- X buffer.c echo.c format.c main.c search.c tty.c window.c \
- X cinfo.c extend.c kbd.c spawn.c ttyio.c termio.c tcap.c word.c \
- X display.c file.c line.c random.c symbol.c ttykbd.c
- X
- XHFILES= def.h
- X
- Xbeav: $(OFILES)
- X $(CC) $(CFLAGS) $(OFILES) -ltermcap -lc -o beav
- X
- X(OFILES): $(HFILES)
- X
- END_OF_FILE
- if test 666 -ne `wc -c <'makefile.ibm'`; then
- echo shar: \"'makefile.ibm'\" unpacked with wrong size!
- fi
- # end of 'makefile.ibm'
- fi
- if test -f 'makefile.uxv' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'makefile.uxv'\"
- else
- echo shar: Extracting \"'makefile.uxv'\" \(663 characters\)
- sed "s/^X//" >'makefile.uxv' <<'END_OF_FILE'
- X# This is the makefile for System V UNIX
- XCFLAGS= -O -DUNIX -DSYSV
- X
- XOFILES= basic.o ebcdic.o fileio.o region.o text.o wangpc.o \
- X buffer.o echo.o main.o search.o tty.o window.o \
- X cinfo.o extend.o kbd.o spawn.o ttyio.o termio.o tcap.o word.o \
- X display.o file.o line.o random.o symbol.o ttykbd.o format.o
- X
- X
- XCFILES= basic.c ebcdic.c fileio.c region.c text.c wangpc.c \
- X buffer.c echo.c format.c main.c search.c tty.c window.c \
- X cinfo.c extend.c kbd.c spawn.c ttyio.c termio.c tcap.c word.c \
- X display.c file.c line.c random.c symbol.c ttykbd.c
- X
- XHFILES= def.h
- X
- Xbeav: $(OFILES)
- X $(CC) $(CFLAGS) $(OFILES) -ltermcap -lc -o beav
- X
- X(OFILES): $(HFILES)
- END_OF_FILE
- if test 663 -ne `wc -c <'makefile.uxv'`; then
- echo shar: \"'makefile.uxv'\" unpacked with wrong size!
- fi
- # end of 'makefile.uxv'
- fi
- echo shar: End of archive 9 \(of 9\).
- cp /dev/null ark9isdone
- MISSING=""
- for I in 1 2 3 4 5 6 7 8 9 ; do
- if test ! -f ark${I}isdone ; then
- MISSING="${MISSING} ${I}"
- fi
- done
- if test "${MISSING}" = "" ; then
- echo You have unpacked all 9 archives.
- rm -f ark[1-9]isdone ark[1-9][0-9]isdone
- else
- echo You still must unpack the following archives:
- echo " " ${MISSING}
- fi
- exit 0
- exit 0 # Just in case...
-