Blake McBride
commit
0e17d45276
|
|
@ -0,0 +1,7 @@
|
|||
|
||||
*.o
|
||||
*.obj
|
||||
*~
|
||||
*.bak
|
||||
*.exe
|
||||
|
||||
|
|
@ -0,0 +1 @@
|
|||
tecoc
|
||||
|
|
@ -0,0 +1 @@
|
|||
tecoc teco/inspect %$
|
||||
|
|
@ -0,0 +1 @@
|
|||
tecoc teco/inspect %$
|
||||
|
|
@ -0,0 +1 @@
|
|||
tecoc mung %$
|
||||
|
|
@ -0,0 +1 @@
|
|||
tecoc mung %$
|
||||
|
|
@ -0,0 +1 @@
|
|||
tecoc teco %$
|
||||
|
|
@ -0,0 +1 @@
|
|||
tecoc teco %$
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
alias teco tecoc teco/norename
|
||||
alias inspect tecoc/inspect
|
||||
alias mung tecoc mung
|
||||
alias tmake tecoc make
|
||||
|
|
@ -0,0 +1 @@
|
|||
tecoc make %$
|
||||
|
|
@ -0,0 +1 @@
|
|||
tecoc make %$
|
||||
|
|
@ -0,0 +1,469 @@
|
|||
AAREADME.TXT
|
||||
|
||||
This directory contains TECO-C, a version of TECO written in C.
|
||||
It was written in C so the author could move comfortably from VAX/VMS
|
||||
to various other machines, including MicroVaxes, which couldn't execute
|
||||
TECO-11 prior to VMS 5.0 because they don't support PDP-11 compatibility
|
||||
mode. TECO32, distributed with v5.0, solved this problem.
|
||||
|
||||
TECO-C is meant to be a complete implementation of TECO as defined
|
||||
by the Standard TECO User's Guide, which is in file TECO.DOC. There is no
|
||||
manual for TECO-C itself, but the Standard TECO manual was the specification
|
||||
for TECO-C, so it serves as an excellent manual. TECO-C departs from the
|
||||
Standard manual in only a few places (like no video mode), listed in file
|
||||
PROBLEMS.TXT. There is quick-and-dirty "wall chart" of all TECO commands
|
||||
in file WCHART.TXT.
|
||||
|
||||
This version of TECO-C runs under VMX/VMS, MS-DOS, AmigaDOS and Unix
|
||||
(SunOS, Ultrix and System V on a Data General Aviion). If you find bugs or
|
||||
have any comments about TECO-C, please contact
|
||||
|
||||
Pete Siemsen Pete Siemsen
|
||||
645 Ohio Avenue #302 University of Southern California
|
||||
Long Beach, Ca. 90814 1020 West Jefferson Blvd.
|
||||
Los Angeles, CA 90089-0251
|
||||
|
||||
(213) 433-3059 (home) (213) 740-7391 (work)
|
||||
|
||||
Internet: siemsen@usc.edu
|
||||
|
||||
The following sections describe how to use or build TECO-C for
|
||||
different environments. The command line syntax is the same as the syntax
|
||||
for TECO-11 command lines.
|
||||
|
||||
|
||||
###########################################################################
|
||||
U N D E R V A X / V M S
|
||||
|
||||
TECO-C was mostly developed under VAX/VMS. It compiles and links
|
||||
using VAX C 3.1 under VMS version 5.3.
|
||||
|
||||
To set up: inspect and modify ZVLOGIN.COM and then add it to your
|
||||
LOGIN.COM
|
||||
|
||||
To compile: inspect/edit ZVBLD.COM, then SUBMIT it
|
||||
|
||||
To link: use the "LT" command (defined in ZVLOGIN.COM)
|
||||
|
||||
To run: inspect/edit the symbol definitions in ZVLOGIN.COM
|
||||
Note: TECO-C uses the same command line syntax as TECO32
|
||||
|
||||
|
||||
###########################################################################
|
||||
U N D E R M S - D O S
|
||||
|
||||
TECO-C compiles/links under Turbo C v2.00 under MS-DOS 4.01 and
|
||||
Concurrent DOS 386 v3.0.
|
||||
|
||||
To build: run MAKE on MAKEFILE.TC. to build TECO from scratch say:
|
||||
"make -fmakefile.tc -DALL". see MAKEFILE.TC for other make
|
||||
-D options. also see MAKETECO.BAT.
|
||||
|
||||
To run: use TECO.BAT to edit a file or MUNG.BAT to run a macro,
|
||||
for example: TECO filename.
|
||||
|
||||
|
||||
###########################################################################
|
||||
U N D E R U N I X
|
||||
|
||||
To compile and link: use the make utility on "makefile.sun" (for SunOS) or
|
||||
"makefile.ulx" (for Ultrix) or "makefile.dg" (for System V Unix
|
||||
on a Data General Aviion).
|
||||
|
||||
To run: define aliases and environment variables in your .cshrc file.
|
||||
Here's an example, assuming my initialization file is named
|
||||
.tecorc and it's in my home directory, and my macros are in a
|
||||
directory named tecoc under my main directory. You'll have to
|
||||
change the directory names, of course.
|
||||
|
||||
setenv TEC_INIT \$/home/sol/siemsen/.tecorc
|
||||
setenv TEC_LIBRARY /home/sol/siemsen/tecoc/
|
||||
alias te '/home/sol/siemsen/tecoc/tecoc teco -nocreate'
|
||||
alias mung '/home/sol/siemsen/tecoc/tecoc mung'
|
||||
alias tma '/home/sol/siemsen/tecoc/tecoc make'
|
||||
|
||||
After doing this, "te" runs tecoc.
|
||||
|
||||
|
||||
Unix Command line
|
||||
---- ------- ----
|
||||
|
||||
To make Unix users more comfortable, TECO-C uses Unix-like options syntax
|
||||
instead of the familiar "/" style used under VAX/VMS. The options can be
|
||||
abbreviated. They are (optional characters in square brackets):
|
||||
|
||||
-in[spect]
|
||||
-noc[reate]
|
||||
-noi[ni]
|
||||
-nom[emory]
|
||||
-sc[roll]
|
||||
-scroll:nnn:SEEALL
|
||||
do nnn,7:W and 1,3:W
|
||||
|
||||
|
||||
-nop[age]
|
||||
Don't separate input into pages. Instead, treat form feeds as
|
||||
normal characters.
|
||||
+nnn
|
||||
where nnn is any number of digits. Go to line number nnn and set
|
||||
nopage. Note this uses the UNIX end of line convention for use with
|
||||
cc output &c. The non-unix line termination will still be used for
|
||||
nL and other intrinsic TECO commands, this just controls the
|
||||
starting line AT INVOCATION.
|
||||
|
||||
|
||||
EZ Mode Control Flag
|
||||
-- ---- ------- ----
|
||||
|
||||
To add functionality, TECO-C is sensitive to bits in an extra mode control
|
||||
flag in addition to the standard ones. Bits in the EZ mode control flag are
|
||||
used in different ways by different operating systems. Under Unix, bits in
|
||||
the flag have the following meanings:
|
||||
|
||||
1 Mark Henderson, who did much of the Unix port, likes the way
|
||||
VAX/VMS keeps versions of files. VMS appends a semicolon followed
|
||||
by a version number to files, and has the PURGE command to clean
|
||||
out old versions of files. If this bit is off, TECO-C will handle
|
||||
file version numbers, appending the appropriate version number to
|
||||
file names. Mark supplied a "purge" program (distributed with TECO-C)
|
||||
for users of this feature. Setting this flag turns off the feature,
|
||||
to make TECO-C function as expected by the average Unix user. This
|
||||
flag is set by default.
|
||||
|
||||
8 I don't know what this flag does. It only makes sense when TECO-C
|
||||
is compiled with CURSES support.
|
||||
|
||||
16 If set, when it's time to beep, use an audio beep, and if it fails,
|
||||
then try a video flash. If clear, try a video flash, and if it
|
||||
fails, use an audio beep. This bit works only if TECO-C was compiled
|
||||
with CURSES support. This bit is off by default.
|
||||
|
||||
32 If set, and split screen scrolling mode is on (see the 7:W command),
|
||||
TECO-C puts a line between the upper and lower scrolling regions.
|
||||
If off, don't display a line. This bit works only if TECO-C was
|
||||
compiled with CURSES support. This bit is off by default.
|
||||
|
||||
128 If set, don't stop on form feeds when reading. If clear, a form
|
||||
fed in the input stream stops the read (the standard TECO style).
|
||||
This bit is off by default.
|
||||
|
||||
256 If set, use Unix-style newline terminators. This means when files
|
||||
are read in, carriage-returns are not added to the end of lines,
|
||||
and when the user types the RETURN key, only a newline is entered
|
||||
into the command line (usually a carriage-return/line-feed pair is
|
||||
entered). Old macros (and old TECO users) may get confused if this
|
||||
bit is set, but it's required if CURSES support is compiled into
|
||||
TECO-C.
|
||||
|
||||
2048 If set, use a bottom-tee symbol instead of a diamond to indicate
|
||||
the end-of-buffer. This bit works only if TECO-C was compiled with
|
||||
CURSES support. This bit is off by default.
|
||||
|
||||
8192 If set, don't show CR in SCROLL mode (like standard TECO). If clear,
|
||||
show CR (a graphics character indicating a carriage return) when in
|
||||
SCROLL mode. This bit works only if TECO-C was compiled with CURSES
|
||||
support. This bit is on by default.
|
||||
|
||||
|
||||
Filename Memory
|
||||
-------- ------
|
||||
|
||||
TECO tries to remember the last file edited by TECO, so that after you've
|
||||
edited a file once, you can re-edit without having to type the file name
|
||||
on the command line. TECO-C implements this under Unix by writing and reading
|
||||
files named /tmp/tecoxxx.tmp, where "xxx" is the process id of the parent
|
||||
process.
|
||||
|
||||
|
||||
NOTE: There is another TECO in C, written by Matt Fichtenbaum, which
|
||||
runs under Unix. It is part of the DECUS TECO Collection. Contact Pete
|
||||
Siemsen at the above address for a copy.
|
||||
|
||||
###########################################################################
|
||||
U N D E R A M I G A D O S
|
||||
|
||||
To compile and link: see makefile.ami, (note: it needs tecoc.lnk)
|
||||
|
||||
Comments from the author of the Amiga code:
|
||||
|
||||
I've completed my TECOC port to the Amiga. It has been tested on an
|
||||
Amiga 1000 under AmigaDOS 1.3.2. My system configuration is:
|
||||
|
||||
68000 microprocessor
|
||||
2.5 megs memory
|
||||
80 meg hard drive
|
||||
Old Amiga chip set
|
||||
SAS Institute C for the Amiga version 5.10
|
||||
|
||||
TECO-C runs in the CLI window it was started from, and it should run
|
||||
over a terminal hooked to an Amiga serial port as well.
|
||||
|
||||
Adding 'W' command stuff would probably best be done by one of the
|
||||
termcap ports to the Amiga, however, TECO would have to handle
|
||||
SIGWINCH-like events, unless it is modified to open it's own window of
|
||||
a particular size without a resizing gadget. It wouldn't be to hard to
|
||||
write a terminal driver for Amiga windows using hard-coded escape
|
||||
sequences either, but then that would lose over a serial port.
|
||||
|
||||
EzFlag
|
||||
------
|
||||
|
||||
The EZ flag is system-dependent. Under AmigaDOS, bits in the flag have the
|
||||
following meanings:
|
||||
|
||||
128 If set, don't stop on form feeds when reading. If clear, a form
|
||||
fed in the input stream stops the read (the standard TECO style).
|
||||
This bit os off by default.
|
||||
|
||||
256 If set, use Unix-style newline terminators. This means when files
|
||||
are read in, carriage-returns are not added to the end of lines,
|
||||
and when the user types the RETURN key, only a newline is entered
|
||||
into the command line (usually a carriage-return/line-feed pair is
|
||||
entered). Old macros (and old TECO users) may get confused if this
|
||||
bit is set, but it's required if CURSES support is compiled into
|
||||
TECO-C.
|
||||
|
||||
|
||||
|
||||
|
||||
###########################################################################
|
||||
F I L E S
|
||||
|
||||
|
||||
aareadme.txt this readme file
|
||||
baksrc.c backwards search
|
||||
bldstr.c build a string with string build constructs
|
||||
change.tec change macro squished
|
||||
change.tes change macro source. this macro allows you to
|
||||
replace one string with another in a group of
|
||||
files using match constructs.
|
||||
changes.txt contains teco-c release notes starting from
|
||||
version 1.00 (TVERSION = 100)
|
||||
chmacs.h ctype.h for teco-c
|
||||
clenup.c clean up before exiting teco-c
|
||||
clpars.h command line parsing macro, created by genclp.c
|
||||
clpars.tec command line parsing macro squished
|
||||
clpars.tes command line parsing macro source
|
||||
cmatch.c match character with match construct
|
||||
date.tec date macro squished
|
||||
date.tes date macro source. this macro displays the
|
||||
date and time.
|
||||
dchars.h define identifiers for control characters
|
||||
deferr.h define identifiers for error messages
|
||||
defext.h EXTERN decarations for global variables
|
||||
detab.tec de-tabify macro squished
|
||||
detab.tes de-tabify macro source. this macro converts
|
||||
tabs to spaces
|
||||
dir.tec "display directory" macro, in squished form
|
||||
dir.tes "display directory" macro source. This macro simply
|
||||
displays the directory. a wildcarded filename
|
||||
in the edit buffer can control what is displayed.
|
||||
docjr.c code common to ExeC, ExeJ, and ExeR
|
||||
doeves.c work code for EV and ES
|
||||
doflag.c changes a mode control flag (ED,EH,ES,ET,EU,EV,^X)
|
||||
dscren.h terminal types for 0:W command
|
||||
echoit.c display character in its printable form
|
||||
err.c display teco-c's error messages
|
||||
exea.c execute A
|
||||
exeats.c execute at-sign @
|
||||
exeb.c execute B
|
||||
exebar.c execute |
|
||||
exebsl.c execute backslash \
|
||||
exec.c execute C
|
||||
execcc.c execute control-caret ^^
|
||||
execln.c execute colon modifiers : and ::
|
||||
execom.c execute comma ,
|
||||
execrt.c execute caret ^
|
||||
execst.c execute a TECO command string
|
||||
execta.c execute ^A
|
||||
exectc.c execute ^C
|
||||
exectd.c execute ^D
|
||||
execte.c execute ^E
|
||||
execti.c execute ^I
|
||||
exectl.c execute ^L
|
||||
exectn.c execute ^N
|
||||
execto.c execute ^O
|
||||
exectp.c execute ^P
|
||||
exectq.c execute ^Q
|
||||
exectr.c execute ^R
|
||||
exects.c execute ^S
|
||||
exectt.c execute ^T
|
||||
exectu.c execute ^U
|
||||
exectv.c execute ^V
|
||||
exectw.c execute ^W
|
||||
exectx.c execute ^X
|
||||
execty.c execute ^Y
|
||||
exectz.c execute ^Z
|
||||
exed.c execute D
|
||||
exedgt.c execute digit (0-9)
|
||||
exedot.c execute dot .
|
||||
exedqu.c execute double quote "
|
||||
exee.c execute E
|
||||
exeequ.c execute equals =, ==, and ===
|
||||
exeesc.c execute escape
|
||||
exeexc.c execute exclamation point !
|
||||
exeey.c execute EY
|
||||
exef.c execute F
|
||||
exefb.c execute FB
|
||||
exeg.c execute G
|
||||
exegtr.c execute greater than sign >
|
||||
exeh.c execute H
|
||||
exei.c execute I
|
||||
exeill.c "execute" illegal command
|
||||
exej.c execute J
|
||||
exek.c execute K
|
||||
exel.c execute L
|
||||
exelbr.c execute left-bracket [
|
||||
exelst.c execute less than sign <
|
||||
exem.c execute M
|
||||
exen.c execute N
|
||||
exenul.c execute null ^@
|
||||
exenyi.c "execute" not-yet-implemented command
|
||||
exeo.c execute O
|
||||
exeopr.c execute operator (+,-,(,#,/,&,^_,*)
|
||||
exep.c execute P (see singlp.c)
|
||||
exeprc.c execute percent sign %
|
||||
exepw.c execute PW
|
||||
exeq.c execute Q
|
||||
exeqes.c execute question mark ?
|
||||
exer.c execute R
|
||||
exerbr.c execute right bracket ]
|
||||
exertp.c execute right paren )
|
||||
exes.c execute S
|
||||
exescl.c execute semicolon ;
|
||||
exet.c execute T
|
||||
exeu.c execute U
|
||||
exeund.c execute underscore _
|
||||
exeusc.c execute unit separator character ^_
|
||||
exev.c execute V
|
||||
exew.c execute W
|
||||
exex.c execute X
|
||||
exey.c execute Y
|
||||
exez.c execute Z
|
||||
findes.c find end of string
|
||||
findqr.c find q-register name
|
||||
flowec.c flow to end of conditional
|
||||
flowee.c flow to else part of conditional
|
||||
flowel.c flow to end of loop
|
||||
fmtmac.tec PDP-11 .MAC formatter squished
|
||||
fmtmac.tes PDP-11 .MAC formatter source. this macro does
|
||||
case formatting for PDP-11 macro (.MAC) source files
|
||||
format.tec FORTRAN formatter squished
|
||||
format.tes FORTRAN formatter source. formats the first part of
|
||||
a FORTRAN source line.
|
||||
genclp.c generates the command line parsing macro in clpars.h
|
||||
getara.c get area in edit buffer an "m,n" argument defines
|
||||
getnma.c get numeric argument off expression stack
|
||||
inccbp.c increments command buffer pointer
|
||||
init.c teco-c initializatin routines
|
||||
insstr.c insert string into edit buffer
|
||||
isradx.c is digit within current radix?
|
||||
ln2chr.c convert line-number to character-number (^Q)
|
||||
lowcase.tec convert edit buffer to lowercase macro, see upcase.tec
|
||||
makdbf.c make digit buffer, binary to ascii in current radix
|
||||
makefile.ami AmigaDOS make file
|
||||
makefile.cct CodeCenter under SunOS
|
||||
makefile.dg System V Unix make file (works on Data General Aviion)
|
||||
makefile.sun SunOS make file
|
||||
makefile.tc Turbo C make file (MS-DOS)
|
||||
makefile.ulx Ultrix make file
|
||||
maketeco.bat MS-DOS batch file to make teco. this is probably how
|
||||
the temdos.exe executable file was made.
|
||||
makprnt.tec make printable macro squished
|
||||
makprnt.tes make printable macro squished. this macro makes a
|
||||
string with embedded control characters printable
|
||||
makrom.c make room in Q-register for new text
|
||||
mung.bat MS-DOS batch to execute a teco macro from command line
|
||||
pg.mem a programmer's guide. it may be useful to anyone
|
||||
fixing bugs, adding features, or porting teco-c to
|
||||
a new environment.
|
||||
pkzip.rsp a PKZIP response file used to build TECOC.ZIP archive
|
||||
popmac.c pop macro environment off macro stack
|
||||
problems.txt contains notes about bugs and ideas
|
||||
pshmac.c push current macro environment on macro stack
|
||||
pushex.c push expression onto stack, try to reduce it
|
||||
rdline.c read a line
|
||||
rdpage.c read a page
|
||||
readcs.c read command string
|
||||
replac.c code for search and replace commands
|
||||
search.c code for most of the search comamnds
|
||||
search.tec search macro squished
|
||||
search.tes search macro source. this macro finds a string in
|
||||
a group of files using teco match constructs
|
||||
singlp.c does a single P command
|
||||
skpcmd.c skip over current command in command bufer
|
||||
squ.bat MS-DOS batch file to run squ.tec w/standard options
|
||||
squ.tec squish macro squished
|
||||
squ.tes squish macro source. this macro takes a teco macro
|
||||
source file and makes it as small and as fast (and
|
||||
as unreadable) as possible
|
||||
srclop.c search loop, handles loop arguments for search
|
||||
sserch.c do a simple search
|
||||
sub.tec ?
|
||||
tabort.c terminate teco-c
|
||||
tctlib.rsp a Turbo C TLIB response file used by makefile.tc
|
||||
teco.bat MS-DOS batch file to run teco-c
|
||||
teco.doc Standard TECO documentation from DECUS
|
||||
teco.tes teco initialization file
|
||||
tecoc.c the main source module, contains all the definitions
|
||||
of system-independent global variables, as well as
|
||||
comments explaining what they are.
|
||||
tecoc.exe the teco-c executable for VMS
|
||||
tecoc.h defines structures, general identifiers, and
|
||||
the in-line debugging scheme.
|
||||
tecoc.lnk link file needed under AmigaDOS (see makefile.ami)
|
||||
tecoin.tes teco initialization file
|
||||
temsdos.exe the teco-c executable for MS-DOS
|
||||
tst.bat MS-DOS batch file to run the test macros
|
||||
tst.com VMS command procedure to run the test macros
|
||||
tstbsl.tec --
|
||||
tstcss.tec |
|
||||
tstequ.tec | these macros contain code which tests some
|
||||
tsto.tec | aspects of teco-c
|
||||
tstpw.tec |
|
||||
tstqr.tec |
|
||||
tstsrc.tec --
|
||||
typbuf.c types a buffer on the screen, converting unprintable
|
||||
characters to printable as nescessary.
|
||||
type.tec type a file macro squished
|
||||
type.tes type a file macro source. this macro apparently
|
||||
types a file on the console with all kinds of
|
||||
wonderful options.
|
||||
typest.c types the erroneous command string for errors
|
||||
uminus.c unary minus (converts -C to -1C)
|
||||
unsqu.tec unsquish macro squished
|
||||
unsqu.tes unsquish macro source. this macro does some simple
|
||||
formatting of a squished teco macro to make it more
|
||||
readable (like indenting)
|
||||
upcase.tec convert edit buffer to uppercase macro, see lowcase.tec
|
||||
vrbmsg.h verbose forms of teco error messages
|
||||
vtedit.tec vtedit macro squished
|
||||
vtedit.tes vtedit macro source. humongous screen editor macro.
|
||||
note: this macro does NOT run under teco-c.
|
||||
wchart.txt contains a wall chart of TECO commands
|
||||
wrpage.c write a page
|
||||
zamiga.c AmigaDOS system dependent code.
|
||||
zfirst.c dummy module used if CHECKSUM_CODE is TRUE in zport.h
|
||||
zfrsrc.c do a forward search using VAX SCANC instruction
|
||||
zmsdos.c MS-DOS system dependant code
|
||||
zport.h portability header file.
|
||||
zunix.c SunOS (Unix) system dependant code
|
||||
zunkn.c UNKNOWN system dependant code (function stubs)
|
||||
zvms.c VAX/VMS system dependant code
|
||||
|
||||
|
||||
The W command does not work, but the EXEW.C file contains code
|
||||
to tell you what the command would have done if it had been executed. I used
|
||||
this to play with executing VTEDIT.TEC under TECOC in order to find bugs.
|
||||
|
||||
I maintain the DECUS TECO Collection, a bunch of stuff relating to
|
||||
TECO. It includes sources for DEC's TECO-11 v39, three TECOs written in C,
|
||||
including ones for VAX/VMS, MS-DOS, SunOS (Unix) and Ultrix, the current
|
||||
Standard TECO manual, two EMACs-like macro packages and LOTS of macros.
|
||||
|
||||
I you have something that you feel should be included in this
|
||||
collection, or if you would like to improve the software, please contact
|
||||
me at the above address.
|
||||
|
||||
|
||||
Pete Siemsen
|
||||
|
|
@ -0,0 +1,118 @@
|
|||
FINDQR.C:
|
||||
|
||||
Cast is needed to get it to compile under Borland C.
|
||||
|
||||
CLPARS.TES:
|
||||
|
||||
If no EGMEM or if EGMEM and filename starts with a $, then CLPARS
|
||||
gets totally hosed. Major hacking was needed to fix.
|
||||
|
||||
ZMSDOS.C, EXEE.C TECOC.H:
|
||||
|
||||
Backup file is created for EW and other occasions. It should only be
|
||||
created with the EB command (or TECOC TECO on the command line).
|
||||
|
||||
Added BOOLEAN Backup argument to ZMSDOS:ZOpOut. Only make backup if
|
||||
Backup==TRUE. Argument is passed through in EXEE:OpnOut. In
|
||||
EXEE:ExeEB, value passed is TRUE. In EXEE:ExeEW and EXEE:ExeEPr the
|
||||
value passed is False. When file is closed in ZMSDOS:ZOClos then if
|
||||
no backup was wanted we won't create one.
|
||||
|
||||
EXEM.C:
|
||||
|
||||
Colon modified macros pass the colon into the internal command. This
|
||||
prevented the tstqr.tec test file from working.
|
||||
|
||||
The fix is to clear the colon flag if it is set within ExeM().
|
||||
|
||||
EXEM.C:
|
||||
|
||||
Execution of local macros caused new set of local q registers to be
|
||||
generated.
|
||||
|
||||
The fix is to not generate new macro set if macro is local.
|
||||
|
||||
SRCLOP.C:
|
||||
|
||||
n,mFB command did not work unless at gap. Fixed.
|
||||
|
||||
SEARCH.C:
|
||||
|
||||
ES now ignored if in macro or loop
|
||||
|
||||
WCHART.TXT:
|
||||
|
||||
Changed FB and FC as "implemented" Also G* and G_ as implemented.
|
||||
|
||||
ZMSDOS.C: CLPARS.TES:
|
||||
|
||||
Added test for ED_FF flag (in EZ??) to ignore form feeds. Then change
|
||||
clpars.tes so /NOPAGE will set it *before* yanking.
|
||||
|
||||
ZMSDOS.C TECOC.H EXEE.C:
|
||||
|
||||
ZDoCmd used the file name buffer for the command, while ExeEG keeps the
|
||||
command in a local buffer. This prevents EG from working in any version!
|
||||
|
||||
I added arguments to ZDoCmd to pass the command string.
|
||||
|
||||
ZMSDOS.C
|
||||
|
||||
The TEC$LIBRARY environment variable was not being examined for the EI
|
||||
command, unlike at least the UNIX version. This basically made TEC$LIBARY
|
||||
worthless since its only other use was during initializaton for video
|
||||
support, which doesn't exist in MSDOS. So I fixed it.
|
||||
|
||||
|
||||
ZMSDOS.C
|
||||
|
||||
Tecoc has the ugly habit of allowing you to edit a readonly file,
|
||||
only to die on you when you finish. It's easy enough to check that
|
||||
the output file is writable first. The problem is in ZOpOut().
|
||||
|
||||
Because MSDOS TECOC creates the temp file in the current directory,
|
||||
any attempt to EW or EB a file in another drive will cause failure
|
||||
when the rename is attempted. In these cases the file must be copied.
|
||||
ZOClos() is the culprit.
|
||||
|
||||
I added a "fastcopy" function, much like what was done in zunix.c,
|
||||
but quite a bit simpler. The OS/2 version will need this since OS/2
|
||||
prefers copying over renaming to preserve file extended attributes
|
||||
and PM references. The handling in the OS/2 code is slightly
|
||||
different in that the only file that ever gets deleted is the
|
||||
temporary file. When this code is included in the MSDOS version, it
|
||||
takes too much space for compact model, so I don't update the time stamp
|
||||
(that allows it to squeek by).
|
||||
|
||||
Along the same lines, Tecoc will create a backup file in the wrong
|
||||
directory if the file name has an explicit path and has a "." in one
|
||||
of the directory names. ZOClos() is the culprit, again.
|
||||
|
||||
I added the "% Superseding existing file" warning message. Why wasn't
|
||||
it there??
|
||||
|
||||
CLPARS.TES
|
||||
|
||||
After the attempt to do an EB fails, clpars assumed the failure was
|
||||
caused by the input file not being found. Added new code to attempt
|
||||
to open the file via ER - if that succeeds, prints message that file
|
||||
is being opened read-only.
|
||||
|
||||
Added handling for a /NORENAME switch, needed by OS/2. I also added
|
||||
code to remove quotes in a quoted file name string if OS/2. Reason:
|
||||
file names can have embedded spaces, yet quotes are not allowed.
|
||||
|
||||
I couldn't see any reason to strip spaces from the filename saved
|
||||
in "memory" since the name had already been processed. This was causing
|
||||
a problem with the OS/2 version since I stripped the quotes.
|
||||
|
||||
I removed the restriction of the +nnn commandline argument so it
|
||||
would work with MS/DOS and OS/2. Why limit it to UNIX?
|
||||
|
||||
Clpars leaves the macro .T around after completion (remember -- it's
|
||||
not called as a macro if USE_ANSI_CLPARS, which makes it a top level
|
||||
local macro), and also leaves non-zero values in qy, q8, q.l, q4, and
|
||||
possibly q.1. Fixed. However I don't understand the reasoning for
|
||||
*saving* q registers during execution of clpars since there is
|
||||
nothing in them at the start of the macro execution.
|
||||
|
||||
|
|
@ -0,0 +1,856 @@
|
|||
|
||||
|
||||
|
||||
TECO-C
|
||||
|
||||
Programmer's Guide
|
||||
(last updated February 18, 1991 to reflect TECO-C version 140)
|
||||
|
||||
|
||||
|
||||
1 INTRODUCTION
|
||||
|
||||
These notes apply to TECOC version 135, which runs under VAX/VMS,
|
||||
MS-DOS, and Unix (SunOS, which is BSD). See file AAREADME.TXT for the
|
||||
specifics of operating system and compilers which have been used.
|
||||
|
||||
TECO-C is meant to be a complete implementation of TECO as defined by
|
||||
the Standard TECO User's Guide and Language Reference Manual, (in file
|
||||
TECO.DOC). It was written so that the author could move to many machines
|
||||
without knowing many editors.
|
||||
|
||||
|
||||
|
||||
2 COMPILING AND LINKING
|
||||
|
||||
Conditional compilation directives are used to build TECO-C correctly
|
||||
for different environments. Identifiers automatically defined by
|
||||
the different compilers are used. Some identifiers defined in file ZPORT.H
|
||||
control whether video support or extra debugging code is included. See
|
||||
"VIDEO" and "DEBUGGING". Files are provided which "build" TECO-C in various
|
||||
environments. See file AAREADME.TXT for details.
|
||||
|
||||
|
||||
|
||||
3 RUNNING TECO-C
|
||||
|
||||
When you run TECO, the command line used to invoke TECO is parsed for
|
||||
an input/output file name and several optional switches. TECO-11 parses the
|
||||
command line using a TECO macro imbedded in the program. TECO-C does the
|
||||
same thing. Actually, the imbedded macro used to parse the command line
|
||||
was stolen from TECO-11. I commented it and then modified it to repair
|
||||
minor inconsistencies. Use of TECO-11's macro makes TECO-C invocation
|
||||
identical to TECO-11's, even responding to "make love" with "Not war?".
|
||||
|
||||
The macro is in file CLPARS.TES. The compressed version (no comments
|
||||
or whitespace) is in file CLPARS.TEC. The GENCLP program converts
|
||||
CLPARS.TEC into CLPARS.H, an include file suitable for compiling into
|
||||
TECO-C.
|
||||
|
||||
|
||||
|
||||
4 CODE CONVENTIONS
|
||||
|
||||
The code is not modular. Communication between almost all functions
|
||||
is through global variables, not argument lists. There is a reason: the
|
||||
nature of the basic parsing algorithm is to use the characters in the
|
||||
command string as indices into a table of functions. This makes for very
|
||||
fast command parsing, but it means that all the functions have to modify
|
||||
|
||||
Page 2
|
||||
|
||||
|
||||
global values, because no arguments are passed in. In other words, there
|
||||
were going to be 130 or so un-modular functions anyway, so I gave up on
|
||||
modularity. This explanation does not explain some of the complications in
|
||||
the search code, like the global variable SrcTyp. Oh, well.
|
||||
|
||||
Here's a brief list of some of the conventions followed by the code:
|
||||
|
||||
1. TECO-C is portable, so some convention was needed to separate
|
||||
portable code from system-dependent code. There is one file
|
||||
containing the system-dependent code for each platform TECO-C
|
||||
supports. These files have names that start with a "Z": ZVMS.C,
|
||||
ZMSDOS.C and ZUNIX.C.
|
||||
|
||||
All the system-dependent functions in those files start with a
|
||||
"Z". For example, the function that allocates memory is called
|
||||
ZAlloc. A VMS version of ZAlloc can be found in ZVMS.C, and an
|
||||
MS-DOS version can be found in ZMSDOS.C.
|
||||
|
||||
An extra file called ZUNKN.C exists to help efforts to port TECO-C
|
||||
to a new environment. This file contains stubs for all the
|
||||
system-dependent functions.
|
||||
|
||||
2. All system-independent global variables are declared
|
||||
alphabetically in file TECOC.C. They are defined in DEFEXT.H,
|
||||
which is included by all modules.
|
||||
|
||||
3. File TECOC.H contains the "global" definitions, including those
|
||||
for most structures.
|
||||
|
||||
4. Variables and functions are defined using the portability
|
||||
identifiers defined in the ZPORT.H file. Functions which do not
|
||||
return a value are defined as VOID. TECO-C should compile and
|
||||
link on different machines by changing only the environment
|
||||
definitions in the ZPORT.H file.
|
||||
|
||||
5. At one time, every function was in a file with the same name
|
||||
as the function. This made it easy to find the code for a
|
||||
function. The problem was that some groups of functions use data
|
||||
not needed by the other functions. This was especially true of
|
||||
the system-dependent functions. Also, some functions were called
|
||||
only by one other function, so it made sense for them to be in the
|
||||
same module as the caller and be made "static". So now, most
|
||||
functions are in a file named the same as the function, with the
|
||||
following exceptions:
|
||||
|
||||
1. All the "Z" functions are in are in the "Z" file for the given
|
||||
system.
|
||||
|
||||
2. The conditionally-compiled functions (ZCpyBl in ZINIT.C, the
|
||||
"Dbg" functions at the bottom of TECOC.C, the "v" functions in
|
||||
EXEW.C) aren't in their own files. If they were, then the
|
||||
command procedures/makefiles that compile the files would need
|
||||
to contain logic to conditionally compile the files.
|
||||
|
||||
Page 3
|
||||
|
||||
|
||||
3. The functions for the "E" and "F" commands are in EXEE.C and
|
||||
EXEF.C, respectively. So if you want to find function ExeEX,
|
||||
don't look for a file named EXEEX.C.
|
||||
|
||||
|
||||
6. Symbols are 6 characters long or less. The way I remember it,
|
||||
this was caused by the first system I wrote TECOC for: CP/M-68k,
|
||||
which had a limit of 8 characters for file names. The last two
|
||||
characters had to be ".C", so 6 characters were left for the file
|
||||
name. Since the file name was the same as the function it
|
||||
contained, functions were limited to 6 characters in length. When
|
||||
I saw how nicely the function declarations looked (they fit in one
|
||||
tab slot), I used 6 characters for other symbols too.
|
||||
|
||||
I've since been told that CP/M-68k has 8-character file names
|
||||
followed by 3-character file types, so CP/M-68k can't be blamed.
|
||||
So shoot me.
|
||||
|
||||
This standard has prevented problems from occurring with compilers
|
||||
that don't support very many characters of uniqueness.
|
||||
|
||||
In order to make up for the resultant cryptic names, upper and
|
||||
lower case are mixed. An uppercase letter indicates a new word.
|
||||
For example, "EBfEnd" stands for "Edit Buffer End". If you need
|
||||
to know what a variable name means, look at the definition of the
|
||||
variable in DEFEXT.H. The expanded version of the abbreviated
|
||||
name appears in the comment on the same line as the variable
|
||||
definition. A detailed description can be found with the
|
||||
declaration of the variable in TECOC.C.
|
||||
|
||||
The limit of 6 letters in variable names is relaxed in
|
||||
system-dependent code.
|
||||
|
||||
7. Variable and function names follow patterns where possible. For
|
||||
instance, "EBfBeg" and "EBfEnd" are the beginning and end of the
|
||||
edit buffer. If you see a variable named "BBfBeg", you can assume
|
||||
that it is the beginning of some other buffer, and that a "BBfEnd"
|
||||
exists which is the end of that buffer.
|
||||
|
||||
8. Character strings are usually represented in C by a pointer to a
|
||||
sequences of bytes terminated with a null character. I didn't do
|
||||
that in TECO-C because I thought it was too inefficient. To get
|
||||
the length of a string, you have to count characters. Most
|
||||
strings in TECO-C are therefore represented by two pointers, on to
|
||||
the first character and one to the character following the last
|
||||
character. With this representation, it's easy to add characters
|
||||
to a string and trivial to get the length.
|
||||
|
||||
9. Each file has a consistent format, which is:
|
||||
|
||||
1. a comment describing the function
|
||||
2. include directives
|
||||
3. the function declaration
|
||||
|
||||
Page 4
|
||||
|
||||
|
||||
4. local variable definitions, in alphabetical order
|
||||
5. code
|
||||
|
||||
|
||||
|
||||
|
||||
5 TOP LEVEL EXECUTION AND COMMAND PARSING
|
||||
|
||||
The top level code for TECO-C is contained in file TECOC.C. It is
|
||||
very simple: after initializing, a loop is entered which reads a command
|
||||
string from the user, executes it, and loops back to read another command
|
||||
string. If the user executes a command which causes TECO-C to exit, the
|
||||
program is exited directly via a call to the TAbort function. TECO-C never
|
||||
exits by "falling out the bottom" of the main function.
|
||||
|
||||
After a command string is read, the ExeCSt function is called to
|
||||
execute the command string. ExeCSt contains the top-level parsing code.
|
||||
The parse is trivial: each command character is used as an index into a
|
||||
table of functions. The table contains one entry for each of the 128
|
||||
possible characters. Each function is responsible for "consuming" its
|
||||
command so that when it returns, the command string pointer points to the
|
||||
next command.
|
||||
|
||||
|
||||
|
||||
5.1 Error Handling
|
||||
|
||||
When an error is detected, an error message is displayed at the point
|
||||
that the error is detected, and the function in which the error was
|
||||
detected returns a FAILURE status to its caller. Almost always, the caller
|
||||
returns a FAILURE status to it's caller, which returns a FAILURE status to
|
||||
it's caller, etc. When a FAILURE status is returned to the main command
|
||||
string parser, parsing of the command string stops and the user is prompted
|
||||
for a new command string.
|
||||
|
||||
This style tends to cause all function calls to follow the same form,
|
||||
which is
|
||||
|
||||
if (function() == FAILURE)
|
||||
return(FAILURE);
|
||||
|
||||
Things get more complicated in the system-dependent code (in the files
|
||||
with names that start with a "Z"). I extended TECO's error reporting
|
||||
slightly to allow the user to see the operating system's reason for an
|
||||
error, as this is often useful. For example, under VAX/VMS there are many
|
||||
reasons why an attempt to create an output file might fail. They include:
|
||||
errors in file name syntax, destination directory non-existence, file
|
||||
protection violations or disk quota violation. In order to supply enough
|
||||
information to the user, TECO-C outputs multiple-line error messages when a
|
||||
system error occurs.
|
||||
|
||||
Multiple-line error messages contain one line that describes the
|
||||
operating system's perception of the error and one line that describe's
|
||||
TECO's perception of the error. For instance, if a user of VAX/VMS does a
|
||||
"EW[abc]test.txt$$" command when the directory [abc] does not exist, the
|
||||
|
||||
Page 5
|
||||
|
||||
|
||||
error message generated by TECO-C is:
|
||||
|
||||
?SYS %RMS-F-DNF, directory not found
|
||||
?UFO unable to open file "[abc]test.txt" for output
|
||||
|
||||
System errors are therefore reported in a system-dependent fashion,
|
||||
using whatever messages the operating system can supply. Under VAX/VMS,
|
||||
the system service $GETMSG provides human-readable messages that TECO-C can
|
||||
use in the "SYS" part of the error message. Under UNIX, syserrlist[error]
|
||||
is a pointer to these messages.
|
||||
|
||||
There is another way in which error reporting in the system-dependent
|
||||
code is tricky. Under VAX/VMS, some system calls may return a code that is
|
||||
"successful" but contains extra information. For instance, when a user has
|
||||
set his directories so that only a limited number of versions of a file can
|
||||
exist, RMS will automatically purge the oldest version of the file when the
|
||||
user creates a file. This only happens if the newly created file would
|
||||
cause too many versions of the file to exist. When this happens, the VMS
|
||||
service returns a FILEPURGED status, which is successful. TECO-C informs
|
||||
the user about these things by displaying the message in brackets.
|
||||
|
||||
|
||||
|
||||
5.2 Command Modifiers (CmdMod)
|
||||
|
||||
Command parsing is complicated by command modifiers and numeric
|
||||
arguments, which may precede some commands. These are implemented in a way
|
||||
that maintains the basic "jump table" idea. For instance, when an at-sign
|
||||
(@) modifier is encountered in a command string, the at-sign command
|
||||
function (ExeAtS) is called. The only thing ExeAtS does is set a flag
|
||||
indicating that an at-sign has been encountered. Commands which are
|
||||
affected by an at-sign modifier check this flag and behave accordingly.
|
||||
|
||||
The flags which indicate command modifiers are contained in global
|
||||
variable CmdMod. A bit in CmdMod is reserved for each command modifier.
|
||||
The modifiers are "@", ":" and "::". Of course, once the flag has been
|
||||
set, it must be cleared. With this parsing algorithm, the only way to do
|
||||
that is to make every command function explicitly reset CmdMod before a
|
||||
successful return. This is not too bad: clearing all the flags in CmdMod
|
||||
is done with one statement: "CmdMod = '\0';".
|
||||
|
||||
For numeric arguments to commands, an expression stack is used (see
|
||||
Stacks). The EstTop variable is the pointer to the top of the expression
|
||||
stack. Commands which handle numeric arguments check EStTop to see if the
|
||||
expression stack contains a value.
|
||||
|
||||
A special case of numeric arguments is "m,n". The "m" part is
|
||||
encountered and causes the value to be pushed onto the expression stack.
|
||||
The comma causes the ExeCom function to move the value into a special
|
||||
"m-argument" global variable (MArgmt), clear the expression stack and set
|
||||
another flag in CmdMod indicating that the "m" part of an "m,n" pair is
|
||||
defined. Then the "n" is encountered and pushed onto the stack. Commands
|
||||
which can take "m,n" pairs check the flag in CmdMod.
|
||||
|
||||
Page 6
|
||||
|
||||
|
||||
To summarize, CmdMod and EStTop are variables which describe the
|
||||
context of a command. Each command function tests these variables to see
|
||||
if it was preceded by modifiers or numbers. For this to work, it is
|
||||
important that the expression stack and the flags in CmdMod are cleared at
|
||||
the right times. It is the responsibility of each command function to
|
||||
leave CmdMod and EStTop with the proper values before successfully
|
||||
returning. The rules are:
|
||||
|
||||
1. If the command function is returning FAILURE, don't worry about
|
||||
clearing CmdMod or EStTop. They will be cleared before the next
|
||||
command string is executed.
|
||||
|
||||
2. If the command function leaves a value on the expression stack, do
|
||||
not clear EStTop before returning SUCCESS. If the command calls
|
||||
GetNmA, do not clear EStTop, as GetNmA does it for you.
|
||||
Otherwise, clear EStTop before returning SUCCESS.
|
||||
|
||||
3. Clear CmdMod unless the command function sets flags or needs to
|
||||
leave them alone. ExeDgt, for example, handles digit strings and
|
||||
doesn't clear CmdMod because the MARGIS bit may be set.
|
||||
|
||||
|
||||
|
||||
|
||||
6 SEARCHING
|
||||
|
||||
The search algorithm in TECO-C is complex. The war between the desire
|
||||
for a fast search and the need to handle all the features of TECO'ssearch
|
||||
commands has produced code which can be a real pain to follow. This
|
||||
section attempts to explain how things got the way they are. The code is
|
||||
explained in a bottom-up fashion, to follow the way it evolved in the
|
||||
author's twisted mind.
|
||||
|
||||
The basic search idea is to scan a contiguous edit buffer for a search
|
||||
string. The steps are:
|
||||
|
||||
1. Search the edit buffer for the first character in the search
|
||||
string. If you reach the end of the edit buffer without matching,
|
||||
the search fails.
|
||||
|
||||
2. When the first character of the search string matches a character
|
||||
in the edit buffer, try to match successive characters in the
|
||||
search string with the characters which follow the found character
|
||||
in the edit buffer. If they all match, the search succeeds. If
|
||||
one doesn't, go back to step 1.
|
||||
|
||||
|
||||
This is basically what TECO-C does. The features of TECO's search
|
||||
commands has buried these steps deep within some confusing code.
|
||||
|
||||
The first complication is introduced by pattern matching characters.
|
||||
TECO has 17 "match constructs", whiceh are indicated in the search string
|
||||
by the special characters ^X, ^S, ^N and ^Ex where "x" can be several other
|
||||
characters. For instance, a ^X in the search string means that any
|
||||
character is to be accepted as a match in place of the ^X. Characters
|
||||
|
||||
Page 7
|
||||
|
||||
|
||||
other than the match constructs represent themselves. An example: the
|
||||
search string "a^Xb" contains 3 match constructs: a, ^X and b.
|
||||
|
||||
TECO also supports forward or backward searching. When searching
|
||||
backwards, only the search for the first match construct in the search
|
||||
string is done in a backwards direction. When the character is found, the
|
||||
characters following it are compared in a forward direction to the edit
|
||||
buffer characters. This means that once the first match construct has been
|
||||
found, a single piece of code can be used to compare successive characters
|
||||
in the search string with successive characters in the edit buffer,
|
||||
regardless of whether the search is forwards or backwards.
|
||||
|
||||
Adding these new features, the new description of searching is:
|
||||
|
||||
1. Search the edit buffer forwards or backwards for a character which
|
||||
matches the first match construct in the search string. If you
|
||||
reach the end of the edit buffer without matching, the search
|
||||
fails.
|
||||
|
||||
2. When the first match construct of the search string matches a
|
||||
character in the edit buffer, try to match successive match
|
||||
constructs in the search string with the characters which follow
|
||||
the found character in the edit buffer. If they all match, the
|
||||
search succeeds. If one doesn't, go back to step 1.
|
||||
|
||||
|
||||
To begin a description of which routines implement the above steps,
|
||||
and in order to have a reference for later discussion, the following
|
||||
hierarchy chart of "who calls who" is presented.
|
||||
|
||||
|
||||
|
||||
Page 8
|
||||
|
||||
|
||||
ExeEUn ExeFB ExeFC ExeFD ExeFK ExeFN ExeFS ExeFUn ExeN ExeS ExeUnd
|
||||
| | | | | | | | | | |
|
||||
| | | | | | | | | | |
|
||||
------------------------------------------------------------
|
||||
|
|
||||
V
|
||||
Search
|
||||
|
|
||||
V
|
||||
SrcLop
|
||||
|
|
||||
V
|
||||
SSerch
|
||||
| | |
|
||||
+------+ | +------+
|
||||
+---+ | | | +---+
|
||||
| V V | V V |
|
||||
| ZFrSrc | BakSrc |
|
||||
| | | | | | |
|
||||
+---+ | | | +---+
|
||||
+------+ | +------+
|
||||
V V V
|
||||
CMatch <--+
|
||||
| |
|
||||
+--------+
|
||||
|
||||
|
||||
At the top are the functions that implement search commands (E_, FB,
|
||||
FC, FD, FK, FN, FS, F_, N, S and _). All of these functions call the main
|
||||
search function: Search.
|
||||
|
||||
At the lower level are the functions which implement steps 1 and 2
|
||||
described above. ZFrSrc searches forwards in the edit buffer for
|
||||
characters which match the first character in the search string. BakSrc
|
||||
does the same thing, but searches backwards. SSerch calls one of these two
|
||||
functions and then executes a loop which calls CMatch to compare successive
|
||||
match constructs in the search string to characters following the found
|
||||
character in the edit buffer. The reason that ZFrSrc, BakSrc and CMatch
|
||||
call themselves is to handle some of the more esoteric match constructs.
|
||||
|
||||
Case dependence in TECO is controlled by the search mode flag (see the
|
||||
^X command). The variable SMFlag holds the value of the search mode flag,
|
||||
and is used by ZFrSrc, BakSrc and CMatch.
|
||||
|
||||
One final point to help confuse things: ZFrSrc is system-dependent.
|
||||
It contains a VAX/VMS-specific version which uses the LIB$SCANC run-time
|
||||
library routine to access the SCANC instruction. The SCANC instruction
|
||||
looks like it was designed to handle TECO's match constructs. I couldn't
|
||||
resist using it, but it was a mistake, as it needlessly complicates an
|
||||
already messy algorithm. I have decided to remove the VMS-specific code
|
||||
some time in the future.
|
||||
|
||||
Further complications of the search algorithm arise because of the
|
||||
following capabilities of TECO searches:
|
||||
|
||||
Page 9
|
||||
|
||||
|
||||
1. If there is no text argument, use the previous search argument.
|
||||
|
||||
2. If colon modified, return success/failure and no error message
|
||||
|
||||
3. If the search fails and we're in a loop and a semicolon follows
|
||||
the search command, exit the loop without displaying an error
|
||||
message.
|
||||
|
||||
4. Handle optional repeat counts
|
||||
|
||||
5. If the ES flag is non-zero, verify the search based on the value
|
||||
of the flag.
|
||||
|
||||
6. If bit 64 of the ED flag is set, move dot by one on multiple
|
||||
searches.
|
||||
|
||||
7. If bit 16 of the ED flag is set, don't move after a failing
|
||||
search.
|
||||
|
||||
8. Be fast.
|
||||
|
||||
|
||||
|
||||
|
||||
7 MEMORY MANAGEMENT
|
||||
|
||||
7.1 The Edit Buffer And Input Buffer
|
||||
|
||||
TECO-C is based on TECO-11, but it uses a different form of edit
|
||||
buffer memory management. Here's why.
|
||||
|
||||
The edit buffer in TECO-11 is implemented as a continuous block of
|
||||
memory. This allows rapid movement through the edit buffer (by just
|
||||
maintaining a pointer to the current spot) and makes searches very
|
||||
straightforward. Insertion and deletion of text is expensive, because each
|
||||
insertion or deletion requires moving the text following the spot where the
|
||||
insertion or deletion occurs in order to maintain a continuous block of
|
||||
memory. This gets to be a real pain when a video editing capability is
|
||||
added to TECO, because in video mode text is added/deleted one character at
|
||||
a time very rapidly.
|
||||
|
||||
TECO-C uses a edit buffer gap scheme. The edit buffer occupies a
|
||||
continuous piece of memory, but there is a gap at the "current spot" in the
|
||||
edit buffer. When the user moves around the edit buffer, the gap is moved
|
||||
by shuffling text from one side of the gap to the other. This means that
|
||||
moving around the text buffer is slower than for TECO-11's scheme, but text
|
||||
insertion and deletion is very fast. Searches are still fast because most
|
||||
searches start at the current spot and go forwards or backwards, so a
|
||||
continuous piece of memory is searched. In the future, when some kind of
|
||||
video mode is added, insertion and deletion one-character-at-a-time will be
|
||||
fast using the gap scheme.
|
||||
|
||||
The variables that maintain pointers to the edit buffer and the gap
|
||||
within the buffer can be confusing, so here's some examples. Suppose that
|
||||
10000 bytes are allocated for the edit buffer when TECO-C is initialized.
|
||||
|
||||
Page 10
|
||||
|
||||
|
||||
Suppose the allocated memory starts at address 3000.
|
||||
|
||||
Empty edit buffer (the gap spans the whole edit buffer):
|
||||
|
||||
EBfBeg = 3000 (edit buffer beginning)
|
||||
GapBeg = 3000 (gap beginning)
|
||||
GapEnd = 13000 (gap end)
|
||||
EBfEnd = 13000 (edit buffer end)
|
||||
|
||||
Buffer contains "test", character pointer is before the first 't':
|
||||
|
||||
EBfBeg = 3000 (edit buffer beginning)
|
||||
GapBeg = 3000 (gap beginning)
|
||||
GapEnd = 12996 (gap end)
|
||||
12997 't'
|
||||
12998 'e'
|
||||
12999 's'
|
||||
EBfEnd = 13000 't' (edit buffer end)
|
||||
|
||||
|
||||
Buffer contains "test", character pointer is after the last 't':
|
||||
|
||||
EBfBeg = 3000 't' (edit buffer beginning)
|
||||
3001 'e'
|
||||
3002 's'
|
||||
3003 't'
|
||||
GapBeg = 3004 (gap beginning)
|
||||
GapEnd = 13000 (gap end)
|
||||
EBfEnd = 13000 (edit buffer end)
|
||||
|
||||
|
||||
Buffer contains "test", character pointer is after the 'e':
|
||||
|
||||
EBfBeg = 3000 't' (edit buffer beginning)
|
||||
3001 'e'
|
||||
GapBeg = 3002 (gap beginning)
|
||||
GapEnd = 12998 (gap end)
|
||||
12999 's'
|
||||
EBfEnd = 13000 't' (edit buffer end)
|
||||
|
||||
When an insertion command is executed, the text is inserted starting
|
||||
at GapBeg. When a deletion command is executed, GapEnd is incremented for
|
||||
a forward delete or GapBeg is decremented for a backwards delete. When the
|
||||
character pointer is moved forwards, the gap is moved forwards by copying
|
||||
text from the end of the gap to the beginning. When the character pointer
|
||||
is moved backwards, the gap is moved backwards by copying text from the the
|
||||
area just before the gap to the area at the end of the gap.
|
||||
|
||||
There are a few messy cases, such as when a bounded search is executed
|
||||
and the bounded text area includes the edit buffer gap. In this case, the
|
||||
gap is temporarily moved so that the search can proceed over a continuous
|
||||
memory area.
|
||||
|
||||
Page 11
|
||||
|
||||
|
||||
In order to confuse things a little, TECO-C has one addition to the
|
||||
basic edit buffer gap management. Following the end of the edit buffer
|
||||
(EBfEnd) is the current input stream buffer. Since file input commands
|
||||
always cause text to be appended to the end of the edit buffer, this is
|
||||
natural. Thus, no input buffer is needed: text is input directly into the
|
||||
edit buffer. This makes the code a little confusing, but it avoids the
|
||||
problem of having an input buffer. When you have an input buffer, you have
|
||||
to deal with the question of how large the buffer should be and what to do
|
||||
with it when it's too small. this scheme is fast and and saves some
|
||||
memory. (see File Input)
|
||||
|
||||
|
||||
|
||||
7.2 Q-registers
|
||||
|
||||
Q-registers have two parts: a numeric part and a text part. Each
|
||||
q-register is represented by a structure containing three fields: one to
|
||||
hold the numeric part and two to point to the beginning and end of the
|
||||
memory holding the text part. If the text part of the q-register is empty,
|
||||
then the pointer to the beginning of the text is NULL.
|
||||
|
||||
There are 36 global q-registers, one for each letter of the alphabet
|
||||
and 1 for each digit from 0 to 9. These q-registers are accessible from
|
||||
any macro level. There are 36 local q-registers for each macro level. The
|
||||
names for local q-registers are preceded by a period. Thus the command
|
||||
"1xa" inserts a line into global q-register "a", while the command "1x.a"
|
||||
inserts a line into local q-register ".a". Storage for the data structure
|
||||
defining local q-registers is not allocated until a local q-register is
|
||||
first used. This saves space and time, because local q-registers are
|
||||
rarely used, and doing things this way avoids allocating and freeing memory
|
||||
every time a macro is executed.
|
||||
|
||||
|
||||
|
||||
8 STACKS
|
||||
|
||||
8.1 Expression Stack
|
||||
|
||||
An expression stack is used to parse TECO's expressions. Consider the
|
||||
command string QA+50=$$. When the command string is executed, the value of
|
||||
QA is pushed on the expression stack, then the operator "+" is pushed on
|
||||
the expression stack, and then the value "50" is pushed on the expression
|
||||
stack. Whenever a full expression that can be reduced is on the expression
|
||||
stack, it is reduced. For the above example, the stack is reduced when the
|
||||
value "50" is pushed.
|
||||
|
||||
The expression stack is implemented in the following variables:
|
||||
|
||||
EStack the stack itself, containing saved operators and operands
|
||||
EStTop index of the top element in EStack
|
||||
EStBot index of the current "bottom" of the stack in EStack
|
||||
|
||||
The "bottom" of the expression stack can change because an expression
|
||||
can include a macro invocation. For example, the command QA+M3=$$ causes
|
||||
the value of "QA" to be pushed on the expression stack, then the "+" is
|
||||
|
||||
Page 12
|
||||
|
||||
|
||||
pushed, and then the macro contained in q-register 3 is executed. The
|
||||
macro in q-register 3 returns a value to be used in the expression. When
|
||||
the macro is entered, a new expression stack "bottom" is established. This
|
||||
allows the macro to have a "local" expression stack bottom while
|
||||
maintaining the stack outside the macro.
|
||||
|
||||
|
||||
|
||||
8.2 Loop Stack
|
||||
|
||||
The loop stack contains the loop count and the address of the first
|
||||
command in the loop. For example, in the command 5<FSMP$mt$>$$, the loop
|
||||
stack contains the loop count (5) and the address of the first command in
|
||||
the loop (F). Whenever the end-of-loop character (>) is encountered, the
|
||||
loop count is decremented. If the loop count is still greater than zero
|
||||
after it has been decremented, then the command string pointer is reset to
|
||||
point to the first character in the loop (F).
|
||||
|
||||
The loop stack is implemented in the following variables:
|
||||
|
||||
LStack the stack itself, containing saved counts and addresses
|
||||
LStTop index of the top element in LStack
|
||||
LStBot index of the current "bottom" of the stack in LStack
|
||||
|
||||
The loop stack needs a "floating" bottom for the same reason that the
|
||||
expression stack needs one: macros. Consider the command string
|
||||
4<Smp$M7$>$$. When the "<" in is encountered, the loop count (4) and the
|
||||
address of the first character in the loop (S) are placed on the loop
|
||||
stack. Command execution continues, and the "M7" command is encountered.
|
||||
Suppose that q-register 7 contains the erroneous command string 10>DL>$$.
|
||||
When the ">" command is encountered in the macro, TECO expects the loop
|
||||
stack to contain a loop count and an address for the first character in the
|
||||
loop. In this example, there is no matching "<" command in the macro which
|
||||
would have set up the loop stack. It would be very bad if TECO were to
|
||||
think that the loop count was 4 and the first command in the loop was "S".
|
||||
In this situation, what TECO should do is generate the error message "BNI >
|
||||
not in iteration". In order to implement this, the variable LStBot is
|
||||
adjusted each time a macro is entered or exited. LStBot represents the
|
||||
bottom of the loop stack for the current macro level.
|
||||
|
||||
|
||||
|
||||
8.3 Macro Stack
|
||||
|
||||
The macro stack is used to preserve context each time a macro is
|
||||
entered. All important values are pushed onto the stack before a macro is
|
||||
entered and popped off the stack when the macro is exited. The macro stack
|
||||
is also used by the EI command, which means it's used when executing
|
||||
initialization files and mung files.
|
||||
|
||||
|
||||
|
||||
9 HELP
|
||||
|
||||
This section discusses on-line HELP, which is available only under
|
||||
|
||||
Page 13
|
||||
|
||||
|
||||
VAX/VMS.
|
||||
|
||||
The HELP command is not documented in the TECO manual distributed by
|
||||
DEC., even though it is supported in TECO-11 and TECO-32. To get help,
|
||||
simply type "HELP" followed by a carriage return. HELP is the only TECO
|
||||
command that is not terminated by double escapes.
|
||||
|
||||
Help in TECOC is different than help in TECO-11. In TECO-C,
|
||||
interactive help mode is entered, so that a user can browse through a help
|
||||
tree, as he can from DCL. In TECO-C, access is provided to only two
|
||||
libraries: the library specific to TECO-C (pointed to by logical name
|
||||
TEC$INIT) and the system help library. To get help on TECO-C, just say
|
||||
"HELP", with or without arguments. To get help from the system library,
|
||||
say "HELP/S". I find this easier to use than TECO-11's syntax.
|
||||
|
||||
The help library for TECO-C is contained in file TECOC.HLB, which is
|
||||
generated from TECOC.HLP, which is generated from TECOC.RNH. See file
|
||||
TECOC.RNH for a description of how to do it. This help library is far
|
||||
broader than the library for TECO-11, but much of it has yet to be filled
|
||||
in.
|
||||
|
||||
The help library is also the repository for verbose error messages,
|
||||
which are displayed when the help flag (EH) is set to 3. For systems other
|
||||
than VMS, the ZHelp function displays verbose text contained in static
|
||||
memory (see file ZHELP.C).
|
||||
|
||||
|
||||
|
||||
10 FILE INPUT
|
||||
|
||||
TECO has an elegant design that allows high speed input. There are no
|
||||
linked list data structures to keep track of, and most file input goes
|
||||
directly to the end of the edit buffer.
|
||||
|
||||
TECO-C takes advantage of this by reading normal file input directly
|
||||
to the end of the edit buffer. After each input call, nothing needs to be
|
||||
moved; the pointer to the end of the edit buffer is simply adjusted to
|
||||
point to the end of the new record. The pointer to the end of the edit
|
||||
buffer (EBfEnd) serves two purposes: it points to the end of the edit
|
||||
buffer and to the beginning of the input buffer.
|
||||
|
||||
A side effect of this scheme is the sharing of memory between the edit
|
||||
buffer and the input buffer. When the edit buffer is empty, it can be made
|
||||
smaller by shrinking the edit buffer gap in order to make the input buffer
|
||||
larger. Obviously, if the edit buffer needs to be expanded, the input
|
||||
buffer can suffer before more memory is actually requested from the
|
||||
operating system. This is easily achieved by moving the pointer to the
|
||||
"end-of-the-edit-buffer"/ "beginning-of-the-input-buffer".
|
||||
|
||||
This scheme works, but provides no support for the other forms of file
|
||||
input. The EP and ER$ commands provide a complete secondary input stream
|
||||
which can be open at the same time as the primary stream (two input files
|
||||
at once). The EI command reads and executes files containing TECO
|
||||
commands, and is used to execute the initialization file, if one exists.
|
||||
The EQq command, if implemented, reads the entire contents of a file
|
||||
|
||||
Page 14
|
||||
|
||||
|
||||
directly into a Q-register.
|
||||
|
||||
A second problem arises: on each of the open files, the quantum unit
|
||||
of input is not standard. For A, Y and P commands, a form feed or
|
||||
end-of-file "terminate" the read. For n:A commands, form feed, end-of-line
|
||||
or end-of-file "terminate" each read. For EI commands, two escapes or
|
||||
end-of-file "terminate" the read. The input code must "save" the portion
|
||||
of an input record following a special character and yield the saved text
|
||||
when the next command for the file is executed.
|
||||
|
||||
The scheme used in TECO-C is to read text from the current input
|
||||
stream directly to the end of the edit buffer. When the input stream is
|
||||
switched via a EP or ER$ command, the obvious switching of file descriptors
|
||||
happens, and any text that's "leftover" from the last read is explicitly
|
||||
saved elsewhere. Note that this happens VERY rarely, so a malloc/free is
|
||||
acceptable.
|
||||
|
||||
For EI and EQq commands, the input memory following the edit buffer is
|
||||
used as a temporary input buffer. After the file is read, the text is
|
||||
copied to a Q-register in the case of EQq and to a separate buffer in the
|
||||
case of EI.
|
||||
|
||||
|
||||
|
||||
11 VIDEO
|
||||
|
||||
As of 18-Feb-1991, TECO-C supports video only under Unix. The code
|
||||
was written by Mark Henderson, using the CURSES package. See file
|
||||
VIDEO.TXT for a discussion of how it works.
|
||||
|
||||
|
||||
|
||||
12 PORTABILITY
|
||||
|
||||
TECO-C was written with portability in mind. The first development
|
||||
machine was "minimal": a SAGE IV (68000) running CP/M-68k. In that
|
||||
environment, there was no "make" utility.
|
||||
|
||||
Initially, the system-independent code (files that don't start with a
|
||||
"Z") had absolutely no calls to standard C runtime functions. This was
|
||||
because I had several problems with the "standard" functions not being
|
||||
"standard" on different machines. With the onset of ANSI C I've grown less
|
||||
timid, but the main code still references almost no standard functions.
|
||||
This is less of a limitation than you might think: TECO-C doesn't use
|
||||
null-terminated strings. It also doesn't use unions, floating point or bit
|
||||
fields.
|
||||
|
||||
|
||||
|
||||
13 PORTING TO A NEW ENVIRONMENT
|
||||
|
||||
|
||||
1. Move the source code to the target machine.
|
||||
|
||||
Page 15
|
||||
|
||||
|
||||
2. Inspect file ZPORT.H. You need to select the compiler you want
|
||||
the code compiled for. For instance, if you are porting to a Unix
|
||||
system, then fix ZPORT.H so that the unix identifier is defined
|
||||
(it is usually defined by default by the compiler). If your
|
||||
compiler is nothing like anything supported by ZPORT.H, then set
|
||||
the UNKNOWN identifier.
|
||||
|
||||
3. Compile and link. See file AAREADME.TXT for descriptions of how
|
||||
TECO-C is built in supported environments, and steal like mad.
|
||||
The problem here is that you need a "Z" file for your environment,
|
||||
containing all the "Z" functions needed by TECO-C. The easiest
|
||||
thing to do is copy ZUNKN.C to your own "Z" file and link against
|
||||
that. For instance, if I ever port TECO-C to a Macintosh, I'll
|
||||
copy ZUNKN.C to ZMAC.C.
|
||||
|
||||
4. Fix things so the compile/link is successful. If you have
|
||||
compiled with UNKNOWN set, you should get an executable file that
|
||||
displays a message and dies when the first system-dependent
|
||||
function is called. The strategy is to fix that function (often
|
||||
by stealing from the code for other operating systems), relink and
|
||||
deal with the next message until you have something that works.
|
||||
Functions should be implemented in roughly the following order:
|
||||
ZInit, ZTrmnl, ZExit, ZDspCh, ZAlloc, ZRaloc, ZFree, ZChin. This
|
||||
will give you a TECO with everything but file I/O. You can run
|
||||
it, add text to the edit buffer, delete text, search, use
|
||||
expressions and the = sign command (a calculator). Then do file
|
||||
input: ZOpInp, ZRdLin, ZIClos. Then do file output: ZOpout,
|
||||
ZWrBfr, ZOClos, ZOClDe. Use the test macros (*tst*.tec) to test
|
||||
how everything works (see Testing).
|
||||
|
||||
|
||||
|
||||
|
||||
14 TESTING
|
||||
|
||||
Testing of TECO-C is performed by executing macros. The macros are
|
||||
contained in files named TSTxxx.TEC, where XXX is some kind of indication
|
||||
as to what is tested. For instance, TSTQR.TEC tests q-registers. The test
|
||||
macros do not test all the functions provided by TECO. They were
|
||||
originally used to verify that TECO-C performs exactly the same as TECO-11
|
||||
under the VMS operating system. When I needed to test a chunk of code, I
|
||||
sometimes did it the right way and wrote a macro.
|
||||
|
||||
|
||||
|
||||
15 DEBUGGING
|
||||
|
||||
A debugging system (very ugly, very useful) is imbedded within the
|
||||
code. It is conditionally complied into the code by turning on or off an
|
||||
identifier (DEBUGGING) defined in the TECOC.H file. When debugging code is
|
||||
compiled in, you can access it using the ^P command, which is not used by
|
||||
regular TECO. The ^P command with no argument will display help about how
|
||||
to use ^P.
|
||||
|
||||
Page 16
|
||||
|
||||
|
||||
If you are working under VMS, it sometimes helps to compare the
|
||||
execution of TECO-C with TECO-11. Put a test command string into a file.
|
||||
Use DEFINE/USER_MODE to redirect the output of TECO-C to a file and execute
|
||||
the macro with TECO-C. Then do the same thing with TECO-11. Use the
|
||||
DIFFERENCES command to compare the two output files. They should be 100
|
||||
percent identical.
|
||||
|
|
@ -0,0 +1,44 @@
|
|||
TECO-C (version number 146)
|
||||
Copyright 1983, 1990 by Pete Siemsen. This software is provided to
|
||||
you free of charge for your own use. Use it as you see fit; if it doesn't
|
||||
work, I disclaim all responsibility. You may re-distribute this software
|
||||
UNCHANGED only if you include this copy-right notice. Alternatively, if
|
||||
you change this software, you may re-distribute the result only if you
|
||||
include BOTH this copyright notice, AND an additional notice identifying
|
||||
you and indicating that you have changed the software.
|
||||
This program is still under development. See file PROBLEMS.TXT for
|
||||
notes I've written to myself about things to do to the program. If you
|
||||
modify this code to enhance it or fix a bug, please communicate the changes
|
||||
to me. My address is
|
||||
Pete Siemsen
|
||||
645 Ohio Avenue #302
|
||||
Long Beach, Ca. 90814
|
||||
(213) 433-3059 (home)
|
||||
(213) 740-7391 (work)
|
||||
Internet: siemsen@usc.edu
|
||||
[NOTE -- This is old information. Better to contact me, Tom Almy, below.]
|
||||
*******************************************************
|
||||
This archive contains TECO-C modified and compiled for DOS, Win32,
|
||||
OS/2, and Linux (on Intel 32bit architecture). The modifications have been made by:
|
||||
Tom Almy
|
||||
tomalmy@aracnet.com
|
||||
who is a "old time" TECO user. Not only did I port TECO-C but I also
|
||||
corrected some bugs. For OS/2 modified the file backup algorithm to do
|
||||
copying rather than renaming as an option. This makes it Workplace
|
||||
Shell friendly. The Win32, Linux and OS/2 versions allow long file names.
|
||||
Included files in this archive:
|
||||
doc:
|
||||
readme.1st This file
|
||||
readme.txt Operating and install instructions for Linux users
|
||||
wchart.txt List of all the implemented commands.
|
||||
teco.doc The official teco reference. TECOC IS CLOSE TO TECO-11 IN FUNCTIONALITY
|
||||
bin:
|
||||
tecoc Executable
|
||||
Make link to tecoc
|
||||
mung link to tecoc
|
||||
teco link to tecoc
|
||||
Inspect link to tecoc
|
||||
lib:
|
||||
*.tes *.tec TECO macros
|
||||
src:
|
||||
Full source files for Linux version
|
||||
|
|
@ -0,0 +1,171 @@
|
|||
Running TECOC on OS X
|
||||
|
||||
Tecoc takes a first argument of mung, teco, or make to control its
|
||||
operating mode. In this Linux version, the name of the executable is
|
||||
tested to provide this first argument. Typically soft links are used
|
||||
to the tecoc executable, however aliases could be used instead. The
|
||||
mapping is:
|
||||
|
||||
Make is tecoc make (note uppercase first letter)
|
||||
teco is tecoc teco
|
||||
mung is tecoc mung
|
||||
inspect is tecoc teco -inspect
|
||||
|
||||
The provided TAR file has these four soft links defined. Extract the
|
||||
TAR file into a directory in your execution path
|
||||
after making sure none of the command names already exist for other
|
||||
applications. Necessary environment variables and files are described below.
|
||||
|
||||
Several option switches are allowed on the TECO command line:
|
||||
|
||||
-in[spect] -- Read file only, don't create an output file.
|
||||
-noc[reate] -- If file doesn't exist, don't create it.
|
||||
-noi[ni] -- Don't execute INI file. (valid for MAKE or MUNG as well)
|
||||
-nom[emory] -- don't save filename as "last edited file" (valid for
|
||||
MAKE also)
|
||||
-nop[age] -- Formfeeds don't stop file reads (valid for MAKE also)
|
||||
+nnn -- sets NOPAGE and positions dot to line nnn.
|
||||
|
||||
The part of the switch name in the square brackets is optional. For
|
||||
instance "-in" is the same as "-inspect".
|
||||
|
||||
MAKE filespec
|
||||
|
||||
starts tecoc to create file filespec. Does equivalent of EWfilespec$$
|
||||
|
||||
TECO filespec
|
||||
|
||||
starts tecoc to edit file filespec. Does equivalent of
|
||||
EBfilespec$Y$
|
||||
|
||||
TECO filespec2=filespec1
|
||||
|
||||
starts tecoc to edit filespec1, writing to filespec2. Does
|
||||
equivalent of ERfilespec1$EWfilespec2$Y$$
|
||||
|
||||
TECO
|
||||
|
||||
starts tecoc to edit last edited file. Filename is saved in file
|
||||
named teco*.tmp in the current directory, unless overriden
|
||||
(described below).
|
||||
|
||||
MUNG filespec <args>
|
||||
|
||||
starts tecoc to execute filespec. Equivalent to
|
||||
I<args>$JEIfilespec$$
|
||||
|
||||
You can use "TECO @filespec <args>" instead of MUNG.
|
||||
|
||||
**************
|
||||
Key Bindings
|
||||
|
||||
The keys mentioned in the teco.doc file are somewhat confusing.
|
||||
This should help:
|
||||
|
||||
<DELIM> The "Esc" key, "Esc" echoes as "$", however the
|
||||
teco.doc file shows it as '`'.
|
||||
<BS> Type as Control-h, this isn't the "Backspace" key.
|
||||
<DELETE> The "Backspace" key. This isn't the "Delete" key.
|
||||
<CR> The "Enter" key.
|
||||
<LF> Type as Control-j.
|
||||
|
||||
Note that the assignments for <BS> and <DELETE> shown here are
|
||||
swapped. <BS> can be "Backspace" and <DELETE> can be control-h by
|
||||
clearing ET&2048, e.g. 2048,0ET
|
||||
|
||||
|
||||
**************
|
||||
|
||||
The Initialization File.
|
||||
|
||||
Tecoc mungs (executes as teco commands) the file TECO.INI in the
|
||||
current directory before processing the command line. Initialization
|
||||
can be done instead by defining a TEC_INIT environment variable. The
|
||||
value is either the list of teco commands to execute or a "$" followed
|
||||
by the pathname of the file containing the initialization file. This
|
||||
allows a single, centrally located initialization file. REMEMBER that
|
||||
the "$" must be escaped, i.e. "\$"
|
||||
|
||||
The initialization file can be used to make initial settings. It can
|
||||
return a value, but the value setting is somewhat obscure.
|
||||
|
||||
Example:
|
||||
export TEC_INIT=1es
|
||||
|
||||
will cause successful searches to auto-display in all teco sessions.
|
||||
|
||||
**************
|
||||
|
||||
Changing the location of the memory file.
|
||||
|
||||
Define the environment variable TEC_MEMORY to be "$" followed by the
|
||||
pathname of the file designated the memory file.
|
||||
|
||||
Examples (csh):
|
||||
export TEC_MEMORY=~/teco.mem
|
||||
export TEC_MEMORY=\$$TEC_MEMORY
|
||||
|
||||
will cause the name of the last edit file to be stored in the file
|
||||
teco.mem in the home directory. By default the file name is tecoN.tmp in
|
||||
the current directory, where "N" is the process ID of the parent process to
|
||||
teco.
|
||||
|
||||
|
||||
**************
|
||||
|
||||
The Libary directory
|
||||
|
||||
Defining the environment variable TEC_LIBRARY to be a directory path
|
||||
(including the final "/") will allow the EI command to fetch
|
||||
teco commands from this directory if the file is not found in the
|
||||
current directory.
|
||||
|
||||
Example:
|
||||
export TEC_LIBRARY=\$/usr/local/lib/
|
||||
|
||||
will cause the directory /usr/local/lib to be searched for teco command files.
|
||||
|
||||
|
||||
**************
|
||||
|
||||
Implemented flags:
|
||||
|
||||
ED&1 Allow carat "^" character in string searches
|
||||
ED&2 Allow yank and _ unconditionally
|
||||
ED&16 Failed searches preserve dot
|
||||
ED&64 Move dot by one after each match in multiple occurance searches
|
||||
|
||||
ET&1 Type out in image mode
|
||||
ET&2 Use scope for delete and control-U (default=1)
|
||||
ET&4 Accept lowercase input (default=1)
|
||||
ET&8 ^T reads without echo
|
||||
ET&32 ^T reads with no wait
|
||||
ET&128 MUNG mode (abort on error) cleared by "*" prompt
|
||||
ET&2048 Swap backspace and delete
|
||||
ET&4096 We are using 8 bit characters (default=1)
|
||||
ET&32768 Trap control-C
|
||||
|
||||
EZ&1 Mark Henderson, who did much of the Unix port, likes the way
|
||||
VAX/VMS keeps versions of files. VMS appends a semicolon followed
|
||||
by a version number to files, and has the PURGE command to clean
|
||||
out old versions of files. If this bit is off, TECO-C will handle
|
||||
file version numbers, appending the appropriate version number to
|
||||
file names. Mark supplied a "purge" program (distributed with TECO-C)
|
||||
for users of this feature. Setting this flag turns off the feature,
|
||||
to make TECO-C function as expected by the average Unix user. This
|
||||
flag is set by default.
|
||||
EZ&128 Don't stop read on formfeeds
|
||||
EZ&256 If set, don't do newline translation on file read/write -- binary mode.
|
||||
TECO is based on separate carriage return (CR) and line feed (LF)
|
||||
line termination. Normally on file input newline (line feed)
|
||||
characters are converted to CRLF pairs unless preceded
|
||||
by a CR -- this allows reading DOS format files. On output CRLF pairs
|
||||
are converted back to new line characters. Set this bit before starting
|
||||
to edit a binary file, or when editing a DOS file for which no format
|
||||
conversion is desired (ie file is saved back in DOS format).
|
||||
EZ&8192 This bit is set by default, but has no significance in this release.
|
||||
EZ&16384 Normally the backup file name is created by replacing the file extension
|
||||
with "bak" -- foo.c becomes foo.bak, however if this bit is set then
|
||||
the backup file name is created by simply adding ".bak" to the name -- foo.c
|
||||
becomes foo.c.bak. This choice is overridden by EZ&1 = 0.
|
||||
|
||||
|
|
@ -0,0 +1,134 @@
|
|||
Running TECOC on Linux
|
||||
Tecoc takes a first argument of mung, teco, or make to control its
|
||||
operating mode. In this Linux version, the name of the executable is
|
||||
tested to provide this first argument. Typically soft links are used
|
||||
to the tecoc executable, however aliases could be used instead. The
|
||||
mapping is:
|
||||
Make is tecoc make (note uppercase first letter)
|
||||
teco is tecoc teco
|
||||
mung is tecoc mung
|
||||
inspect is tecoc teco -inspect
|
||||
The provided TAR file has these four soft links defined. Extract the
|
||||
TAR file into a directory in your path, typically /usr/local/bin,
|
||||
after making sure none of the command names already exist for other
|
||||
applications. Necessary environment variables and files are described below.
|
||||
Several option switches are allowed on the TECO command line:
|
||||
-in[spect] -- Read file only, don't create an output file.
|
||||
-noc[reate] -- If file doesn't exist, don't create it.
|
||||
-noi[ni] -- Don't execute INI file. (valid for MAKE or MUNG as well)
|
||||
-nom[emory] -- don't save filename as "last edited file" (valid for
|
||||
MAKE also)
|
||||
-nop[age] -- Formfeeds don't stop file reads (valid for MAKE also)
|
||||
-nor[ename] -- Don't rename files, but copy them to keep references correct
|
||||
(OS/2 only)
|
||||
+nnn -- sets NOPAGE and positions dot to line nnn.
|
||||
The part of the switch name in the square brackets is optional. For
|
||||
instance "-in" is the same as "-inspect".
|
||||
MAKE filespec
|
||||
starts tecoc to create file filespec. Does equivalent of EWfilespec$$
|
||||
TECO filespec
|
||||
starts tecoc to edit file filespec. Does equivalent of
|
||||
EBfilespec$Y$
|
||||
TECO filespec2=filespec1
|
||||
starts tecoc to edit filespec1, writing to filespec2. Does
|
||||
equivalent of ERfilespec1$EWfilespec2$Y$$
|
||||
TECO
|
||||
starts tecoc to edit last edited file. Filename is saved in file
|
||||
named teco*.tmp in the current directory, unless overriden
|
||||
(described below).
|
||||
MUNG filespec <args>
|
||||
starts tecoc to execute filespec. Equivalent to
|
||||
I<args>$JEIfilespec$$
|
||||
You can use "TECO @filespec <args>" instead of MUNG.
|
||||
**************
|
||||
Key Bindings
|
||||
The keys mentioned in the teco.doc file are somewhat confusing.
|
||||
This should help:
|
||||
<DELIM> The "Esc" key, "Esc" echoes as "$", however the
|
||||
teco.doc file shows it as '`'.
|
||||
<BS> Type as Control-h, this isn't the "Backspace" key.
|
||||
<DELETE> The "Backspace" key. This isn't the "Delete" key.
|
||||
<CR> The "Enter" key.
|
||||
<LF> Type as Control-j.
|
||||
Note that the assignments for <BS> and <DELETE> shown here are
|
||||
swapped. <BS> can be "Backspace" and <DELETE> can be control-h by
|
||||
clearing ET&2048, e.g. 2048,0ET
|
||||
**************
|
||||
The Initialization File.
|
||||
Tecoc mungs (executes as teco commands) the file TECO.INI in the
|
||||
current directory before processing the command line. Initialization
|
||||
can be done instead by defining a TEC_INIT environment variable. The
|
||||
value is either the list of teco commands to execute or a "$" followed
|
||||
by the pathname of the file containing the initialization file. This
|
||||
allows a single, centrally located initialization file. REMEMBER that
|
||||
the "$" must be escaped, i.e. "\$"
|
||||
The initialization file can be used to make initial settings. It can
|
||||
return a value, but the value setting is somewhat obscure.
|
||||
Example (csh):
|
||||
setenv TEC_INIT 1es
|
||||
Example (bash):
|
||||
TEC_INIT=1es
|
||||
export TEC_INIT
|
||||
will cause successful searches to auto-display in all teco sessions.
|
||||
**************
|
||||
Changing the location of the memory file.
|
||||
Define the environment variable TEC_MEMORY to be "$" followed by the
|
||||
pathname of the file designated the memory file.
|
||||
Example (csh):
|
||||
setenv TEC_MEMORY ~/teco.mem
|
||||
setenv TEC_MEMORY \$$TEC_MEMORY
|
||||
Example (bash):
|
||||
TEC_MEMORY = ~/teco.mem
|
||||
TEC_MEMORY = \$$TEC_MEMORY
|
||||
export TEC_MEMORY
|
||||
will cause the name of the last edit file to be stored in the file
|
||||
teco.mem in the home directory. By default the file name is tecoN.tmp in
|
||||
the current directory, where "N" is the process ID of the parent process to
|
||||
teco.
|
||||
**************
|
||||
The Libary directory
|
||||
Defining the environment variable TEC_LIBRARY to be a directory path
|
||||
(including the final "/") will allow the EI command to fetch
|
||||
teco commands from this directory if the file is not found in the
|
||||
current directory.
|
||||
Example (csh):
|
||||
setenv TEC_LIBRARY=\$/usr/local/lib/
|
||||
will cause the directory /usr/local/lib to be searched for teco command files.
|
||||
**************
|
||||
Implemented flags:
|
||||
ED&1 Allow carat "^" character in string searches
|
||||
ED&2 Allow yank and _ unconditionally
|
||||
ED&16 Failed searches preserve dot
|
||||
ED&64 Move dot by one after each match in multiple occurance searches
|
||||
ET&1 Type out in image mode
|
||||
ET&2 Use scope for delete and control-U (default=1)
|
||||
ET&4 Accept lowercase input (default=1)
|
||||
ET&8 ^T reads without echo
|
||||
ET&32 ^T reads with no wait
|
||||
ET&128 MUNG mode (abort on error) cleared by "*" prompt
|
||||
ET&2048 Swap backspace and delete
|
||||
ET&4096 We are using 8 bit characters (default=1)
|
||||
ET&32768 Trap control-C
|
||||
EZ&1 Mark Henderson, who did much of the Unix port, likes the way
|
||||
VAX/VMS keeps versions of files. VMS appends a semicolon followed
|
||||
by a version number to files, and has the PURGE command to clean
|
||||
out old versions of files. If this bit is off, TECO-C will handle
|
||||
file version numbers, appending the appropriate version number to
|
||||
file names. Mark supplied a "purge" program (distributed with TECO-C)
|
||||
for users of this feature. Setting this flag turns off the feature,
|
||||
to make TECO-C function as expected by the average Unix user. This
|
||||
flag is set by default.
|
||||
EZ&128 Don't stop read on formfeeds
|
||||
EZ&256 If set, don't do newline translation on file read/write -- binary mode.
|
||||
TECO is based on separate carriage return (CR) and line feed (LF)
|
||||
line termination. Normally on file input newline (line feed)
|
||||
characters are converted to CRLF pairs unless preceded
|
||||
by a CR -- this allows reading DOS format files. On output CRLF pairs
|
||||
are converted back to new line characters. Set this bit before starting
|
||||
to edit a binary file, or when editing a DOS file for which no format
|
||||
conversion is desired (ie file is saved back in DOS format).
|
||||
EZ&8192 This bit is set by default, but has no significance in this release.
|
||||
EZ&16384 Normally the backup file name is created by replacing the file extension
|
||||
with "bak" -- foo.c becomes foo.bak, however if this bit is set then
|
||||
the backup file name is created by simply adding ".bak" to the name -- foo.c
|
||||
becomes foo.c.bak. This choice is overridden by EZ&1 = 0.
|
||||
|
|
@ -0,0 +1,121 @@
|
|||
Running TECOC
|
||||
|
||||
Tecoc is typically started via batch commands to set the first
|
||||
argument to MUNG, TECO, or MAKE. The batch files are typically called
|
||||
mung, teco, make, and inspect. (Inspect does a TECO/INSPECT.)
|
||||
|
||||
Several option switches are allowed on the TECO command line:
|
||||
|
||||
/IN[SPECT] -- Read file only, don't create an output file.
|
||||
/NOC[REATE] -- If file doesn't exist, don't create it.
|
||||
/NOI[NI] -- Don't execute INI file. (valid for MAKE or MUNG as well)
|
||||
/NOM[EMORY] -- don't save filename as "last edited file" (valid for
|
||||
MAKE also)
|
||||
/NOP[AGE] -- Formfeeds don't stop file reads (valid for MAKE also)
|
||||
/NOR[ENAME] -- Don't rename files, but copy them to keep references correct
|
||||
(OS/2 only)
|
||||
+nnn -- sets NOPAGE and positions dot to line nnn.
|
||||
|
||||
The part of the switch name in the square brackets is optional. For
|
||||
instance "/IN" is the same as "/INSPECT".
|
||||
|
||||
MAKE filespec
|
||||
|
||||
starts tecoc to create file filespec. Does equivalent of EWfilespec$$
|
||||
|
||||
TECO filespec
|
||||
|
||||
starts tecoc to edit file filespec. Does equivalent of
|
||||
EBfilespec$Y$
|
||||
|
||||
TECO filespec2=filespec1
|
||||
|
||||
starts tecoc to edit filespec1, writing to filespec2. Does
|
||||
equivalent of ERfilespec1$EWfilespec2$Y$$
|
||||
|
||||
TECO
|
||||
|
||||
starts tecoc to edit last edited file. Filename is saved in file
|
||||
named teco*.tmp in the current directory, unless overriden
|
||||
(described below).
|
||||
|
||||
MUNG filespec <args>
|
||||
|
||||
starts tecoc to execute filespec. Equivalent to
|
||||
I<args>$JEIfilespec$$
|
||||
|
||||
You can use "TECO @filespec <args>" instead of MUNG.
|
||||
|
||||
**************
|
||||
|
||||
The Initialization File.
|
||||
|
||||
Tecoc mungs (executes as teco commands) the file TECO.INI in the
|
||||
current directory before processing the command line. Initialization
|
||||
can be done instead by defining a TEC$INIT environment variable (the
|
||||
DOS "SET" command does this). The value is either the list of teco
|
||||
commands to execute or a "$" followed by the pathname of the file
|
||||
containing the initialization file. This allows a single, centrally
|
||||
located initialization file.
|
||||
|
||||
The initialization file can be used to make initial settings. It can
|
||||
return a value, but the value setting is somewhat obscure.
|
||||
|
||||
Example:
|
||||
|
||||
set TEC$INIT=1es
|
||||
|
||||
will cause successful searches to auto-display in all teco sessions.
|
||||
|
||||
**************
|
||||
|
||||
Changing the location of the memory file.
|
||||
|
||||
Define the environment variable TEC$MEMORY to be "$" followed by the
|
||||
pathname of the file designated the memory file.
|
||||
|
||||
Example:
|
||||
|
||||
set TEC$MEMORY=$c:\teco.mem
|
||||
|
||||
will cause the name of the last edit file to be stored in the file
|
||||
teco.mem in the root directory of drive C.
|
||||
|
||||
|
||||
**************
|
||||
|
||||
The Libary directory
|
||||
|
||||
Defining the environment variable TEC$LIBRARY to be a directory path
|
||||
(including the final "\" or "/") will allow the EI command to fetch
|
||||
teco commands from this directory if the file is not found in the
|
||||
current directory.
|
||||
|
||||
Example:
|
||||
|
||||
set TEC$LIBRARY=c:\lib\teco\
|
||||
|
||||
will cause the directory c:\lib\teco to be searched for teco command files.
|
||||
|
||||
|
||||
**************
|
||||
|
||||
Implemented flags:
|
||||
|
||||
ED&1 Allow carat "^" character in string searches
|
||||
ED&2 Allow yank and _ unconditionally
|
||||
ED&16 Failed searches preserve dot
|
||||
ED&64 Move dot by one after each match in multiple occurance searches
|
||||
|
||||
ET&1 Type out in image mode
|
||||
ET&2 Use scope for delete and control-U (default=1)
|
||||
ET&4 Accept lowercase input (default=1)
|
||||
ET&8 ^T reads without echo
|
||||
ET&32 ^T reads with no wait
|
||||
ET&128 MUNG mode (abort on error) cleared by "*" prompt
|
||||
ET&2048 Swap backspace and delete (default=1)
|
||||
ET&4096 We are using 8 bit characters (default=1)
|
||||
ET&32768 Trap control-C
|
||||
|
||||
EZ&2 Don't rename files, copy them (OS/2 Version)
|
||||
EZ&128 Don't stop read on formfeeds
|
||||
|
|
@ -0,0 +1,61 @@
|
|||
TECO-C (version number 146)
|
||||
|
||||
Copyright 1983, 1990 by Pete Siemsen. This software is provided to
|
||||
you free of charge for your own use. Use it as you see fit; if it doesn't
|
||||
work, I disclaim all responsibility. You may re-distribute this software
|
||||
UNCHANGED only if you include this copy-right notice. Alternatively, if
|
||||
you change this software, you may re-distribute the result only if you
|
||||
include BOTH this copyright notice, AND an additional notice identifying
|
||||
you and indicating that you have changed the software.
|
||||
|
||||
This program is still under development. See file PROBLEMS.TXT for
|
||||
notes I've written to myself about things to do to the program. If you
|
||||
modify this code to enhance it or fix a bug, please communicate the changes
|
||||
to me. My address is
|
||||
|
||||
Pete Siemsen
|
||||
645 Ohio Avenue #302
|
||||
Long Beach, Ca. 90814
|
||||
|
||||
(213) 433-3059 (home)
|
||||
(213) 740-7391 (work)
|
||||
Internet: siemsen@usc.edu
|
||||
|
||||
[NOTE -- This is old information. Better to contact me, Tom Almy, below.]
|
||||
|
||||
*******************************************************
|
||||
|
||||
This archive contains TECO-C modified and compiled for DOS, Win32,
|
||||
and OS/2. The modifications have been made by:
|
||||
|
||||
Tom Almy
|
||||
tomalmy@aracnet.com -or-
|
||||
tom_almy@ieee.org
|
||||
|
||||
who is a "old time" TECO user. Not only did I port TECO-C but I also
|
||||
corrected some bugs and modified the file backup algorithm to do
|
||||
copying rather than renaming as an option. This makes it Workplace
|
||||
Shell friendly. Both the Win32 and OS/2 version allow long file names.
|
||||
|
||||
Included files in this archive:
|
||||
|
||||
readme.1st This file
|
||||
readme.txt Quick operating instructions for the TECO literate
|
||||
wchart.txt List of all the implemented commands.
|
||||
teco.doc The official teco reference.
|
||||
inspect.cmd Command files to invoke tecoc
|
||||
inspect.bat (cmd for OS/2, bat for DOS/Win32)
|
||||
mung.cmd
|
||||
mung.bat
|
||||
teco.cmd
|
||||
teco.bat
|
||||
tmake.cmd this would be "make" but most people use the program
|
||||
"make".
|
||||
tmake.bat
|
||||
tecocmd.btm Equivalent aliases for JPSoft products (4DOS, et cetera)
|
||||
|
||||
*.tes TECO command files for various things
|
||||
*.tec Compressed TECO command files
|
||||
|
||||
|
||||
The executable program is downloaded as a separate file.
|
||||
|
|
@ -0,0 +1,142 @@
|
|||
Running TECOC
|
||||
|
||||
NOTE -- IF YOU ARE USING LINUX, READ THE FILE README.LNX INSTEAD!
|
||||
|
||||
|
||||
Tecoc is typically started via batch commands to set the first
|
||||
argument to MUNG, TECO, or MAKE. The batch files are typically called
|
||||
mung, teco, make, and inspect. (Inspect does a TECO/INSPECT.)
|
||||
|
||||
Several option switches are allowed on the TECO command line:
|
||||
|
||||
/IN[SPECT] -- Read file only, don't create an output file.
|
||||
/NOC[REATE] -- If file doesn't exist, don't create it.
|
||||
/NOI[NI] -- Don't execute INI file. (valid for MAKE or MUNG as well)
|
||||
/NOM[EMORY] -- don't save filename as "last edited file" (valid for
|
||||
MAKE also)
|
||||
/NOP[AGE] -- Formfeeds don't stop file reads (valid for MAKE also)
|
||||
/NOR[ENAME] -- Don't rename files, but copy them to keep references correct
|
||||
(OS/2 only)
|
||||
+nnn -- sets NOPAGE and positions dot to line nnn.
|
||||
|
||||
The part of the switch name in the square brackets is optional. For
|
||||
instance "/IN" is the same as "/INSPECT".
|
||||
|
||||
MAKE filespec
|
||||
|
||||
starts tecoc to create file filespec. Does equivalent of EWfilespec$$
|
||||
|
||||
TECO filespec
|
||||
|
||||
starts tecoc to edit file filespec. Does equivalent of
|
||||
EBfilespec$Y$
|
||||
|
||||
TECO filespec2=filespec1
|
||||
|
||||
starts tecoc to edit filespec1, writing to filespec2. Does
|
||||
equivalent of ERfilespec1$EWfilespec2$Y$$
|
||||
|
||||
TECO
|
||||
|
||||
starts tecoc to edit last edited file. Filename is saved in file
|
||||
named teco*.tmp in the current directory, unless overriden
|
||||
(described below).
|
||||
|
||||
MUNG filespec <args>
|
||||
|
||||
starts tecoc to execute filespec. Equivalent to
|
||||
I<args>$JEIfilespec$$
|
||||
|
||||
You can use "TECO @filespec <args>" instead of MUNG.
|
||||
|
||||
**************
|
||||
Key Bindings
|
||||
|
||||
The keys mentioned in the teco.doc file are somewhat confusing.
|
||||
This should help:
|
||||
|
||||
<DELIM> The "Esc" key, "Esc" echoes as "$", however the
|
||||
teco.doc file shows it as '`'.
|
||||
<BS> Type as Control-h, this isn't the "Backspace" key.
|
||||
<DELETE> The "Backspace" key. This isn't the "Delete" key.
|
||||
<CR> The "Enter" key.
|
||||
<LF> Type as Control-j.
|
||||
|
||||
Note that the assignments for <BS> and <DELETE> shown here are
|
||||
swapped. <BS> can be "Backspace" and <DELETE> can be control-h by
|
||||
clearing ET&2048, e.g. 2048,0ET
|
||||
|
||||
|
||||
**************
|
||||
|
||||
The Initialization File.
|
||||
|
||||
Tecoc mungs (executes as teco commands) the file TECO.INI in the
|
||||
current directory before processing the command line. Initialization
|
||||
can be done instead by defining a TEC$INIT environment variable (the
|
||||
DOS "SET" command does this). The value is either the list of teco
|
||||
commands to execute or a "$" followed by the pathname of the file
|
||||
containing the initialization file. This allows a single, centrally
|
||||
located initialization file.
|
||||
|
||||
The initialization file can be used to make initial settings. It can
|
||||
return a value, but the value setting is somewhat obscure.
|
||||
|
||||
Example:
|
||||
|
||||
set TEC$INIT=1es
|
||||
|
||||
will cause successful searches to auto-display in all teco sessions.
|
||||
|
||||
**************
|
||||
|
||||
Changing the location of the memory file.
|
||||
|
||||
Define the environment variable TEC$MEMORY to be "$" followed by the
|
||||
pathname of the file designated the memory file.
|
||||
|
||||
Example:
|
||||
|
||||
set TEC$MEMORY=$c:\teco.mem
|
||||
|
||||
will cause the name of the last edit file to be stored in the file
|
||||
teco.mem in the root directory of drive C.
|
||||
|
||||
|
||||
**************
|
||||
|
||||
The Libary directory
|
||||
|
||||
Defining the environment variable TEC$LIBRARY to be a directory path
|
||||
(including the final "\" or "/") will allow the EI command to fetch
|
||||
teco commands from this directory if the file is not found in the
|
||||
current directory.
|
||||
|
||||
Example:
|
||||
|
||||
set TEC$LIBRARY=c:\lib\teco\
|
||||
|
||||
will cause the directory c:\lib\teco to be searched for teco command files.
|
||||
|
||||
|
||||
**************
|
||||
|
||||
Implemented flags:
|
||||
|
||||
ED&1 Allow carat "^" character in string searches
|
||||
ED&2 Allow yank and _ unconditionally
|
||||
ED&16 Failed searches preserve dot
|
||||
ED&64 Move dot by one after each match in multiple occurance searches
|
||||
|
||||
ET&1 Type out in image mode
|
||||
ET&2 Use scope for delete and control-U (default=1)
|
||||
ET&4 Accept lowercase input (default=1)
|
||||
ET&8 ^T reads without echo
|
||||
ET&32 ^T reads with no wait
|
||||
ET&128 MUNG mode (abort on error) cleared by "*" prompt
|
||||
ET&2048 Swap backspace and delete (default=1)
|
||||
ET&4096 We are using 8 bit characters (default=1)
|
||||
ET&32768 Trap control-C
|
||||
|
||||
EZ&2 Don't rename files, copy them (OS/2 Version)
|
||||
EZ&128 Don't stop read on formfeeds
|
||||
|
|
@ -0,0 +1,80 @@
|
|||
Running TECOC
|
||||
Tecoc is typically started via batch commands to set the first
|
||||
argument to MUNG, TECO, or MAKE. The batch files are typically called
|
||||
mung, teco, make, and inspect. (Inspect does a TECO/INSPECT.)
|
||||
Several option switches are allowed on the TECO command line:
|
||||
/IN[SPECT] -- Read file only, don't create an output file.
|
||||
/NOC[REATE] -- If file doesn't exist, don't create it.
|
||||
/NOI[NI] -- Don't execute INI file. (valid for MAKE or MUNG as well)
|
||||
/NOM[EMORY] -- don't save filename as "last edited file" (valid for
|
||||
MAKE also)
|
||||
/NOP[AGE] -- Formfeeds don't stop file reads (valid for MAKE also)
|
||||
/NOR[ENAME] -- Don't rename files, but copy them to keep references correct
|
||||
(OS/2 only)
|
||||
+nnn -- sets NOPAGE and positions dot to line nnn.
|
||||
The part of the switch name in the square brackets is optional. For
|
||||
instance "/IN" is the same as "/INSPECT".
|
||||
MAKE filespec
|
||||
starts tecoc to create file filespec. Does equivalent of EWfilespec$$
|
||||
TECO filespec
|
||||
starts tecoc to edit file filespec. Does equivalent of
|
||||
EBfilespec$Y$
|
||||
TECO filespec2=filespec1
|
||||
starts tecoc to edit filespec1, writing to filespec2. Does
|
||||
equivalent of ERfilespec1$EWfilespec2$Y$$
|
||||
TECO
|
||||
starts tecoc to edit last edited file. Filename is saved in file
|
||||
named teco*.tmp in the current directory, unless overriden
|
||||
(described below).
|
||||
MUNG filespec <args>
|
||||
starts tecoc to execute filespec. Equivalent to
|
||||
I<args>$JEIfilespec$$
|
||||
You can use "TECO @filespec <args>" instead of MUNG.
|
||||
**************
|
||||
The Initialization File.
|
||||
Tecoc mungs (executes as teco commands) the file TECO.INI in the
|
||||
current directory before processing the command line. Initialization
|
||||
can be done instead by defining a TEC$INIT environment variable (the
|
||||
DOS "SET" command does this). The value is either the list of teco
|
||||
commands to execute or a "$" followed by the pathname of the file
|
||||
containing the initialization file. This allows a single, centrally
|
||||
located initialization file.
|
||||
The initialization file can be used to make initial settings. It can
|
||||
return a value, but the value setting is somewhat obscure.
|
||||
Example:
|
||||
set TEC$INIT=1es
|
||||
will cause successful searches to auto-display in all teco sessions.
|
||||
**************
|
||||
Changing the location of the memory file.
|
||||
Define the environment variable TEC$MEMORY to be "$" followed by the
|
||||
pathname of the file designated the memory file.
|
||||
Example:
|
||||
set TEC$MEMORY=$c:\teco.mem
|
||||
will cause the name of the last edit file to be stored in the file
|
||||
teco.mem in the root directory of drive C.
|
||||
**************
|
||||
The Libary directory
|
||||
Defining the environment variable TEC$LIBRARY to be a directory path
|
||||
(including the final "\" or "/") will allow the EI command to fetch
|
||||
teco commands from this directory if the file is not found in the
|
||||
current directory.
|
||||
Example:
|
||||
set TEC$LIBRARY=c:\lib\teco\
|
||||
will cause the directory c:\lib\teco to be searched for teco command files.
|
||||
**************
|
||||
Implemented flags:
|
||||
ED&1 Allow carat "^" character in string searches
|
||||
ED&2 Allow yank and _ unconditionally
|
||||
ED&16 Failed searches preserve dot
|
||||
ED&64 Move dot by one after each match in multiple occurance searches
|
||||
ET&1 Type out in image mode
|
||||
ET&2 Use scope for delete and control-U (default=1)
|
||||
ET&4 Accept lowercase input (default=1)
|
||||
ET&8 ^T reads without echo
|
||||
ET&32 ^T reads with no wait
|
||||
ET&128 MUNG mode (abort on error) cleared by "*" prompt
|
||||
ET&2048 Swap backspace and delete (default=1)
|
||||
ET&4096 We are using 8 bit characters (default=1)
|
||||
ET&32768 Trap control-C
|
||||
EZ&2 Don't rename files, copy them (OS/2 Version)
|
||||
EZ&128 Don't stop read on formfeeds
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,212 @@
|
|||
NULL ignored
|
||||
^A output message to terminal
|
||||
^B current date
|
||||
^C interrupt
|
||||
^D set radix to decimal
|
||||
^E form feed flag
|
||||
^E<n> (match char) match ASCII code n
|
||||
^E[] (match char) match one of list
|
||||
^EA (match char) match alphabetics
|
||||
^EB (match char) match separator character
|
||||
^EC (match char) match symbol constituent
|
||||
^ED (match char) match digit
|
||||
^EGq (match char) match contents of q-register
|
||||
^EL (match char) match line terminators
|
||||
^EMx (match char) match any number of x
|
||||
^EQq (string build char) use contents of q-register q
|
||||
^ER (match char) match alphanumerics
|
||||
^ES (match char) match spaces and/or tabs
|
||||
^EUq (string build char) use ASCII code in q-register
|
||||
^EV (match char) match lowercase
|
||||
^EW (match char) match uppercase
|
||||
^EX (match char) match anything
|
||||
^F not implemented
|
||||
^G^G kill command string
|
||||
^G<SP> retype current command line
|
||||
^G* retype entire current command line
|
||||
^H current time
|
||||
BS immediate mode: back up one line and type one line
|
||||
TAB insert tab and text
|
||||
LF ignored in commands
|
||||
LF immediate mode: advance one line and type one line
|
||||
VT not a TECO command
|
||||
FF output a form feed to terminal
|
||||
CR ignored
|
||||
^N end of file flag
|
||||
^Nx (match char) match any character but x
|
||||
^O set radix to octal
|
||||
^P not a TECO command
|
||||
n^Q convert line offset to character offset
|
||||
^Qx (string char) use x literally
|
||||
^R value of current radix
|
||||
n^R set radix to n
|
||||
^Rx (string char) use x literally
|
||||
^S -(length of last inserted string or found search string)
|
||||
^S immediate mode: not yet implemented
|
||||
^S (match char) match any separator character
|
||||
^T ASCII value of next character typed in
|
||||
n^T output character whose ASCII value is n to the terminal screen
|
||||
^U (command line) erase current command line
|
||||
^Uq put string into q-register
|
||||
:^Uq append string to q-register
|
||||
n^Uq put ASCII character "n" into q-register
|
||||
n:^Uq append ASCII "n" to q-register
|
||||
^V convert search strings to lowercase
|
||||
^Vx (string char) convert x to lowercase
|
||||
^W convert search strings to uppercase
|
||||
^Wx (string char) convert x to uppercase
|
||||
^X search mode flag
|
||||
^X (match char) match any character
|
||||
^Y equivalent to ".+^S,."
|
||||
^Z size of text in all q-registers, plus command line
|
||||
^Z^Z^Z quit TECO, leave everything as it was before TECO was entered
|
||||
ESC command and string terminator
|
||||
^[ like ESC
|
||||
^\ not a TECO command
|
||||
^] not a TECO command
|
||||
^^x ASCII value of x
|
||||
n^_ ones complement of n
|
||||
SP ignored
|
||||
! define tag
|
||||
n"< test for less than zero
|
||||
n"= test for equal to zero
|
||||
n"> test for greater than zero
|
||||
n"A test for alphabetic
|
||||
n"C test for symbol constituent
|
||||
n"D test for digit
|
||||
n"E test for equal to zero
|
||||
n"F test for false
|
||||
n"G test for greater than zero
|
||||
n"L test for less than zero
|
||||
n"N test for not equal to zero
|
||||
n"R test for alphanumeric
|
||||
n"S test for successful
|
||||
n"T test for true
|
||||
n"U test for unsuccessful
|
||||
n"V test for lowercase
|
||||
n"W test for uppercase
|
||||
# logical OR
|
||||
$ separate TECO commands
|
||||
n%q add n to q-register q, return the result
|
||||
& logical AND
|
||||
' end of conditional
|
||||
( numeric expression grouping
|
||||
) numeric expression grouping
|
||||
* multiplication
|
||||
*q immediate mode: save last command string in q-register q
|
||||
+ addition
|
||||
, numeric argument separator
|
||||
- subtraction or negation
|
||||
. current pointer position
|
||||
/ division
|
||||
/ immediate mode: type detailed explanation of error
|
||||
0-9 numeric argument constructors
|
||||
: modify next command
|
||||
n; exit iteration of n is greater than or equal to zero
|
||||
n:; exit iteration if n is less than or equal to zero
|
||||
n< iterate n times
|
||||
n= type n in decimal
|
||||
n== type n in octal
|
||||
n=== type n in hexadecimal
|
||||
n:= type n in decimal, no carriage return
|
||||
n:== type n in octal, no carriage return
|
||||
n:=== type n in hexadecimal, no carriage return
|
||||
> end iteration
|
||||
? toggle trace mode
|
||||
? immediate mode: type out erroneous command string
|
||||
@ modify next text argument
|
||||
A append next input page to edit buffer
|
||||
nA ASCII value of character at .+n
|
||||
n:A append n lines to input buffer
|
||||
B always zero. represents beginning of edit buffer
|
||||
nC advance n characters
|
||||
nD delete n characters
|
||||
m,nD delete between m and n (same as m,nK)
|
||||
E%q write q-register to file
|
||||
nE_ destructive search without page protection
|
||||
EA select secondary output stream
|
||||
EB open input and output files
|
||||
EC copy input file to output file and close files
|
||||
nEC not yet implemented
|
||||
ED edit mode flag
|
||||
EF close output file
|
||||
EH help level flag
|
||||
EI open indirect command file
|
||||
EK kill output file
|
||||
EL open log file
|
||||
EN wildcard lookup
|
||||
EO return version number of TECO
|
||||
EP select secondary input stream
|
||||
EQq read from file into q-register
|
||||
ER open input file
|
||||
ES search verification flag
|
||||
ET type out control flag
|
||||
EU case flagging flag
|
||||
EV edit verify flag
|
||||
EW open output file
|
||||
EX close files and exit
|
||||
EY read without yank protection
|
||||
nF_ destructive search and replace
|
||||
F' flow to end of conditional
|
||||
F< flow to start of iteration
|
||||
F> flow to end of iteration
|
||||
F| flow to ELSE part of conditional
|
||||
m,nFB search between locations m and n
|
||||
nFB search, bounded by n lines
|
||||
m,nFC search and replace between m and n
|
||||
nFC search and replace over n lines
|
||||
nFD search for and delete string
|
||||
nFK search for string and delete intervening text
|
||||
nFN paged search and replace
|
||||
FR replace last string
|
||||
nFS search and replace
|
||||
Gq get string from q-register into edit buffer
|
||||
G* get string from filespec buffer into edit buffer
|
||||
G_ get string from search buffer into edit buffer
|
||||
:Gq type text in q-register q
|
||||
:G* type filespec
|
||||
:G_ type search string
|
||||
H equivalent to B,Z
|
||||
I insert text
|
||||
nI insert character whose ASCII value is n
|
||||
nJ move pointer to J
|
||||
nK kill n lines
|
||||
m,nK delete between m and n (same as m,nD)
|
||||
nL advance n lines
|
||||
Mq execute commands in q-register
|
||||
nN paged search
|
||||
O go to label
|
||||
nO goto selected label in list
|
||||
nP advance n pages
|
||||
m,nP write out characters m to n
|
||||
nPW write edit buffer n times
|
||||
m,nPW write out characters m to n
|
||||
Qq number in q-register q
|
||||
:Qq size of text in q-register q
|
||||
nR back up n characters
|
||||
nS search for nth occurrence of a string
|
||||
::S compare string
|
||||
nT type n lines
|
||||
m,nT type characters between m and n
|
||||
nUq put n into q-register q
|
||||
nV view n lines
|
||||
m,nV view m lines before, n lines after pointer
|
||||
W not yet implemented
|
||||
nXq put n lines into q-register q
|
||||
m,nXq put character m through n into q-register q
|
||||
n:Xq append n lines to q-register q
|
||||
m,n:Xq append characters m through n to q-register q
|
||||
Y yank a page into the edit buffer
|
||||
Z end of buffer (number of characters in the edit buffer)
|
||||
[q push q-register q onto q-register stack
|
||||
\ value of string in edit buffer
|
||||
n\ convert n to digits in edit buffer
|
||||
]q pop q-register stack into q-register q
|
||||
n_ destructive paged search
|
||||
` not a TECO command
|
||||
a-z treated as uppercase equivalents
|
||||
{ not a TECO command
|
||||
| start of ELSE part of conditional
|
||||
} not a TECO command
|
||||
~ not a TECO command
|
||||
DEL not a TECO command
|
||||
|
|
@ -0,0 +1 @@
|
|||
ED#2EDFilename(s): ^UBenEI<UAQA-127"E8328HKGBB,Z-1XBHK|QA-27"E13101;|QA-13"E0,32ET32,0ET1;|QA:^UB'''>27:^UB27:^UBMB@^UB\0UX<HK:EN"SIEBG*27I27IHXEMEY0UW0UZ<:FN\Search string: UAQA-27"E1UE|0UEON1'<UA!N1!QA-127"E8328HKGBB,Z-1XBHK|QA-27"E13101;|QA-13"EQE"E0,32ET32,0ET1;|QA:^UB:^UB'|QA:^UB'''>27:^UBNew string to replace search string: UAQA-27"E1UE|0UEON2'<UA!N2!QA-127"E8328HKGBB,Z-1XBHK|QA-27"E13101;|QA-13"EQE"E0,32ET32,0ET1;|QA:^UB:^UB'|QA:^UB'''>@:^UB\"SQW"E1UX1310:G*1310101UW'V1UZ|1;'>QZ"NEC|EK'|1;'>QX"ENo matches.'ex\27:^UBMB
|
||||
|
|
@ -0,0 +1,237 @@
|
|||
! This TECO macro written by Pete Siemsen of Midcom (Orange, Ca.) to !
|
||||
! run under VAX/VMS V2.3 running TECO V36, 9-Mar-1982 !
|
||||
! !
|
||||
! This TECO macro changes one string to another in a set of files. It prompts!
|
||||
! the user for a file specification (wildcards ok) and two strings: the old !
|
||||
! one and the new one. It then goes through the file(s), making the change. !
|
||||
! It is designed to be a convenient tool for users who are familiar with !
|
||||
! the SEARCH program on most VAXes. CHANGE prompts for input and displays its!
|
||||
! output very like the SEARCH program. Note that the strings prompted for by !
|
||||
! this macro can be delimited: if the first character of the string is an !
|
||||
! <ESC>, then only an <ESC> will terminate the string, else both <ESC> and !
|
||||
! <CR><LF> will terminate the string. !
|
||||
! !
|
||||
! The general way this macro works is to build a hideous TECO command string !
|
||||
! in q-register B, then execute the command string. We need to build the !
|
||||
! string because we have to create an FN command, at least, to make the !
|
||||
! changes. !
|
||||
! !
|
||||
! The following Q-registers are used: !
|
||||
! !
|
||||
! QA number ascii value of text character from the terminal !
|
||||
! !
|
||||
! QW number 0 if we haven't output the file specification of !
|
||||
! the file in which the string was found, 1 if we !
|
||||
! already have. This guy lets us output file specs !
|
||||
! only for those files which contain the string !
|
||||
! !
|
||||
! QX number 0 if no changes have been made, else > 0 !
|
||||
! This is only used to tell us if we should output !
|
||||
! the "No matches." string when we're done. !
|
||||
! !
|
||||
! QZ number 0 if we haven't changed a string in the file, 1 if !
|
||||
! we have. This guy tells us whether to close and kill !
|
||||
! the output file (when no changes were made in the !
|
||||
! file) or to close the output file normally (when !
|
||||
! changes have been made). !
|
||||
! !
|
||||
! QB text This is the biggee. It holds the TECO command string !
|
||||
! we are building. It is used twice, once to build and !
|
||||
! execute the EN command that presets the TECO !
|
||||
! wildcard lookup buffer, and once to build and !
|
||||
! execute the command string that does all the work. !
|
||||
! We could build just one string and execute it, but !
|
||||
! then the user wouldn't know that he's misspelled his !
|
||||
! file specification until after he's typed in the !
|
||||
! old and new strings. !
|
||||
! !
|
||||
! QE text holds an EB command so we can execute it !
|
||||
|
||||
ED#2ED ! make Y command work like it should !
|
||||
|
||||
Filename(s): ! prompt for a file specification !
|
||||
|
||||
! read the wildcard file specification from the terminal and use it !
|
||||
! in a TECO EN command to preset the wildcard lookup file specification !
|
||||
|
||||
@^UB%en% ! put EN in q-register B !
|
||||
|
||||
! Do an EI$ to throw away extraneous input in the type-ahead buffer. See !
|
||||
! page 117-118 of the PDP-11 TECO User's Guide for an explanation of why !
|
||||
! this is necessary. !
|
||||
|
||||
EI
|
||||
<
|
||||
UA ! get a character from the terminal !
|
||||
QA-127"E ! if it's a delete !
|
||||
8 ! send a backspace to the terminal !
|
||||
32 ! send a space to the terminal !
|
||||
8 ! send a backspace to the terminal !
|
||||
HK ! clear the edit buffer !
|
||||
GB ! get contents of q-register B !
|
||||
B,Z-1XB ! copy back all but last character !
|
||||
HK ! clear the edit buffer !
|
||||
| ! else (it's not a delete) !
|
||||
QA-27"E ! if it's an escape !
|
||||
1310 ! output <CR><LF> !
|
||||
1; ! get out of the loop !
|
||||
| ! else (it's not a delete or escape) !
|
||||
QA-13"E ! if it's a <CR> !
|
||||
0,32ET ! set "read with no wait" !
|
||||
! get the line feed that follows !
|
||||
0,32ET ! set "read with wait" !
|
||||
1; ! and get out of the loop !
|
||||
| ! else (not <DEL>, <ESC>, or <CR>) !
|
||||
QA:^UB ! append it to q-register B !
|
||||
' ! endif !
|
||||
' ! endif !
|
||||
' ! endif !
|
||||
>
|
||||
27:^UB ! append an escape to q-register B !
|
||||
27:^UB ! append an escape to q-register B !
|
||||
MB ! execute the command in q-register B !
|
||||
|
||||
! The unsquished code inserted in Q-register B does the following: !
|
||||
! 0UX zero the 'strings changed' flag !
|
||||
! < loop through all files !
|
||||
! HK clear the edit buffer !
|
||||
! :EN^["S try to get a file specification !
|
||||
! IEB^[ start building an EB command !
|
||||
! G* fill in the file specification !
|
||||
! 27I^[ put in the first terminating <ESC> !
|
||||
! 27I^[ put in the second terminating <ESC> !
|
||||
! HXE load the EB command into q-reg E !
|
||||
! ME the EB command opens the file !
|
||||
! Y get the first page of input !
|
||||
! 0UW zero the 'display filespec?' flag !
|
||||
! 0UZ zero the 'save output file?' flag !
|
||||
! < loop for all changes in this file !
|
||||
! :FN make the actual change !
|
||||
|
||||
@^UB%0UX < HK :EN"S IEB G* 27I 27I HXE ME Y 0UW 0UZ < :FN%
|
||||
|
||||
Search string: ! prompt for the search string !
|
||||
|
||||
UA
|
||||
QA-27"E ! if it's an <ESC> !
|
||||
1UE ! set 'escape terminator only' flag !
|
||||
| ! else (first character not <ESC>) !
|
||||
0UE ! clear 'escape terminator only' flag !
|
||||
ON1 ! jump into the loop !
|
||||
' ! endif !
|
||||
|
||||
<
|
||||
UA ! get a character from the terminal !
|
||||
!N1!
|
||||
QA-127"E ! if it's a delete !
|
||||
8 ! send a backspace to the terminal !
|
||||
32 ! send a space to the terminal !
|
||||
8 ! send a backspace to the terminal !
|
||||
HK ! clear the edit buffer !
|
||||
GB ! get contents of q-register B !
|
||||
B,Z-1XB ! copy back all but last character !
|
||||
HK ! clear the edit buffer !
|
||||
| ! else (it's not a delete) !
|
||||
QA-27"E ! if it's an escape !
|
||||
1310 ! output <CR><LF> !
|
||||
1; ! get out of the loop !
|
||||
| ! else (it's not a delete or escape) !
|
||||
QA-13"E ! if it's a <CR> !
|
||||
QE"E ! if carriage returns terminate !
|
||||
0,32ET ! set "read with no wait" !
|
||||
! get the line feed that follows !
|
||||
0,32ET ! set "read with wait" !
|
||||
1; ! and get out of the loop !
|
||||
|
|
||||
QA:^UB
|
||||
:^UB
|
||||
'
|
||||
| ! else (not <DEL>, <ESC>, or <CR>) !
|
||||
QA:^UB ! append it to q-register B !
|
||||
' ! endif !
|
||||
' ! endif !
|
||||
' ! endif !
|
||||
>
|
||||
27:^UB
|
||||
New string to replace search string:
|
||||
UA
|
||||
QA-27"E ! if it's an <ESC> !
|
||||
1UE ! set 'escape terminator only' flag !
|
||||
| ! else (first character not <ESC>) !
|
||||
0UE ! clear 'escape terminator only' flag !
|
||||
ON2 ! jump into the loop !
|
||||
' ! endif !
|
||||
|
||||
<
|
||||
UA ! get a character from the terminal !
|
||||
!N2!
|
||||
QA-127"E ! if it's a delete !
|
||||
8 ! send a backspace to the terminal !
|
||||
32 ! send a space to the terminal !
|
||||
8 ! send a backspace to the terminal !
|
||||
HK ! clear the edit buffer !
|
||||
GB ! get contents of q-register B !
|
||||
B,Z-1XB ! copy back all but last character !
|
||||
HK ! clear the edit buffer !
|
||||
| ! else (it's not a delete) !
|
||||
QA-27"E ! if it's an escape !
|
||||
1310 ! output <CR><LF> !
|
||||
1; ! get out of the loop !
|
||||
| ! else (it's not a delete or escape) !
|
||||
QA-13"E ! if it's a <CR> !
|
||||
QE"E ! if carriage returns terminate !
|
||||
0,32ET ! set "read with no wait" !
|
||||
! get the line feed that follows !
|
||||
0,32ET ! set "read with wait" !
|
||||
1; ! and get out of the loop !
|
||||
|
|
||||
QA:^UB
|
||||
:^UB
|
||||
'
|
||||
| ! else (not <DEL>, <ESC>, or <CR>) !
|
||||
QA:^UB ! append it to q-register B !
|
||||
' ! endif !
|
||||
' ! endif !
|
||||
' ! endif !
|
||||
>
|
||||
|
||||
! The unsquished code appended to Q-register B does the following !
|
||||
! ^[ terminate the :FN command !
|
||||
! "S if a string was found !
|
||||
! QW"E if haven't displayed file spec yet !
|
||||
! 1UX^[ make the 'any found?' flag true !
|
||||
! 13^T display a <CR> !
|
||||
! 10^T display a <LF> !
|
||||
! :G* display the file specification !
|
||||
! 13^T display a <CR> !
|
||||
! 10^T display a <LF> !
|
||||
! 10^T display a <LF> !
|
||||
! 1UW make 'display filespec?' flag false !
|
||||
! ' endif !
|
||||
! V view the changed line !
|
||||
! 1UZ make the 'any found?' flag true !
|
||||
! | else (search string not in file) !
|
||||
! 1; terminate this loop !
|
||||
! ' endif !
|
||||
! > end of loop over the file !
|
||||
! QZ"N if a string was found in this file !
|
||||
! EC close and save the output file !
|
||||
! | else (search string not in file) !
|
||||
! EK close and delete the output file !
|
||||
! ' endif !
|
||||
! | else (no more files) !
|
||||
! 1; terminate this loop !
|
||||
! ' endif !
|
||||
! > end of loop over all files !
|
||||
! QX"E if didn't match the search string !
|
||||
! ^ANo matches.^A tell the user !
|
||||
! ' endif !
|
||||
! ex^[ and we are finally done !
|
||||
|
||||
@:^UB% "S QW"E 1UX 13 10 :G* 13 10 10 1UW ' V 1UZ | 1; ' >
|
||||
QZ"N EC | EK ' | 1; ' > QX"E No matches. ' ex %
|
||||
|
||||
27:^UB
|
||||
|
||||
MB
|
||||
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
Q Register A qA:= :qA=Q Register .A q.A:= :q.A=^T
|
||||
Q Register B qB:= :qB=Q Register .B q.B:= :q.B=^T
|
||||
Q Register C qC:= :qC=Q Register .C q.C:= :q.C=^T
|
||||
Q Register D qD:= :qD=Q Register .D q.D:= :q.D=^T
|
||||
Q Register E qE:= :qE=Q Register .E q.E:= :q.E=^T
|
||||
Q Register F qF:= :qF=Q Register .F q.F:= :q.F=^T
|
||||
Q Register G qG:= :qG=Q Register .G q.G:= :q.G=^T
|
||||
Q Register H qH:= :qH=Q Register .H q.H:= :q.H=^T
|
||||
Q Register I qI:= :qI=Q Register .I q.I:= :q.I=^T
|
||||
Q Register J qJ:= :qJ=Q Register .J q.J:= :q.J=^T
|
||||
Q Register K qK:= :qK=Q Register .K q.K:= :q.K=^T
|
||||
Q Register L qL:= :qL=Q Register .L q.L:= :q.L=^T
|
||||
Q Register M qM:= :qM=Q Register .M q.M:= :q.M=^T
|
||||
Q Register N qN:= :qN=Q Register .N q.N:= :q.N=^T
|
||||
Q Register O qO:= :qO=Q Register .O q.O:= :q.O=^T
|
||||
Q Register P qP:= :qP=Q Register .P q.P:= :q.P=^T
|
||||
Q Register Q qQ:= :qQ=Q Register .Q q.Q:= :q.Q=^T
|
||||
Q Register R qR:= :qR=Q Register .R q.R:= :q.R=^T
|
||||
Q Register S qS:= :qS=Q Register .S q.S:= :q.S=^T
|
||||
Q Register T qT:= :qT=Q Register .T q.T:= :q.T=^T
|
||||
Q Register U qU:= :qU=Q Register .U q.U:= :q.U=^T
|
||||
Q Register V qV:= :qV=Q Register .V q.V:= :q.V=^T
|
||||
Q Register W qW:= :qW=Q Register .W q.W:= :q.W=^T
|
||||
Q Register X qX:= :qX=Q Register .X q.X:= :q.X=^T
|
||||
Q Register Y qY:= :qY=Q Register .Y q.Y:= :q.Y=^T
|
||||
Q Register Z qZ:= :qZ=Q Register .Z q.Z:= :q.Z=^T
|
||||
Q Register 0 q0:= :q0=Q Register .0 q.0:= :q.0=^T
|
||||
Q Register 1 q1:= :q1=Q Register .1 q.1:= :q.1=^T
|
||||
Q Register 2 q2:= :q2=Q Register .2 q.2:= :q.2=^T
|
||||
Q Register 3 q3:= :q3=Q Register .3 q.3:= :q.3=^T
|
||||
Q Register 4 q4:= :q4=Q Register .4 q.4:= :q.4=^T
|
||||
Q Register 5 q5:= :q5=Q Register .5 q.5:= :q.5=^T
|
||||
Q Register 6 q6:= :q6=Q Register .6 q.6:= :q.6=^T
|
||||
Q Register 7 q7:= :q7=Q Register .7 q.7:= :q.7=^T
|
||||
Q Register 8 q8:= :q8=Q Register .8 q.8:= :q.8=^T
|
||||
Q Register 9 q9:= :q9=Q Register .9 q.9:= :q.9=^T
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
!DATE.TES!EI[M[D[Y[W[H[M[S[0[1U0(Q0/32)&15UM(Q0)&31UD(Q0/512)UYQDUW
|
||||
QM-2"=31%W'QM-3"=59%W'QM-4"=90%W'QM-5"=120%W'QM-6"=151%W'QM-7"=181%W'
|
||||
QM-8"=212%W'QM-9"=243%W'QM-10"=273%W'QM-11"=304%W'QM-12"=334%W'QY&3"=
|
||||
QW-59">1%W''QY+QW+(QY-1/4)U1Q1-(Q1/7*7)U1Q1"=WSUN'Q1-1"=WMON'
|
||||
Q1-2"=WTUE'Q1-3"=WWED'Q1-4"=WTHU'Q1-5"=WFRI'Q1-6"=WSAT'*2U0
|
||||
Q0/3600UHQH*3600U1(Q0-Q1)/60UN(Q0-Q1)-(QN*60)US:GW32QM-10"<48'QM:=
|
||||
47QD-10"<48'QD:=471900+QY:=32QH-10"<48'QH:=58QN-10"<48'QN:=58
|
||||
QS-10"<48'QS=]1]0]S]M]H]W]Y]D]M
|
||||
|
|
@ -0,0 +1,96 @@
|
|||
!DATE.TEC!
|
||||
! display the current date and time: !
|
||||
! ^B == ((year-1900)*16+month)*32+day !
|
||||
! ^H == (seconds since midnight)/2 !
|
||||
|
||||
ei
|
||||
|
||||
[M[D[Y[W[H[M[S[0[1 ! save used Q-reg's !
|
||||
|
||||
! Get MM/DD/YYYY in Q-reg's M,D,Y !
|
||||
^B U0 ! 0.num = encoded date !
|
||||
(Q0/32) & 15 UM ! M.num = month !
|
||||
(Q0) & 31 UD ! D.num = day !
|
||||
(Q0/512) UY ! Y.num = year !
|
||||
|
||||
! Get day of week in Q-reg W !
|
||||
QD UW ! W.num = days this month !
|
||||
QM-2 "= 31%W | ! add days before this month !
|
||||
QM-3 "= 59%W |
|
||||
QM-4 "= 90%W |
|
||||
QM-5 "= 120%W |
|
||||
QM-6 "= 151%W |
|
||||
QM-7 "= 181%W |
|
||||
QM-8 "= 212%W |
|
||||
QM-9 "= 243%W |
|
||||
QM-10 "= 273%W |
|
||||
QM-11 "= 304%W |
|
||||
QM-12 "= 334%W '''''''''''
|
||||
QY & 3 "= ! correct for leap years !
|
||||
QW-59 ">
|
||||
1%W
|
||||
'
|
||||
'
|
||||
QY+QW+(QY-1/4) U1
|
||||
Q1-(Q1/7*7) U1
|
||||
Q1-0"= @^UW%Sunday% |
|
||||
Q1-1"= @^UW%Monday% |
|
||||
Q1-2"= @^UW%Tuesday% |
|
||||
Q1-3"= @^UW%Wednesday% |
|
||||
Q1-4"= @^UW%Thursday% |
|
||||
Q1-5"= @^UW%Friday% |
|
||||
Q1-6"= @^UW%Saturday% '''''''
|
||||
|
||||
|
||||
QM-1"= @^UM%January% | ! get name of month in Q-reg M !
|
||||
QM-2"= @^UM%February% |
|
||||
QM-3"= @^UM%March% |
|
||||
QM-4"= @^UM%April% |
|
||||
QM-5"= @^UM%May% |
|
||||
QM-6"= @^UM%June% |
|
||||
QM-7"= @^UM%July% |
|
||||
QM-8"= @^UM%August% |
|
||||
QM-9"= @^UM%September% |
|
||||
QM-10"= @^UM%October% |
|
||||
QM-11"= @^UM%November% |
|
||||
QM-12"= @^UM%December% ''''''''''''
|
||||
|
||||
! Get HH:MM:SS in Q-reg's H,N,S !
|
||||
^H*2 U0 ! 0.num = second's since midnight !
|
||||
Q0/3600 UH ! H.num = hours !
|
||||
QH*3600 U1 ! 1.num = hours (in seconds) !
|
||||
(Q0-Q1)/60 UN ! N.num = minutes !
|
||||
(Q0-Q1)-(QN*60) US ! S.num = seconds !
|
||||
|
||||
! Display DAY MM/DD/YYYY !
|
||||
:GW ! display DAY !
|
||||
32 ! display <SP> !
|
||||
|
||||
:GM ! display MONTH !
|
||||
32 ! display <SP> !
|
||||
|
||||
! QM-10"< 48^T ' display leading zero? !
|
||||
! QM:= display MM !
|
||||
! 47^T display / !
|
||||
|
||||
QD-10"< 48^T ' ! display leading zero? !
|
||||
QD:= ! display DD !
|
||||
! 47^T display / !
|
||||
44 ! display , !
|
||||
32 ! display <SP> !
|
||||
|
||||
1900+QY := ! display YYYY !
|
||||
32 ! display <SP> !
|
||||
|
||||
! Display HH:MM:DD !
|
||||
QH-10"< 48^T ' ! display leading zero? !
|
||||
QH:= ! display HH !
|
||||
58^T ! display : !
|
||||
QN-10"< 48^T ' ! display leading zero? !
|
||||
QN:= ! display MM !
|
||||
58^T ! display : !
|
||||
QS-10"< 48^T ' ! display leading zero? !
|
||||
QS= ! display SS<CR><LF> !
|
||||
|
||||
]1]0]S]M]H]W]Y]D]M ! restore used Q-reg's !
|
||||
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
|
||||
********************************************************
|
||||
This macro will read the file and transform all <TAB>
|
||||
characters into the appropriate number of <SPACE> chars.
|
||||
Note that tab stops are assumed to be at every 8 spaces.
|
||||
********************************************************
|
||||
FEBH:XF27:FHKMFY<:N "U1;'.UB0L.UAQB-QAUC<QC-9"L1;'-8%C>9-QCUD
|
||||
S -DQD<I >>EX
|
||||
|
|
@ -0,0 +1,44 @@
|
|||
! Author: John Guidi, sped up by Pete Siemsen
|
||||
Date: 20-July-79
|
||||
|
||||
Useage: MUNG DETAB filespec
|
||||
|
||||
Abstract: All tabs in the file specified will be replaced with
|
||||
spaces. Tab stops are assumed to be at every 8 spaces.
|
||||
!
|
||||
|
||||
|
||||
********************************************************
|
||||
This macro will read the file and transform all <TAB>
|
||||
characters into the appropriate number of <SPACE> chars.
|
||||
Note that tab stops are assumed to be at every 8 spaces.
|
||||
********************************************************
|
||||
|
||||
|
||||
@^UF%EB% ! set F up with EB command !
|
||||
H:XF ! append filespec to F !
|
||||
27@:^UF%% ! append <ESC> to F !
|
||||
|
||||
HK ! clear text buffer !
|
||||
MF ! execute F to open input and output files !
|
||||
Y ! pull first page into text buffer !
|
||||
|
||||
<
|
||||
:@N/ /"U1;' ! search for a tab, leave loop when unsuccessful !
|
||||
.UB ! put current pointer in B !
|
||||
0L .UA ! put pointer to begining of line in A !
|
||||
QB-QAUC ! put how many characters up to TAB in C !
|
||||
< ! subtract 8 until QC is less than 9 !
|
||||
QC-9"L
|
||||
1;
|
||||
'
|
||||
-8%C
|
||||
>
|
||||
9-QCUD ! put number of spaces into D !
|
||||
@S/ /-D ! find the tab again and delete it !
|
||||
QD< ! insert the spaces !
|
||||
@I/ /
|
||||
>
|
||||
>
|
||||
EX ! close files !
|
||||
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
!dir.tes-display directory![0[1[2.U0ZJ.U10U21*.*Q1"N80-Q1"G0,Q1X1''
|
||||
EN^eq1Q1J<:EN;G*(1%2)-5"E13I10I0U2|15+<32I>'>Q1,ZTQ1,ZKQ0J]2]1]0
|
||||
|
||||
|
|
@ -0,0 +1,32 @@
|
|||
!dir.tes-display directory!
|
||||
[0 [1 [2 ! save Q-regs 0-2 !
|
||||
.u0 ! remember where we are !
|
||||
zj ! jump to end of buffer !
|
||||
.u1 ! remember old end of buffer !
|
||||
0u2 ! zero column count !
|
||||
@^u1%*.*% ! default is get dir of everything !
|
||||
q1"n ! is buffer not empty? !
|
||||
80-q1"g ! is buffer length < maxpath? !
|
||||
0,q1x1 ! assume edit buf = filespec !
|
||||
' ! endif !
|
||||
' ! endif !
|
||||
en^eq1 ! preset wildcard lookup !
|
||||
q1j ! jump to end of buffer !
|
||||
< ! <build filename display !
|
||||
:en; ! return filename, break if none !
|
||||
g* ! put filename into edit buffer !
|
||||
(1%2)-5"e ! is fifth and final column? !
|
||||
13@i%% ! insert <CR> !
|
||||
10@i%% ! insert <LF> !
|
||||
0u2 ! reset column count !
|
||||
| ! else !
|
||||
15+^S< ! <do column mod 15 times !
|
||||
32@i%% ! insert <SPACE> !
|
||||
> ! > !
|
||||
' ! endif !
|
||||
> ! > !
|
||||
q1,zt ! display what we built !
|
||||
q1,zk ! kill what we built !
|
||||
q0j ! jump to where we were !
|
||||
]2 ]1 ]0 ! restore Q-regs 0-2 !
|
||||
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
@^ul/<0a-13"e1;'0a"w0a+32id|c'>v/
|
||||
q - register L loaded
|
||||
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
This TECO macro makes a TECO command string printable by converting
|
||||
escape characters to dollar signs and all control characters to the
|
||||
tilde-character string which is usually printed on the terminal, except
|
||||
for ^I (tab), ^M (cr), ^L (ff), and ^J (lf).
|
||||
<Z-."E1;'0A-31"GCF<'0A-27"EI$DF<'0A-13"ECF<'0A-10"ECF<'0A-9"ECF<'
|
||||
0A-12"ECF<'I^0A+64ID>
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
This TECO macro makes a TECO command string printable by converting
|
||||
escape characters to dollar signs and all control characters to the
|
||||
tilde-character string which is usually printed on the terminal, except
|
||||
for ^I (tab), ^M (cr), ^L (ff), and ^J (lf).
|
||||
|
||||
<
|
||||
z-."e1;' ! if at end of buffer, exit the loop !
|
||||
0a-31"gcf<' ! it it's already printable, skip it !
|
||||
0a-27"ei$df<' ! if it's ESCAPE, make it into a dollar-sign !
|
||||
0a-13"ecf<' ! if it's carriage return, skip it !
|
||||
0a-10"ecf<' ! if it's line feed, skip it !
|
||||
0a-9"ecf<' ! if it's TAB, skip it !
|
||||
0a-12"ecf<' ! if it's form feed, skip it !
|
||||
i^0a+64id
|
||||
>
|
||||
|
||||
|
|
@ -0,0 +1,80 @@
|
|||
!SQU.TEC V40.00!@F0ED0ET&128"N0,0XP'0,128ETJ<@FS%^ES%%;>J:S/UB
|
||||
QB"TET&64"E
|
||||
''@R\[0[1[2[3+0U3X0K.U1ZJ.U2Q3&127"R|
|
||||
?Invalid Q-register in INPLIN
|
||||
OEXIT'IQ2,.XQ3&127IQ2,.X1Q2,.K!PROMPT!13ET&512"N0,1ET271,0ET
|
||||
0:W-4"E [' J|10'.-Q2+(0)"G0T|:G0Q2,ZT'!GETCH!U0Q0-127"EZ-Q2"N-D'
|
||||
OPROMPT'Q0-21"EQ2,ZKOPROMPT'Q0-18"E1310:G0Q2,ZTOGETCH'Q0-26"E
|
||||
Q2,ZK%0'Q0-27"E1310ODONE'Q3&128"EQ0-10"E13ODONE'Q0-13"EODONE'
|
||||
'Q0IOGETCH!DONE!M1Q2,.K!EXIT!Q1J]3]2]1]0\0,0X9J:@FS%/D%%"S
|
||||
::@FS%:%%"S0AQD|QY'|QB"TQ|IDelete CR/LF (Y/N) <N>? QMR''0QQ"A
|
||||
0QQ&95- Y"E9DA.......TD..D.......U....Z...V.D''!BADNUM!0UO:Q9"NJ
|
||||
:@FS%/L%%"S%/L specified with /D, /L ignored
|
||||
::@FS%:%%"S0A"D<D.-Z;0A"D>'|D'''|J:@FS%/L%%"S::@FS%:%%"S0AQ0A"D<D
|
||||
.-Z;0A"D0A:Q>'|D'|QY'|QB"TQ|
|
||||
ISet line lengths (Y for 70, N, or length) <N>? QMR''0QQ"A
|
||||
0QQ&95- Y"E9DA.......TO..O.......U....Z...V.O70UO''0QQ"D.UQZJGQC\UO
|
||||
D.-Z"NZKQQJOBADNUM'QQJQO"EOBADNUM'
|
||||
9DA.......TO..O.......U....Z...V.O'':Q9"NJ:@FS%/B%%"S::@FS%:%%"S
|
||||
0A- N"E%/B:N specified with /D or /L, /B:N ignored
|
||||
'D''|J:@FS%/B%%"S::@FS%:%%"S0AQD|QY'|QB"TQ|
|
||||
IDelete blank lines (Y/N) <N>? QMR''0QQ"A0QQ&95- Y"E
|
||||
9DA.......TB..........U....Z...V.D''':Q9"E
|
||||
9DA.......T...........U....Z...V.D'J:@FS%/T%%"S::@FS%:%%"S0AQD|
|
||||
QY'|QB"TQ|IDelete lexical TABs and FORM FEEDs (Y/N) <N>? QMR''
|
||||
0QQ"A0QQ&95Q'0QQ- Y"EJG99JDIO12JDIOJ0,33X90,33K'CJ:@FS%/C%%"S
|
||||
::@FS%:%%"S0AQD|QY'|QB"TQ|
|
||||
IDelete comments (Y for SP/TAB, N, or set) <N>? QMR'':QQ"EQN'0QQUQ
|
||||
QQ"VQQ-32UQ'QQ- N"E:9A|:9CQQ- Y"E32C9:C|GQXCK''
|
||||
:91..1..........................:9@....EF1.$...1$$.1.$.1..1..1.1^$
|
||||
:9.LLLLLLLLLLLLLLLLLLLLLLLLLL....D8/#*&\?()$!@1U8126<Q8:8%8>W
|
||||
ET&512"EJ:@FS%/W%%"S::@FS%:%%"SD''|J:@FS%/W%%"S::@FS%:%%"S0AQD|QY'
|
||||
|QB"TQ|IWatch progress (Y/N) <N>? QMR''0QQ"A0QQ&95- Y"E0:W-2"E
|
||||
4,0:W'W-1W'''KJ:@FS%/A%%"S::@FS%:%%"S0AQD|QY'|QB"TQY|
|
||||
IAutomatic mode (Y for %, N, or set) <N>? QMR'':QQ"N0QQUQQQ"VQQ-32UQ
|
||||
'QQ- N"NQQ- Y"E %K|GQXKK'''0UHJ:@FS%/E%%"S::@FS%:%%"S0AQD|QY'|
|
||||
QB"TQ|IAllow adjacent ESCapes (Y/N) <N>? QMR''0QQ"A0QQ&95- Y"E-1UH
|
||||
''@Z*[10U1:QW"N-1,3:W0,4:W0,5:W'<!..!MW!.!ME;0AU0Q0"LOOFFEND'C
|
||||
Q0&128"NQ0&127U0-DQ0I'!DISP!Q0Q90O^EQ0!L!Q0-32U0-DQ0IODISP!^!
|
||||
0A&31U0C-2DQH"FQ0-27"E0A-27"EI^[CO..'.US0UT<-.;R0AUTQT&128"EQT-10"N
|
||||
0;|-.;-1A-128-13"N0;'''>QSJQT-27"EI '''Q0IODISP!B!-1+2"E-2D'O..
|
||||
!O!-D."N-1A&128"N-D'.-1"G-1A-10"E-2A-128-13"EQ0-13"E-2D|O..''''
|
||||
Q0#128IQ0-13"E.-Z"E10IR'0A&127-10"ED'10I''O..!U!271.UC0AU0C
|
||||
Q0- ."E0AU0C'Q0"VQ0-32U0-DQ0I'Q1"T0A-(1A)"EO$$'|0A-27"EO$$''.USQ1"T
|
||||
0A1D':QW"N:S^EQ1"UOSTRINGFAIL'.,4:WQSJMW':QK"E:QW"E0T10T'7ETUQ
|
||||
ET#8#4-4ETU0QQET|G1R::S^EGK"S-D NU0|D YU0'':QW"N0,4:W32768W'Q0- Y"E
|
||||
[E[C[SE-1UE0A-^^0Q1:E:E"E0UE'QEMZ]S]C]E"NOPRIORFAIL'CO$$$$'
|
||||
O$$$!T!0U1!$!271.UC!$$!.USQ1"T0A1D'!$$$!:S^EQ1"UOSTRINGFAIL'
|
||||
!$$$$!-D.UT27U0!AA!Q00QT-QS"GQSJ.,.+QT-QS:FB^EQ0"SG8:X1K0U0<
|
||||
Q0Q10QSJ.,.+QT-QSFB^EQ0;%0-:Q8"EONOQUOTE'>Q0Q1U0QSJQ0IQC-1JI@
|
||||
2%T''QTJQ0I0U1O..!1!0A- ."EC'0A"V0A-32U0DQ0IO.'!V!CO.!@!-1U1!D!
|
||||
-DO.!F!271.UC0AU0CQ0"VQ0-32U0-DQ0I'Q0- B"EO$$'Q0- C"EOF$$'
|
||||
Q0- R"EO$$'Q0- S"EOF$$'Q0- N"EOF$$'Q0- _"EOF$$'O.!F$$!.US271
|
||||
Q1"T0A1D':S^EQ1"UOSTRINGFAIL'-D.UT:S^EQ1"UOSTRINGFAIL'-D.UUQH"T
|
||||
27U0Q00QU-QS"GQSJ.,.+QU-QS:FB^EQ0"UOF0'|OF0'|QU-QT"G27U0Q00QSJ
|
||||
.,.+QU-QS:FB^EQ0"UOF0'''G8:X1K0U0<Q0Q10QSJ.,.+QU-QSFB^EQ0;
|
||||
%0-:Q8"EONOQUOTE'>Q0Q1U0QSJQ0IQC-1JI@2%T2%U!F0!QTJQ0IQU-QTCQ0I
|
||||
0U1O..!A!Q01.UC.USQ1"T0A1D':S^EQ1"UOSTRINGFAIL'-D.UTOAA!C!
|
||||
::S^EGC"UOA'R.UCQ01Q1"T0A1D':S^EQ1"UOSTRINGFAIL'QC-1,.K0U1O..
|
||||
!E!271.UC0AU0CQ0"VQ0-32U0-DQ0I'Q0- B"EO$$'Q0- G"EO$$'Q0- I"EO$$'
|
||||
Q0- N"EO$$'Q0- R"EO$$'Q0- W"EO$$'Q0- _"EO$$'O.!Z!-DI^ZO..>Q1"T
|
||||
1Trailing, pending @OERROR'0U10"N!OFFEND!
|
||||
1End of buffer while sub-squishingOERROR!NOQUOTE!
|
||||
1Can't find a quote characterOSETPOS!PRIORFAIL!
|
||||
1Prior recursion level failedOSETPOS!STRINGFAIL!
|
||||
1Unterminated string!SETPOS!:1 from squished .=QC\:X1K13:1
|
||||
10:1QCJ0+.,.:X1 |:110:1 |:1.,+.:X1!ERROR!ZJMW0,0XW7 ?:G17
|
||||
1310-1U1'Q1]1*@A*-1E.-ZQO"NZJI 'JMZ"EQO"N:QW"N-1,3:W0,4:W
|
||||
0,5:W'J<MW<0A&128"N0;'C>0A&127-13"ED'D.-Z;.U0<0A&128"N0;'C><.U10L
|
||||
.-Q0-1"L0;'R>Q1J-(0)-QO"GQ0J-1A-27"EI 'I
|
||||
'><ZJ-Z;-1A-10"N-1A-13"N-1A-32"N0;'''-D>MW'QH"FZJ."E10I'-1A-10"N10I
|
||||
'R."E13I'-1A-13"N13I''ZJ:QW"N0:W-4"E2,0:W'-1,3:W0,4:WMW'|
|
||||
?Squish run failed; aborting any output
|
||||
0,0XF'0*Z"EIFile <.TES or .TEC>? QMRGQ'0,0XR0,0XQEIMF0,0XFZ"E
|
||||
Enter your macro then type MA$$
|
||||
|J:@FS%=%%"SFEW0,.:XF.UF-:S."U:F.TEC'QFJ27:FQB"TET&64"E:F
|
||||
Creating ":G*"
|
||||
''0,.K'J:S."UZJI.TESHXQ:ER^EQQ"U-FS.TES.TEC''HXQHKER^EQQQB"T
|
||||
ET&64"ESquishing ":G*"
|
||||
'':QF"EY128,0ET<"TZJ12I':A;>MAMP|YQB"F128,0ET'"T"TZJ12I'MAMFHPW
|
||||
HK|MF<"TZJ12I'MAHPWHK:Y;>'EFEX''
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,9 @@
|
|||
:EN*.DIR"FNo subdirectories1310^C'
|
||||
|
||||
<:EN"FOL1'G*I
|
||||
>!L1!J:S]"FNo subdirectories
|
||||
^C'
|
||||
Subdirectories of 0T
|
||||
|
||||
-C0,.XAJ<FS].;FS.DIR;1];L>J< :S:"F^C'T-6C.U1I:ENL-2CI*.DIR27II"FOL327II'<:EN27II"FOL227II'I27IIG*27II0LFS]27II.27IIFS.27II]27II0L S:27II.U1S]27IIQ1,.T
|
||||
SR;127II0,.K>!L3!^C27II!L2!0,.XN0,.KMNL>
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
10u.n ! put 10 in main-level q-register .n !
|
||||
@^U1/20u.n:m2/27:^U1 ! put 20u.n$:m2$$ in q-register 1 !
|
||||
@^U2/:m3/27:^U2 ! put :m3$$ in q-register 2 !
|
||||
@^U3/q.n=/27:^U3 ! put q.n=$$ into q-register 3 !
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,92 @@
|
|||
|
||||
Test the backslash command
|
||||
|
||||
|
||||
! test 1: \ to get a number that's terminated by end-of-edit-buffer
|
||||
test 2: \ to get a number that's terminated by characters
|
||||
test 3: \ to get a number that's preceded by a unary plus
|
||||
test 4: \ to get a number that's preceded by a unary minus
|
||||
test 5: \ to write a digit string into the edit buffer
|
||||
!
|
||||
|
||||
i1234
|
||||
|
||||
js1j ! set ^S to 1, to be sure the backslash sets it !
|
||||
\-1234"e
|
||||
.-4"e
|
||||
^s+4"e
|
||||
test 1 passed13^T10^T
|
||||
|
|
||||
test 1 failed, ^s is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 1 failed, dot is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 1 failed, should be 123413^T10^T
|
||||
'
|
||||
|
||||
hki1234xyz
|
||||
|
||||
js1j ! set ^S to 1, to be sure the backslash sets it !
|
||||
\-1234"e
|
||||
.-4"e
|
||||
^s+4"e
|
||||
test 2 passed13^T10^T
|
||||
|
|
||||
test 2 failed, ^s is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 2 failed, dot is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 2 failed, should be 123413^T10^T
|
||||
'
|
||||
|
||||
hki+1234xyz
|
||||
|
||||
js1j ! set ^S to 1, to be sure the backslash sets it !
|
||||
\-1234"e
|
||||
.-5"e
|
||||
^s+5"e
|
||||
test 3 passed13^T10^T
|
||||
|
|
||||
test 3 failed, ^s is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 3 failed, dot is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 3 failed, should be 123413^T10^T
|
||||
'
|
||||
|
||||
hki-1234xyz
|
||||
|
||||
js1j ! set ^S to 1, to be sure the backslash sets it !
|
||||
\+1234"e
|
||||
.-5"e
|
||||
^s+5"e
|
||||
test 4 passed13^T10^T
|
||||
|
|
||||
test 4 failed, ^s is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 4 failed, dot is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 4 failed, should be 123413^T10^T
|
||||
'
|
||||
|
||||
hk
|
||||
i1js1jhk ! set ^S to 1, to be sure the backslash sets it !
|
||||
1234\j::s1234"s
|
||||
^s+4"e
|
||||
test 5 passed13^T10^T
|
||||
|
|
||||
test 5 failed, ^s is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 5 failed.13^T10^T
|
||||
'
|
||||
|
||||
hkex
|
||||
|
|
@ -0,0 +1,73 @@
|
|||
|
||||
Test the ::S command
|
||||
|
||||
|
||||
! test 1: 1-character argument
|
||||
test 2: 2-character argument
|
||||
test 3: 3-character argument last char on end-of-buffer
|
||||
test 4: no argument: use same one as test 3
|
||||
test 5: 3-character argument that can't be found
|
||||
!
|
||||
iabcdef
|
||||
3j::sd"s
|
||||
.-4"e
|
||||
^s+1"e
|
||||
test 1 passed1310
|
||||
|
|
||||
test 1 failed, ^S is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 1 failed, dot is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 1 failed, search failed13^t10^T
|
||||
'
|
||||
3j::sde"s
|
||||
.-5"e
|
||||
^s+2"e
|
||||
test 2 passed1310
|
||||
|
|
||||
test 2 failed, ^S is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 2 failed, dot is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 2 failed, search failed13^t10^T
|
||||
'
|
||||
3j::sdef"s
|
||||
.-6"e
|
||||
^s+3"e
|
||||
test 3 passed1310
|
||||
|
|
||||
test 3 failed, ^S is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 3 failed, dot is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 3 failed, search failed13^t10^T
|
||||
'
|
||||
3j::s"s
|
||||
.-6"e
|
||||
^s+3"e
|
||||
test 4 passed1310
|
||||
|
|
||||
test 4 failed, ^S is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 4 failed, dot is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 4 failed, search failed13^t10^T
|
||||
'
|
||||
3j::sabc"f
|
||||
.-3"e
|
||||
test 5 passed1310
|
||||
|
|
||||
test 5 failed, dot is wrong13^T10^T
|
||||
'
|
||||
|
|
||||
test 5 succeeded, search failed13^t10^T
|
||||
'
|
||||
hkex
|
||||
|
|
@ -0,0 +1,102 @@
|
|||
|
||||
This file tests the =, ==, ===, :=, :== and :=== commands.
|
||||
It is dependent on the size in bytes of the variables used to
|
||||
hold TECO numbers. This test gives the results to be expected
|
||||
for a 16-bit implementation like TECO-11 and a 32-bit implementation
|
||||
like TECO-C on a VAX.
|
||||
|
||||
Please strike any key to continue, or ^A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
|
||||
Test of = command. You should see
|
||||
|
||||
(16-bit implementation) (32-bit implementation)
|
||||
|
||||
-31072 100000
|
||||
2 2
|
||||
1 1
|
||||
0 0
|
||||
-1 -1
|
||||
-2 -2
|
||||
31072 -100000
|
||||
|
||||
|
||||
100000=2=1=0=-1=-2=-100000=
|
||||
|
||||
Please strike any key to continue, or ^A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test of == command. You should see
|
||||
|
||||
(16-bit implementation) (32-bit implementation)
|
||||
|
||||
72460 72460
|
||||
2 2
|
||||
1 1
|
||||
0 0
|
||||
177777 37777777777
|
||||
177776 37777777776
|
||||
105320 37777705320
|
||||
|
||||
|
||||
30000==2==1==0==-1==-2==-30000==
|
||||
|
||||
Please strike any key to continue, or ^A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test of === command. You should see
|
||||
|
||||
(16-bit implementation) (32-bit implementation)
|
||||
|
||||
7530 7530
|
||||
2 2
|
||||
1 1
|
||||
0 0
|
||||
FFFF FFFFFFFF
|
||||
FFFE FFFFFFFE
|
||||
8AD0 FFFF8AD0
|
||||
|
||||
|
||||
30000===2===1===0===-1===-2===-30000===
|
||||
|
||||
Please strike any key to continue, or ^A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test of := command. You should see
|
||||
|
||||
30000,2,1,0,-1,-2,-30000 (16 or 32 bit implementation)
|
||||
|
||||
|
||||
30000:=,2:=,1:=,0:=,-1:=,-2:=,-30000:=
|
||||
|
||||
|
||||
Please strike any key to continue, or ^A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test of :== command. You should see
|
||||
|
||||
72460,2,1,0,177777,177776,105320 (16 bit implementation)
|
||||
72460,2,1,0,37777777777,37777777776,37777705320 (32 bit implementation)
|
||||
|
||||
|
||||
30000:==,2:==,1:==,0:==,-1:==,-2:==,-30000:==
|
||||
|
||||
|
||||
Please strike any key to continue, or ^A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test of :=== command. You should see
|
||||
|
||||
7530,2,1,0,FFFF,FFFE,8AD0 (16 bit implementation)
|
||||
7350,2,1,0,FFFFFFFF,FFFFFFFE,FFFF8AD0 (32 bit implementation)
|
||||
|
||||
|
||||
30000:===,2:===,1:===,0:===,-1:===,-2:===,-30000:===
|
||||
ex
|
||||
|
|
@ -0,0 +1,129 @@
|
|||
|
||||
Test the O command.
|
||||
|
||||
|
||||
!
|
||||
Testing jump commands is a little hairy. I do it by setting a
|
||||
state variable. At every label, I test that we're in the proper state.
|
||||
!
|
||||
1us@O!test1!
|
||||
|
||||
!tag2!
|
||||
qs-4"e
|
||||
test 4 passed (jumping to 3rd (last) tag in a list works)13^T10^T
|
||||
|
|
||||
reached tag2 by mistake, terminating.13^T10^Todone
|
||||
|
||||
'
|
||||
5usOtest5
|
||||
|
||||
|
||||
!tag1!
|
||||
qs-3"e
|
||||
test 3 passed (jumping to 2nd (middle) tag in a list works)13^T10^T
|
||||
|
|
||||
reached tag1 by mistake, terminating.13^T10^Todone
|
||||
|
||||
'
|
||||
4us2@O!tag0,tag1,tag2!
|
||||
|
||||
!tag0!
|
||||
qs-2"e
|
||||
test 2 passed (jumping to 0th (first) tag in a list works)13^T10^T
|
||||
|
|
||||
reached tag0 by mistake, terminating.13^T10^Todone
|
||||
|
||||
'
|
||||
3us1@O!tag0,tag1,tag2!
|
||||
|
||||
|
||||
!test1!
|
||||
qs-1"e
|
||||
test 1 passed (a simple jump works)13^T10^T
|
||||
|
|
||||
reached test1 by mistake, terminating.13^T10^Todone
|
||||
|
||||
'
|
||||
2us0@O!tag0,tag1,tag2!
|
||||
|
||||
|
||||
|
||||
|
||||
!test5!
|
||||
qs-5"e
|
||||
test 5 passed (another simple jump, escape-terminated)13^T10^T
|
||||
|
|
||||
reached test5 by mistake, terminating.13^T10^Todone
|
||||
|
||||
'
|
||||
|
||||
6us3@O!tag0,tag1,tag2!
|
||||
qs-6"e
|
||||
test 6 passed (too large tag index causes fall through)13^T10^T
|
||||
|
|
||||
test 6 failed, 13^T10^T
|
||||
'
|
||||
|
||||
7us-1@O!tag0,tag1,tag2!
|
||||
qs-7"e
|
||||
test 7 passed (too small tag index causes fall through)13^T10^T
|
||||
|
|
||||
test 7 failed, 13^T10^T
|
||||
'
|
||||
|
||||
8us2@O!tag0,tag1,,tag2!
|
||||
qs-8"e
|
||||
test 8 passed (an index to a null tag causes fall through)13^T10^T
|
||||
|
|
||||
test 8 failed, 13^T10^T
|
||||
'
|
||||
9us3@O!tag0,tag1,,test9!
|
||||
test 9 failed, 13^T10^T
|
||||
10usotest10
|
||||
|
||||
|
||||
!test9!
|
||||
qs-9"e
|
||||
test 9 passed (index to tag past null tag works)13^T10^T
|
||||
|
|
||||
test 9 failed, 13^T10^T
|
||||
'
|
||||
10us2@O!,,test10!
|
||||
|
||||
test 9 failed, 13^T10^T
|
||||
10usotest10
|
||||
|
||||
!test10!
|
||||
qs-10"e
|
||||
test 10 passed (index to tag past 2 null tags works)13^T10^T
|
||||
|
|
||||
test 10 failed, 13^T10^T
|
||||
'
|
||||
|
||||
11us
|
||||
|
||||
<
|
||||
<
|
||||
<
|
||||
<
|
||||
@O!endloop2!
|
||||
>
|
||||
>
|
||||
>
|
||||
!endloop2!
|
||||
qs-11"e
|
||||
test 11 passed (jumping from inner to outer loop works)13^T10^T
|
||||
12us@O!done!
|
||||
|
|
||||
reached endloop2 by mistake, terminating.13^T10^Todone
|
||||
|
||||
'
|
||||
>
|
||||
|
||||
!done!
|
||||
qs-12"e
|
||||
test 12 passed (jumping completely out of nested loops works)13^T10^T
|
||||
|
|
||||
test 12 failed, 13^T10^T
|
||||
'
|
||||
ex
|
||||
|
|
@ -0,0 +1,120 @@
|
|||
ei
|
||||
Test q-register commands
|
||||
|
||||
|
||||
|
||||
1uaqa-1"nobadtest1'
|
||||
2ubqb-2"nobadtest1'
|
||||
3ucqc-3"nobadtest1'
|
||||
4udqd-4"nobadtest1'
|
||||
5ueqe-5"nobadtest1'
|
||||
6ufqf-6"nobadtest1'
|
||||
7ugqg-7"nobadtest1'
|
||||
8uhqh-8"nobadtest1'
|
||||
9uiqi-9"nobadtest1'
|
||||
10ujqj-10"nobadtest1'
|
||||
11ukqk-11"nobadtest1'
|
||||
12ulql-12"nobadtest1'
|
||||
13umqm-13"nobadtest1'
|
||||
14unqn-14"nobadtest1'
|
||||
15uoqo-15"nobadtest1'
|
||||
16upqp-16"nobadtest1'
|
||||
17uqqq-17"nobadtest1'
|
||||
18urqr-18"nobadtest1'
|
||||
19usqs-19"nobadtest1'
|
||||
20utqt-20"nobadtest1'
|
||||
21uuqu-21"nobadtest1'
|
||||
22uvqv-22"nobadtest1'
|
||||
23uwqw-23"nobadtest1'
|
||||
24uxqx-24"nobadtest1'
|
||||
25uyqy-25"nobadtest1'
|
||||
26uzqz-26"nobadtest1'
|
||||
1uAqA-1"nobadtest1'
|
||||
2uBqB-2"nobadtest1'
|
||||
3uCqC-3"nobadtest1'
|
||||
4uDqD-4"nobadtest1'
|
||||
5uEqE-5"nobadtest1'
|
||||
6uFqF-6"nobadtest1'
|
||||
7uGqG-7"nobadtest1'
|
||||
8uHqH-8"nobadtest1'
|
||||
9uIqI-9"nobadtest1'
|
||||
10uJqJ-10"nobadtest1'
|
||||
11uKqK-11"nobadtest1'
|
||||
12uLqL-12"nobadtest1'
|
||||
13uMqM-13"nobadtest1'
|
||||
14uNqN-14"nobadtest1'
|
||||
15uOqO-15"nobadtest1'
|
||||
16uPqP-16"nobadtest1'
|
||||
17uQqQ-17"nobadtest1'
|
||||
18uRqR-18"nobadtest1'
|
||||
19uSqS-19"nobadtest1'
|
||||
20uTqT-20"nobadtest1'
|
||||
21uUqU-21"nobadtest1'
|
||||
22uVqV-22"nobadtest1'
|
||||
23uWqW-23"nobadtest1'
|
||||
24uXqX-24"nobadtest1'
|
||||
25uYqY-25"nobadtest1'
|
||||
26uZqZ-26"nobadtest1'
|
||||
-9u0q0+9"nobadtest1'
|
||||
-8u1q1+8"nobadtest1'
|
||||
-7u2q2+7"nobadtest1'
|
||||
-6u3q3+6"nobadtest1'
|
||||
-5u4q4+5"nobadtest1'
|
||||
-4u5q5+4"nobadtest1'
|
||||
-3u6q6+3"nobadtest1'
|
||||
-2u7q7+2"nobadtest1'
|
||||
-1u8q8+1"nobadtest1'
|
||||
0u9q9"nobadtest1'
|
||||
101,102ua-101"nobadtest1'qa-102"nobadtest1'
|
||||
test 1 passed (basic U and Q commands work)13^T10^T
|
||||
otest1done
|
||||
|
||||
!badtest1!
|
||||
test 1 failed.13^T10^T
|
||||
!test1done!
|
||||
|
||||
10ua5ub2uc(qa+qb+qc)-17"e
|
||||
test 2 passed (q-registers seem to work in expressions)13^T10^T
|
||||
|
|
||||
test 2 failed13^T10^T
|
||||
'
|
||||
|
||||
! This test helps to see what's really supposed to happen in TECO when
|
||||
you do a :M command and then refer to local q-registers in the macro.
|
||||
The correct behavior is to use the local q-registers from the previous
|
||||
macro level, if there are any. If not, use the ones from the previous
|
||||
level, etc. The test verifies that three levels deep, values from
|
||||
level 1 can be accessed if no intervening levels have local q-registers.
|
||||
!
|
||||
10u.n ! put 10 in main-level q-register .n !
|
||||
@^U1/20u.n:m2/ ! put 20u.n$:m2$$ in q-register 1 !
|
||||
27:^U1
|
||||
@^U2/:m3/ ! put :m3$$ in q-register 2 !
|
||||
27:^U2
|
||||
@^U3/q.n/ ! put q.n$$ into q-register 3 !
|
||||
27:^U3
|
||||
m1+q.n-30"e
|
||||
test 3 passed (:M commands use old local q-registers)13^T10^T
|
||||
|
|
||||
test 3 failed13^T10^T
|
||||
'
|
||||
:m1+q.n-40"e
|
||||
test 4 passed (:M commands use old local q-registers)13^T10^T
|
||||
|
|
||||
test 4 failed13^T10^T
|
||||
'
|
||||
! If local macros are called, the : modifier is assumed (no local regs) !
|
||||
|
||||
10u.n ! put 10 in main-level q-register .n !
|
||||
@^U1/20u.nm.2/ ! put 20u.n$m.2$$ in q-register .1 !
|
||||
27:^U1
|
||||
@^U.2/m.3/ ! put m.3$$ in q-register .2 !
|
||||
27:^U.2
|
||||
@^U.3/q.n/ ! put q.n$$ into q-register .3 !
|
||||
27:^U.3
|
||||
:m1+q.n-40"e
|
||||
test 5 passed (M. commands use old local q-registers)13^T10^T
|
||||
|
|
||||
test 5 failed13^T10^T
|
||||
'
|
||||
ex
|
||||
|
|
@ -0,0 +1,544 @@
|
|||
|
||||
|
||||
This file tests search commands.
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test some simple searches
|
||||
|
||||
|
||||
hk iabcdefghi j
|
||||
forward search for 1st char sa .-1"e passed
|
||||
| failed!!!
|
||||
'
|
||||
forward search for 4th char sd .-4"e passed
|
||||
| failed!!!
|
||||
'
|
||||
forward search for last char si .-9"e passed
|
||||
| failed!!!
|
||||
'
|
||||
backwards search for 4th char -sd .-4"e passed
|
||||
| failed!!!
|
||||
'
|
||||
backwards search for 1st char -sa .-1"e passed
|
||||
| failed!!!
|
||||
'
|
||||
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test the ^Ea match construct
|
||||
|
||||
|
||||
test 1 jsa .-1"e passed
|
||||
| failed!!!
|
||||
'
|
||||
test 2 jsba .-3"e passed
|
||||
| failed!!!
|
||||
'
|
||||
test 3 jsha .-9"e passed
|
||||
| failed!!!
|
||||
'
|
||||
test 4 jsbad .-4"e passed
|
||||
| failed!!!
|
||||
'
|
||||
test 5 jsbaaa .-5"e passed
|
||||
| failed!!!
|
||||
'
|
||||
test 6 jsaaaaaaaaa .-9"e passed
|
||||
| failed!!!
|
||||
'
|
||||
hk
|
||||
0i1i2i3i4i5i6i7i8i9i10i11i12i13i14i15i16i17i
|
||||
18i19i20i21i22i23i24i25i26i27i28i29i30i31i
|
||||
i !"#$%&'()*+,-./0123456789:;<=>?@[\]^_`{|}~127iiA
|
||||
test 7 jsa .-77"e passed
|
||||
| failed!!!
|
||||
'
|
||||
|
||||
Test the ^Eb match construct
|
||||
|
||||
|
||||
hki!@#$%&*()
|
||||
jsb.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
js!b.-2"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
js(b.-9"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
js!b#.-3"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
js!bbb.-4"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
jsbbbbbbbbb.-9"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
hkiABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!
|
||||
jsb.-63"etest 7 passed
|
||||
|test 7 failed!!!
|
||||
'
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test the ^Ec match construct
|
||||
|
||||
|
||||
hkiabcdefghi
|
||||
jsc.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
jsbc.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
jshc.-9"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
jsbcd.-4"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
jsbccc.-5"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
jsccccccccc.-9"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
hk0i1i2i3i4i5i6i7i8i9i10i11i12i13i14i15i16i17i
|
||||
18i19i20i21i22i23i24i25i26i27i28i29i30i31i
|
||||
i !"#%&'()*+,-/:;<=>?@[\]^`{|}~127iiA
|
||||
jsc.-64"etest 7 passed
|
||||
|test 7 failed!!!
|
||||
'
|
||||
hki0123456789$.
|
||||
jscccccccccccc.-12"etest 8 passed
|
||||
|test 8 failed!!!
|
||||
'
|
||||
|
||||
Test the ^Ed match construct
|
||||
|
||||
|
||||
hki0123456789
|
||||
jsd.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
js1d.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
js8d.-10"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
js2d4.-5"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
js2ddd.-6"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
jsdddddddddd.-10"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
hk0i1i2i3i4i5i6i7i8i9i10i11i12i13i14i15i16i17i
|
||||
18i19i20i21i22i23i24i25i26i27i28i29i30i31i
|
||||
i !"#$%&'()*+,-./:;<=>?@ABCDEFGHIJKLMNOPQRSTU
|
||||
iVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~127ii0
|
||||
jsd.-119"etest 7 passed
|
||||
|test 7 failed!!!
|
||||
'
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test the ^Eg match construct
|
||||
|
||||
|
||||
^Uadef
|
||||
hkiabcdefghi
|
||||
jsGa.-4"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
0^Ua1:^Ua2:^Ua3:^Ua4:^Ua5:^Ua6:^Ua7:^Ua8:^Ua9:^Ua10:^Ua11:^Ua
|
||||
12:^Ua13:^Ua14:^Ua15:^Ua16:^Ua17:^Ua18:^Ua19:^Ua20:^Ua21:^Ua
|
||||
22:^Ua23:^Ua24:^Ua25:^Ua26:^Ua27:^Ua28:^Ua29:^Ua30:^Ua31:^Ua
|
||||
:^Ua !"#$%&'()*+,-./0123456789:;<=>?@JKLMNOPQRSTU
|
||||
:^UaVWXYZ[\]^_`jklmnopqrstuvwxyz{|}127i
|
||||
j:sga"ftest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
hkiabcdefghi@
|
||||
jsga.-10"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
hki@
|
||||
jsga.-1"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
|
||||
Test the ^El match construct
|
||||
|
||||
|
||||
|
||||
!10 is line feed, 11 is vertical tab, 12 is form feed!
|
||||
|
||||
hk10i10i10i10i10i10i10i10i11i12i
|
||||
jsl.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
hkixx10i10i10i10i10i10i10i11i12i
|
||||
jsxxl.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
hkixxxxxxxx11i12i
|
||||
js l.-10"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
hk10i10i10i10i10i10i10i10i11i12i
|
||||
jsllllllllll.-10"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
hk0i1i2i3i4i5i6i7i8i9i13i14i15i16i17i18i19i20i21i22i
|
||||
23i24i25i26i27i28i29i30i31i
|
||||
i !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU
|
||||
iVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~127i12i
|
||||
jsl.-126"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test the ^Er match construct
|
||||
|
||||
|
||||
hki0123456789
|
||||
jsr.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
js1r.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
js8r.-10"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
js2r4.-5"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
js2rrr.-6"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
jsrrrrrrrrrr.-10"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
hk0i1i2i3i4i5i6i7i8i9i10i11i12i13i14i15i16i17i
|
||||
18i19i20i21i22i23i24i25i26i27i28i29i30i31i
|
||||
i !"#$%&'()*+,-./:;<=>?@[\]^_`{|}~127iia
|
||||
jsr.-67"etest 7 passed
|
||||
|test 7 failed!!!
|
||||
'
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test the ^Es match construct
|
||||
|
||||
|
||||
hki
|
||||
jss.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
hkiab cde
|
||||
jsbs.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
hkiab de
|
||||
jss.-7"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
hkiab de
|
||||
jsbsd.-4"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
hkiab de
|
||||
jsbsd.-11"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
hk0i1i2i3i4i5i6i7i8i10i11i12i13i14i15i16i17i18i
|
||||
19i20i21i22i23i24i25i26i27i28i29i30i31i
|
||||
i!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ
|
||||
i[\]^_`abcdefghijklmnopqrstuvwxyz{|}~127ii
|
||||
jss.-127"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
|
||||
Test the ^Ev match construct
|
||||
|
||||
|
||||
hkiabcdefghij
|
||||
jsv.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
jsabv.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
jsiv.-10"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
jsbvd.-4"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
jsbvvv.-5"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
jsvvvvvvvvvv.-10"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
hk0i1i2i3i4i5i6i7i8i9i10i11i12i13i14i15i16i17i
|
||||
18i19i20i21i22i23i24i25i26i27i28i29i30i31i
|
||||
i !"#$%&'()*+,-./:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`{|}~127iia
|
||||
jsv.-93"etest 7 passed
|
||||
|test 7 failed!!!
|
||||
'
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test the ^Ew match construct
|
||||
|
||||
|
||||
hkiABCDEFGHIJ
|
||||
jsw.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
jsabw.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
jsiw.-10"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
jsbwd.-4"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
jsbwww.-5"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
jswwwwwwwwww.-10"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
hk0i1i2i3i4i5i6i7i8i9i10i11i12i13i14i15i16i17i
|
||||
18i19i20i21i22i23i24i25i26i27i28i29i30i31i
|
||||
i !"#$%&'()*+,-./:;<=>?@[\]^_`abcdefghijklmnopqrstuvwxyz{|}~127iiA
|
||||
jsw.-93"etest 7 passed
|
||||
|test 7 failed!!!
|
||||
'
|
||||
|
||||
Test the ^Ex match construct
|
||||
|
||||
|
||||
hki0123456789
|
||||
jsx.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
js1x.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
js8x.-10"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
js2x4.-5"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
js2xxx.-6"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
jsxxxxxxxxxx.-10"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test the ^N match construct
|
||||
|
||||
|
||||
hkiaaaaaaaaab
|
||||
jsa.-10"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
jsa^Na.-10"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
hkiAAAbAAA
|
||||
jsaaa.-5"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
hki0123456789x9876543210
|
||||
jsd.-11"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
hkiABCDEFGHIJKLMNOPQRSTUVWXYZaZZZZZ
|
||||
js^N^EW.-27"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
hkiabcdefghijklmnopqrstuvwxyz#oooo
|
||||
jsv.-27"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
|
||||
Test the ^S match construct
|
||||
|
||||
|
||||
hki!@#$%&*()
|
||||
js^S.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
js!^S.-2"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
js(^S.-9"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
js!^S#.-3"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
js!^S^S^S.-4"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
js^S^S^S^S^S^S^S^S^S.-9"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
hkiABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!
|
||||
js^S.-63"etest 7 passed
|
||||
|test 7 failed!!!
|
||||
'
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test the ^X match construct
|
||||
|
||||
|
||||
hki0123456789
|
||||
js^X.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
js1^X.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
js8^X.-10"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
js2^X4.-5"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
js2^x^x^x.-6"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
js^X^x^x^X^X^X^X^X^X^X.-10"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
|
||||
The remaining tests test features not found in TECO-11.
|
||||
|
||||
eo-99"lexiting.
|
||||
oexit'
|
||||
|
||||
Test the ^Em match construct
|
||||
|
||||
|
||||
hkiabcdefghi
|
||||
jsma.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
jsmd.-4"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
jsmi.-9"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
hkiabbbbbc
|
||||
jsmb.-6"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
jsa^Embc.-7"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
jsabbbbb^Emc.-7"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
|
||||
Test the ^E<nnn> match construct
|
||||
|
||||
|
||||
hkiabcdefghi
|
||||
js<141>.-1"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
jsb<143>.-3"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
jsh<151>.-9"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
jsb<143>d.-4"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
jsb<143><144><145>.-5"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
js<141><142><143><144><145><146><147><150><151>.-9"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
hk0i1i2i3i4i5i6i7i8i9i10i11i12i13i14i15i16i17i
|
||||
18i19i20i21i22i23i24i25i26i27i28i29i30i31i
|
||||
i !"#$&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU
|
||||
iVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~127ii%
|
||||
js<45>.-128"etest 7 passed
|
||||
|test 7 failed!!!
|
||||
'
|
||||
|
||||
Please press the space bar to continue, or CTRL-A to exit
|
||||
|
||||
-1"eex'
|
||||
|
||||
Test the ^E[a,b,c...] match construct ???
|
||||
|
||||
|
||||
hki!@#$%&*()
|
||||
js[a,b,%,d].-5"etest 1 passed
|
||||
|test 1 failed!!!
|
||||
'
|
||||
js![a,b,c,@].-2"etest 2 passed
|
||||
|test 2 failed!!!
|
||||
'
|
||||
js([)].-9"etest 3 passed
|
||||
|test 3 failed!!!
|
||||
'
|
||||
js![a,b,c,d,e,f,g,h,i,j,k,l,m,@]#.-3"etest 4 passed
|
||||
|test 4 failed!!!
|
||||
'
|
||||
js!^S^S^S.-4"etest 5 passed
|
||||
|test 5 failed!!!
|
||||
'
|
||||
js^S^S^S^S^S^S^S^S^S.-9"etest 6 passed
|
||||
|test 6 failed!!!
|
||||
'
|
||||
hkiABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!
|
||||
js^S.-63"etest 7 passed
|
||||
|test 7 failed!!!
|
||||
'
|
||||
!exit!
|
||||
ex
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
[i@^U.c/i
|
||||
/27:^U.c@^U.i/qi<i >/27:^U.i27u.e0ui<z-."e1;'0u.a0u.d0u.s!c!0a"ecf<'0a-^^"ecsm.cm.if<'0a-^^"ec-1u.doc'0a-^^"ecm.cm.if<'0a-^^"ecm.cm.if<'0a-^^"ec-1u.doc'0a-^^"e2cm.cm.if<'0a-8"ec-1u.doc'0a-9"esu.em.cm.if<'0a-^^"ec-1u.doc'0a-^^"ecm.cm.if<'0a-^^"ec-1u.doc'0a-^^"ecq.d"tm.cm.if<|-1u.doc''0a-^^"ec-1u.doc'0a-^^"ecq.d"tm.cm.if<|-1u.doc''0a-^^"esu.em.cm.if<'0a-^^"ecm.cm.if<'0a-^^"ecm.cm.if<'0a-^^"ecq.d"tm.cm.if<|-1u.doc''0a-^^"ec-1u.doc'0a-27"ecm.cm.if<'0a-^^!"ecs!m.cm.if<'0a-^^""e2cm.c%im.if<'0a-^^%"e2c-1u.doc'0a-^^'"e-4dc-1%im.cm.if<'0a-^^@"ec-1q.aoc'0a-^^|"e-4dcm.cm.if<'0a-^^."ec-1u.doc'0a-^^;"ecm.cm.if<'0a-^^<"e2cm.c%im.if<'0a-^^>"ec-1%im.cm.if<'0a-^^["e2cm.cm.if<'0a-^^]"e2cm.cm.if<'0a-47"g0a-58"lc-1u.doc'
|
||||
0a-^^a"ecm.cm.if<'0a-^^A"ecm.cm.if<'0a-^^b"ec-1u.doc'0a-^^B"ec-1u.doc'0a-^^c"ecm.cm.if<'0a-^^C"ecm.cm.if<'0a-^^d"ecm.cm.if<'0a-^^D"ecm.cm.if<'0a-^^e"eoe'0a-^^E"eoe'0a-^^f"eof'0a-^^F"eof'0a-^^g"e2cm.cm.if<'0a-^^G"e2cm.cm.if<'0a-^^h"ecf<'0a-^^H"ecf<'0a-^^i"esu.em.cm.if<'0a-^^I"esu.em.cm.if<'0a-^^j"ecm.cm.if<'0a-^^J"ecm.cm.if<'0a-^^k"ecm.cm.if<'0a-^^K"ecm.cm.if<'0a-^^l"ecm.cm.if<'0a-^^L"ecm.cm.if<'0a-^^m"e2cm.cm.if<'0a-^^M"e2cm.cm.if<'0a-^^n"esu.em.cm.if<'0a-^^N"esu.em.cm.if<'0a-^^o"esu.em.cm.if<'0a-^^O"esu.em.cm.if<'0a-^^q"e2c-1u.doc'0a-^^Q"e2c-1u.doc'0a-^^r"ecm.cm.if<'0a-^^R"ecm.cm.if<'0a-^^s"esu.em.cm.if<'0a-^^S"esu.em.cm.if<'0a-^^t"ecm.cm.if<'0a-^^T"ecm.cm.if<'0a-^^u"e2cm.cm.if<'0a-^^U"e2cm.cm.if<'0a-^^v"ecm.cm.if<'
|
||||
0a-^^V"ecm.cm.if<'0a-^^w"ecm.cm.if<'0a-^^W"ecm.cm.if<'0a-^^x"e2cm.cm.if<'0a-^^X"e2cm.cm.if<'0a-^^y"ecm.cm.if<'0a-^^Y"ecm.cm.if<'0a-^^z"ec-1u.doc'0a-^^Z"ec-1u.doc'cf<!e!c0a-^^a"ecm.cm.if<'0A-^^a"ecm.cm.if<'0a-^^b"esu.em.cm.if<'0a-^^B"esu.em.cm.if<'0a-^^c"ecm.cm.if<'0a-^^C"ecm.cm.if<'0a-^^d"ecq.d"tm.cm.if<|-1u.doc''0a-^^D"ecq.d"tm.cm.if<|-1u.doc''0a-^^f"ecm.cm.if<'0a-^^F"ecm.cm.if<'0a-^^g"esu.em.cm.if<'0a-^^G"esu.em.cm.if<'0a-^^h"ecq.d"tm.cm.if<|-1u.doc''0a-^^H"ecq.d"tm.cm.if<|-1u.doc''0a-^^i"esu.em.cm.if<'0a-^^I"esu.em.cm.if<'0a-^^j"ec-1u.doc''0a-^^J"ec-1u.doc''0a-^^k"ecm.cm.if<'0a-^^K"ecm.cm.if<'0a-^^n"esu.em.cm.if<'0a-^^N"esu.em.cm.if<'0a-^^o"ec-1u.doc''0a-^^O"ec-1u.doc''0a-^^p"ecm.cm.if<'0a-^^P"ecm.cm.if<'
|
||||
0a-^^q"ecm.cm.if<'0a-^^Q"ecm.cm.if<'0a-^^r"esu.em.cm.if<'0a-^^R"esu.em.cm.if<'0a-^^s"ecq.d"tm.cm.if<|-1u.doc''0a-^^S"ecq.d"tm.cm.if<|-1u.doc''0a-^^t"ecq.d"tm.cm.if<|-1u.doc''0a-^^T"ecq.d"tm.cm.if<|-1u.doc''0a-^^u"ecq.d"tm.cm.if<|-1u.doc''0a-^^U"ecq.d"tm.cm.if<|-1u.doc''0a-^^v"ecq.d"tm.cm.if<|-1u.doc''0a-^^V"ecq.d"tm.cm.if<|-1u.doc''0a-^^w"esu.em.cm.if<'0a-^^W"esu.em.cm.if<'0a-^^x"ecm.cm.if<'0a-^^X"ecm.cm.if<'cf<!f!c0a-^^'"ecm.cm.if<'0a-^^<"ecm.cm.if<'0a-^^>"ecm.cm.if<'0a-^^|"ecm.cm.if<'0a-^^b"esu.em.cm.if<'0a-^^B"esu.em.cm.if<'0a-^^c"esu.esu.em.cm.if<'0a-^^C"esu.esu.em.cm.if<'0a-^^d"esu.em.cm.if<'0a-^^D"esu.em.cm.if<'0a-^^n"esu.esu.em.cm.if<'0a-^^N"esu.esu.em.cm.if<'0a-^^r"esu.em.cm.if<'0a-^^R"esu.em.cm.if<'
|
||||
0a-^^s"esu.esu.em.cm.if<'0a-^^S"esu.esu.em.cm.if<'0a-^^_"esu.esu.em.cm.if<'c>[i
|
||||
|
|
@ -0,0 +1,187 @@
|
|||
! This TECO macro indents TECO code to help make it readable
|
||||
|
||||
It does NOT handle @-modified commands correctly or caret-preceeded commands.
|
||||
|
||||
Q-REGISTERS USED:
|
||||
|
||||
q-register usage
|
||||
|
||||
.a true if @-sign modified
|
||||
.c (text) insert carriage return/line feed
|
||||
.d true if numeric argument
|
||||
.i (text) insert indenting spaces
|
||||
i indenting level
|
||||
!
|
||||
|
||||
[i
|
||||
|
||||
@^U.c/i
|
||||
/27:^U.c
|
||||
|
||||
@^U.i/qi<i >/27:^U.i
|
||||
|
||||
27u.e
|
||||
0ui
|
||||
<
|
||||
z-."e1;'
|
||||
0u.a
|
||||
0u.d
|
||||
0u.s
|
||||
!c!
|
||||
0a"ecf<'
|
||||
0a-^^^A"ecs^Am.cm.if<'
|
||||
0a-^^^B"ec-1u.doc'
|
||||
0a-^^^C"ecm.cm.if<'
|
||||
0a-^^^D"ecm.cm.if<'
|
||||
0a-^^^E"ec-1u.doc'
|
||||
0a-^^^G"e2cm.cm.if<'
|
||||
0a-8"ec-1u.doc'
|
||||
0a-9"es^Eu.em.cm.if<'
|
||||
0a-^^^N"ec-1u.doc'
|
||||
0a-^^^O"ecm.cm.if<'
|
||||
0a-^^^Q"ec-1u.doc'
|
||||
0a-^^^R"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^^S"ec-1u.doc'
|
||||
0a-^^^T"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^^U"es^Eu.em.cm.if<'
|
||||
0a-^^^V"ecm.cm.if<'
|
||||
0a-^^^W"ecm.cm.if<'
|
||||
0a-^^^X"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^^Z"ec-1u.doc'
|
||||
0a-27"ecm.cm.if<'
|
||||
0a-^^!"ecs!m.cm.if<'
|
||||
0a-^^""e2cm.c%im.if<'
|
||||
0a-^^%"e2c-1u.doc'
|
||||
0a-^^'"e-4dc-1%im.cm.if<'
|
||||
0a-^^@"ec-1q.aoc'
|
||||
0a-^^|"e-4dcm.cm.if<'
|
||||
0a-^^."ec-1u.doc'
|
||||
0a-^^;"ecm.cm.if<'
|
||||
0a-^^<"e2cm.c%im.if<'
|
||||
0a-^^>"ec-1%im.cm.if<'
|
||||
0a-^^["e2cm.cm.if<'
|
||||
0a-^^]"e2cm.cm.if<'
|
||||
0a-47"g0a-58"lc-1u.doc'
|
||||
0a-^^a"ecm.cm.if<'
|
||||
0a-^^A"ecm.cm.if<'
|
||||
0a-^^b"ec-1u.doc'
|
||||
0a-^^B"ec-1u.doc'
|
||||
0a-^^c"ecm.cm.if<'
|
||||
0a-^^C"ecm.cm.if<'
|
||||
0a-^^d"ecm.cm.if<'
|
||||
0a-^^D"ecm.cm.if<'
|
||||
0a-^^e"eoe'
|
||||
0a-^^E"eoe'
|
||||
0a-^^f"eof'
|
||||
0a-^^F"eof'
|
||||
0a-^^g"e2cm.cm.if<'
|
||||
0a-^^G"e2cm.cm.if<'
|
||||
0a-^^h"ecf<'
|
||||
0a-^^H"ecf<'
|
||||
0a-^^i"es^Eu.em.cm.if<'
|
||||
0a-^^I"es^Eu.em.cm.if<'
|
||||
0a-^^j"ecm.cm.if<'
|
||||
0a-^^J"ecm.cm.if<'
|
||||
0a-^^k"ecm.cm.if<'
|
||||
0a-^^K"ecm.cm.if<'
|
||||
0a-^^l"ecm.cm.if<'
|
||||
0a-^^L"ecm.cm.if<'
|
||||
0a-^^m"e2cm.cm.if<'
|
||||
0a-^^M"e2cm.cm.if<'
|
||||
0a-^^n"es^Eu.em.cm.if<'
|
||||
0a-^^N"es^Eu.em.cm.if<'
|
||||
0a-^^o"es^Eu.em.cm.if<'
|
||||
0a-^^O"es^Eu.em.cm.if<'
|
||||
0a-^^q"e2c-1u.doc'
|
||||
0a-^^Q"e2c-1u.doc'
|
||||
0a-^^r"ecm.cm.if<'
|
||||
0a-^^R"ecm.cm.if<'
|
||||
0a-^^s"es^Eu.em.cm.if<'
|
||||
0a-^^S"es^Eu.em.cm.if<'
|
||||
0a-^^t"ecm.cm.if<'
|
||||
0a-^^T"ecm.cm.if<'
|
||||
0a-^^u"e2cm.cm.if<'
|
||||
0a-^^U"e2cm.cm.if<'
|
||||
0a-^^v"ecm.cm.if<'
|
||||
0a-^^V"ecm.cm.if<'
|
||||
0a-^^w"ecm.cm.if<'
|
||||
0a-^^W"ecm.cm.if<'
|
||||
0a-^^x"e2cm.cm.if<'
|
||||
0a-^^X"e2cm.cm.if<'
|
||||
0a-^^y"ecm.cm.if<'
|
||||
0a-^^Y"ecm.cm.if<'
|
||||
0a-^^z"ec-1u.doc'
|
||||
0a-^^Z"ec-1u.doc'
|
||||
c
|
||||
f<
|
||||
!e!
|
||||
c
|
||||
0a-^^a"ecm.cm.if<'
|
||||
0A-^^a"ecm.cm.if<'
|
||||
0a-^^b"es^Eu.em.cm.if<'
|
||||
0a-^^B"es^Eu.em.cm.if<'
|
||||
0a-^^c"ecm.cm.if<'
|
||||
0a-^^C"ecm.cm.if<'
|
||||
0a-^^d"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^D"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^f"ecm.cm.if<'
|
||||
0a-^^F"ecm.cm.if<'
|
||||
0a-^^g"es^Eu.em.cm.if<'
|
||||
0a-^^G"es^Eu.em.cm.if<'
|
||||
0a-^^h"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^H"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^i"es^Eu.em.cm.if<'
|
||||
0a-^^I"es^Eu.em.cm.if<'
|
||||
0a-^^j"ec-1u.doc''
|
||||
0a-^^J"ec-1u.doc''
|
||||
0a-^^k"ecm.cm.if<'
|
||||
0a-^^K"ecm.cm.if<'
|
||||
0a-^^n"es^Eu.em.cm.if<'
|
||||
0a-^^N"es^Eu.em.cm.if<'
|
||||
0a-^^o"ec-1u.doc''
|
||||
0a-^^O"ec-1u.doc''
|
||||
0a-^^p"ecm.cm.if<'
|
||||
0a-^^P"ecm.cm.if<'
|
||||
0a-^^q"ecm.cm.if<'
|
||||
0a-^^Q"ecm.cm.if<'
|
||||
0a-^^r"es^Eu.em.cm.if<'
|
||||
0a-^^R"es^Eu.em.cm.if<'
|
||||
0a-^^s"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^S"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^t"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^T"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^u"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^U"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^v"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^V"ecq.d"tm.cm.if<|-1u.doc''
|
||||
0a-^^w"es^Eu.em.cm.if<'
|
||||
0a-^^W"es^Eu.em.cm.if<'
|
||||
0a-^^x"ecm.cm.if<'
|
||||
0a-^^X"ecm.cm.if<'
|
||||
c
|
||||
f<
|
||||
!f!
|
||||
c
|
||||
0a-^^'"ecm.cm.if<'
|
||||
0a-^^<"ecm.cm.if<'
|
||||
0a-^^>"ecm.cm.if<'
|
||||
0a-^^|"ecm.cm.if<'
|
||||
0a-^^b"es^Eu.em.cm.if<'
|
||||
0a-^^B"es^Eu.em.cm.if<'
|
||||
0a-^^c"es^Eu.es^Eu.em.cm.if<'
|
||||
0a-^^C"es^Eu.es^Eu.em.cm.if<'
|
||||
0a-^^d"es^Eu.em.cm.if<'
|
||||
0a-^^D"es^Eu.em.cm.if<'
|
||||
0a-^^n"es^Eu.es^Eu.em.cm.if<'
|
||||
0a-^^N"es^Eu.es^Eu.em.cm.if<'
|
||||
0a-^^r"es^Eu.em.cm.if<'
|
||||
0a-^^R"es^Eu.em.cm.if<'
|
||||
0a-^^s"es^Eu.es^Eu.em.cm.if<'
|
||||
0a-^^S"es^Eu.es^Eu.em.cm.if<'
|
||||
0a-^^_"es^Eu.es^Eu.em.cm.if<'
|
||||
c
|
||||
>
|
||||
|
||||
[i
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
@^uu/<0a-13"e1;'0a"v0a-32id|c'>v/
|
||||
q - register U loaded
|
||||
|
||||
|
|
@ -0,0 +1,469 @@
|
|||
AAREADME.TXT
|
||||
|
||||
This directory contains TECO-C, a version of TECO written in C.
|
||||
It was written in C so the author could move comfortably from VAX/VMS
|
||||
to various other machines, including MicroVaxes, which couldn't execute
|
||||
TECO-11 prior to VMS 5.0 because they don't support PDP-11 compatibility
|
||||
mode. TECO32, distributed with v5.0, solved this problem.
|
||||
|
||||
TECO-C is meant to be a complete implementation of TECO as defined
|
||||
by the Standard TECO User's Guide, which is in file TECO.DOC. There is no
|
||||
manual for TECO-C itself, but the Standard TECO manual was the specification
|
||||
for TECO-C, so it serves as an excellent manual. TECO-C departs from the
|
||||
Standard manual in only a few places (like no video mode), listed in file
|
||||
PROBLEMS.TXT. There is quick-and-dirty "wall chart" of all TECO commands
|
||||
in file WCHART.TXT.
|
||||
|
||||
This version of TECO-C runs under VMX/VMS, MS-DOS, AmigaDOS and Unix
|
||||
(SunOS, Ultrix and System V on a Data General Aviion). If you find bugs or
|
||||
have any comments about TECO-C, please contact
|
||||
|
||||
Pete Siemsen Pete Siemsen
|
||||
645 Ohio Avenue #302 University of Southern California
|
||||
Long Beach, Ca. 90814 1020 West Jefferson Blvd.
|
||||
Los Angeles, CA 90089-0251
|
||||
|
||||
(213) 433-3059 (home) (213) 740-7391 (work)
|
||||
|
||||
Internet: siemsen@usc.edu
|
||||
|
||||
The following sections describe how to use or build TECO-C for
|
||||
different environments. The command line syntax is the same as the syntax
|
||||
for TECO-11 command lines.
|
||||
|
||||
|
||||
###########################################################################
|
||||
U N D E R V A X / V M S
|
||||
|
||||
TECO-C was mostly developed under VAX/VMS. It compiles and links
|
||||
using VAX C 3.1 under VMS version 5.3.
|
||||
|
||||
To set up: inspect and modify ZVLOGIN.COM and then add it to your
|
||||
LOGIN.COM
|
||||
|
||||
To compile: inspect/edit ZVBLD.COM, then SUBMIT it
|
||||
|
||||
To link: use the "LT" command (defined in ZVLOGIN.COM)
|
||||
|
||||
To run: inspect/edit the symbol definitions in ZVLOGIN.COM
|
||||
Note: TECO-C uses the same command line syntax as TECO32
|
||||
|
||||
|
||||
###########################################################################
|
||||
U N D E R M S - D O S
|
||||
|
||||
TECO-C compiles/links under Turbo C v2.00 under MS-DOS 4.01 and
|
||||
Concurrent DOS 386 v3.0.
|
||||
|
||||
To build: run MAKE on MAKEFILE.TC. to build TECO from scratch say:
|
||||
"make -fmakefile.tc -DALL". see MAKEFILE.TC for other make
|
||||
-D options. also see MAKETECO.BAT.
|
||||
|
||||
To run: use TECO.BAT to edit a file or MUNG.BAT to run a macro,
|
||||
for example: TECO filename.
|
||||
|
||||
|
||||
###########################################################################
|
||||
U N D E R U N I X
|
||||
|
||||
To compile and link: use the make utility on "makefile.sun" (for SunOS) or
|
||||
"makefile.ulx" (for Ultrix) or "makefile.dg" (for System V Unix
|
||||
on a Data General Aviion).
|
||||
|
||||
To run: define aliases and environment variables in your .cshrc file.
|
||||
Here's an example, assuming my initialization file is named
|
||||
.tecorc and it's in my home directory, and my macros are in a
|
||||
directory named tecoc under my main directory. You'll have to
|
||||
change the directory names, of course.
|
||||
|
||||
setenv TEC_INIT \$/home/sol/siemsen/.tecorc
|
||||
setenv TEC_LIBRARY /home/sol/siemsen/tecoc/
|
||||
alias te '/home/sol/siemsen/tecoc/tecoc teco -nocreate'
|
||||
alias mung '/home/sol/siemsen/tecoc/tecoc mung'
|
||||
alias tma '/home/sol/siemsen/tecoc/tecoc make'
|
||||
|
||||
After doing this, "te" runs tecoc.
|
||||
|
||||
|
||||
Unix Command line
|
||||
---- ------- ----
|
||||
|
||||
To make Unix users more comfortable, TECO-C uses Unix-like options syntax
|
||||
instead of the familiar "/" style used under VAX/VMS. The options can be
|
||||
abbreviated. They are (optional characters in square brackets):
|
||||
|
||||
-in[spect]
|
||||
-noc[reate]
|
||||
-noi[ni]
|
||||
-nom[emory]
|
||||
-sc[roll]
|
||||
-scroll:nnn:SEEALL
|
||||
do nnn,7:W and 1,3:W
|
||||
|
||||
|
||||
-nop[age]
|
||||
Don't separate input into pages. Instead, treat form feeds as
|
||||
normal characters.
|
||||
+nnn
|
||||
where nnn is any number of digits. Go to line number nnn and set
|
||||
nopage. Note this uses the UNIX end of line convention for use with
|
||||
cc output &c. The non-unix line termination will still be used for
|
||||
nL and other intrinsic TECO commands, this just controls the
|
||||
starting line AT INVOCATION.
|
||||
|
||||
|
||||
EZ Mode Control Flag
|
||||
-- ---- ------- ----
|
||||
|
||||
To add functionality, TECO-C is sensitive to bits in an extra mode control
|
||||
flag in addition to the standard ones. Bits in the EZ mode control flag are
|
||||
used in different ways by different operating systems. Under Unix, bits in
|
||||
the flag have the following meanings:
|
||||
|
||||
1 Mark Henderson, who did much of the Unix port, likes the way
|
||||
VAX/VMS keeps versions of files. VMS appends a semicolon followed
|
||||
by a version number to files, and has the PURGE command to clean
|
||||
out old versions of files. If this bit is off, TECO-C will handle
|
||||
file version numbers, appending the appropriate version number to
|
||||
file names. Mark supplied a "purge" program (distributed with TECO-C)
|
||||
for users of this feature. Setting this flag turns off the feature,
|
||||
to make TECO-C function as expected by the average Unix user. This
|
||||
flag is set by default.
|
||||
|
||||
8 I don't know what this flag does. It only makes sense when TECO-C
|
||||
is compiled with CURSES support.
|
||||
|
||||
16 If set, when it's time to beep, use an audio beep, and if it fails,
|
||||
then try a video flash. If clear, try a video flash, and if it
|
||||
fails, use an audio beep. This bit works only if TECO-C was compiled
|
||||
with CURSES support. This bit is off by default.
|
||||
|
||||
32 If set, and split screen scrolling mode is on (see the 7:W command),
|
||||
TECO-C puts a line between the upper and lower scrolling regions.
|
||||
If off, don't display a line. This bit works only if TECO-C was
|
||||
compiled with CURSES support. This bit is off by default.
|
||||
|
||||
128 If set, don't stop on form feeds when reading. If clear, a form
|
||||
fed in the input stream stops the read (the standard TECO style).
|
||||
This bit is off by default.
|
||||
|
||||
256 If set, use Unix-style newline terminators. This means when files
|
||||
are read in, carriage-returns are not added to the end of lines,
|
||||
and when the user types the RETURN key, only a newline is entered
|
||||
into the command line (usually a carriage-return/line-feed pair is
|
||||
entered). Old macros (and old TECO users) may get confused if this
|
||||
bit is set, but it's required if CURSES support is compiled into
|
||||
TECO-C.
|
||||
|
||||
2048 If set, use a bottom-tee symbol instead of a diamond to indicate
|
||||
the end-of-buffer. This bit works only if TECO-C was compiled with
|
||||
CURSES support. This bit is off by default.
|
||||
|
||||
8192 If set, don't show CR in SCROLL mode (like standard TECO). If clear,
|
||||
show CR (a graphics character indicating a carriage return) when in
|
||||
SCROLL mode. This bit works only if TECO-C was compiled with CURSES
|
||||
support. This bit is on by default.
|
||||
|
||||
|
||||
Filename Memory
|
||||
-------- ------
|
||||
|
||||
TECO tries to remember the last file edited by TECO, so that after you've
|
||||
edited a file once, you can re-edit without having to type the file name
|
||||
on the command line. TECO-C implements this under Unix by writing and reading
|
||||
files named /tmp/tecoxxx.tmp, where "xxx" is the process id of the parent
|
||||
process.
|
||||
|
||||
|
||||
NOTE: There is another TECO in C, written by Matt Fichtenbaum, which
|
||||
runs under Unix. It is part of the DECUS TECO Collection. Contact Pete
|
||||
Siemsen at the above address for a copy.
|
||||
|
||||
###########################################################################
|
||||
U N D E R A M I G A D O S
|
||||
|
||||
To compile and link: see makefile.ami, (note: it needs tecoc.lnk)
|
||||
|
||||
Comments from the author of the Amiga code:
|
||||
|
||||
I've completed my TECOC port to the Amiga. It has been tested on an
|
||||
Amiga 1000 under AmigaDOS 1.3.2. My system configuration is:
|
||||
|
||||
68000 microprocessor
|
||||
2.5 megs memory
|
||||
80 meg hard drive
|
||||
Old Amiga chip set
|
||||
SAS Institute C for the Amiga version 5.10
|
||||
|
||||
TECO-C runs in the CLI window it was started from, and it should run
|
||||
over a terminal hooked to an Amiga serial port as well.
|
||||
|
||||
Adding 'W' command stuff would probably best be done by one of the
|
||||
termcap ports to the Amiga, however, TECO would have to handle
|
||||
SIGWINCH-like events, unless it is modified to open it's own window of
|
||||
a particular size without a resizing gadget. It wouldn't be to hard to
|
||||
write a terminal driver for Amiga windows using hard-coded escape
|
||||
sequences either, but then that would lose over a serial port.
|
||||
|
||||
EzFlag
|
||||
------
|
||||
|
||||
The EZ flag is system-dependent. Under AmigaDOS, bits in the flag have the
|
||||
following meanings:
|
||||
|
||||
128 If set, don't stop on form feeds when reading. If clear, a form
|
||||
fed in the input stream stops the read (the standard TECO style).
|
||||
This bit os off by default.
|
||||
|
||||
256 If set, use Unix-style newline terminators. This means when files
|
||||
are read in, carriage-returns are not added to the end of lines,
|
||||
and when the user types the RETURN key, only a newline is entered
|
||||
into the command line (usually a carriage-return/line-feed pair is
|
||||
entered). Old macros (and old TECO users) may get confused if this
|
||||
bit is set, but it's required if CURSES support is compiled into
|
||||
TECO-C.
|
||||
|
||||
|
||||
|
||||
|
||||
###########################################################################
|
||||
F I L E S
|
||||
|
||||
|
||||
aareadme.txt this readme file
|
||||
baksrc.c backwards search
|
||||
bldstr.c build a string with string build constructs
|
||||
change.tec change macro squished
|
||||
change.tes change macro source. this macro allows you to
|
||||
replace one string with another in a group of
|
||||
files using match constructs.
|
||||
changes.txt contains teco-c release notes starting from
|
||||
version 1.00 (TVERSION = 100)
|
||||
chmacs.h ctype.h for teco-c
|
||||
clenup.c clean up before exiting teco-c
|
||||
clpars.h command line parsing macro, created by genclp.c
|
||||
clpars.tec command line parsing macro squished
|
||||
clpars.tes command line parsing macro source
|
||||
cmatch.c match character with match construct
|
||||
date.tec date macro squished
|
||||
date.tes date macro source. this macro displays the
|
||||
date and time.
|
||||
dchars.h define identifiers for control characters
|
||||
deferr.h define identifiers for error messages
|
||||
defext.h EXTERN decarations for global variables
|
||||
detab.tec de-tabify macro squished
|
||||
detab.tes de-tabify macro source. this macro converts
|
||||
tabs to spaces
|
||||
dir.tec "display directory" macro, in squished form
|
||||
dir.tes "display directory" macro source. This macro simply
|
||||
displays the directory. a wildcarded filename
|
||||
in the edit buffer can control what is displayed.
|
||||
docjr.c code common to ExeC, ExeJ, and ExeR
|
||||
doeves.c work code for EV and ES
|
||||
doflag.c changes a mode control flag (ED,EH,ES,ET,EU,EV,^X)
|
||||
dscren.h terminal types for 0:W command
|
||||
echoit.c display character in its printable form
|
||||
err.c display teco-c's error messages
|
||||
exea.c execute A
|
||||
exeats.c execute at-sign @
|
||||
exeb.c execute B
|
||||
exebar.c execute |
|
||||
exebsl.c execute backslash \
|
||||
exec.c execute C
|
||||
execcc.c execute control-caret ^^
|
||||
execln.c execute colon modifiers : and ::
|
||||
execom.c execute comma ,
|
||||
execrt.c execute caret ^
|
||||
execst.c execute a TECO command string
|
||||
execta.c execute ^A
|
||||
exectc.c execute ^C
|
||||
exectd.c execute ^D
|
||||
execte.c execute ^E
|
||||
execti.c execute ^I
|
||||
exectl.c execute ^L
|
||||
exectn.c execute ^N
|
||||
execto.c execute ^O
|
||||
exectp.c execute ^P
|
||||
exectq.c execute ^Q
|
||||
exectr.c execute ^R
|
||||
exects.c execute ^S
|
||||
exectt.c execute ^T
|
||||
exectu.c execute ^U
|
||||
exectv.c execute ^V
|
||||
exectw.c execute ^W
|
||||
exectx.c execute ^X
|
||||
execty.c execute ^Y
|
||||
exectz.c execute ^Z
|
||||
exed.c execute D
|
||||
exedgt.c execute digit (0-9)
|
||||
exedot.c execute dot .
|
||||
exedqu.c execute double quote "
|
||||
exee.c execute E
|
||||
exeequ.c execute equals =, ==, and ===
|
||||
exeesc.c execute escape
|
||||
exeexc.c execute exclamation point !
|
||||
exeey.c execute EY
|
||||
exef.c execute F
|
||||
exefb.c execute FB
|
||||
exeg.c execute G
|
||||
exegtr.c execute greater than sign >
|
||||
exeh.c execute H
|
||||
exei.c execute I
|
||||
exeill.c "execute" illegal command
|
||||
exej.c execute J
|
||||
exek.c execute K
|
||||
exel.c execute L
|
||||
exelbr.c execute left-bracket [
|
||||
exelst.c execute less than sign <
|
||||
exem.c execute M
|
||||
exen.c execute N
|
||||
exenul.c execute null ^@
|
||||
exenyi.c "execute" not-yet-implemented command
|
||||
exeo.c execute O
|
||||
exeopr.c execute operator (+,-,(,#,/,&,^_,*)
|
||||
exep.c execute P (see singlp.c)
|
||||
exeprc.c execute percent sign %
|
||||
exepw.c execute PW
|
||||
exeq.c execute Q
|
||||
exeqes.c execute question mark ?
|
||||
exer.c execute R
|
||||
exerbr.c execute right bracket ]
|
||||
exertp.c execute right paren )
|
||||
exes.c execute S
|
||||
exescl.c execute semicolon ;
|
||||
exet.c execute T
|
||||
exeu.c execute U
|
||||
exeund.c execute underscore _
|
||||
exeusc.c execute unit separator character ^_
|
||||
exev.c execute V
|
||||
exew.c execute W
|
||||
exex.c execute X
|
||||
exey.c execute Y
|
||||
exez.c execute Z
|
||||
findes.c find end of string
|
||||
findqr.c find q-register name
|
||||
flowec.c flow to end of conditional
|
||||
flowee.c flow to else part of conditional
|
||||
flowel.c flow to end of loop
|
||||
fmtmac.tec PDP-11 .MAC formatter squished
|
||||
fmtmac.tes PDP-11 .MAC formatter source. this macro does
|
||||
case formatting for PDP-11 macro (.MAC) source files
|
||||
format.tec FORTRAN formatter squished
|
||||
format.tes FORTRAN formatter source. formats the first part of
|
||||
a FORTRAN source line.
|
||||
genclp.c generates the command line parsing macro in clpars.h
|
||||
getara.c get area in edit buffer an "m,n" argument defines
|
||||
getnma.c get numeric argument off expression stack
|
||||
inccbp.c increments command buffer pointer
|
||||
init.c teco-c initializatin routines
|
||||
insstr.c insert string into edit buffer
|
||||
isradx.c is digit within current radix?
|
||||
ln2chr.c convert line-number to character-number (^Q)
|
||||
lowcase.tec convert edit buffer to lowercase macro, see upcase.tec
|
||||
makdbf.c make digit buffer, binary to ascii in current radix
|
||||
makefile.ami AmigaDOS make file
|
||||
makefile.cct CodeCenter under SunOS
|
||||
makefile.dg System V Unix make file (works on Data General Aviion)
|
||||
makefile.sun SunOS make file
|
||||
makefile.tc Turbo C make file (MS-DOS)
|
||||
makefile.ulx Ultrix make file
|
||||
maketeco.bat MS-DOS batch file to make teco. this is probably how
|
||||
the temdos.exe executable file was made.
|
||||
makprnt.tec make printable macro squished
|
||||
makprnt.tes make printable macro squished. this macro makes a
|
||||
string with embedded control characters printable
|
||||
makrom.c make room in Q-register for new text
|
||||
mung.bat MS-DOS batch to execute a teco macro from command line
|
||||
pg.mem a programmer's guide. it may be useful to anyone
|
||||
fixing bugs, adding features, or porting teco-c to
|
||||
a new environment.
|
||||
pkzip.rsp a PKZIP response file used to build TECOC.ZIP archive
|
||||
popmac.c pop macro environment off macro stack
|
||||
problems.txt contains notes about bugs and ideas
|
||||
pshmac.c push current macro environment on macro stack
|
||||
pushex.c push expression onto stack, try to reduce it
|
||||
rdline.c read a line
|
||||
rdpage.c read a page
|
||||
readcs.c read command string
|
||||
replac.c code for search and replace commands
|
||||
search.c code for most of the search comamnds
|
||||
search.tec search macro squished
|
||||
search.tes search macro source. this macro finds a string in
|
||||
a group of files using teco match constructs
|
||||
singlp.c does a single P command
|
||||
skpcmd.c skip over current command in command bufer
|
||||
squ.bat MS-DOS batch file to run squ.tec w/standard options
|
||||
squ.tec squish macro squished
|
||||
squ.tes squish macro source. this macro takes a teco macro
|
||||
source file and makes it as small and as fast (and
|
||||
as unreadable) as possible
|
||||
srclop.c search loop, handles loop arguments for search
|
||||
sserch.c do a simple search
|
||||
sub.tec ?
|
||||
tabort.c terminate teco-c
|
||||
tctlib.rsp a Turbo C TLIB response file used by makefile.tc
|
||||
teco.bat MS-DOS batch file to run teco-c
|
||||
teco.doc Standard TECO documentation from DECUS
|
||||
teco.tes teco initialization file
|
||||
tecoc.c the main source module, contains all the definitions
|
||||
of system-independent global variables, as well as
|
||||
comments explaining what they are.
|
||||
tecoc.exe the teco-c executable for VMS
|
||||
tecoc.h defines structures, general identifiers, and
|
||||
the in-line debugging scheme.
|
||||
tecoc.lnk link file needed under AmigaDOS (see makefile.ami)
|
||||
tecoin.tes teco initialization file
|
||||
temsdos.exe the teco-c executable for MS-DOS
|
||||
tst.bat MS-DOS batch file to run the test macros
|
||||
tst.com VMS command procedure to run the test macros
|
||||
tstbsl.tec --
|
||||
tstcss.tec |
|
||||
tstequ.tec | these macros contain code which tests some
|
||||
tsto.tec | aspects of teco-c
|
||||
tstpw.tec |
|
||||
tstqr.tec |
|
||||
tstsrc.tec --
|
||||
typbuf.c types a buffer on the screen, converting unprintable
|
||||
characters to printable as nescessary.
|
||||
type.tec type a file macro squished
|
||||
type.tes type a file macro source. this macro apparently
|
||||
types a file on the console with all kinds of
|
||||
wonderful options.
|
||||
typest.c types the erroneous command string for errors
|
||||
uminus.c unary minus (converts -C to -1C)
|
||||
unsqu.tec unsquish macro squished
|
||||
unsqu.tes unsquish macro source. this macro does some simple
|
||||
formatting of a squished teco macro to make it more
|
||||
readable (like indenting)
|
||||
upcase.tec convert edit buffer to uppercase macro, see lowcase.tec
|
||||
vrbmsg.h verbose forms of teco error messages
|
||||
vtedit.tec vtedit macro squished
|
||||
vtedit.tes vtedit macro source. humongous screen editor macro.
|
||||
note: this macro does NOT run under teco-c.
|
||||
wchart.txt contains a wall chart of TECO commands
|
||||
wrpage.c write a page
|
||||
zamiga.c AmigaDOS system dependent code.
|
||||
zfirst.c dummy module used if CHECKSUM_CODE is TRUE in zport.h
|
||||
zfrsrc.c do a forward search using VAX SCANC instruction
|
||||
zmsdos.c MS-DOS system dependant code
|
||||
zport.h portability header file.
|
||||
zunix.c SunOS (Unix) system dependant code
|
||||
zunkn.c UNKNOWN system dependant code (function stubs)
|
||||
zvms.c VAX/VMS system dependant code
|
||||
|
||||
|
||||
The W command does not work, but the EXEW.C file contains code
|
||||
to tell you what the command would have done if it had been executed. I used
|
||||
this to play with executing VTEDIT.TEC under TECOC in order to find bugs.
|
||||
|
||||
I maintain the DECUS TECO Collection, a bunch of stuff relating to
|
||||
TECO. It includes sources for DEC's TECO-11 v39, three TECOs written in C,
|
||||
including ones for VAX/VMS, MS-DOS, SunOS (Unix) and Ultrix, the current
|
||||
Standard TECO manual, two EMACs-like macro packages and LOTS of macros.
|
||||
|
||||
I you have something that you feel should be included in this
|
||||
collection, or if you would like to improve the software, please contact
|
||||
me at the above address.
|
||||
|
||||
|
||||
Pete Siemsen
|
||||
|
|
@ -0,0 +1,333 @@
|
|||
/*****************************************************************************
|
||||
This program provides basic communication with a remote computer.
|
||||
The remote machine is connected to /dev/tty01. It is assumed to be a VAX
|
||||
running VMS. This program sends whatever is typed at the keyboard to the
|
||||
remote machine and puts whatever the remote machine sends on the terminal
|
||||
screen.
|
||||
When this program is invoked, connections to the serial port and
|
||||
the keyboard are made and the user is left in the communication state. To
|
||||
terminate the program, use control-N, then period.
|
||||
A special feature is the "trapping" of what the modem sends to one
|
||||
or more files. Basically, the program was written to provide a way to
|
||||
get a large number of files from the VAX to this machine (XENIX). The idea
|
||||
is to log in to the VAX and execute a command like "TYPE *.C". When VAX/VMS
|
||||
types out files which match the wildcard filename "*.C", it
|
||||
precedes the text of each file with a header line containing the file name.
|
||||
This program is sensitive to these headers, and uses them to name output
|
||||
files. Thus, running this program and typing "TYPE *.C" to VMS on the
|
||||
remote machine should produce one file in the current directory for each
|
||||
file typed on the remote machine.
|
||||
This program seems to be similar to the CU program provided by UNIX.
|
||||
When I wrote the first version of this program, I didn't know about CU.
|
||||
When I learned of CU, I had trouble getting it working, so I just decided
|
||||
to use this program.
|
||||
A feature of setting port characteristics with stty is that the port's
|
||||
characteristics remain set after the program exits. This is inconvenient in
|
||||
the case of the console, so this program tries to re-set the characteristics
|
||||
before exiting.
|
||||
*****************************************************************************/
|
||||
#include <ctype.h>
|
||||
#include <sgtty.h>
|
||||
#include <signal.h>
|
||||
#include <stdio.h>
|
||||
#define BOOLEAN char
|
||||
#define CMPECHO 0777767 /* complement of ECHO in sgtty.h */
|
||||
#define KEY "SD0:[PETE.TECO.TECOC]"
|
||||
#define KEY_LEN 21
|
||||
#define FALSE 0
|
||||
#define TRUE 1
|
||||
char buffer[100]; /* character buffer */
|
||||
char chr; /* one character */
|
||||
struct sgttyb cons_cb; /* console charactertistics block */
|
||||
int cons_fd; /* console file descriptor */
|
||||
int cons_flags_saved; /* saved value of cons_cb.sg_flags */
|
||||
BOOLEAN cons_opened; /* console need to be closed? */
|
||||
BOOLEAN cons_set; /* console characteristics changed? */
|
||||
struct sgttyb modm_cb; /* modem characteristics block */
|
||||
int modm_fd; /* modem file descriptor */
|
||||
int modm_flags_saved; /* saved value of modm_cb.sg_flags */
|
||||
char modm_ispeed_saved; /* saved value of modm_cb.sg_ispeed */
|
||||
char modm_ospeed_saved; /* saved value of modm_cb.sg_ospeed */
|
||||
BOOLEAN modm_opened; /* does the modem need to be closed? */
|
||||
BOOLEAN modm_set; /* modem characteristics changed? */
|
||||
int proc_id; /* process identification */
|
||||
BOOLEAN trapping; /* trapping modem input to a file? */
|
||||
FILE *splice_fp; /* splice file descriptor */
|
||||
FILE *trap_fp; /* capture file descriptor */
|
||||
reset_modm_port()
|
||||
{
|
||||
modm_cb.sg_ispeed = modm_ispeed_saved;
|
||||
modm_cb.sg_ospeed = modm_ospeed_saved;
|
||||
modm_cb.sg_flags = modm_flags_saved;
|
||||
printf("Amodem: re-sttying the modem port\n");
|
||||
if (stty(modm_fd, &modm_cb) != 0)
|
||||
{
|
||||
printf("Amodem: couldn't re-stty the modem port\n");
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
close_modm_port()
|
||||
{
|
||||
printf("Amodem: closing the modem port\n");
|
||||
if (close(modm_fd) == -1)
|
||||
{
|
||||
printf("Amodem: couldn't close the modem port\n");
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
reset_cons_port()
|
||||
{
|
||||
cons_cb.sg_flags = cons_flags_saved;
|
||||
printf("Amodem: re-sttying the console port\r\n");
|
||||
if (stty(cons_fd, &cons_cb) != 0)
|
||||
{
|
||||
printf("Amodem: couldn't re-stty the console port\n");
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
close_cons_port()
|
||||
{
|
||||
printf("Amodem: closing the console port\r\n");
|
||||
if (close(cons_fd) == -1)
|
||||
{
|
||||
printf("Amodem: couldn't close the console port\n");
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
cleanup_and_exit()
|
||||
{
|
||||
if (proc_id == 0)
|
||||
{
|
||||
if (trapping)
|
||||
{
|
||||
printf("Amodem: closing trap file\r\n");
|
||||
if (fclose(trap_fp) == EOF)
|
||||
printf("cleanup: unable to close trap file\n");
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
if (cons_set)
|
||||
reset_cons_port();
|
||||
if (cons_opened)
|
||||
close_cons_port();
|
||||
if (modm_set)
|
||||
reset_modm_port();
|
||||
if (modm_opened)
|
||||
close_modm_port();
|
||||
}
|
||||
exit(1);
|
||||
}
|
||||
open_console() /* open console port */
|
||||
{
|
||||
cons_fd = open("/dev/tty",2);
|
||||
if (cons_fd == -1)
|
||||
{
|
||||
printf ("Amodem: couldn't open the console port\n");
|
||||
cleanup_and_exit();
|
||||
}
|
||||
cons_opened = TRUE;
|
||||
if (gtty(cons_fd, &cons_cb) != 0)
|
||||
{
|
||||
printf("Amodem: couldn't gtty the console port\n");
|
||||
cleanup_and_exit();
|
||||
}
|
||||
cons_flags_saved = cons_cb.sg_flags;
|
||||
cons_cb.sg_flags = RAW;
|
||||
if (stty(cons_fd, &cons_cb) != 0)
|
||||
{
|
||||
printf("Amodem: couldn't stty the console port\n");
|
||||
cleanup_and_exit();
|
||||
}
|
||||
cons_set = TRUE;
|
||||
}
|
||||
open_modem() /* open modem port (serial port A, or /dev/tty01)*/
|
||||
{
|
||||
modm_fd = open("/dev/tty01",2);
|
||||
if (modm_fd == -1)
|
||||
{
|
||||
printf ("Amodem: couldn't open the modem port\n");
|
||||
cleanup_and_exit();
|
||||
}
|
||||
modm_opened = TRUE;
|
||||
if (gtty(modm_fd, &modm_cb) != 0)
|
||||
{
|
||||
printf("Amodem: couldn't gtty the modem port\n");
|
||||
cleanup_and_exit();
|
||||
}
|
||||
modm_ispeed_saved = modm_cb.sg_ispeed;
|
||||
modm_ospeed_saved = modm_cb.sg_ospeed;
|
||||
modm_cb.sg_ispeed = modm_cb.sg_ospeed = B1200;
|
||||
modm_flags_saved = modm_cb.sg_flags;
|
||||
modm_cb.sg_flags = RAW;
|
||||
if (stty(modm_fd, &modm_cb) != 0)
|
||||
{
|
||||
printf("Amodem: couldn't stty the modem port\n");
|
||||
cleanup_and_exit();
|
||||
}
|
||||
modm_set = TRUE;
|
||||
}
|
||||
cmd_char()
|
||||
{
|
||||
#define FBFSIZ 20
|
||||
#define MAXLINE 132
|
||||
int idx;
|
||||
char FNamBuf[FBFSIZ];
|
||||
char fline[MAXLINE];
|
||||
char *line;
|
||||
read(cons_fd, &chr, 1);
|
||||
switch (chr){
|
||||
case '.':
|
||||
if (kill(proc_id, SIGTERM) != 0)
|
||||
printf("cmd_char: kill failed\n");
|
||||
cleanup_and_exit();
|
||||
break;
|
||||
case '\016':
|
||||
break;
|
||||
case 's':
|
||||
case 'S':
|
||||
printf("\r\nname of file to splice into output: ");
|
||||
idx = 0;
|
||||
while (chr != '\15')
|
||||
{
|
||||
read(cons_fd, &chr, 1);
|
||||
write(cons_fd, &chr, 1);
|
||||
if (chr == '\15')
|
||||
{
|
||||
FNamBuf[idx] = '\0';
|
||||
write(cons_fd, "\n", 1);
|
||||
break;
|
||||
}
|
||||
else
|
||||
{
|
||||
FNamBuf[idx] = chr;
|
||||
if (idx++ > FBFSIZ)
|
||||
{
|
||||
printf("file name too long\r\n");
|
||||
chr = '\15';
|
||||
return;
|
||||
}
|
||||
}
|
||||
}
|
||||
if (access(FNamBuf, 4) != 0)
|
||||
{
|
||||
printf("that file does not exist\r\n");
|
||||
return;
|
||||
}
|
||||
if ((splice_fp = fopen(FNamBuf, "r")) == NULL)
|
||||
{
|
||||
printf("\tUnable to open %s\r\n", FNamBuf);
|
||||
return;
|
||||
}
|
||||
line = &fline[0];
|
||||
for (;;)
|
||||
{
|
||||
line = fgets(line, MAXLINE, splice_fp);
|
||||
if (line == NULL)
|
||||
break;
|
||||
write(modm_fd, line, strlen(line) - 1);
|
||||
write(modm_fd, "\r", 1);
|
||||
}
|
||||
if (fclose(splice_fp) == EOF)
|
||||
{
|
||||
printf("Unable to close %s\r\n", FNamBuf);
|
||||
cleanup_and_exit();
|
||||
}
|
||||
break;
|
||||
default:
|
||||
printf("\r\n");
|
||||
printf("\r\n");
|
||||
printf("Control-N options are:");
|
||||
printf("\r\n");
|
||||
printf("\r\n");
|
||||
printf("1.\t. to terminate this program");
|
||||
printf("\r\n");
|
||||
printf("2.\t^n to send a control-N");
|
||||
printf("\r\n");
|
||||
printf("3.\ts to splice a file into the output");
|
||||
printf("\r\n");
|
||||
printf("\r\n");
|
||||
break;
|
||||
}
|
||||
}
|
||||
tst_line() /* if line contains the key, trap to file */
|
||||
{
|
||||
char *index();
|
||||
char *semi;
|
||||
char *tmpptr;
|
||||
if (strncmp(buffer, KEY, KEY_LEN) == 0)
|
||||
{
|
||||
if (trapping)
|
||||
if (fclose(trap_fp) == EOF)
|
||||
{
|
||||
printf("Amodem: unable to close trap file\n");
|
||||
cleanup_and_exit();
|
||||
}
|
||||
semi = index(buffer, ';');
|
||||
*semi = '\0';
|
||||
tmpptr = buffer;
|
||||
while (*tmpptr != '\0')
|
||||
{
|
||||
if (isupper(*tmpptr))
|
||||
*tmpptr = tolower(*tmpptr);
|
||||
tmpptr++;
|
||||
}
|
||||
if ((trap_fp = fopen(&buffer[KEY_LEN], "w")) == NULL)
|
||||
{
|
||||
printf("Unable to create file AMODEM.OUT\r\n");
|
||||
cleanup_and_exit();
|
||||
}
|
||||
trapping = TRUE;
|
||||
}
|
||||
}
|
||||
parent_send() /* reads keyboard, sends to tty01 */
|
||||
{
|
||||
for (;;)
|
||||
{
|
||||
read(cons_fd, &chr, 1);
|
||||
if (chr == '\016')
|
||||
cmd_char();
|
||||
write(modm_fd, &chr, 1);
|
||||
}
|
||||
}
|
||||
child_receive() /* reads tty01, sends to terminal screen */
|
||||
{
|
||||
char *ptr;
|
||||
ptr = &buffer[0];
|
||||
for (;;)
|
||||
{
|
||||
read(modm_fd, &chr, 1);
|
||||
write(cons_fd, &chr, 1);
|
||||
if ((trapping) && (chr != '\r'))
|
||||
putc(chr, trap_fp);
|
||||
*ptr++ = chr;
|
||||
if (chr == '\n')
|
||||
{
|
||||
tst_line();
|
||||
ptr = &buffer[0];
|
||||
}
|
||||
}
|
||||
}
|
||||
main()
|
||||
{
|
||||
cons_opened = cons_set = modm_opened = modm_set = trapping = FALSE;
|
||||
signal(SIGINT, cleanup_and_exit);
|
||||
signal(SIGTERM, cleanup_and_exit);
|
||||
open_console(),
|
||||
open_modem();
|
||||
printf("\r\n");
|
||||
printf("\r\n");
|
||||
printf("Communication established.");
|
||||
printf("\r\n");
|
||||
printf("\r\n");
|
||||
proc_id = fork();
|
||||
if (proc_id == -1)
|
||||
{
|
||||
printf("Amodem: fork failed\n");
|
||||
cleanup_and_exit();
|
||||
}
|
||||
if (proc_id == 0)
|
||||
child_receive();
|
||||
else
|
||||
parent_send();
|
||||
}
|
||||
|
|
@ -0,0 +1,338 @@
|
|||
/*****************************************************************************
|
||||
BakSrc()
|
||||
This recursive function does a backward search in the edit buffer,
|
||||
looking for a string which will match the first match construct in the search
|
||||
buffer. Basically, it is the high-speed part of the search algorithm: it
|
||||
scans the edit buffer looking for the first character in the search string.
|
||||
On entry, SStPtr points to the first match construct in the search
|
||||
buffer. On exit, SStPtr points to the last character of the first match
|
||||
construct in the search buffer.
|
||||
SBfPtr points to the character following the last character in
|
||||
the search string. This function does not modify SBfPtr.
|
||||
On entry, EBPtr1 points to the place in the edit buffer where
|
||||
the search starts. On exit, if the search was successful, EBPtr1 will
|
||||
point to the found character. If the search was unsuccessful, EBPtr1 will
|
||||
be less than EndSAr.
|
||||
On entry, EBPtr2 is undefined. On exit, if the search was
|
||||
successful, EBPtr2 points to the last character of the found string. If
|
||||
the search was unsuccessful, EBPtr2 is undefined.
|
||||
EndSAr points to the end of the search area (where the search ends).
|
||||
Note that for backwards searches, EndSAr is less than EBPtr1. This function
|
||||
does not modify EndSAr.
|
||||
Match constructs are:
|
||||
^X match any character
|
||||
^S match a separator character (not letter or digit)
|
||||
^N match anything but following match construct
|
||||
^EA match any alphabetic
|
||||
^EB match a separator character (not letter or digit)
|
||||
^EC match symbol constituent
|
||||
^ED match any digit
|
||||
^EGq match any character in q-register q
|
||||
^EL match any line terminator (LF, VT, FF)
|
||||
^EM match non-null string of following match construct
|
||||
^ER match any alphanumeric
|
||||
^ES match non-null string of spaces and/or tabs
|
||||
^EV match lowercase alphabetic
|
||||
^EW match uppercase alphabetic
|
||||
^EX match any character
|
||||
^E<nnn> match character with ASCII code nnn (octal)
|
||||
^E[x1,x2,...xn] match any of the match constructs x1, x2, etc.
|
||||
else match the character itself
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
#include "chmacs.h" /* define character processing macros */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT BakSrc() /* forward search for 1st search char */
|
||||
{
|
||||
unsigned char Charac; /* holds a character */
|
||||
charptr LstBeg; /* beginning of ^E[x1,x2,...] list */
|
||||
char OtCase; /* "other" case character */
|
||||
charptr QRPtr; /* pointer into q-register text */
|
||||
BOOLEAN SamChr; /* same character indicator */
|
||||
charptr SavEP2; /* temporary holder of EBPtr2 */
|
||||
charptr SavSSP; /* temporary holder of SStPtr */
|
||||
DEFAULT Status; /* FindQR() status for ^EGq */
|
||||
charptr TCBfPt; /* temporary holder of CBfPtr */
|
||||
charptr TCStEn; /* temporary holder of CStEnd */
|
||||
LONG TmpLng; /* holds octal number for ^E<nnn> */
|
||||
#if DEBUGGING
|
||||
static char *DbgFNm = "BakSrc";
|
||||
sprintf(DbgSBf,"*SStPtr = '%c', *EBPtr1 = '%c'", *SStPtr, *EBPtr1);
|
||||
DbgFEn(3,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
switch (*SStPtr) {
|
||||
case CTRL_X: /* ^X match any char */
|
||||
break;
|
||||
case CTRL_S: /* ^S match separator char */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (!Is_Alnum(*EBPtr1)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case CTRL_N: /* ^Nx match any BUT next match construct */
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ISS); /* illegal search string */
|
||||
DBGFEX(3,DbgFNm,"FAILURE, no ^N arg");
|
||||
return FAILURE;
|
||||
}
|
||||
SavSSP = SStPtr;
|
||||
for (;EBPtr1>=EndSAr;--EBPtr1) {
|
||||
EBPtr2 = EBPtr1;
|
||||
SStPtr = SavSSP;
|
||||
if (CMatch(&SamChr) == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE, CMatch failed");
|
||||
return FAILURE;
|
||||
}
|
||||
if (!SamChr) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case CTRL_E: /* ^E match construct */
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE); /* ICE = illegal ^E */
|
||||
DBGFEX(3,DbgFNm,"FAILURE, no ^E arg");
|
||||
return FAILURE;
|
||||
}
|
||||
switch (To_Upper(*SStPtr)) {
|
||||
case 'A': /* ^EA match any alphabetic */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (Is_Alpha(*EBPtr1)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'B': /* ^EB match any separator (==^S) */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (!Is_Alnum(*EBPtr1)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'C': /* ^EC match symbol constitient */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (Is_SyCon(*EBPtr1)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'D': /* ^ED match any digit */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (Is_Digit(*EBPtr1)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'G': /* ^EGq match any char in Q-reg q */
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE, no ^EG arg");
|
||||
return FAILURE;
|
||||
}
|
||||
TCBfPt = CBfPtr; /* save CBfPtr */
|
||||
TCStEn = CStEnd; /* save CStEnd */
|
||||
CBfPtr = SStPtr;
|
||||
CStEnd = SBfPtr;
|
||||
Status = FindQR();
|
||||
SStPtr = CBfPtr;
|
||||
SBfPtr = CStEnd;
|
||||
CBfPtr = TCBfPt; /* restore CBfPtr */
|
||||
CStEnd = TCStEn; /* restore CStEnd */
|
||||
if (Status == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE, ^EG FindQR failed");
|
||||
return FAILURE;
|
||||
}
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
QRPtr = QR->Start;
|
||||
while (QRPtr < QR->End_P1) {
|
||||
if (*QRPtr++ == *EBPtr1) {
|
||||
goto kludge;
|
||||
}
|
||||
}
|
||||
}
|
||||
kludge: break;
|
||||
case 'L': /* ^EL match line terminator */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (IsEOL(*EBPtr1)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'M': /* ^EM match multiple next constructs */
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE, no ^EM arg");
|
||||
return FAILURE;
|
||||
}
|
||||
SavSSP = SStPtr;
|
||||
if (BakSrc() == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (EBPtr1 < EndSAr) { /* if not found */
|
||||
break;
|
||||
}
|
||||
SavEP2 = EBPtr2;
|
||||
while (EBPtr1 > EndSAr) {
|
||||
EBPtr1--;
|
||||
EBPtr2 = EBPtr1;
|
||||
SStPtr = SavSSP;
|
||||
if (CMatch(&SamChr) == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (!SamChr) {
|
||||
EBPtr1++;
|
||||
EBPtr2 = SavEP2;
|
||||
break;
|
||||
}
|
||||
}
|
||||
DBGFEX(3,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
case 'R': /* ^ER match any alphanumeric */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (Is_Alnum(*EBPtr1)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'S': /* ^ES match any spaces/tabs */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if ((*EBPtr1 == SPACE) || (*EBPtr1 == TABCHR)) {
|
||||
EBPtr2 = EBPtr1;
|
||||
while (EBPtr1 > EndSAr) {
|
||||
EBPtr1--;
|
||||
if ((*EBPtr1 != SPACE) &&
|
||||
(*EBPtr1 != TABCHR)) {
|
||||
EBPtr1++;
|
||||
break;
|
||||
}
|
||||
}
|
||||
DBGFEX(3,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'V': /* ^EV match any lowercase char */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (Is_Lower(*EBPtr1)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'W': /* ^EW match any uppercase character */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (Is_Upper(*EBPtr1)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'X': /* ^EX match any char (==^X) */
|
||||
break;
|
||||
case '<': /* ^E<n> match char w/ASCII octal code n */
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE, no ^E<> arg");
|
||||
return FAILURE;
|
||||
}
|
||||
TmpLng = 0;
|
||||
while (Is_Digit(*SStPtr)) {
|
||||
TmpLng = (TmpLng * 8) + (*SStPtr - '0');
|
||||
if (TmpLng > 127) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
if (*SStPtr != '>') {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
Charac = (unsigned char)TmpLng;
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (*EBPtr1 == Charac) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case '[': /* ^E[x1,x2,...] match any one of x1,x2,... */
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE, no ^E[] arg");
|
||||
return FAILURE;
|
||||
}
|
||||
LstBeg = SStPtr;
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
while (*SStPtr != ']') {
|
||||
if (*SStPtr == ',') {
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
} else {
|
||||
EBPtr2 = EBPtr1;
|
||||
if (CMatch(&SamChr) == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (SamChr) {
|
||||
while (*SStPtr != ']') {
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
EBPtr2 = EBPtr1;
|
||||
DBGFEX(3,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
}
|
||||
SStPtr = LstBeg;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE, bad ^E arg");
|
||||
return FAILURE;
|
||||
} /* end of ^E switch */
|
||||
break;
|
||||
default: /* edit buffer char must match search string char */
|
||||
if (SMFlag) { /* if case dependence */
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if (*EBPtr1 == *SStPtr) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
} else { /* else case independence */
|
||||
OtCase = Is_Upper(*SStPtr)
|
||||
? To_Lower(*SStPtr)
|
||||
: To_Upper(*SStPtr);
|
||||
for (; EBPtr1 >= EndSAr; --EBPtr1) {
|
||||
if ((*EBPtr1 == *SStPtr) || (*EBPtr1 == OtCase)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
} /* end of switch */
|
||||
EBPtr2 = EBPtr1;
|
||||
DBGFEX(3,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,243 @@
|
|||
/*****************************************************************************
|
||||
BldStr()
|
||||
This function "builds" a string. This means converting string
|
||||
build constructs in the input string into their intended equivalents
|
||||
in the output string. The string build constructs are as follows:
|
||||
^Q use next character literally, not as a string build char
|
||||
^R use next character literally, not as a string build char
|
||||
^V lowercase the next character
|
||||
^V^V lowercase all following characters
|
||||
^W uppercase the next character
|
||||
^W^W uppercase all following characters
|
||||
^EQq use string in q-register q here
|
||||
^EUq use ASCII char for number in q-register q here
|
||||
When this function is called, CBfPtr points to the first character
|
||||
of the input string. It is assumed that the string is terminated by an ESCAPE
|
||||
character (or something else if the calling command was @-modified). If the
|
||||
string is not properly terminated this function will die with "unterminated
|
||||
command" when it encounters CStEnd while looking for the terminator character.
|
||||
When this function returns, CBfPtr points to the ESCAPE which
|
||||
terminates the string, the built string is in the buffer pointed to by
|
||||
XBfBeg, and XBfPtr points to the character after the last character in
|
||||
the built string.
|
||||
The commands which contain a filename (EB, EI, EN, ER and
|
||||
EW) use this function. The EG command, which exits with an operating system
|
||||
command line, uses this function. The O command, which jumps to a tag, uses
|
||||
this function. The search commands (E_, FK, FN, FS, F_, N, S and _) use this
|
||||
function.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
#include "chmacs.h" /* define character processing macros */
|
||||
#if USE_PROTOTYPES
|
||||
static DEFAULT DoCtVW(charptr EndArg, unsigned char TmpChr);
|
||||
static DEFAULT DoCtE(charptr EndArg, charptr XBfEnd);
|
||||
#endif
|
||||
static charptr BBfPtr; /* pointer into XBf */
|
||||
static int CaseCv; /* case conversion */
|
||||
static unsigned char WVFlag; /* ^W or ^V flag */
|
||||
static DEFAULT DoCtVW(EndArg, TmpChr) /* do a control-V or control-W */
|
||||
charptr EndArg; /* ptr to end of string argument */
|
||||
unsigned char TmpChr; /* temporary character */
|
||||
{
|
||||
DBGFEN(3,"DoCtVW",NULL);
|
||||
WVFlag = TmpChr;
|
||||
if (++CBfPtr == EndArg) { /* move past ^W or ^V, too far? */
|
||||
ErrMsg(ERR_ISS); /* yes, illegal search string */
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if ((*CBfPtr == '^') && ((EdFlag & ED_CARET_OK) == 0)) {
|
||||
if (++CBfPtr == EndArg) {
|
||||
ErrMsg(ERR_ISS);
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
TmpChr = To_Upper(*CBfPtr);
|
||||
if ((TmpChr < '@') || (TmpChr > '_')) {
|
||||
ErrChr(ERR_IUC, *CBfPtr);
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
TmpChr &= '\077';
|
||||
} else {
|
||||
TmpChr = *CBfPtr;
|
||||
}
|
||||
if (WVFlag == CTRL_V) {
|
||||
if (TmpChr == CTRL_V) {
|
||||
CaseCv = LOWER;
|
||||
} else {
|
||||
*BBfPtr++ = To_Lower(TmpChr);
|
||||
}
|
||||
} else {
|
||||
if (TmpChr == CTRL_W) {
|
||||
CaseCv = UPPER;
|
||||
} else {
|
||||
*BBfPtr++ = To_Upper(TmpChr);
|
||||
}
|
||||
}
|
||||
WVFlag = '\0';
|
||||
DBGFEX(2,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
static DEFAULT DoCtE(EndArg, XBfEnd) /* do a control-E */
|
||||
charptr EndArg; /* ptr to end of string argument */
|
||||
charptr XBfEnd; /* end of build-string buffer */
|
||||
{
|
||||
DEFAULT Status; /* returned from FindQR */
|
||||
charptr TCStEn; /* temporary holder of CStEnd */
|
||||
DBGFEN(3,"DoCtE",NULL);
|
||||
if (++CBfPtr == EndArg) { /* move past ^E, too far? */
|
||||
ErrMsg(ERR_ICE); /* yes, illegal ^E command */
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if ((*CBfPtr == 'Q') || (*CBfPtr == 'q')) {
|
||||
if (++CBfPtr == EndArg) {
|
||||
ErrMsg(ERR_ISS);
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
/*
|
||||
* handle filespec buffer and search string buffer
|
||||
*/
|
||||
if (*CBfPtr=='*' || *CBfPtr=='_') {
|
||||
charptr BufPtr, BufBeg;
|
||||
if (*CBfPtr=='*') {
|
||||
BufPtr=FBfPtr;
|
||||
BufBeg=FBfBeg;
|
||||
} else {
|
||||
BufPtr=SBfPtr;
|
||||
BufBeg=SBfBeg;
|
||||
}
|
||||
if ((BufPtr-BufBeg) > (XBfEnd-BBfPtr)) {
|
||||
ErrMsg(ERR_STL);
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
MEMMOVE(BBfPtr, BufBeg, (SIZE_T)(BufPtr - BufBeg));
|
||||
BBfPtr += BufPtr-BufBeg;
|
||||
} else {
|
||||
/*
|
||||
* it really must be a Q reg reference after all
|
||||
*/
|
||||
TCStEn = CStEnd; /* save CStEnd */
|
||||
CStEnd = EndArg;
|
||||
Status = FindQR();
|
||||
CStEnd = TCStEn; /* restore CStEnd */
|
||||
if (Status == FAILURE) {
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if ((QR->End_P1-QR->Start) > (XBfEnd-BBfPtr)) {
|
||||
ErrMsg(ERR_STL);
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
MEMMOVE(BBfPtr, QR->Start, (SIZE_T)(QR->End_P1 - QR->Start));
|
||||
BBfPtr += QR->End_P1 - QR->Start;
|
||||
}
|
||||
} else if ((*CBfPtr == 'U') || (*CBfPtr == 'u')) {
|
||||
if (++CBfPtr == EndArg) {
|
||||
ErrMsg(ERR_ISS);
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
TCStEn = CStEnd; /* save CStEnd */
|
||||
CStEnd = EndArg;
|
||||
Status = FindQR();
|
||||
CStEnd = TCStEn; /* restore CStEnd */
|
||||
if (Status == FAILURE) {
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
*BBfPtr++ = (char)QR->Number;
|
||||
} else {
|
||||
*BBfPtr++ = CTRL_E;
|
||||
*BBfPtr++ = *CBfPtr;
|
||||
}
|
||||
DBGFEX(2,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
DEFAULT BldStr(XBfBeg, XBfEnd, XBfPtr) /* build a string */
|
||||
charptr XBfBeg; /* beginning of build-string buffer */
|
||||
charptr XBfEnd; /* end of build-string buffer */
|
||||
charptr (*XBfPtr); /* pointer into build-string buffer */
|
||||
{
|
||||
charptr EndArg; /* end of input string, plus 1 */
|
||||
unsigned char TmpChr; /* temporary character */
|
||||
DBGFEN(2,"BldStr",NULL);
|
||||
if (FindES(ESCAPE) == FAILURE) { /* move CBfPtr to end of argument */
|
||||
DBGFEX(2,DbgFNm,"FAILURE, FindES(ESCAPE) failed");
|
||||
return FAILURE;
|
||||
}
|
||||
WVFlag = '\0'; /* initialize ^W and ^V flag */
|
||||
CaseCv = IniSrM; /* initialize internal search mode */
|
||||
BBfPtr = XBfBeg; /* initialize ptr into build-string buffer */
|
||||
EndArg = CBfPtr; /* save pointer to end of argument */
|
||||
CBfPtr = ArgPtr; /* reset to beginning of argument */
|
||||
while (CBfPtr < EndArg) {
|
||||
if ((*CBfPtr == '^') && ((EdFlag & ED_CARET_OK) == 0)) {
|
||||
if (++CBfPtr == EndArg) {
|
||||
ErrMsg(ERR_ISS);
|
||||
DBGFEX(2,DbgFNm,"FAILURE, no char after ^");
|
||||
return FAILURE;
|
||||
}
|
||||
TmpChr = To_Upper(*CBfPtr);
|
||||
if ((TmpChr < '@') || (TmpChr > '_')) {
|
||||
ErrChr(ERR_IUC, *CBfPtr);
|
||||
DBGFEX(2,DbgFNm,"FAILURE, bad char after ^");
|
||||
return FAILURE;
|
||||
}
|
||||
TmpChr &= '\077';
|
||||
} else {
|
||||
TmpChr = *CBfPtr;
|
||||
}
|
||||
switch (TmpChr) {
|
||||
case CTRL_R:
|
||||
case CTRL_Q:
|
||||
if (++CBfPtr == EndArg) {
|
||||
ErrMsg(ERR_ISS);
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
*BBfPtr++ = *CBfPtr;
|
||||
break;
|
||||
case CTRL_V:
|
||||
case CTRL_W:
|
||||
if (DoCtVW(EndArg, TmpChr) == FAILURE) {
|
||||
DBGFEX(2,DbgFNm,"FAILURE, DoCtVW failed");
|
||||
return FAILURE;
|
||||
}
|
||||
break;
|
||||
case CTRL_E:
|
||||
if (DoCtE(EndArg, XBfEnd) == FAILURE) {
|
||||
DBGFEX(2,DbgFNm,"FAILURE, DoCtE failed");
|
||||
return FAILURE;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
if (CaseCv == LOWER) {
|
||||
TmpChr = To_Lower(TmpChr);
|
||||
} else if (CaseCv == UPPER) {
|
||||
TmpChr = To_Upper(TmpChr);
|
||||
}
|
||||
*BBfPtr++ = TmpChr;
|
||||
}
|
||||
if (BBfPtr > XBfEnd) {
|
||||
ErrMsg(ERR_STL); /* string too long */
|
||||
DBGFEX(2,DbgFNm,"FAILURE, string too long");
|
||||
return FAILURE;
|
||||
}
|
||||
++CBfPtr;
|
||||
}
|
||||
*XBfPtr = BBfPtr;
|
||||
#if DEBUGGING
|
||||
sprintf(DbgSBf,"string = \"%.*s\"", (int)(BBfPtr-XBfBeg), XBfBeg);
|
||||
DbgFEx(2,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,816 @@
|
|||
This file contains release notes for TECOC. The "base version"
|
||||
is 100 (reported by the EO command). The version number starts at 100 to
|
||||
avoid confusion with TECO-11 version numbers, which were close to 40 as of
|
||||
01-Jan-1987.
|
||||
10-Dec-1987 version 100
|
||||
baseline version as of Fall Decus Symposium, Anaheim
|
||||
04-Jan-1988 version 101 (mostly stuff for XENIX)
|
||||
1. created this file
|
||||
2. changed EXEEO.C to make the version number 101.
|
||||
3. changed FBFSIZ (file name size) to 20 in AMODEM.C
|
||||
4. changed XAFTER.CSH to execute under CSH instead of SH
|
||||
5. removed unused tags IFTag and OFTag from ZPORT.H
|
||||
6. added comment about this file to AAAREADME.TXT
|
||||
7. Created an updated XBUILD.CSH.
|
||||
8. added a tab to INIT.C.
|
||||
9. Added debugging code to PARSCL.C, MEMINI.C, ZINIFL.C, MUNG.C, ZREMBR.C,
|
||||
and INIOPN.C. This code is activated only if the variable DbgLvl is
|
||||
initialized to 1 in DBGDSP.C.
|
||||
10. Added semi-colon to line 181 of ZOPINP.C so it'll compile.
|
||||
11. Changed ZREMBR.C so it returns NO in XENIX section.
|
||||
12. Added code to set TrmTyp in XENIX section of ZTRMNL.C.
|
||||
13. Changed SCRNOP.C so it tests TrmTyp (not OpCode) against UNTERM.
|
||||
14. Added XENIX sections to ZDSPCH.C, ZDSPBF.C and ZCHIN.C.
|
||||
23-Jan-1988 version 102
|
||||
1. changed EXEEO.C to make the version number 102.
|
||||
2. changed the debugging code in ZABORT.C to avoid an infinite loop
|
||||
3. removed "signal(SIGTERM, ZAbort)" from XENIX code in ZINIT.C
|
||||
4. changed ZTRMNL.C to support control-Cs under XENIX
|
||||
5. check for control-C in ZCHIN.C, needed to do it in all other Z routines
|
||||
6. added XENIX section to ZRDLIN.C
|
||||
7. define sys$close in ZOPINP.C and ZOPOUT.C
|
||||
8. define sys$get, sys$putmsg in ZRDEI.C
|
||||
9. renamed/modified all the .CSH and .COM files so they start with "Z" and
|
||||
updated AAAREADME.TXT to reflect the changes.
|
||||
10. added file FALL87.RNO, updated AAAREADME.TXT about it
|
||||
11. fixed comment in RDLINE.C.
|
||||
12. changed || to | in ZHELP.C so / immediate commands are okay under VMS.
|
||||
13. fixed "invalid buffer size" bug for reading large files by changing
|
||||
"65536" to "65535" in ZRDLIN.C.
|
||||
14. fixed control-C handling, so that type-out of a large buffer works.
|
||||
Changed EXECST.C, ZDSPBF.C, FRSTCH.C, READCS.C.
|
||||
15. added a test to EXECST.C so that commands like "<test$$" will
|
||||
now produce "unterminated command" errors, as they should
|
||||
16. modified EXEEI.C to make EI$$ a null command to make CHANGE.TEC work
|
||||
30-Jan-1988 version 103 ( to make CHANGE.TEC work )
|
||||
1. changed EXEEO.C to make the version number 103.
|
||||
2. changed definition of Mung from DEFAULT to VOID in MUNG.C.
|
||||
3. changed TmpEI from DEFAULT to VOID in TMPEI.C, ZINIFL.C, MUNG.C
|
||||
4. removed superfluous "else" from ZSWILD.C
|
||||
5. moved WFab, WNam initialization from ZINIFL.C to ZINIT.C
|
||||
6. set WFab.fab$l_fna in ZINIT.C to make EN command work
|
||||
7. added XENIX section to ZCPYBL.C
|
||||
8. fixed XENIX section of ZICLOS.C
|
||||
9. fixed XENIX section of ZOPOUT.C
|
||||
10. fixed XENIX section of ZRDLIN.C
|
||||
11. fixed XENIX section of ZWRITE.C
|
||||
12. changed constants for XENIX in ZPORT.H
|
||||
13. changed calloc to malloc in ZALLOC.C, merged similar sections
|
||||
14. added debugging code to RDLINE.C
|
||||
15. added debugging line to WRBUFR.C
|
||||
16. fixed unlink call in ZOCLOS.C, added debugging code
|
||||
17. fixed unlink call in ZOCLDE.C
|
||||
18. added -O switch to CC commands in XMKBLD.CSH (optimizes code)
|
||||
31-Mar-1988 version 104
|
||||
1. changed EXEEO.C to make the version number 104.
|
||||
2. changed the way code is compiled under XENIX: deleted XMKBLD.CSH,
|
||||
created ZXBLD.CSH and ZXDBLD.CSH, modified ZXLOGIN.CSH and ZXCCC.CSH
|
||||
3. fixed XENIX file creation mode in ZOPOUT.C
|
||||
4. fixed XENIX section of ZMKOFN.C
|
||||
5. fixed setting of CmdMod and EStTop in EXEEB.C
|
||||
6. removed unnecessary call to ExeEY in INIOPN.C
|
||||
7. fixed XENIX file renaming in ZOCLOS.C
|
||||
8. used auto-decrement instead of addition in MEMINI.C
|
||||
9. Renamed CHRFUNCS.H to CHRMACS.H. All references to CHRFUNCS.H
|
||||
had to be changed: many files modified. Also changed macros that
|
||||
are in CHRMACS.H to use an array. Merged that array with the one that
|
||||
was in ReadCS.
|
||||
10. made ZTrmnl define TrmTyp as UNTERM when we're running in a batch job.
|
||||
11. took out "dying" message in GETNMA.C
|
||||
12. fixed CR/LF appending in EXEEQU.C
|
||||
13. fixed file output code in ZDSPCH.C
|
||||
13-Apr-1988 version 105
|
||||
1. changed EXEEO.C to make the version number 105.
|
||||
2. removed extra tab from ZINIT.C
|
||||
3. renamed XAFTER.CSH to ZXAFTER.CSH
|
||||
4. changed ZXAFTER.CSH so it renames CHRMACS.H, not CHRFUNCS.H
|
||||
5. added improved error reporting in ZOPINP.C
|
||||
6. added "cc -c tecoc.c" to ZXBLD.CSH
|
||||
7. added "/STANDARD=PORTABLE" qualifiers to CC commands in ZVBLD.COM
|
||||
8. Fixed ZWrite to append LFs correctly under XENIX
|
||||
9. Fixed ZChIn to make CR/LFs under XENIX out of LFs.
|
||||
10. changed ZOpOut to use fopen instead of creat/fdopen.
|
||||
11. overhauled error reporting. Many modules changed, including all "Z" files.
|
||||
Added OpnOut and ZErMsg.
|
||||
12. Replaced GroEBf with InsStr to merge several copies of the same code
|
||||
sequence. Affected ExeBSl, ExeCtI, ExeG, ExeI, Replac.
|
||||
13. Removed post-copy of memory after ZRaloc calls. ZRaloc does it.
|
||||
14. Took /STANDARD=PORTABLE off VMS compile commands to prevent warnings
|
||||
about "globalref".
|
||||
30-Jul-1988 version 106
|
||||
1. changed EXEEO.C to make the version number 106.
|
||||
2. fixed some error reporting bugs.
|
||||
3. check for mung mode failure in ExeCSt, not ErrMsg
|
||||
4. changed EI buffer size to 20000 to let TSTSRC.TEC be input
|
||||
06-Aug-1988 version 107
|
||||
1. changed EXEEO.C to make the version number 107.
|
||||
2. fixed FR command.
|
||||
3. fixed it so two control-C's terminate TECOC, as it should be.
|
||||
4. overhauled command-line parsing to make it use a TECO macro to do it,
|
||||
like TECO-11 does. Major changes to initialization code. I did this to
|
||||
provide the extra power and to make invocation of TECOC the same as TECO-11
|
||||
under VAX/VMS. Created ExeEG, ZExeEJ, ZEgIni, ZEgLib, ZEgMem, ZEgSym
|
||||
and ZEgVte. Deleted ZIniFl, Mung, ZExeEG.
|
||||
5. fixed ::S command.
|
||||
6. fixed ] command's memory deallocation.
|
||||
22-Feb-1989 version 108 ( porting to Turbo C )
|
||||
1. changed EXEEO.C to make the version number 108.
|
||||
2. created function prototypes (without arguments) in DefTeco.h and removed
|
||||
them from all other files.
|
||||
3. changed /REPLACE to /INSERT in ZVBLD.COM
|
||||
4. fixed definition of ErrTxt in BldStr.
|
||||
5. moved "#include stsdef" into VAX section of ZErMsg.
|
||||
6. moved expressions out of "if" statements to avoid compiler warnings in
|
||||
FindQR, MakDBf, PshMac, StCopy, ZTrmnl.
|
||||
7. Deleted reference to ZDefErr.h from ZOClDe.
|
||||
8. deleted ZError.h
|
||||
9. changed "ErrMag" to "ErrMsg" in ZOClos.
|
||||
10. removed variables declared but never used in DoEI, ExeEG, WrBufr, ZOClos.
|
||||
11. removed "return(xxx)" from XENIX section of ZHhelp, which is a VOID
|
||||
function.
|
||||
12. Express 32768 in octal in DefTeco.h for ET_TRAP_CTRL_C to avoid problems
|
||||
putting it into an unsigned EtFlag.
|
||||
13. Added type-cast to ZCpyBl call in RdLine.
|
||||
14. changed XENIX section of ZExeEJ so it defines ZExeEJ, not ZExCtH.
|
||||
15. Replaced the Execut function with syntax for calling a function whose
|
||||
address you have in a variable.
|
||||
16. Made mods to make it run under Turbo C under MS-DOS. Added __TURBOC__
|
||||
sections to Zxxxx.c files and created ZPBLD.BAT and ZPDBLD.BAT.
|
||||
19. Fixed Turbo C section in ZDspBf, ZDspCh, ZChIn, ZWrite.
|
||||
20. Changed "LONG" to "ptrdiff_t" in several files.
|
||||
21. Added Turbo C section to ZPrsCL.
|
||||
Just to get it working, commented out the Turbo C code in ZPrsCL.
|
||||
This prevents the command-line macro from executing, which avoids the
|
||||
execution of EJ and EG commands in the macro. EJ and EG are not yet
|
||||
supported for non-VMS environments. It now limps under Turbo C/MS-DOS
|
||||
28-Feb-1989 version 109 ( more porting to Turbo C )
|
||||
1. changed EXEEO.C to make the version number 109.
|
||||
2. made type conversions explicit via type casts in various functions.
|
||||
3. replaced calls to ZChrIt with type-cast "(char)" and deleted ZChrIt
|
||||
4. appended all the Dbgxxx functions to the end of TECOC.C and changed
|
||||
compile/link so there is no separate debugging library. This simplifies
|
||||
the link sequence.
|
||||
5. fixed VDOW.C and VSETW.C so setting DEBUGGING to NO will not cause
|
||||
compilation errors.
|
||||
6. changed references to .h files to lowercase so you don't have to
|
||||
explicitly rename them after copying them from one machine to another
|
||||
7. various minor changes so it will build for an UNKNOWN environment
|
||||
8. use FILENAME_MAX, an ANSI C identifier
|
||||
9. changed the XENIX identifier to the more general __UNIX__ and restructured
|
||||
the conditional compilation code to use "#elif".
|
||||
10. replaced StCopy with strcpy
|
||||
11. replaced ZCpyBl with MEMMOVE
|
||||
12. created a file named MAKEFILE for use with Unix "make".
|
||||
13. improved type definitions and casting to keep lint happy.
|
||||
14. use EXIT_FAILURE and EXIT_SUCCESS in calls to exit() and ZAbort().
|
||||
15. Defined return codes for the EJ command in systems other than VMS
|
||||
so the command-line parsing macro could function.
|
||||
16. Removed references to StCopy and ZCpyBl from ZPBLD.BAT and deleted
|
||||
ZPLNK.BAT. Fixed ZPLNK.BAT to not refer to DBGTECOC.LIB.
|
||||
28-Feb-1989 version 110
|
||||
1. changed EXEEO.C to make the version number 110.
|
||||
2. made the 2048 bit of the ET flag cause the BACKSPACE character to be
|
||||
treated just like the DEL character on input. This supports the
|
||||
conventions used by IBM PCs and Unix. On those systems, you'll have
|
||||
trouble getting a BACKSPACE into the command line, a minor problem.
|
||||
3. to simplify an effort to port TECO-C to RT-11, renamed the following
|
||||
files so the name portion of the filespec is 6 characters or less.
|
||||
renamed CHRMACS.H to CHMACS.H
|
||||
renamed COMMANDS.TXT to WCHART.TXT
|
||||
renamed DEFCHARS.H to DCHARS.H
|
||||
renamed DEFSCREN.H to DSCREN.H
|
||||
renamed DEFTECO.H to TECOC.H
|
||||
renamed TEC0_V40.TEC to TECV40.TEC
|
||||
renamed TECO_V40.TES to TECV40.TES
|
||||
The following files were not renamed, and are the only remaining files
|
||||
with names longer than 6 characters.
|
||||
AAAREADME.TXT I just didn't want to rename this one
|
||||
GETTECO. used only on Unix systems
|
||||
MAKEFILE. used only on Unix systems
|
||||
PROBLEMS.TXT I just didn't want to rename this one
|
||||
RELEASE.TXT I just didn't want to rename this one
|
||||
ZVLOGIN.COM used only on VAX/VMS systems
|
||||
ZXAFTER.CSH used only on Xenix systems
|
||||
ZXLOGIN.CSH used only on Xenix systems
|
||||
4. Fixed ZPBLD.BAT: removed superfluous -I option, added ECHO statements so
|
||||
you can tell how far it's gotten, lowercased file names.
|
||||
5. Removed definition of TraceM from ZExCtC, which doesn't use TraceM.
|
||||
6. Don't return a value from ZDoCmd or ZHelp, they're VOID functions.
|
||||
7. Fixed Sun and Turbo C sections of ZExeEJ and ZClnEG.
|
||||
8. Changed second argument of PushEx from BYTE to DEFAULT.
|
||||
9. Made ZClnEG a LONG function to match it's use in ExeEG.
|
||||
10. Made MakDBf calls in PushEx and GetNMA use a type cast when passing
|
||||
EstTop and EstBot so it works under Turbo C.
|
||||
12. Fixed expression syntax in CLPARS.TES.
|
||||
13. Fixed handling of :ER commands in Turbo C section of ZOpInp.
|
||||
14. Added function prototypes to tecoc.h. They're conditionally compiled
|
||||
based on the new USE_PROTOTYPES identifier defined in zport.h.
|
||||
15. Replaced GENCLP.TEC with GENCLP.C.
|
||||
11-Jun-1989 version 111
|
||||
1. changed EXEEO.C to make the version number 111.
|
||||
2. More type-casts added to allow Turbo C to compile the code when the
|
||||
function prototypes are used (USE_PROTOTYPE == YES).
|
||||
3. Moved setting of EtFlag out of ZInit.c and into ZTrmnl.c.
|
||||
28-Jun-1989 version 112
|
||||
1. changed EXEEO.C to make the version number 112.
|
||||
2. changed || to | in ZTrmnl.c to fix setting of EtFlag.
|
||||
3. changed CrType to VT100 in ZTrmnl.c for IBM-PC so ANSI sequences are used.
|
||||
4. rewrote logic to fix bugs and improve readability in InpDel.c.
|
||||
5. renamed ScrnOp to ZScrOp so IBM-PC screen handling could be added.
|
||||
6. replaced old usage of ET_BKSP_IS_DEL with new code in ZChIn.
|
||||
7. added error message generation to ZChIn
|
||||
8. fixed ZVBLD.COM so the link of GENCLP has LNK$LIBRARY defined
|
||||
9. changed mktemp to tmpnam (ANSI) in ZOpOut.c.
|
||||
10. merged VDoW, VGetW and VSetW into ExeW
|
||||
11. Lots of little changes to reduce messages produced by lint and by
|
||||
Turbo C when the -w switch (maximum warnings) is used.
|
||||
19-Jul-1989 version 113
|
||||
1. changed EXEEO.C to make the version number 113.
|
||||
2. Fixed ZPBLD.BAT and ZPTLIB.BAT
|
||||
3. Added code for IBM PC to ZScrOp.c
|
||||
4. Added FFLINS, used in InpDel and ReadCS.
|
||||
5. Fixed comments in FindQR and tecoc
|
||||
6. Changed ugly \015 to \r, \012 to \n, \011 to \t in all files
|
||||
7. More type casting to reduce warnings from Turbo C.
|
||||
8. Changed almost every file to insert new "charptr" and "QRptr" types.
|
||||
These are needed to support the brain-damaged memory access on IBM-PCs,
|
||||
where the pointers need to be "HUGE" to work.
|
||||
9. fixed a bug in MakRom that caused :X commands (among others) to fail.
|
||||
10. Converted QBfBeg, QBfPtr and QNumbr to the simpler QR
|
||||
11. Rewrote GENCLP so it makes a file that Turbo C reads correctly.
|
||||
12. Made a SIZE_T typedef to support Turbo C.
|
||||
13. Used farmalloc in ZAlloc, farfree in ZFree and farrealloc in ZRaloc in
|
||||
Turbo C sections.
|
||||
14. made 0EJ return 0 for Turbo C.
|
||||
15. Fixed ZWrite code for Turbo C.
|
||||
02-Aug-1989 version 114
|
||||
1. changed EXEEO.C to make the version number 114.
|
||||
2. Renamed RELEASE.TXT to CHANGES.TXT
|
||||
3. merged all the Z files into ZVMS,C, ZMSDOS.C, ZUNIX.C, ZUNKN.C
|
||||
4. merged all the SKP files into SKPCMD.C
|
||||
5. merged CHKHLP.C, FRSTCH.C and INPDEL.C into READCS.C
|
||||
6. merged REDUCE.C into PUSHEX.C
|
||||
7. merged MEMINI.C into INIT.C
|
||||
8. merged DOEI.C into EXEEI.C
|
||||
9. merged DOFBFC.C into SRCLOP.C
|
||||
10. merged EXEE*.C files into EXEE.C (EXEEB.C is an exception)
|
||||
11. merged EXEF*.C files into EXEF.C (EXEFB.C is an exception)
|
||||
12. Implemented colon modifier on EW command. This is an undocumented
|
||||
feature required for the CLPARS macro to work on non-VAXen.
|
||||
13. merged ZFILES.H into ZVMS.C, ZMSDOS.C, ZUNIX.C
|
||||
14. fixed GENCLP.C yet again, for VMS
|
||||
15. fixed memory shuffling bug in RDLINE.C
|
||||
21-Aug-1989 version 115 (Manfred Siemsen)
|
||||
1. Changed ExeEO() in EXEE.C to make the version number 115
|
||||
2. Created DEFEXT.H, replaced all EXTERN lines with #include "defext.h"
|
||||
3. Modified all #if DEBUGGING...#endif lines to call 3 debugging
|
||||
functions: DbgFEn() upon function entry, DbgFEx() upon function
|
||||
exit, and DbgFMs() for messages in the body of a function. Also,
|
||||
indented the debugging lines so they line up under the code they
|
||||
"belong" with, instead of being munched over on the left margin.
|
||||
4. Modified debugging routines to use sprintf/printf to display
|
||||
values of variables instead of displaying things "manually" through
|
||||
other Teco-C build/display routines. We still avoid the use of
|
||||
sprint/printf in non-debugging code.
|
||||
5. Modified the indentation scheme to more closely match K&R
|
||||
6. Put squiggly braces '{}' around ALL statements, even if they
|
||||
aren't required.
|
||||
7. Modified the comment scheme to be consistent with Pete's
|
||||
latest X-window'ish standard.
|
||||
8. Created a Turbo C MAKEFILE (MAKEFILE.TC).
|
||||
9. Began implementation of ZPWild() and ZSWild() in ZMSDOS.C. It
|
||||
seems to work ok, but there should be more error checking put in
|
||||
to guard against the user entering a bizarre filename.
|
||||
10 Implememted ZDoCmd() in ZMSDOS.C. Required change to ExeEG() in
|
||||
EXEE.C. If it wasn't :EG, TxtLen was never set, might have been
|
||||
garbage, moved TxtLen assignment out of "if (COLON..." statement.
|
||||
Also, ZAbort() was called if TxtLen was not zero, should have
|
||||
been called if TxtLen *is* zero.
|
||||
30-Aug-1989 version 116
|
||||
1. Changed ExeEO() in EXEE.C to make the version number 116
|
||||
2. rearranged includes in "Z" files so that my .h files come after the
|
||||
system ones. This was needed so ZPORT.H can redefine FILENAME_MAX,
|
||||
which on VMS is wrong (38 ain't right). Rearranged ZPORT.H for the
|
||||
same reason.
|
||||
3. Replaced ERRMSG.C with ERR.C and created the new error reporting
|
||||
functions ErrChr and ErrStr. Doing this removes places where I was
|
||||
writing into string literals, which worked but wasn't real kosher.
|
||||
It also makes lint happy about ErrMsg (fixed number of arguments now)
|
||||
and modularizes the error code. Merged DSPCHR.C and VRBERR.C into
|
||||
ERR.C.
|
||||
4. Created ZVrbos.
|
||||
5. Fixed error message numbering.
|
||||
6. Fixed prototype for ErrDsp and ErrPst in ERR.C.
|
||||
7. Commented out illegal test case in TSTQR.TEC.
|
||||
8. Made Charac a char instead of an int in ZChIn to fix bug.
|
||||
21-Oct-1989 version 117
|
||||
1. Changed ExeEO() in EXEE.C to make the version number 117
|
||||
2. Moved #endif in TECOC.C from just after DbgSlv() to just after
|
||||
DbgDsp() so DbgDsp() wasn't included when DEBUGGING is FALSE.
|
||||
3. Updated MAKEFILE.TC.
|
||||
4. Updated ZPTLIB.BAT.
|
||||
6. Changed prototype of ZVrbos in ZMSDOS.C, ZVMS.C, ZUNIX.C,
|
||||
ZUNKN.C, and TECOC.H.
|
||||
7. Changed DoEI() comment in EXEE.C.
|
||||
8. Made ZRdEI() call ZRdLin() instead of calling fgets() directly.
|
||||
9. Changed ZWrite() to ZWrLin(), it's more descriptive.
|
||||
23-Oct-1989 version 118
|
||||
1. Changed ExeEO() in EXEE.C to make the version number 118
|
||||
2. minor fixes to make lint happy
|
||||
3. Changed ZChIn() in ZMSDOS.C to ignore any IBM PC scan code
|
||||
other than DEL to eliminate the "Unrecognized character" bomb.
|
||||
4. Changed CLPARS.TES so filespec memory works on PC's.
|
||||
5. Changed EXEQ.C to fix numeric expression parsing
|
||||
6. Change definition of FEArry[] from (*F[])() to (*F[])(VOID)
|
||||
to eliminate Turboc C "function w/no prototype" warning.
|
||||
03-Nov-1989 version 119 (Manfred)
|
||||
1. Changed ExeEO() in EXEE.C to make the version number 119.
|
||||
2. Because of some bizzare behaviour, the CHECKSUM_CODE #define and routines
|
||||
were added to check code at runtime to make sure it wasn't being
|
||||
overwritten. These routines read the Turbo C .MAP file to get the order
|
||||
and length of all the modules, calculates and stores an initial checksum
|
||||
for each module; and then compares the initial checksum of each module
|
||||
with the checksum calculated after every command is executed in ExeCSt().
|
||||
3. Changed ZAlloc(), ZRaloc(), and ZFree() to return and expect a new
|
||||
type "voidptr" instead of charptr's. I then removed the casts before
|
||||
ZAlloc() and ZRaloc() returns in the code. Borland Turbo C says that
|
||||
explictly casting returns from malloc/realloc hides things from the
|
||||
compiler and is bad practice in ANSI C.
|
||||
4. Changed "struct QReg *LQTabl" to "QRptr LQTabl" in the definition of
|
||||
MStck in TECOC.H per phone call w/Pete.
|
||||
5. Changed an incorrect call to DbgFEn() in ZOpOut()...should have displayed
|
||||
DbgSBf instead of "".
|
||||
6. Changed the DbgFEn(), DbgFEx(), and DbgFMs() calls to send NULL instead
|
||||
of "" if there is no special debugging message to display. This saves
|
||||
space when Turbo C is not merging duplicate strings (tcc -d). Otherwise
|
||||
there are billions of "" strings in the .EXE file ("" strings take 1
|
||||
byte of space because they contain a '\0'). I used CHANGE.TEC to do it!
|
||||
7. Changed ZRaloc() in ZMSDOS.C to manually reallocate blocks. There is a
|
||||
problem with Turbo C's farrealloc() in that it uses movedata() to move
|
||||
data from the old block to the new block. Movedata() expects a size_t
|
||||
as the number of bytes to move. size_t under Turbo C v2 is *always* a
|
||||
16-bit unsigned int regardless of memory model. This means that if the
|
||||
old block is >64K, movedata() won't move the data correctly from the old
|
||||
block to the new block when the old block is >64K.
|
||||
8. Implemented the ^B system date (ZExCtB) and ^H system time (ZExCtH)
|
||||
routines in ZMSDOS.C using DOS calls. EIDATE.TES$ will display the
|
||||
current date and time.
|
||||
9. Initialized ff_status in ZMSDOS.C to -1 so EN$$ with no preceding
|
||||
ENfilename$$ doesn't blow up by calling findnext() with no initial
|
||||
findfirst(). Is <File Not Found ""> a reasonable return?
|
||||
10.Changed ExeRBr() so that End_P1 is set to NULL when Start is set to
|
||||
NULL after the ZFree(QR->Start). Otherwise, End_P1 might not be NULL
|
||||
and will cause problems for those routines which blindly subtract
|
||||
End_P1 from Start to get the length of text in the Q-register.
|
||||
11.Changed the line in ^EQq logic part of BldStr() where QR->End_P1 was
|
||||
being subtracted from QR-Start, when it should be the other way around.
|
||||
12.Changed FArray[] in ExeCSt(). The ^Q entry was ExeNYI(), it should have
|
||||
been ExeCtQ(). The ^_ entry was ExeOpr(), it should have been ExeUsc().
|
||||
Actually, both ExeOpr() and ExeUsc() would have pushed ^_ on the stack,
|
||||
so it was a...uh...push.
|
||||
13.Changed ^G entry FCAray[] in ExeCrt() from ExeNul() to ExeIll() so it
|
||||
jibes with FArray[] in ExeCSt() entry.
|
||||
14.The logic in ReadEI() in EXEE.C determining whether or not to add a
|
||||
trailing CR-LF to the line read from the EI file was wrong. ReadEI()
|
||||
now calls ZRdlin() to read lines from the EI file. ZRdLin() returns
|
||||
the length of the read line *without* the trailing newline returned by
|
||||
fgets(). The ReadEI() logic was checking if the line ended in VT or
|
||||
in ESC-CR-LF. Since the line returned by ZRdLin() should never end in
|
||||
CR-LF, the ESC check was bogus. I changed it to only add a CR-LF if
|
||||
the line did NOT end in VT or ESC which I think was the original intent.
|
||||
15.While playing with ReadEI() in EXEE.C, I was having problems reading in
|
||||
a huge macro (>ZBFINIT bytes long). The problem was that if the EI
|
||||
buffer became full (ie: BufPtr == ZBfEnd), ReadEI() was calling
|
||||
ZRdLin() with (ZBfEnd-BufPtr == 0). ZRdLin() was in turn essentially
|
||||
calling "fgets(buf,0,fp)". When told to read into a 0 size buffer,
|
||||
fgets() simply returns the buffer. ZRdLin() only fails if fgets()
|
||||
returned NULL or if an error happened, otherwise it will happily
|
||||
return 0 as the length of the line it read, therefore, back in
|
||||
ReadEI(), the "BufPtr += line_len" never incremented BufPtr
|
||||
anywhere and ReadEI() never broke out of it's FOREVER loop, it
|
||||
looped infinitely, reading zero bytes into a zero length buffer.
|
||||
I added the ZBFMIN and ZBFEXP #defines in ZPORT.H and changed ReadEI()
|
||||
so it dynamically reallocates the EI buffer when it is close to
|
||||
becoming full.
|
||||
16.Changed ExeCtu(). The call to MakRom() used to make the Q-register
|
||||
text area 1 character longer when doing a "n^Qq" was sending the wrong
|
||||
argument. It was sending the new *total* size of the text area
|
||||
(end-start+1) instead of the *additional* size of the text area (1 byte).
|
||||
17.Changed the way the CLPARS macro is handled:
|
||||
a) If USE_ANSI_CLPARS is FALSE.
|
||||
Changed CLPARS.TES to not clear itself out of memory when it was
|
||||
finished. The CLPARS macro is loaded and executed in Q-register Y.
|
||||
The last thing it did was a "0,0XY" to clear itself out. The problem
|
||||
is that ExeX() would call ZFree() to clear Q-register Y, leaving
|
||||
CBfPtr effectively pointing into a free'ed memory area. This wasn't
|
||||
fatal because the "0,0XY" was the very last thing in the CLPARS macro
|
||||
so no further TECO instructions were looked for in the free'ed area;
|
||||
but, technically it was wrong. I removed the "0,0XY" from the CLPARS
|
||||
macro and changed ZPrsCl() so it manually ZFree()'s Q-register Y after
|
||||
it finishes executing it.
|
||||
Note: SQU also uses this technique: issuing a '0,0Xq' at the tail end of
|
||||
a macro loaded in Q-register 'q' to clear the macro out after it
|
||||
finishes executing. If this is a common TECO macro practice, maybe
|
||||
we'll have to think this through a little more.
|
||||
b) If USE_ANSI_CLPARS is TRUE
|
||||
If USE_ANSI_CLPARS is true, the CLPARS macro is stored as one
|
||||
gigantic string in clpars[]. If USE_ANSI_CLPARS is false, the
|
||||
CLPARS macro is split into lines and stored as an array of strings
|
||||
in *clpars[]. The advantage to USE_ANSI_CLPARS is that to execute
|
||||
the CLPARS macro, ZPrsCL() simply made the text area pointers of
|
||||
Q-register Y point at clpars[] to "load" Q-register Y before doing
|
||||
the MY$$. Otherwise, if USE_ANSI_CLPARS is false, the CLPARS
|
||||
macro is executed by (slowly) loading it from *clpars[], line-by-line,
|
||||
into Q-register Y and then doing the "MY$$".
|
||||
The problem was that if USE_ANSI_CLPARS was true, Q-register Y held
|
||||
statically allocated data which could cause problems when the CLPARS
|
||||
macro did the "0,0XY" to clean up. "0,0XY" would make ExeX() try to
|
||||
ZFree() the statically allocated clpars[] string.
|
||||
While looking at this problem I noticed that, other than for historical
|
||||
reasons, there is no reason the CLPARS macro *has* to be executed from
|
||||
Q-register Y. I changed ZPrsCL() so that if USE_ANSI_CLPRS is true, it
|
||||
directly executes the CLPARS macro from the clpars[] string without
|
||||
bothering to load it into Q-register Y first.
|
||||
18.Removed TRACE_IMBEDDED_MACRO.
|
||||
19.Removed static initialization of QRgstr[] in TECOC.C and moved it
|
||||
into MemIni() in INIT.C along with the other initializations of
|
||||
global static arrays (QStack[], etc). [See suggestion (1) below]
|
||||
20.Changed ExeEO to return ExeNYI() for "nEO".
|
||||
21.Changed DoEI(). DoEI() calls PshMac(), ExeCSt(), and PopMac(). If the
|
||||
ExeCSt() failed, it would do a return(FAILURE) without doing the PopMac(),
|
||||
leaving the macro stack off and CBfPtr pointing into the EI buffer. DoEI()
|
||||
was changed so that it does a PopMac() even if ExeCSt() fails. This same
|
||||
type of logic was changed in ExeM().
|
||||
This problem didn't appear unless you tried executing a macro from a file
|
||||
or from a Q-register which failed miserably.
|
||||
22.Changed ReadEI() <again>. When ReadEI() finds a line containing double
|
||||
<ESC>'s, it returns to DoEI(), which then executes everything up to that
|
||||
point. DoEI() then re-calls ReadEI() to finish reading the EI file. The
|
||||
problem was that if there were any commands *after* the two <ESC>'s on
|
||||
the last line read, they would be lost in the shuffle because ReadEI()
|
||||
would start reading into the beginning of ZBf. The SQU.TEC macro had
|
||||
a line with commands after a double <ESC>.
|
||||
23.Fixed ExeO(). ExeO() wasn't completely comparing the desired tag with
|
||||
the tag in the command string. So, if the command string had two tag
|
||||
names which start out the same way, for example:
|
||||
!aa!
|
||||
!a!
|
||||
"Oa" would goto !aa!.
|
||||
24.Changed the way some of the colon-modified commands work. I ran into a
|
||||
situation in SQU where "Y<:A;>" was used. If the yank read in the entire
|
||||
buffer, ExeA() would fail immediately, without clearing the colon-modified
|
||||
bit in CmdMod, thus "passing" CmdMod to ";" converting it to ":;". "n;"
|
||||
breaks if n is zero or positive, "n:;" breaks if n is negative. "Passing"
|
||||
CmdMod to ExeSCl() this way completely altered the sense of the ";" break.
|
||||
25.Fixed case flagging in TypBuf() and made it faster by not doing the
|
||||
Is_Lower() and Is_Upper() checking if EuFlag() is set to EU_NONE.
|
||||
26.Rewrote ZCpyBl() in ZMSDOS.C to use memmove() and memcpy(). They
|
||||
both use 80x86 string instructions and make things much faster.
|
||||
27.PopMac() was clearing the contents of the local Q-register table,
|
||||
but wasn't de-allocating the table itself.
|
||||
28.Changed PshMac(), PopMac(), FindQR(), and Init() to use pointers into
|
||||
the MStack[] and MStack[].QRgstr tables instead of doing redundant array
|
||||
references. Changed Reduce() in PUSHEX.C to use pointers into EStack[]
|
||||
for the same reason. Using pointers should be faster?
|
||||
29.The digit buffer (DBfBeg) was initialized in TECOC.C as:
|
||||
charptr *DBfBeg = " ";
|
||||
then digits were poked into this statically allocated string which really
|
||||
isn't kosher. Changed it so DBfBeg is initialized in MemIni() in INIT.C.
|
||||
06-Dec-1989 version 120
|
||||
1. Changed ExeEO() in EXEE.C to make the version number 120.
|
||||
2. Fixed bug in ZDspBf caused by "length" wrapping when unsigned.
|
||||
3. various little fixups.
|
||||
07-Dec-1989 version 121
|
||||
1. Changed ExeEO() in EXEE.C to make the version number 121.
|
||||
2. Made EC clear the edit buffer after writing files. Thanks, Phil.
|
||||
3. Fixed ZFWrite in ZMSDOS.C to handle files > 64k better.
|
||||
20-Dec-1989 version 122
|
||||
1. Changed ExeEO() in EXEE.C to make the version number 122.
|
||||
2. Added TVERSION (version number of TECOC-C) to TECOC.C
|
||||
3. Fixed ZRdLin in ZVMS.C to make EI commands work.
|
||||
4. Removed the ZInit function. It was being called late (after MemIni),
|
||||
and turned out to be unused anyway.
|
||||
04-Feb-1990 version 123
|
||||
1. Changed ExeEO() in EXEE.C to make the version number 123.
|
||||
2. Removed funny handling of lines terminated with <ESC><CR><LF> do let
|
||||
MS-DOS users edit macros without funnyness.
|
||||
3. Regularized the "debugging level" numbers documented with DbgDMs in
|
||||
TECOC.C.
|
||||
4. Fixed looping logic in SrcLop to make "n_text$" commands work.
|
||||
5. Fixed bug in ClTrEx in ZVMS.C so running from batch works.
|
||||
20-Feb-1990 version 124
|
||||
1. Changed TVERSION in TECOC.H to 124.
|
||||
2. Rewrote MakDBf to make it more portable.
|
||||
2-Mar-1990 version 125
|
||||
1. Changed TVERSION in TECOC.H to 125.
|
||||
2. Fixed so HP with an empty buffer doesn't cause an error message.
|
||||
3. Moved the decision about whether to add/remove CR/LF pairs to/from the end
|
||||
of lines when doing file I/O into the system-dependent functions. This
|
||||
was needed to make MD-DOS happy, and is really where this stuff should
|
||||
be anyway.
|
||||
4. Defined GotCtC as "volatile".
|
||||
5. Rewrote ZRdLin in ZVMS.C to do what TECO-11 really does with all the
|
||||
special characters.
|
||||
6. Put a check for an open output file into ExeEC, so the command HKEFEX
|
||||
will work even if there's more pages in the input file.
|
||||
7. Merged WrBufr and ZWrLin into a singl function called ZWrBfr. Deleted
|
||||
WRBUFR.C and updated the build files. This was needed to provide system
|
||||
dependent control over output so MS-DOS I/O could be cleaned up.
|
||||
22-May-1990 version 126
|
||||
1. Changed TVERSION in TECOC.H to 126.
|
||||
2. Removed code that adds a CR/LF to each record read by ReadEI.
|
||||
3. Fixed VMS output code in ZWrBfr broken in version 125.
|
||||
4. Changed TypBuf so it is interruptable by ^C after displaying a line.
|
||||
5. Defined ChkCtC() so that ^C's work better under MS-DOS.
|
||||
6. Changed ZSWild & ZPWild to work better under CHANGE.TEC.
|
||||
7. Folded wildcard filename buffer (WBf) into "normal" filename buffer (FBf)
|
||||
so G* after ENfilespec$ returns "filespec".
|
||||
1-June-1990 version 127
|
||||
1. Changed TVERSION in TECOC.H to 127.
|
||||
2. Modified ZDoCmd() in ZMSDOS.C so you can EGfilename.BAT$.
|
||||
3. Added EBfFul to avoid "?MEM memory overflow" messages when reading large
|
||||
files. Now TECO-C quietly stops reading.
|
||||
4. Reduced number of times ChkCtC() is called to speed display up.
|
||||
5. renamed AAAREADME.TXT to AAREADME.TXT, needed by MS-DOS
|
||||
8-June-1990 version 128
|
||||
1. Changed TVERSION in TECOC.H to 128.
|
||||
2. Fixed loops that initialize IsOpnI, IsEofI and IsOpnO in Memini. Thanks
|
||||
to Chuck Cranor.
|
||||
3. Added ZExit, ZClnUp and ClenUp and replaced ZAbort with TAbort. This
|
||||
modularizes exit handling.
|
||||
4. Applied lots of fixes to zunix.c suggested by Chuck Cranor. These include
|
||||
terminal initialization and use of termcap for terminal sequences.
|
||||
5. Added a type cast to FindQR to prevent a compiler warning.
|
||||
13-June-1990 version 129
|
||||
1. Changed TVERSION in TECOC.H to 129.
|
||||
2. Made n^T display n modulo 256 instead of generating an error when n
|
||||
is out-of-range. Now it matches documentation.
|
||||
3. Worked on file I/O in ZUNIX.C.
|
||||
20-June-1990 version 130
|
||||
1. Changed TVERSION in TECOC.H to 130.
|
||||
2. Applied Tom Almy's MS-DOS fixes to prevent conversions of line feeds
|
||||
written to the terminal to carriage-return/line-feed pairs.
|
||||
3. Applied Tom Almy's fixes to the search code. Now backwards searches
|
||||
work better.
|
||||
4. Applied Tom Almy's fixes so eight-bit characters are better supported.
|
||||
5. Minor fixes to ExeW.
|
||||
6. Replaced ZRdLin in ZMSDOS.C with Tom Almy's superior version.
|
||||
7. EBfFul was a global used only by RdLine, ExeA and RdPage. I made it
|
||||
an argument. Seemed like the right thing to do.
|
||||
8. Changed the type of the length argument to InsStr from LONG to ptrdiff_t.
|
||||
9. Applied Tom Almy's fixes to DoEvEs and ReadCS.
|
||||
10. Fixed up PG.RNO and created a new PG.MEM.
|
||||
11. Removed BYTE identifier from ZPORT.H and did related fixups.
|
||||
12. Started (by no means complete) supporting 8-bit characters throughout
|
||||
the code. In most cases, this means changing things declared "char"
|
||||
to be declared "unsigned char".
|
||||
13. Deleted DSPCHR.C, which wasn't even compiled.
|
||||
17-July-1990 version 131 (Manfred)
|
||||
0. Changed TVERSION in TECOC.H to 131
|
||||
1. In TECOC.C, ChrMsk[], changed 128 RCS_DEL entries Pete added to RCS_DEF.
|
||||
2. In ZMSDOS.C, added #include <fcntl.h> to get O_BINARY #define. In
|
||||
ZTrmnl(), added "setmode(fileno(stdout),O_BINARY)" per Tom Almy.
|
||||
3. In MAKEFILE.TC, added -K (default to unsigned char) to TCC so string
|
||||
literals which are signed char ptr's don't conflict with the unsigned
|
||||
char ptr's now used all over to get eight-bit chars per Tom Almy.
|
||||
Also added tabort.obj to TECOC_OBJS macro. Also added -DTCPP100 macro.
|
||||
4. In ZPORT.H, changed EBFEXP, EBFINIT, IBFEXP, IBFINIT from 64000
|
||||
to 64000L to get rid of TC++'s "Constant is long" warnings.
|
||||
5. In ERR.C, ToErr(), got rid of TC++'s "Conversion may lose significant
|
||||
digits" in Sbuf[DBfPtr-DBfBeg] line by using SLen to hold DBf length;
|
||||
changed bogus compare "> '\126'" to "> '\177'"; also, the final ']'
|
||||
was overwriting last digit in SBuf.
|
||||
6. In RDLINE.C, changed function return type of expand_ibf from an
|
||||
"static" to "static void". Also added prototype.
|
||||
7. In TECOC.H, added prototype for errprt().
|
||||
8. In RDLINE.C, expand_ibf(), added #if DEBUGGING lines so DbgFNm is declared.
|
||||
9. In ZMSDOS.C, ZRdLin(), fixed typo in #if DEBUGGING "FAILURE" section.
|
||||
10. In ZMSDOS.C, ZRaloc(), added test for TC++ v1.00 since the heap layout
|
||||
has changed. In TC v2.0? mimic farrealloc(), in TC++ v1.00 call
|
||||
farrealloc() directly.
|
||||
18-July-1990 version 132
|
||||
0. Changed TVERSION in TECOC.H to 132
|
||||
1. lots more work to resolve type mismatches, so lint and gcc don't
|
||||
complain so much.
|
||||
2. fixed the ? immediate-mode command.
|
||||
3. used GAPMIN in RdLine to fix wasteful memory use.
|
||||
4. removed superflous parentheses from return statements.
|
||||
5. to test that identifiers defined in ZPORT.H are minimally consistent,
|
||||
added some tests in TECOC.C
|
||||
6. To finish up eightbit handling, added ZSetTT, a function to let TECO set
|
||||
terminal characteristics. Since it's there, added code so the 1:W and
|
||||
2:W commands change screen size. Not video yet, but a little closer.
|
||||
7. Changed ZMkOFN into a macro named ZMKOFN.
|
||||
8. Fixed ZChIn to handle NoWait correctly.
|
||||
9. Fixed handling of 0,32et bit.
|
||||
(8-August-1990 Manfred)
|
||||
10. In TECOC.C, changed "\n" to "\r\n" in debugging displays since stdout
|
||||
is now in binary mode.
|
||||
11. In INIT.C, in MemIni(), added Tom Almy's suggestion to temporarily
|
||||
allocate a small chunk of memory to be used as a small-allocation
|
||||
memory pool which may help keep memory fragmentation down.
|
||||
12. In ZPORT.H, removed unused UWORD typedef.
|
||||
13. In ZMSDOS.C, in ZVrBos(), changed old style function definition.
|
||||
14. In ZMSDOS.C, propagated MPtrs[] dynamic allocation tracking to ZRaloc(),
|
||||
added TC++'s new heapcheck() routines to check the heap on every alloc,
|
||||
realloc, and free. We *are* DEBUGGING and don't care about speed
|
||||
penalties, right?
|
||||
15. In ERR.C, the one-line error messages for ERR_PES and ERR_PDO were
|
||||
switched (Argh!).
|
||||
16. In ZPORT.H, expanded EXS_SIZE, LPS_SIZE, MCS_SIZE, and QRS_SIZE so
|
||||
SQU.TEC has some breathing room. Should these expand themselves?
|
||||
17. Some of the .TEC and .TES files supplied with TECO-C were padded with
|
||||
NUL's and some lines ending with ESC had an extra CR.
|
||||
18. In ZMSDOS.C, ZDspCH() called write(). should call fwrite() or we're
|
||||
mixing calls to write/fwrite on stdout which is bad. also, the code
|
||||
which directly set stdout->flags'_F_BIN bit after setmode(stdout) in
|
||||
ZTrmnl() somehow was lost between Pete's version and mine (?)
|
||||
19. In ZMSDOS.C, in ZRdLin(), iBuf was cast as "char far *", should have
|
||||
been cast simply as a "char *" otherwise compiling w/small data model
|
||||
doesn't work.
|
||||
20. In CHANGE.TES, changed some ^U constructs so it's now SQUishable.
|
||||
21. In ZMSDOS.C, added ff_path[] to save ENfilespec$ wildcard lookup
|
||||
filename since we can't be sure FBf will still contain the wildcard
|
||||
lookup filename between ENfilespec$ and EN$.
|
||||
22. Changed CLPARS.TES so when you MUNG there's no leftover trash in
|
||||
q-register 0. (Pete)
|
||||
19-August-1990 version 133 (Manfred)
|
||||
0. Changed TVERSION in TECOC.H to 133
|
||||
1. In EXEO.C, added support for computed gotos (nOtag0,tag1...$)
|
||||
2. In INIT.C, in MemIni(), the digit buffer was being overrun on -1== since
|
||||
the calculation to allocate the digit buffer either: a) didn't take into
|
||||
account that 32-bits-per-long/3-bits-per-octal-digit doesn't divide evenly
|
||||
(loses 2 bits), or b) didn't take into account that ExeEqu() might append
|
||||
<CR><LF> to the digit buffer for =, ==, or === display purposes.
|
||||
3. In ZMSDOS.C, fixed MPtrs[] tracking in ZRaloc, didn't work correctly
|
||||
when farrealloc() eventually returns NULL.
|
||||
4. In TECOC.C, added Turbo C's heapcheck() routine to check_consistency().
|
||||
5. In RDLINE.C, in RdLine(), after expand_ibf(), was calling ZRdLin() even
|
||||
if EBfFul was set TRUE. I don't think it should, even though we might be
|
||||
able to read a line less than IBFMIN bytes long.
|
||||
9-September-1990 version 134 (Pete)
|
||||
0. Changed TVERSION in TECOC.H to 134
|
||||
1. Changed the way I handle conditional inclusion of debugging code.
|
||||
Borrowing from the way the ANSI assert macro works, all the debugging
|
||||
functions are now macros, which don't produce any code if DEBUGGING
|
||||
is FALSE.
|
||||
2. Added TECOC.OPT so the VAX linker puts literal text strings into a
|
||||
non-writeable PSECT.
|
||||
3. Fixed ExeBSl so it will read a numeric string from the edit buffer even
|
||||
if it's preceded by a minus-sign or plus-sign, and fixed TSTBSL.TEC
|
||||
so it tests for these cases.
|
||||
18-October-1990 version 135 (Pete)
|
||||
0. Changed TVERSION in TECOC.H to 135.
|
||||
1. Updated PG.RNH/PG.MEM again.
|
||||
2. Fixed define of DBGFEX in TECOC.H so DEBUGGING works again.
|
||||
3. Fixed FindQR and ExeM to make TECO-C handle :M commands correctly.
|
||||
21-November-1990 version 136
|
||||
0. Changed TVERSION in TECOC.H to 136.
|
||||
1. Fixed DBGFEX syntax bug on line 1118 of ZMSDOS.C
|
||||
2. Removed extra close parenthesis in EXEW.C
|
||||
3. Fixed BLDSTR.C to allow searching for nulls. Thanks to Tom Almy.
|
||||
4. Fixed ExeFGt to work correctly. Bug found by Richard Graham.
|
||||
5. Added missing enblosing braces in InsStr. Thanks to Mark Henderson.
|
||||
6. Added Mark Henderson's additional code to BldStr to provide ^EQ* (file
|
||||
spec buffer) and ^EQ_ (search string buffer) support. Then broke BldStr
|
||||
into functions for readability.
|
||||
7. Inserted Mark Henderson's time and date code into ZUNIX.C. Testing with
|
||||
DATE.TEC revealed a slight bug, fixed.
|
||||
8. Added ZAMIGA.C and some mods to ZPORT.H from Ben Mesander to support
|
||||
TECO-C under Amiga-DOS. Thanks Ben!
|
||||
9. Fixed ExeEQ so it preserves the state of FFPage when reading files.
|
||||
Thanks to Mark Henderson.
|
||||
10. Added ZBell function to make the bell sound better under MS-DOS.
|
||||
Thanks to Steve Freyder.
|
||||
11. Added Mark Henderson's code (he got glob.c from Berkeley stuff)
|
||||
to do wild-carding of file names. Reorganized it some. Thanks, Mark.
|
||||
12. Added Mark's code to name backup files sort of like VMS. Not sure I
|
||||
like this yet, because I haven't tried it. ED bit 4 controls it, like
|
||||
so (from Mark:)
|
||||
ED&4 now specifies the mechanism for backup files
|
||||
if ED&4 is set then we use the foo foo.bak mechanism (as originally)
|
||||
if ED&4 is clear the first backup file will be named foo;1, the
|
||||
second foo;2, ...&c. Sort of VMS like, but the most recent
|
||||
version will be known by the name foo.
|
||||
13. Mark added TECFILES environment variable.
|
||||
If for ei commands and TECO.INI the file is not found in the
|
||||
current directory the directory $(TECFILES) will be searched.
|
||||
I've been keeping my teco startup files in ~/.teco
|
||||
26-December-1990 version 137
|
||||
0. Changed TVERSION in TECOC.H to 137.
|
||||
1. Minor fixups to get ZUNIX.C to compile.
|
||||
2. Moved the line that resets FFPage to zero. It was in RdPage, now it's
|
||||
in RdLine so a 1:a command now correctly resets flag. Thanks to Richard
|
||||
Graham for reporting this one.
|
||||
3. Modified ExeCtE so you can now set the flag as well as get its value,
|
||||
like in TECO-11 and TECO-32.
|
||||
4. Fixed ExeBSl so it sets RefLen when it converts a digit string in the
|
||||
edit buffer into a binary value. Thanks to Mark Henderson.
|
||||
5. Merged in new Amiga support files from Ben Mesander. There's a new
|
||||
ZAMIGA.C, which now has time and date support. Ben supplied files
|
||||
MAKEFILE.AMI and TECOC.LNK for building on the Amiga.
|
||||
29-December-1990 version 138
|
||||
0. Changed TVERSION in TECOC.H to 138.
|
||||
1. Rewrote the TSTO.TEC macro, which pointed out a bug in TECO-32!
|
||||
2. Added "smallcode smalldata" to LFLAGS vlue in MAKEFILE.AMI to make TECO-C
|
||||
smaller (for faster startup) under AmigaDOS. Thanks to Ben Mesander.
|
||||
3. Moved OpnInp and OpnOut into ExeE because only ExeE functions call them.
|
||||
4. Changed ZOpInp function in ZVMS to do the right thing with the default
|
||||
macro library directory. ZAMIGA.C, ZUNIX.C and ZMSDOS.C need to be
|
||||
changed.
|
||||
10-January-1991 version 139
|
||||
0. Changed TVERSION in TECOC.H to 139.
|
||||
1. Fixed ZUNIX.C so it handles default EI file names correctly. Still needs
|
||||
ZClnEG to be implemented.
|
||||
2. Applied Mark Henderson's patch to ZChIn to fix Control-C handling.
|
||||
3. Applied Mark Henderson's patch to ExeEQ to fix EBFEnd pointer screw-up
|
||||
when reading a large file with EQ. Thanks again, Mark!
|
||||
4. Applied Ben Masander's patch to ZAMIGA.C to correctly call isatty.
|
||||
5. Implemented "SYM" part of :EG command for VAX/VMS, so TECO-C can set DCL
|
||||
symbols like DEC's TECO.
|
||||
20-January-1991 version 140
|
||||
0. Changed TVERSION in TECOC.H to 140.
|
||||
1. Reworked ExeEG and ZClnEG to make it work under Unix and to do the
|
||||
system dependent stuff in the right places.
|
||||
2. Modified GENCLP to make it create clpars as "unsigned char" instead of
|
||||
"signed char" to remove a gcc warning. Made GENCLP compile/link/run under
|
||||
SunOS and modified MAKEFILE.SUN to include processing of GENCLP.
|
||||
3. Changed GENCLP.C to define clpars as "const" for ANSI compilers.
|
||||
4. Received another ZAMIGA.C from Ben Mesander. He is now using RCS to
|
||||
control revisions, so there'll be version numbers for ZAMIGA.C from now
|
||||
on. This is version 1.4.
|
||||
5. Implemented Mark Henderson's suggestion to make the size of error
|
||||
message buffers a #define'd identifier. I named it ERBFSIZ.
|
||||
6. Merged in Mark Henderson's video support. This involved a LOT of
|
||||
changes, including:
|
||||
a. Merged MOVE.C into ZUNIX.C
|
||||
b. changed VOID to VVOID to avoid clashing with CURSES.H
|
||||
c. lots of added code with "#if CURSES" control
|
||||
d. created VIDEO.TXT
|
||||
e. created an EZ mode control flag for Mark's bits.
|
||||
f. added exetil.c
|
||||
23-February-1991 version 141
|
||||
0. Changed TVERSION in TECOC.H to 141.
|
||||
1. Some slight changes to make lint happy.
|
||||
2. From Manfred: added DBGFEN calls to DoCtVW and DoCtE in BldStr, fixed
|
||||
DbgFNm in ExeF, removed extra "#include <dos.h>" from ZMSDOS.C, added
|
||||
"fclose(fp)" to init_code_checksums in ZMSDOS.C, and some other minor
|
||||
fixups in ZMSDOS.C. Changed MAKEFILE.TC to avoid "Abnormal Program
|
||||
Termination".
|
||||
3. Added check of terminal width & height to ExeW for 0,1:w error.
|
||||
4. Added Mark Henderson's fix to let ZUNIX.C compile under SunOS 4.0.
|
||||
15-March-1991 version 142
|
||||
0. Changed TVERSION in TECOC.H to 142.
|
||||
1. Added Ben's fixes to slight build problems on AmigaDOS.
|
||||
2. Fixed makefile.sun to make it handle SunOS 4.1 as well as 4.0. Still
|
||||
needs hand-editing to the makefile before running it. Defaults to 4.1.
|
||||
3. Added some fixes to ZUNIX.C to reduce gcc warnings.
|
||||
4. Repaired makefile.sun, which was broken.
|
||||
5. Fixed EXEFTIL.C and EXEF.C so they compile when DEBUGGING is defined.
|
||||
20-April-1991 version 143
|
||||
0. Changed TVERSION in TECOC.H to 143.
|
||||
1. Changed CLPARS.TEC to parse Unix command lines with "-" for options
|
||||
instead of "/".
|
||||
2. Under Unix, changed ZClnEg to implement last-file-edited memory using
|
||||
files in /tmp instead of gawdawful TECF00.TMP files in the current
|
||||
directory.
|
||||
3. Slight include file #ifdef changes to let it compile under SunOS 4.1.1.
|
||||
4. Changed makefile.sun to not use a library. It's much faster this way.
|
||||
5. Added case for tilde command to SkpCmd.c.
|
||||
6. Those C files that directly include curses.h needed to have the
|
||||
#include moved above zport.h.
|
||||
7. Fixed ExeW so if we're not compiled with video, it returns nothing
|
||||
instead of FAILURE, like TECO32. Returning FAILURE causes the current
|
||||
macro to fail, and the current macro might be CLPARS!
|
||||
8. Fixed ZUNIX.C so ET_UNIXNL is correctly defined.
|
||||
9. Added Jerry Leichter's fixes to port to Ultrix, including makefile.ulx.
|
||||
10. Fixed bug in ZUNIX.C where ZDspCh was being called with a string instead
|
||||
of a character. Thanks Jerry!
|
||||
2-June-1991 version 144
|
||||
0. Changed TVERSION in TECOC.H to 144.
|
||||
1. For the ^P command (for debugging, must compile with DEBUGGING set)
|
||||
to work, each function that starts with a call to DBGFEN needs to have
|
||||
a call to DBGFEX before every exit point, or the pretty nesting gets
|
||||
screwed up. Added some DBGFEX calls to BldStr and ZOClos (in ZUNIX.C)
|
||||
to fix the display when 4,0 is used.
|
||||
2. Fixed DoFlag, ExeCtR, ExeCtT, ExeW and ExeBSl so they check the expression
|
||||
stack correctly. They can now be used in expressions without problems.
|
||||
Thanks to Mark Henderson and Jerry Leichter for reporting this.
|
||||
3. Moved the check for "negative argument to comma" from ExeCom to GetAra,
|
||||
where it belongs. This allows -1,5:w commands to work. Thanks to Jerry
|
||||
Leichter.
|
||||
4. Instead of "unterminated command", GetNmA now returns "ill-formed
|
||||
expression", an new error message, when the stack is bogus.
|
||||
5-June-1991 version 145
|
||||
0. Changed TVERSION in TECOC.H to 145.
|
||||
1. Modified PshMac to test set NumArg correctly, so a command like
|
||||
^UA1$2+MA=$$ will work.
|
||||
2. The "#else" on line 122 of ZUNIX.C should be a "#endif".
|
||||
5-June-1991 to 18-June-1993 version 146
|
||||
0. Changed TVERSION in TECOC.H to 146.
|
||||
1. Removed the ~ and F~ commands (the EXETIL.C file and the ExeFTi function)
|
||||
They were temporary commands used by Mark Henderson.
|
||||
3. Added makefile.cct, fixed various minor nits suggested by CodeCenter.
|
||||
4. Fixed error in the way the EI command reads files. If the file being
|
||||
read was too large for the buffer, memory was getting stomped. Thanks
|
||||
to Mark Henderson for reporting the bug in detail and suggesting a fix.
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
/*****************************************************************************
|
||||
Chmacs.h
|
||||
These are tested relational expressions. The ones defined for some
|
||||
C's, like isalnum, tolower, etc do not always work, because they rely on bit
|
||||
patterns within ASCII. These work.
|
||||
Note: if this file is included, the tecoc.h file must precede it.
|
||||
*****************************************************************************/
|
||||
extern unsigned char ChrMsk[];
|
||||
#define Is_Upper(ch) (ChrMsk[(ch)] & CM_UPPER)
|
||||
#define Is_Lower(ch) (ChrMsk[(ch)] & CM_LOWER)
|
||||
#define Is_Digit(ch) (ChrMsk[(ch)] & CM_DIGIT)
|
||||
#define Is_Alpha(ch) (ChrMsk[(ch)] & (CM_UPPER | CM_LOWER))
|
||||
#define Is_Alnum(ch) (ChrMsk[(ch)] & (CM_UPPER | CM_LOWER | CM_DIGIT))
|
||||
#define To_Lower(ch) (Is_Upper(ch) ? (ch)+' ' : (ch) )
|
||||
#define To_Upper(ch) (Is_Lower(ch) ? (ch)-' ' : (ch) )
|
||||
/*****************************************************************************
|
||||
these are TECO-specific. The above are not.
|
||||
*****************************************************************************/
|
||||
/* is line terminator */
|
||||
#define IsEOL(ch) (ChrMsk[(ch)] & CM_LINE_TERM)
|
||||
/* is symbol constituent */
|
||||
#define Is_SyCon(ch) (Is_Alnum(ch) || ch == '.' || ch == '_' || ch == '$')
|
||||
|
|
@ -0,0 +1,50 @@
|
|||
/*****************************************************************************
|
||||
ClenUp()
|
||||
This function "cleans up" in preparation for terminating TECO-C. All
|
||||
open files are closed and memory is freed.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
VVOID ClenUp (VVOID) /* cleanup for TECO-C abort */
|
||||
{
|
||||
QRptr QRp;
|
||||
int i;
|
||||
ZIClos(PINPFL); /* Close the primary and secondary... */
|
||||
ZIClos(SINPFL); /* ...input streams, if they're open */
|
||||
ZOClDe(POUTFL); /* Close the primary and secondary... */
|
||||
ZOClDe(SOUTFL); /* ...output streams, if they're open */
|
||||
/*
|
||||
* free dynamically allocated buffers
|
||||
*/
|
||||
if (CBfBeg) ZFree((voidptr)CBfBeg); /* the command buffer */
|
||||
if (DBfBeg) ZFree((voidptr)DBfBeg); /* the digit buffer */
|
||||
if (EBfBeg) ZFree((voidptr)EBfBeg); /* the edit buffer */
|
||||
if (FBfBeg) ZFree((voidptr)FBfBeg); /* the filename buffer */
|
||||
if (SBfBeg) ZFree((voidptr)SBfBeg); /* the search string buffer */
|
||||
/*
|
||||
* free the global [0-35] and main-level local [36-71] Q-registers,
|
||||
* and then the Q-register stack.
|
||||
*/
|
||||
for (QRp = QRgstr, i = 0; i < 72; ++i, ++QRp) {
|
||||
if (QRp->Start != NULL) {
|
||||
ZFree((voidptr)QRp->Start);
|
||||
}
|
||||
}
|
||||
for (QRp = QStack, i = 0; i < QRS_SIZE; ++i, ++QRp) {
|
||||
if (QRp->Start != NULL) {
|
||||
ZFree((voidptr)QRp->Start);
|
||||
}
|
||||
}
|
||||
ZClnUp(); /* do system-dependent cleanup */
|
||||
#if DEBUGGING
|
||||
{
|
||||
/*
|
||||
* at this point, there shouldn't be any block malloc'ed by TECO-C.
|
||||
* except if we're here because we EX'ed out of a macro, and we can't
|
||||
* get to the ZBf buffer allocated in ExeEI, so the ZBf buffer is
|
||||
* left hanging.
|
||||
*/
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
|
@ -0,0 +1,72 @@
|
|||
!CLPARS.TEC V2.3 14-May-2004 Tom Almy, Pete Siemsen, and Mark Henderson!
|
||||
[F0,0XF[90,0X9[00,0X0[20,0X210U0[0U0[00EDU0[0ED&4EDEUU0[0-1EU
|
||||
ESU0[00ESETU0[032768#32#8#1,0ETQ1U00U1[10,0X10U4
|
||||
(-1EJ-25600)*(-1EJ-25858)"E -UY| /UY'@.T/:QF"E.U.1Iteco0EJ\.-Q1U.L
|
||||
Q.L-8"GQ.1+4JQ.L-8D4C'I.tmpQ.1,.XFQ.1,.D'/27:.TQ0+1"E32768U0'
|
||||
32768"E:EITECO"S]1Q0#32768U1[1JODONE''Z"EGZ0,0XZ'J::S^ES"SD'
|
||||
::STECO32"S-2D'ZJ-:S^ES"S.-Z"EFR''Z"EODONE'Q0&32767U10,0X10,0X9
|
||||
J:S^ES^EUYNOI"SONOINI'J:S^EUYNOI"FONONOINI'!NOINI!
|
||||
D::SN"S-D::SI"S-D''::S^ES"SD0A"AI ''Q1#4096U1!NONOINI!Q1&4096"E
|
||||
HX0HKEPEAEF:EGINI"SG*J0A-36"EDHX1HK:ER^EQ1"SYHX1HKECG1|
|
||||
%Can't find initialization file ":G1"1310''0,0X1|0,0X1
|
||||
(-1EJ-5)*(-1EJ-1024)"EEN[]*.*:EN"SG*JS[R0KFS.]JS]0,.X1HK''
|
||||
:ER^EQ1TECO.INI"SYHX9HKECG90,0X9''EREWZ"NZJ.U0G1I=G0Q0JZX9ZK]1
|
||||
]0Q0ET]0Q0ES]0Q0EU]0Q0ED]0Q0]0Q0]2HX0HKG9JS=0,.-1X90,.KM0+0U90,0X0
|
||||
[20,0X210U0[0U0[00EDU0[0ED&4EDEUU0[0-1EUESU0[00ES
|
||||
ETU0[032768#32#8#1,0ET[1G9X1K0,0X9Q9U1J::S^ES"SD'
|
||||
ZJ-:S^ES"S.-Z"EFR''Z"EOSCOPES'|G0''J:S^ES^EUYNOM"SONOMEMORY'
|
||||
J:S^EUYNOM"FONONOMEMORY'!NOMEMORY!
|
||||
D::SE"S-D::SM"S-D::SO"S-D::SR"S-D::SY"S-D'''''
|
||||
::S^ES"SD0A"AI ''Q1#4U1!NONOMEMORY!J:S^ES^EUYNOC"SONOCREATE'
|
||||
J:S^EUYNOC"FONONOCREATE'!NOCREATE!
|
||||
D::SR"S-D::SE"S-D::SA"S-D::ST"S-D::SE"S-D'''''
|
||||
::S^ES"SD0A"AI ''Q1#256U1!NONOCREATE!J:S^ES^EUYNOP"SONOPAGE'
|
||||
J:S^EUYNOP"FONONOPAGE'!NOPAGE!D::SA"S-D::SG"S-D::SE"S-D'''
|
||||
::S^ES"SD0A"AI ''Q1#64U1!NONOPAGE!J:S^ES^EUYNOR"SONORENAME'
|
||||
J:S^EUYNOR"FONONORENAME'!NORENAME!D::SA"S-D::SG"S-D::SE"S-D'''
|
||||
::S^ES"SD0A"AI ''Q1#512U1!NONORENAME!
|
||||
J::STE"S<0A"AC|1;'>::S^ES@"S0KIMUNG ''J::SMU"S-2D<0A"AD|1;'>
|
||||
::S^ES"SD'(-1EJ-5)*(-1EJ-1024)"EJ::S""S-D::S^ES"SD'''ZU0
|
||||
(-1EJ-25600)*(-1EJ-25858)"EJ:S-"SR.-Q0"L.U0''|J:S/"SR.-Q0"L.U0'''
|
||||
J:S^ES"S.-Q0"L.U0''J<S,;.U1Q1-1J-:S["S:S]"S.-Q1"GF<'''
|
||||
Q1-1J-:S<"S:S>"S.-Q1"GF<'''Q1-1J-:S("S:S)"S.-Q1"GF<'''
|
||||
Q1-1J.-1-Q0"LD.U0'0;>Q0J<-.;-1A-32"N-1A-9"N0;''-D>0,.X.0
|
||||
:Q.0"E?How can I MUNG nothing?1310'::S^ES 0,.K0U0EI^EQ.0
|
||||
JODONE'J:S^ES^EUYVT"SOVTEDIT'J:S^EUYVT"FONOVTEDIT'!VTEDIT!
|
||||
The VTEDIT command line option is not supported by TECOC1310
|
||||
!NOVTEDIT!J:S^ES+"SD\U40,128EZD::Ss"SD0A"AI '''Q1&64"N0,128EZ'
|
||||
J:S^ES^EUYSC"SOSCROLL'J:S^EUYSC"FONOSCROLL'!SCROLL!
|
||||
D::SR"S-D::SO"S-D::SL"S-D::SL"S-D''''::S:^ED"SR-D\U2FR|0U2'
|
||||
::S:S"S-2D::SE"S-D::SE"S-D::SA"S-D::SL"S-D::SL"S-D'''''Q1#16U1'
|
||||
::S^ES"SD0A"AI ''Q1#128U1!NOSCROLL!J::STE"S-2D<0A"AD|1;'>
|
||||
::S^ES"SD'J:S^ES^EUYIN"SOINSPECT'J:S^EUYIN"FONOINSPECT'!INSPECT!
|
||||
D::SS"S-D::SP"S-D::SE"S-D::SC"S-D::ST"S-D'''''
|
||||
::S^ES"SD0A"AI ''Q1#2U1!NOINSPECT!J:S^ES^EUYFI"SOFIND'
|
||||
J:S^EUYFI"FONOFIND'!FIND!
|
||||
The /FIND command line option is not supported by TECOC1310
|
||||
!NOFIND!J<.-Z;0A-9"EDF<'0A-32"EDF<'C-1A- ""E:S""S
|
||||
(-1EJ-25857)*(-1EJ-25858)"E0J2<@FS/"//>ZJ'|ZJ''>Q1&4#Z"E:EGMEM"SG*J
|
||||
::S$"SD|OGOTIT'|M.TGF'HX0HKEPEAEF:ER^EQ0"SYL."N-1A-10"E-D''
|
||||
."N-1A-13"E-D''ZKHX0HKECG0'EREW0,0X0!GOTIT!ZJZ"NQ1#32768#16384U1''
|
||||
Q1&16384"NQ1&2"EEdi|Inspec'ting file "HT"1310'Z"E
|
||||
Q1&2"EOSCOPES'?How can I inspect nothing?1310'Q1&2"EJ:S="S
|
||||
0,.-1X00,.KZU0HX2HK:Q2"N:ER^EQ2"UG2HX0HKONOTFND'':Q0"NEW^EQ0'Q0"N
|
||||
Q1#2048U1'OREMEM''HX0HKQ1&2"E:EB^EQ0"SQ1#2048U1OREMEM':ERQ0"S
|
||||
Q1#2048U1%Can't write to file -- opening for input only1310OREMEM
|
||||
'Q1&256"NQ1&32768"EONOTFND''%Can't find file ":G0"1310
|
||||
Q1&32768"E%Creating new file1310OCREATE|
|
||||
%Ignoring TECO's memory1310Q1#8192U10,0X0OREMEM'':ER^EQ0"S
|
||||
Q1#2048U1OSCOPES'!NOTFND!?Can't find file ":G0"?1310'
|
||||
J::SMA"S-2D<0A"AD|1;'>::S^ES"SD'J<.-Z;0A-9"EDF<'0A-32"EDF<'C
|
||||
-1A- ""E:S""S(-1EJ-25857)*(-1EJ-25858)"E0J2<@FS/"//>ZJ'|ZJ''>
|
||||
Z"E?How can I MAKE nothing?1310'
|
||||
Z-4"EJ::SLOVE"SNot war?1310''HX0HK!CREATE!EW^EQ0OREMEM'
|
||||
%Unrecognized command "HTHK"1310OSCOPES!REMEM!Q1&8192"E
|
||||
Q1&(32768#4)"NOSCOPES':Q0"EOSCOPES'':EGMEM"SZJG*C::S$"U
|
||||
ZK:EGMEM ^EQ0OSCOPES|-1DZXFZK'|M.T'EA:EW^EQF"SG0HPWHKEF'EW!SCOPES!
|
||||
!YANK!Q1&2048"NY'JQ1&128"NET&512"E
|
||||
%Your terminal is not an interactive scope1310|Q2"E2:W-4U2'0,3:W
|
||||
Q1&16"N1,3:W'0,5:WQ1&32"N1,5:W'Q2,7:W-Q2"N
|
||||
%Your terminal doesn't support scrolling1310'''!DONE!Q4-1"G
|
||||
Q4-1:S^J"U0J''Q1&64"N0,128EZ'Q1&512"N0,2EZ']1]0Q0ET]0Q0ES]0Q0EU]0Q0ED
|
||||
]0Q0]0Q0]2]0]9]F0U.10U.L0U40UY0,0X.T
|
||||
|
|
@ -0,0 +1,808 @@
|
|||
!CLPARS.TEC V2.3 14-May-2004 Tom Almy, Pete Siemsen, and Mark Henderson!
|
||||
|
||||
!+***************************************************************************
|
||||
This macro is the imbedded command-line parsing macro for TECOC. It
|
||||
was created by extracting the imbedded command-line parsing macro from the
|
||||
TECO-11 executable file and then modifying it.
|
||||
|
||||
This macro is compiled into TECO-C. This is the human-readable
|
||||
source code. To compress it (remove comments, extra whitespace, etc.)
|
||||
into an unreadable version in file CLPARS.TEC, do the following command
|
||||
with a working TECO:
|
||||
|
||||
mung squ clpars.tec=clpars.tes/d:n/l:y/b:y/t:n/c:+/w:n/a:y/e:n
|
||||
|
||||
Then run genclp to convert CLPARS.TEC into CLPARS.H, a C include file.
|
||||
|
||||
Notes:
|
||||
|
||||
1. On entry, Q1 contains a value
|
||||
|
||||
2. Bits in Q-register 1 have the following meanings:
|
||||
|
||||
1 /VTEDIT
|
||||
2 /INSPECT
|
||||
4 /NOMEMORY
|
||||
8 /FIND
|
||||
16 /SEEALL
|
||||
32 /HOLD
|
||||
64 /NOPAGE
|
||||
128 /SCROLL
|
||||
256 /NOCREATE
|
||||
512 /NORENAME
|
||||
1024 unused
|
||||
2048 input file is open
|
||||
4096 /NOINI
|
||||
8192 force setting of filespec memory
|
||||
16384 input filename is in edit buffer
|
||||
32768 ???
|
||||
|
||||
3. Q-register 2 holds numeric argument of /SCROLL:n switch
|
||||
|
||||
4. Q-register Y holds the command-line option character, which
|
||||
is a slash on most systems, and a dash under Unix.
|
||||
|
||||
5. Q-register .T holds a macro which is needed only when the :EGMEM
|
||||
command isn't supported. It generates (in q-register F) the
|
||||
name of a file that holds filename memory.
|
||||
|
||||
6. Q-register F holds the name of the file used to save file names.
|
||||
|
||||
7. Q-register 4 holds the line number to go to.
|
||||
|
||||
****************************************************************************!
|
||||
|
||||
!+ save the q-registers that we'll be changing !
|
||||
[F0,0XF
|
||||
[90,0X9
|
||||
[00,0X0
|
||||
[20,0X2
|
||||
10U0[0 !+ radix 10 !
|
||||
U0[00 !+ case independent searching !
|
||||
EDU0[0ED&4ED !+ turn on automatic memory expansion !
|
||||
EUU0[0-1EU !+ no case flagging on typeout !
|
||||
ESU0[00ES !+ no typeout after searches !
|
||||
ETU0[032768#32#8#1,0ET !+ ^C trap, read nowait and noecho, image typeout !
|
||||
Q1U0 !+ Q0 = Q1 !
|
||||
0U1[1
|
||||
0,0X1
|
||||
0U4
|
||||
(-1EJ-25600)*(-1EJ-25858)"E !+ if Unix or Linux !
|
||||
^^-UY !+ Unix command lines delimit options with '-' !
|
||||
|
|
||||
^^/UY !+ VMS command lines delimit options with '/' !
|
||||
'
|
||||
|
||||
!+***************************************************************************
|
||||
Put a subroutine into Q-register .T which, when called, fills Q-register
|
||||
F with a filename to be used to store filespec memory. This subroutine
|
||||
will only be needed if the :EGMEM isn't supported.
|
||||
****************************************************************************!
|
||||
@^U.T/
|
||||
:QF"E !+ if we haven't already set q-register F !
|
||||
.U.1 !+ remember where we are in edit buffer !
|
||||
Iteco !+ start building "tecoxxxx.tmp" !
|
||||
0EJ\ !+ insert process id into edit buffer !
|
||||
.-Q1U.L !+ length of "tecoxxxx" part of filename !
|
||||
Q.L-8"G !+ if it's longer than 8 characters !
|
||||
Q.1+4J !+ go to front of the digits !
|
||||
Q.L-8D !+ prune most significant digits from front !
|
||||
4C !+ and move to the end again !
|
||||
'
|
||||
I.tmp !+ finish it off !
|
||||
!+ RSTS/E and RT-11 aren't supported by TECO-C
|
||||
-1EJ-4"E ~* if RSTS/E ~
|
||||
I<60>-MODE:#3000
|
||||
|
|
||||
-1EJ-7"N ~* if not RT-11 ~
|
||||
I;1--CR
|
||||
'
|
||||
'
|
||||
!
|
||||
Q.1,.XFQ.1,.D !+ save it in q-register F and clean up !
|
||||
'/
|
||||
27:^U.T
|
||||
!+***************************************************************************
|
||||
If we're on RSTS/E, do something special
|
||||
****************************************************************************!
|
||||
!+-1EJ-4"E:QZ#Z"E-1G_J::FSdcl tecoTECO"UHK':S ^[J0''!
|
||||
|
||||
Q0+1"E !+ if Q1 was equal to -1 on entry !
|
||||
32768U0 !+ Q0 = 32768 !
|
||||
'
|
||||
32768"E !+ if we're on a 16-bit machine (?) !
|
||||
:EITECO"S !+ try to execute macro in file TECO !
|
||||
]1
|
||||
Q0#32768U1
|
||||
[1
|
||||
J
|
||||
ODONE
|
||||
'
|
||||
'
|
||||
|
||||
!+***************************************************************************
|
||||
Get the command line string from q-register Z into the edit buffer
|
||||
****************************************************************************!
|
||||
|
||||
Z"EGZ0,0XZ' !+ get command line string from Z and clear Z !
|
||||
J
|
||||
::S^ES"S^SD' !+ remove leading whitespace !
|
||||
::STECO32"S-2D' !+ change TECO32 to TECO, if needed !
|
||||
ZJ-:S^ES"S.-Z"EFR'' !+ remove trailing whitespace !
|
||||
Z"EODONE' !+ if there's no command line, don't initialize !
|
||||
|
||||
Q0&32767U1
|
||||
0,0X1
|
||||
0,0X9
|
||||
|
||||
!+***************************************************************************
|
||||
If there's a -NOINI switch, (-NOINI if under Unix) delete it, compact
|
||||
any trailing whitespace, and set the 4096 bit of q-register 1.
|
||||
****************************************************************************!
|
||||
|
||||
J:S^ES^EUYNOI"SONOINI'
|
||||
J:S^EUYNOI"FONONOINI'
|
||||
!NOINI!
|
||||
^SD::SN"S-D::SI"S-D''
|
||||
::S^ES"S^SD0A"AI ''
|
||||
Q1#4096U1
|
||||
!NONOINI!
|
||||
|
||||
!+***************************************************************************
|
||||
Execute the initialization file.
|
||||
****************************************************************************!
|
||||
|
||||
Q1&4096"E !+ if there's no NOINI switch !
|
||||
HX0HK !+ save the command line in Q0 !
|
||||
EPEA !+ switch to secondary I-O streams !
|
||||
EF
|
||||
|
||||
!+ Get the INI macro into the edit buffer !
|
||||
|
||||
:EGINI"S !+ get the INI file specification !
|
||||
G*
|
||||
J0A-36"ED !+ if the first character is a dollar-sign !
|
||||
HX1
|
||||
HK
|
||||
:ER^EQ1"S !+ open the file for reading !
|
||||
YHX1HKECG1 !+ and put it's contents into the edit buffer !
|
||||
|
|
||||
%Can't find initialization file ":G1"1310
|
||||
'
|
||||
'
|
||||
0,0X1
|
||||
| !+ else (no defined INI filename) !
|
||||
0,0X1
|
||||
(-1EJ-5)*(-1EJ-1024)"E !+ if VAX/VMS !
|
||||
EN[]*.*:EN"S !+ get current dir spec into Q1 !
|
||||
G*JS[R0KFS.]JS]0,.X1HK
|
||||
'
|
||||
'
|
||||
:ER^EQ1TECO.INI"S !+ if TECO.INI exists in current directory !
|
||||
YHX9HKECG90,0X9 !+ get it's contents into the edit buffer !
|
||||
'
|
||||
'
|
||||
EREW !+ switch back to primary streams !
|
||||
|
||||
Z"N !+ if there's an INI macro to execute !
|
||||
ZJ
|
||||
.U0
|
||||
G1
|
||||
I=
|
||||
G0
|
||||
Q0J
|
||||
ZX9
|
||||
ZK
|
||||
]1
|
||||
]0Q0ET
|
||||
]0Q0ES
|
||||
]0Q0EU
|
||||
]0Q0ED
|
||||
]0Q0
|
||||
]0Q0
|
||||
]2
|
||||
HX0
|
||||
HK
|
||||
G9
|
||||
J
|
||||
S=
|
||||
0,.-1X9
|
||||
0,.K
|
||||
M0+0U9 !+ execute INI macro, save result in Q9 !
|
||||
0,0X0
|
||||
[2
|
||||
0,0X2
|
||||
10U0[0 !+ radix 10 !
|
||||
U0[00 !+ case independent searching !
|
||||
EDU0[0ED&4ED !+ turn on no-memory-expansion bit !
|
||||
EUU0[0-1EU !+ no case flagging on typeout !
|
||||
ESU0[00ES !+ no typeout after searches !
|
||||
ETU0[032768#32#8#1,0ET !+ image mode, ^T noecho and nowait, ^C trap !
|
||||
[1
|
||||
G9
|
||||
X1
|
||||
K
|
||||
0,0X9
|
||||
Q9U1
|
||||
J::S^ES"S^SD' !+ delete leading whitespace !
|
||||
ZJ-:S^ES"S.-Z"EFR'' !+ delete trailing whitespace !
|
||||
Z"E
|
||||
OSCOPES
|
||||
'
|
||||
|
|
||||
G0
|
||||
'
|
||||
'
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
If there's a -NOMEMORY switch (-NOMEMORY under Unix), delete it, compact
|
||||
any trailing whitespace, and set the 4 bit of q-register 1.
|
||||
****************************************************************************!
|
||||
|
||||
J:S^ES^EUYNOM"SONOMEMORY'
|
||||
J:S^EUYNOM"FONONOMEMORY'
|
||||
!NOMEMORY!
|
||||
^SD::SE"S-D::SM"S-D::SO"S-D::SR"S-D::SY"S-D'''''
|
||||
::S^ES"S^SD0A"AI ''
|
||||
Q1#4U1
|
||||
!NONOMEMORY!
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
If there's a /NOCREATE switch, (-NOCREATE under Unix), delete it, compact
|
||||
any trailing whitespace, and set the 256 bit of q-register 1.
|
||||
****************************************************************************!
|
||||
|
||||
J:S^ES^EUYNOC"SONOCREATE'
|
||||
J:S^EUYNOC"FONONOCREATE'
|
||||
!NOCREATE!
|
||||
^SD::SR"S-D::SE"S-D::SA"S-D::ST"S-D::SE"S-D'''''
|
||||
::S^ES"S^SD0A"AI ''
|
||||
Q1#256U1
|
||||
!NONOCREATE!
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
If there's a /NOPAGE switch, (-NOPAGE under Unix), delete it, compact
|
||||
any trailing whitespace, and set the 64 bit of q-register 1.
|
||||
****************************************************************************!
|
||||
|
||||
J:S^ES^EUYNOP"SONOPAGE'
|
||||
J:S^EUYNOP"FONONOPAGE'
|
||||
!NOPAGE!
|
||||
^SD::SA"S-D::SG"S-D::SE"S-D'''
|
||||
::S^ES"S^SD0A"AI ''
|
||||
Q1#64U1
|
||||
!NONOPAGE!
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
If there's a /NORENAME switch, (-NORENAME under Unix), delete it, compact
|
||||
any trailing whitespace, and set the 512 bit of q-register 1.
|
||||
****************************************************************************!
|
||||
|
||||
J:S^ES^EUYNOR"SONORENAME'
|
||||
J:S^EUYNOR"FONONORENAME'
|
||||
!NORENAME!
|
||||
^SD::SA"S-D::SG"S-D::SE"S-D'''
|
||||
::S^ES"S^SD0A"AI ''
|
||||
Q1#512U1
|
||||
!NONORENAME!
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
If we're not under RSTS/E, and the command is "TECO @file", then change
|
||||
it to "MUNG file".
|
||||
****************************************************************************!
|
||||
|
||||
!+ -1EJ-4"N! !+ if not RSTS/E !
|
||||
J::STE"S<0A"AC|1;'>::S^ES@"S0KIMUNG ''
|
||||
!+ '!
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
If it's a MUNG command, find the file specification, delete it from
|
||||
the edit buffer, and do an EI on the file.
|
||||
****************************************************************************!
|
||||
|
||||
J::SMU"S-2D !+ if it's a MUNG command !
|
||||
<0A"AD|1;'> !+ delete alphabetics following MU !
|
||||
::S^ES"S^SD' !+ delete trailing whitespace !
|
||||
(-1EJ-5)*(-1EJ-1024)"E !+ if VAX/VMS !
|
||||
J::S""S-D !+ and it starts with double quote !
|
||||
::S^ES"S^SD' !+ remove whitespace following the " !
|
||||
'
|
||||
'
|
||||
|
||||
!+ The MUNG file specification might be followed by data to be put into
|
||||
the edit buffer. The file specification and the data are separated by
|
||||
a comma, a slash, or whitespace. Set Q0 to point to the end of the
|
||||
file specification, regardless of how its terminated.!
|
||||
|
||||
ZU0 !+ put edit buffer length in Q0 !
|
||||
(-1EJ-25600)*(-1EJ-25858)"E !+ if Unix or Linux !
|
||||
J:S-"SR.-Q0"L.U0'' !+ if - precedes Q0, change Q0 !
|
||||
|
|
||||
J:S/"SR.-Q0"L.U0'' !+ if / precedes Q0, change Q0 !
|
||||
'
|
||||
J:S^ES"S.-Q0"L.U0'' !+ if whitespace precedes Q0, change Q0 !
|
||||
|
||||
J<S,; !+ if a comma precedes Q0, change Q0 !
|
||||
.U1
|
||||
Q1-1J-:S["S:S]"S.-Q1"GF<'''
|
||||
Q1-1J-:S<"S:S>"S.-Q1"GF<'''
|
||||
Q1-1J-:S("S:S)"S.-Q1"GF<'''
|
||||
Q1-1J.-1-Q0"LD.U0'
|
||||
0;
|
||||
>
|
||||
|
||||
Q0J<-.;-1A-32"N-1A-9"N0;''-D> !+ delete whitespace preceding Q0 !
|
||||
|
||||
!+ copy the file specification into q-register .0. If there's no file
|
||||
specification, complain and die. !
|
||||
|
||||
0,.X.0
|
||||
:Q.0"E?How can I MUNG nothing?1310'
|
||||
|
||||
!+ delete the file specification and trailing whitespace (if any) from the
|
||||
edit buffer, execute the MUNG file and we're done. !
|
||||
|
||||
::S^ES^[ !+ locate end of whitespace, if any !
|
||||
0,.K !+ delete spec + trailing whitespace !
|
||||
0U0 !+ don't leave trash in Q0 !
|
||||
EI^EQ.0 !+ execute the MUNG file !
|
||||
JODONE !+ and we're done !
|
||||
'
|
||||
|
||||
!+***************************************************************************
|
||||
If there's a /VTEDIT (-VTEDIT under Unix), switch...
|
||||
****************************************************************************!
|
||||
|
||||
J:S^ES^EUYVT"SOVTEDIT'
|
||||
J:S^EUYVT"FONOVTEDIT'
|
||||
!VTEDIT!
|
||||
The VTEDIT command line option is not supported by TECOC1310
|
||||
|
||||
!+
|
||||
::SE"S^SD::SD"S^SD::SI"S^SD::ST"S^SD''''
|
||||
::S:H"S-2D::SO"S-D::SL"S-D::SD"S-D'''Q1#32U1'
|
||||
::S:S"S-2D::SE"S-D::SE"S-D::SA"S-D::SL"S-D::SL"S-D'''''Q1#16U1'
|
||||
::S:H"S-2D::SO"S-D::SL"S-D::SD"S-D'''Q1#32U1'
|
||||
::S^ES"S^SD0A"AI ''
|
||||
Q1#1U1
|
||||
!
|
||||
!NOVTEDIT!
|
||||
|
||||
!+***************************************************************************
|
||||
If we're running Unix, check for a +nnn option. If there is one, set
|
||||
the 128 bit of the EZ flag (to read in the whole file, regardless of form
|
||||
feeds) and put the number in Q-register 4.
|
||||
****************************************************************************!
|
||||
|
||||
!+ -1EJ-25600"E if Unix !
|
||||
J:S^ES+"S
|
||||
^SD\U40,128EZ^sd::ss"S^sD0A"AI ''
|
||||
'
|
||||
!+ ' !
|
||||
!+Set EZ flag if nopage!
|
||||
Q1&64"N0,128ez'
|
||||
|
||||
!+***************************************************************************
|
||||
If there's a /SCROLL switch (-SCROLL under Unix), delete it, get the
|
||||
numeric argument (or default to 0) into q-register 2.
|
||||
If :SEEALL follows -SCROLL, then set bit 16 of q-register 1.
|
||||
Delete any trailing whitespace and set bit 128 of q-register 1.
|
||||
****************************************************************************!
|
||||
|
||||
J:S^ES^EUYSC"SOSCROLL'
|
||||
J:S^EUYSC"FONOSCROLL'
|
||||
!SCROLL!
|
||||
^SD::SR"S-D::SO"S-D::SL"S-D::SL"S-D''''
|
||||
::S:^ED"SR-D\U2FR|0U2' !+ get numeric arg into Q2!
|
||||
::S:S"S-2D::SE"S-D::SE"S-D::SA"S-D::SL"S-D::SL"S-D'''''
|
||||
Q1#16U1
|
||||
'
|
||||
::S^ES"S^SD0A"AI '' !+ delete trailing whitespace!
|
||||
Q1#128U1
|
||||
!NOSCROLL!
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
If it's a TECO command...
|
||||
****************************************************************************!
|
||||
|
||||
J::STE"S-2D !+ if it's a TE command !
|
||||
<0A"AD|1;'> !+ delete alphabetics following TE !
|
||||
::S^ES"S^SD' !+ delete trailing whitespace !
|
||||
|
||||
!+***************************************************************************
|
||||
If there's a /INSPECT switch, (-INSPECT if under Unix) delete it, compact
|
||||
any trailing whitespace, and set the 2 bit of q-register 1.
|
||||
****************************************************************************!
|
||||
|
||||
J:S^ES^EUYIN"SOINSPECT'
|
||||
J:S^EUYIN"FONOINSPECT'
|
||||
!INSPECT!
|
||||
^SD::SS"S-D::SP"S-D::SE"S-D::SC"S-D::ST"S-D'''''
|
||||
::S^ES"S^SD0A"AI ''
|
||||
Q1#2U1
|
||||
!NOINSPECT!
|
||||
|
||||
!+***************************************************************************
|
||||
If there's a /FIND switch, (-FIND if under Unix) delete it, compact
|
||||
any trailing whitespace, and set the 8 bit of q-register 1.
|
||||
****************************************************************************!
|
||||
|
||||
J:S^ES^EUYFI"SOFIND'
|
||||
J:S^EUYFI"FONOFIND'
|
||||
!FIND!
|
||||
The /FIND command line option is not supported by TECOC1310
|
||||
|
||||
!+
|
||||
^SD::SN"S-D::SD"S-D''
|
||||
::S^ES"S^SD0A"AI ''
|
||||
Q1#8U1
|
||||
!
|
||||
!NOFIND!
|
||||
|
||||
!+ If there's more to the command, then delete preceding whitespace and
|
||||
if the remainder of the command line contains a quoted string, do a ZJ. !
|
||||
|
||||
J
|
||||
<
|
||||
.-Z;
|
||||
0A-9"EDF<'
|
||||
0A-32"EDF<'
|
||||
C
|
||||
-1A- ""E:S""S
|
||||
(-1EJ-25857)*(-1EJ-25858)"E !+ If OS/2 or Linux then delete quotes !
|
||||
0J2<@FS/"//>ZJ'|
|
||||
ZJ'' !+ if no second quote, go to end !
|
||||
>
|
||||
|
||||
!+ Get the remembered file specification into the edit buffer. !
|
||||
|
||||
Q1&4#Z"E !+ if there's no file name and no -NOMEMORY !
|
||||
:EGMEM"S !+ if :EGMEM is supported !
|
||||
G*J !+ get it into the edit buffer !
|
||||
::S$"S^SD !+ if leading dollar sign, delete and... !
|
||||
|OGOTIT' !+ otherwise got it and get outa here !
|
||||
| !+ else :EGMEM isn't supported !
|
||||
M.T !+ generate file name in F !
|
||||
GF !+ and get it !
|
||||
'
|
||||
HX0HK !+ save filename in Q0 and clear buffer !
|
||||
EPEA !+ select secondary I-O streams !
|
||||
EF !+ close current output file !
|
||||
:ER^EQ0"S !+ open file (name is in Q0) !
|
||||
Y
|
||||
L
|
||||
."N-1A-10"E-D'' !+ remove trailing lf, if any !
|
||||
."N-1A-13"E-D'' !+ remove trailing cr, if any !
|
||||
ZK
|
||||
HX0HK
|
||||
EC !+ copy input to output and close streams !
|
||||
G0
|
||||
'
|
||||
EREW !+ select primary I-O streams !
|
||||
0,0X0
|
||||
!GOTIT!
|
||||
|
||||
!+ If there's a file specification, then delete preceding whitespace and
|
||||
if the remainder of the filespec contains a quoted string, do a ZJ. !
|
||||
!+ However there shouldn't be any whitespace -- don't do this step
|
||||
because it messes up names with embedded spaces
|
||||
J
|
||||
<
|
||||
.-Z;
|
||||
0A-9"EDF<'
|
||||
0A-32"EDF<'
|
||||
C
|
||||
-1A- ""E:S""UZJ''
|
||||
>
|
||||
! ZJ !+ but move to end just in case !
|
||||
Z"N
|
||||
Q1#32768#16384U1
|
||||
'
|
||||
' !+ endif (no filename and no -NOMEMORY) !
|
||||
|
||||
Q1&16384"N !+ if input filename in edit buffer !
|
||||
Q1&2"E !+ if not -INSPECT !
|
||||
Edi
|
||||
|
|
||||
Inspec
|
||||
'
|
||||
ting file "HT"1310
|
||||
'
|
||||
|
||||
Z"E !+ if there's no file name !
|
||||
Q1&2"EOSCOPES' !+ if not -INSPECT, goto SCOPES !
|
||||
?How can I inspect nothing?1310
|
||||
|
||||
'
|
||||
|
||||
Q1&2"E !+ if not -INSPECT !
|
||||
J:S="S !+ if it's ofile=ifile !
|
||||
0,.-1X00,.K !+ save ofile name in Q0 !
|
||||
ZU0 !+ save length of ifile name in Q0 !
|
||||
HX2HK !+ save ifile name in Q2 !
|
||||
:Q2"N !+ if there's an ifile name !
|
||||
:ER^EQ2"U !+ try to open the ifile !
|
||||
G2HX0HKONOTFND !+ and goto NOTFND if it fails !
|
||||
'
|
||||
'
|
||||
:Q0"N !+ if there's an ofile name !
|
||||
EW^EQ0 !+ open the ofile !
|
||||
'
|
||||
Q0"N !+ if the ifile name length not = 0 !
|
||||
Q1#2048U1 !+ remember: input file is open !
|
||||
'
|
||||
OREMEM
|
||||
'
|
||||
'
|
||||
|
||||
HX0HK
|
||||
Q1&2"E !+ if not -INSPECT !
|
||||
:EB^EQ0"S !+ open it for reading-writing !
|
||||
Q1#2048U1 !+ remember: input file is open !
|
||||
OREMEM
|
||||
'
|
||||
:ERQ0"S !+ TAA Added -- try to open for read !
|
||||
Q1#2048U1
|
||||
%Can't write to file -- opening for input only1310
|
||||
OREMEM
|
||||
'
|
||||
Q1&256"N !+ EB failed, so if -NOCREATE !
|
||||
Q1&32768"E
|
||||
ONOTFND
|
||||
'
|
||||
'
|
||||
%Can't find file ":G0"1310
|
||||
Q1&32768"E
|
||||
%Creating new file1310
|
||||
OCREATE
|
||||
|
|
||||
%Ignoring TECO's memory1310
|
||||
Q1#8192U1
|
||||
0,0X0
|
||||
OREMEM
|
||||
'
|
||||
'
|
||||
|
||||
:ER^EQ0"S !+ it's -INSPECT, open input file !
|
||||
Q1#2048U1 !+ remember: input file is open !
|
||||
OSCOPES
|
||||
'
|
||||
|
||||
!NOTFND!
|
||||
?Can't find file ":G0"?1310
|
||||
|
||||
'
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
If it's a MAKE command...
|
||||
****************************************************************************!
|
||||
|
||||
J::SMA"S-2D
|
||||
<0A"AD|1;'> !+ delete letters following MA !
|
||||
::S^ES"S^SD' !+ delete trailing whitespace !
|
||||
J
|
||||
<
|
||||
.-Z;
|
||||
0A-9"EDF<'
|
||||
0A-32"EDF<'
|
||||
C
|
||||
-1A- ""E:S""S
|
||||
(-1EJ-25857)*(-1EJ-25858)"E !+ If OS/2 or Linux then delete quotes !
|
||||
0J2<@FS/"//>ZJ'|
|
||||
ZJ'' !+ if no second quote, go to end !
|
||||
>
|
||||
|
||||
Z"E?How can I MAKE nothing?1310'
|
||||
|
||||
Z-4"EJ::SLOVE"SNot war?1310''
|
||||
|
||||
HX0HK !+ save the filespec in Q0 for REMEM !
|
||||
!CREATE!
|
||||
EW^EQ0 !+ Open file for writing !
|
||||
OREMEM !+ and go remember !
|
||||
'
|
||||
%Unrecognized command "HTHK"1310
|
||||
OSCOPES
|
||||
!+***************************************************************************
|
||||
Remember the filename in filespec memory. The filespec is in Q0.
|
||||
****************************************************************************!
|
||||
|
||||
!REMEM!
|
||||
Q1&8192"E !+ if 8192 bit is off in Q1 !
|
||||
Q1&(32768#4)"NOSCOPES' !+ if ??? or -NOMEMORY, goto SCOPES !
|
||||
:Q0"EOSCOPES' !+ if Q0 is empty, goto SCOPES !
|
||||
'
|
||||
|
||||
!+ The file specification is now in Q0. If :EGMEM is unsupported, a file
|
||||
is used to implement filespec memory.
|
||||
!
|
||||
|
||||
:EGMEM"S !+ if :EGMEM is supported !
|
||||
ZJG*C !+ append remembered spec to buffer !
|
||||
::S$"U !+ no leading $ !
|
||||
ZK:EGMEM ^EQ0 !+ set remembered filespec to Q0 !
|
||||
OSCOPES !+ Goto SCOPES !
|
||||
|
|
||||
-1D !+ delete dollar !
|
||||
ZXFZK !+ Save in q reg F !
|
||||
'
|
||||
|
|
||||
M.T !+ Generate file name !
|
||||
'
|
||||
EA !+ switch to secondary output stream !
|
||||
:EW^EQF"S !+ open the file !
|
||||
G0 HPW HK EF !+ and write the filespec into it !
|
||||
'
|
||||
EW !+ switch to primary output stream !
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
****************************************************************************!
|
||||
|
||||
!SCOPES!
|
||||
!+ -VTEDIT is not supported
|
||||
Q1&1"N ~* if /VTEDIT ~
|
||||
ET&512"E
|
||||
%Your terminal is not an interactive scope1310
|
||||
Q1#1-1U1
|
||||
|
|
||||
0,3:W ~* clear SEEALL mode ~
|
||||
Q1&16"N-1,3:W' ~* if /SEEALL, set SEEALL mode ~
|
||||
0,5:W ~* clear hold mode ~
|
||||
Q1&32"N/1,5:W' ~* if /HOLD, set hold mode ~
|
||||
'
|
||||
'
|
||||
|
||||
Q1&1"E
|
||||
OYANK
|
||||
'
|
||||
|
||||
~* load the VTEDIT macro file name into q-register 9 ~
|
||||
|
||||
:EGVTE"S ~* if :EGVTE is supported ~
|
||||
1G*X9K
|
||||
|
|
||||
:@9%DIT%
|
||||
:Q1"E
|
||||
(-1EJ-5)*(-1EJ-1024)"E
|
||||
EN[]*.*:EN"S
|
||||
ZJ
|
||||
.U0
|
||||
G*
|
||||
Q0J
|
||||
S[ R
|
||||
Q0,.K
|
||||
FS.] Q0J
|
||||
S] Q0,.X1
|
||||
Q0,ZK
|
||||
'
|
||||
'
|
||||
'
|
||||
'
|
||||
|
||||
:Q9"N ~* if Q9 isn't empty ~
|
||||
:EI^EQ1^EQ9"S
|
||||
Q1#2048-2048U1
|
||||
OYANK
|
||||
'
|
||||
'
|
||||
|
||||
~****************************************************************************
|
||||
Get the library directory specification into q-register 1.
|
||||
If there's no defined library directory, define the default one.
|
||||
****************************************************************************~
|
||||
|
||||
:EGLIB"S ~* if there's a defined lib dir ~
|
||||
G*X1K ~* use it ~
|
||||
| ~* else ~
|
||||
-1EJ-0"E @1%LB:[1,2]% | ~* if RSX-11D: LB:[1,2] else~
|
||||
-1EJ-1"E @1%LB:[1,2]% | ~* if RSX-11M: LB:[1,2] else~
|
||||
-1EJ-2"E @1%LB:[1,2]% | ~* if RSX-11S: LB:[1,2] else~
|
||||
-1EJ-3"E @1%LB:[1,2]% | ~* if IAS: LB:[1,2] else~
|
||||
(-1EJ-5)*(-1EJ-1024)"E ~* if VAX/VMS ~
|
||||
@1%SYS$LIBRARY:% | ~* SYS$LIBRARY: else~
|
||||
-1EJ-6"E @1%LB:[1,2]% | ~* if RSX-11S: LB:[1,2] else~
|
||||
-1EJ-7"E @1%SY:% | ~* if RT-11: SY: else~
|
||||
@1%% ~* default: nothing ~
|
||||
'''''''
|
||||
'
|
||||
|
||||
:Q1"N ~* if there's a library directory ~
|
||||
:EI^EQ1VTEDIT"S ~* execute the macro in there ~
|
||||
Q1#2048-2048U1
|
||||
OYANK
|
||||
'
|
||||
'
|
||||
%The :G9 macro is not available1310
|
||||
!
|
||||
|
||||
|
||||
!+**************************************************************************!
|
||||
|
||||
!YANK!
|
||||
Q1&2048"N !+ if input file is open !
|
||||
Y !+ read in the first page !
|
||||
'
|
||||
|
||||
J
|
||||
!+
|
||||
Q1&8"N ~* if /FIND ~
|
||||
Finding position marker...1310
|
||||
EW G*
|
||||
X0
|
||||
K
|
||||
-1
|
||||
:Q0"N
|
||||
:N~~/\~~
|
||||
"S^SD'
|
||||
U0
|
||||
|
|
||||
:_~~/\~~
|
||||
"S^SD'
|
||||
U0
|
||||
'
|
||||
0
|
||||
Q0"U
|
||||
?Position marker not found?1310
|
||||
|
||||
'
|
||||
'
|
||||
!
|
||||
|
||||
|
||||
!+***************************************************************************
|
||||
On entry, Q2 contains the numeric argument given in the -SCROLL:n
|
||||
switch, or 0 if no -SCROLL switch was specified.
|
||||
****************************************************************************!
|
||||
|
||||
Q1&128"N !+ if -SCROLL !
|
||||
ET&512"E
|
||||
%Your terminal is not an interactive scope1310
|
||||
|
|
||||
Q2"E
|
||||
2:W-4U2
|
||||
'
|
||||
0,3:W Q1&16"N !+ if -SEEALL !
|
||||
1,3:W '
|
||||
0,5:W Q1&32"N !+ if -HOLD!
|
||||
1,5:W '
|
||||
Q2,7:W-Q2"N
|
||||
%Your terminal doesn't support scrolling1310
|
||||
'
|
||||
'
|
||||
'
|
||||
|
||||
!+***************************************************************************
|
||||
****************************************************************************!
|
||||
|
||||
!DONE!
|
||||
q4-1"G !+ if q4 greater than 1 !
|
||||
q4-1:s^J"U0J' !+ search for q4th line feed !
|
||||
'
|
||||
q1&64"N !+ NOPAGE switch? !
|
||||
0,128EZ
|
||||
'
|
||||
q1&512"N !+ NORENAME switch? !
|
||||
0,2EZ
|
||||
'
|
||||
]1
|
||||
]0Q0ET
|
||||
]0Q0ES
|
||||
]0Q0EU
|
||||
]0Q0ED
|
||||
]0Q0
|
||||
]0Q0
|
||||
]2
|
||||
]0
|
||||
]9
|
||||
]F
|
||||
0U.10U.L0U40UY0,0X.T !+ reset q registers !
|
||||
|
||||
|
|
@ -0,0 +1,279 @@
|
|||
/*****************************************************************************
|
||||
CMatch()
|
||||
This recursive function trys to match one match construct with the
|
||||
character pointed to by EBPtr2. It sets SamChr, which indicates whether the
|
||||
match was successful or not. SStPtr is left pointing to the last character
|
||||
of the match construct.
|
||||
If the match construct is ^Em or ^S, then EBPtr2 will be updated to
|
||||
point to the last matched character. In this case, RhtSid is needed to
|
||||
indicate the limit past which EBPtr2 should not be incremented.
|
||||
Match constructs are:
|
||||
^X match any character
|
||||
^S match a separator character (not letter or digit)
|
||||
^N match anything but following match construct
|
||||
^EA match any alphabetic
|
||||
^EB match a separator character (not letter or digit)
|
||||
^EC match symbol constituent
|
||||
^ED match any digit
|
||||
^EGq match any character in q-register q
|
||||
^EL match any line terminator (LF, VT, FF)
|
||||
^EM match non-null string of following match construct
|
||||
^ER match any alphanumeric
|
||||
^ES match non-null string of spaces and/or tabs
|
||||
^EV match lowercase alphabetic
|
||||
^EW match uppercase alphabetic
|
||||
^EX match any character
|
||||
^E<nnn> match character with ASCII code nnn (octal)
|
||||
^E[x1,x2,...xn] match any of the match constructs x1, x2, etc.
|
||||
else match the character itself
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
#include "chmacs.h" /* define character processing macros */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT CMatch(SamChr) /* match a character */
|
||||
BOOLEAN *SamChr; /* returned match indicator */
|
||||
{
|
||||
BOOLEAN ChrMat; /* character match indicator */
|
||||
char OtCase; /* "other" case character */
|
||||
charptr QRPtr; /* pointer into q-register text */
|
||||
charptr SavEP2; /* temporary holder of EBPtr2 */
|
||||
charptr SavSSP; /* temporary holder of SStPtr */
|
||||
DEFAULT Status; /* FindQR() status for ^EGq */
|
||||
charptr TCBfPt; /* temporary holder of CBfPtr */
|
||||
charptr TCStEn; /* temporary holder of CStEnd */
|
||||
unsigned int TmpChr; /* accumulator for ^E<nnn> */
|
||||
#if DEBUGGING
|
||||
static char *DbgFNm = "CMatch";
|
||||
sprintf(DbgSBf,"*SStPtr = '%c', *EBPtr2 = '%c'", *SStPtr, *EBPtr2);
|
||||
DbgFEn(3,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
switch (*SStPtr) {
|
||||
case CTRL_X:
|
||||
*SamChr = TRUE;
|
||||
break;
|
||||
case CTRL_S:
|
||||
*SamChr = !Is_Alnum(*EBPtr2);
|
||||
break;
|
||||
case CTRL_N:
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ISS); /* ill. search str. */
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (CMatch(&ChrMat) == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
*SamChr = !ChrMat;
|
||||
#if DEBUGGING
|
||||
sprintf(DbgSBf,"SUCCESS, *SamChr = %s",
|
||||
(*SamChr == TRUE) ? "TRUE" : "FALSE");
|
||||
DbgFEx(3,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
return SUCCESS;
|
||||
case CTRL_E:
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE); /* ICE = illegal ^E */
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
switch (To_Upper(*SStPtr)) {
|
||||
case 'A':
|
||||
*SamChr = Is_Alpha(*EBPtr2);
|
||||
break;
|
||||
case 'B':
|
||||
*SamChr = !Is_Alnum(*EBPtr2);
|
||||
break;
|
||||
case 'C':
|
||||
*SamChr = Is_SyCon(*EBPtr2);
|
||||
break;
|
||||
case 'D':
|
||||
*SamChr = Is_Digit(*EBPtr2);
|
||||
break;
|
||||
case 'G':
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE); /* ill. ^E command */
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
TCBfPt = CBfPtr; /* save CBfPtr */
|
||||
TCStEn = CStEnd; /* save CStEnd */
|
||||
CBfPtr = SStPtr;
|
||||
CStEnd = SBfPtr;
|
||||
Status = FindQR();
|
||||
SStPtr = CBfPtr;
|
||||
SBfPtr = CStEnd;
|
||||
CBfPtr = TCBfPt; /* restore CBfPtr */
|
||||
CStEnd = TCStEn; /* restore CStEnd */
|
||||
if (Status == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
QRPtr = QR->Start;
|
||||
while (QRPtr < QR->End_P1) {
|
||||
if (*QRPtr++ == *EBPtr2) {
|
||||
*SamChr = TRUE;
|
||||
#if DEBUGGING
|
||||
sprintf(DbgSBf,"SUCCESS, *SamChr = %s", (*SamChr)?"TRUE":"FALSE");
|
||||
DbgFEx(3,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
return SUCCESS;
|
||||
}
|
||||
}
|
||||
*SamChr = FALSE;
|
||||
break;
|
||||
case 'L':
|
||||
*SamChr = IsEOL(*EBPtr2);
|
||||
break;
|
||||
case 'M':
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
SavSSP = SStPtr;
|
||||
if (CMatch(&ChrMat) == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
*SamChr = ChrMat;
|
||||
if (ChrMat) {
|
||||
while (EBPtr2 <= RhtSid) {
|
||||
SavEP2 = EBPtr2;
|
||||
++EBPtr2;
|
||||
SStPtr = SavSSP;
|
||||
if (CMatch(&ChrMat) == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (!ChrMat) {
|
||||
EBPtr2 = SavEP2;
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
#if DEBUGGING
|
||||
sprintf(DbgSBf,"SUCCESS, *SamChr = %s",(*SamChr)?"TRUE":"FALSE");
|
||||
DbgFEx(3,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
return SUCCESS;
|
||||
case 'R':
|
||||
*SamChr = Is_Alnum(*EBPtr2);
|
||||
break;
|
||||
case 'S':
|
||||
if ((*EBPtr2 != SPACE) && (*EBPtr2 != TABCHR)) {
|
||||
*SamChr = FALSE;
|
||||
} else {
|
||||
*SamChr = TRUE;
|
||||
while (EBPtr2 <= RhtSid) {
|
||||
++EBPtr2;
|
||||
if ((*EBPtr2 != SPACE) && (*EBPtr2 != TABCHR)) {
|
||||
EBPtr2--;
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'V':
|
||||
*SamChr = Is_Lower(*EBPtr2);
|
||||
break;
|
||||
case 'W':
|
||||
*SamChr = Is_Upper(*EBPtr2);
|
||||
break;
|
||||
case 'X':
|
||||
*SamChr = TRUE;
|
||||
break;
|
||||
case '<':
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3, DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
TmpChr = 0;
|
||||
while (Is_Digit(*SStPtr)) {
|
||||
TmpChr *= 8;
|
||||
TmpChr += *SStPtr - '0';
|
||||
if (TmpChr > 255) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
if (*SStPtr != '>') {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
*SamChr = (*EBPtr2 == (unsigned char)TmpChr);
|
||||
break;
|
||||
case '[':
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
while (*SStPtr != ']') {
|
||||
if (*SStPtr == ',') {
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
} else {
|
||||
if (CMatch(&ChrMat) == FAILURE) {
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (ChrMat) {
|
||||
while (*SStPtr != ']') {
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
*SamChr = TRUE;
|
||||
#if DEBUGGING
|
||||
sprintf(DbgSBf,"SUCCESS, *SamChr = %s",
|
||||
(*SamChr) ? "TRUE" : "FALSE");
|
||||
DbgFEx(3,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
return SUCCESS;
|
||||
}
|
||||
if (++SStPtr == SBfPtr) {
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
}
|
||||
break;
|
||||
default:
|
||||
ErrMsg(ERR_ICE);
|
||||
DBGFEX(3,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
} /* end of ^E switch */
|
||||
break;
|
||||
default:
|
||||
if (SMFlag == 0) { /* if case independence */
|
||||
OtCase = Is_Upper(*SStPtr) ? To_Lower(*SStPtr)
|
||||
: To_Upper(*SStPtr);
|
||||
*SamChr = ((*EBPtr2 == *SStPtr) || (*EBPtr2 == OtCase));
|
||||
} else {
|
||||
*SamChr = (*EBPtr2 == *SStPtr);
|
||||
}
|
||||
} /* end of switch */
|
||||
#if DEBUGGING
|
||||
sprintf(DbgSBf,"SUCCESS, *SamChr = %s", (*SamChr) ? "TRUE" : "FALSE");
|
||||
DbgFEx(3,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,37 @@
|
|||
/*****************************************************************************
|
||||
DChars.h
|
||||
This header file defines identifiers for control characters.
|
||||
*****************************************************************************/
|
||||
#define CTRL_A '\001' /* SOH - start of heading */
|
||||
#define CTRL_B '\002' /* STX - start of text */
|
||||
#define CTRL_C '\003' /* ETX - end of text */
|
||||
#define CTRL_D '\004' /* EOT - end of transmission */
|
||||
#define CTRL_E '\005' /* ENQ - enquiry */
|
||||
#define CTRL_F '\006' /* ACK - acknowledge */
|
||||
#define CTRL_G '\007' /* BEL - bell */
|
||||
#define BAKSPC '\010' /* BS - backspace control H */
|
||||
#define TABCHR '\011' /* HT - horizontal tab control I */
|
||||
#define LINEFD '\012' /* LF - line feed control J */
|
||||
#define VRTTAB '\013' /* VT - vertical tab control K */
|
||||
#define FORMFD '\014' /* FF - form feed control L */
|
||||
#define CRETRN '\015' /* CR - carriage return control M */
|
||||
#define CTRL_N '\016' /* SO - shift out */
|
||||
#define CTRL_O '\017' /* SI - shift in */
|
||||
#define CTRL_P '\020' /* DLE - data link escape */
|
||||
#define CTRL_Q '\021' /* DC1 - device control 1 */
|
||||
#define CTRL_R '\022' /* DC2 - device control 2 */
|
||||
#define CTRL_S '\023' /* DC3 - device control 3 */
|
||||
#define CTRL_T '\024' /* DC4 - device control 4 */
|
||||
#define CTRL_U '\025' /* NAK - negative acknowledge */
|
||||
#define CTRL_V '\026' /* SYN - synchronous idle */
|
||||
#define CTRL_W '\027' /* ETB - end of transmission block */
|
||||
#define CTRL_X '\030' /* CAN - cancel */
|
||||
#define CTRL_Y '\031' /* EM - end of medium */
|
||||
#define CTRL_Z '\032' /* SUB - substitute */
|
||||
#define ESCAPE '\033' /* ESC - escape control [ */
|
||||
#define FSCHAR '\034' /* FS - file separator control \ */
|
||||
#define GSCHAR '\035' /* GS - group separator control ] */
|
||||
#define RSCHAR '\036' /* RS - record separator control ^ */
|
||||
#define USCHAR '\037' /* US - unit separator control _ */
|
||||
#define SPACE '\040' /* SP - space */
|
||||
#define DELETE '\177' /* DEL - delete */
|
||||
|
|
@ -0,0 +1,93 @@
|
|||
/*****************************************************************************
|
||||
DefErr.h
|
||||
This file defines identifiers for error messages generated by TECOC-C.
|
||||
The codes that are commented out are those that were defined in TECO-11, but
|
||||
are not used by TECOC-C.
|
||||
IMPORTANT: if you change this file, you will need to change
|
||||
TECOC.RNH, DEFERR.H, VRBMSG.H and ERR.C.
|
||||
*****************************************************************************/
|
||||
#define ERR_XXX -1 /* no error */
|
||||
#define ERR_ARG 0 /* improper arguments */
|
||||
#define ERR_BNI 1 /* > not in iteration */
|
||||
#define ERR_DTB 2 /* delete too big */
|
||||
#define ERR_FNF 3 /* file not found "filename" */
|
||||
#define ERR_ICE 4 /* illegal ^E command in search argument */
|
||||
#define ERR_IEC 5 /* illegal character "x" after E */
|
||||
#define ERR_IFC 6 /* illegal character "x" after F */
|
||||
#define ERR_IIA 7 /* illegal insert argument */
|
||||
#define ERR_ILL 8 /* illegal command "x" */
|
||||
#define ERR_ILN 9 /* illegal number */
|
||||
#define ERR_IPA 10 /* negative or 0 argument to P */
|
||||
#define ERR_IQC 11 /* illegal character "x" following " */
|
||||
#define ERR_IQN 12 /* illegal q-register name "x" */
|
||||
#define ERR_IRA 13 /* illegal radix argument to ^R */
|
||||
#define ERR_ISA 14 /* illegal search argument */
|
||||
#define ERR_ISS 15 /* illegal search string */
|
||||
#define ERR_IUC 16 /* illegal character "x" following ^ */
|
||||
#define ERR_MAP 17 /* missing ' */
|
||||
#define ERR_MEM 18 /* memory overflow */
|
||||
#define ERR_NAB 19 /* no argument before ^_ */
|
||||
#define ERR_NAC 20 /* no argument before , */
|
||||
#define ERR_NAE 21 /* no argument before = */
|
||||
#define ERR_NAP 22 /* no argument before ) */
|
||||
#define ERR_NAQ 23 /* no argument before " */
|
||||
#define ERR_NAS 24 /* no argument before ; */
|
||||
#define ERR_NAU 25 /* no argument before U */
|
||||
#define ERR_NCA 26 /* negative argument to , */
|
||||
#define ERR_NFI 27 /* no file for input */
|
||||
#define ERR_NFO 28 /* no file for output */
|
||||
#define ERR_NYA 29 /* numeric argument with Y */
|
||||
#define ERR_NYI 30 /* not yet implemented */
|
||||
#define ERR_OFO 31 /* output file already open */
|
||||
#define ERR_PDO 32 /* push-down list overflow */
|
||||
#define ERR_PES 33 /* attempt to pop empty stack */
|
||||
#define ERR_POP 34 /* attempt to move pointer off page with "x" */
|
||||
#define ERR_SNI 35 /* ; not in iteration */
|
||||
#define ERR_SRH 36 /* search failure "text" */
|
||||
#define ERR_STL 37 /* string too long */
|
||||
#define ERR_TAG 38 /* missing tag !tag! */
|
||||
#define ERR_UTC 39 /* unterminated command "x" */
|
||||
#define ERR_UTM 40 /* unterminated macro */
|
||||
#define ERR_XAB 41 /* execution aborted */
|
||||
#define ERR_YCA 42 /* Y command aborted */
|
||||
/*
|
||||
* The following errors aren't listed in the Standard TECO Manual, but
|
||||
* were added for use by TECO-C.
|
||||
*/
|
||||
#define ERR_IFE 43 /* ill-formed numeric expression */
|
||||
#define ERR_SYS 44 /* %s */
|
||||
#define ERR_UCD 45 /* unable to close and delete output file */
|
||||
#define ERR_UCI 46 /* unable to close input file */
|
||||
#define ERR_UCO 47 /* unable to close output file */
|
||||
#define ERR_UFI 48 /* unable to open file "x" for input */
|
||||
#define ERR_UFO 49 /* unable to open file "x" for output */
|
||||
#define ERR_URC 50 /* unable to read character from terminal */
|
||||
#define ERR_URE 51 /* unable to read TECO command file */
|
||||
#define ERR_URL 52 /* unable to read line from input file */
|
||||
#define ERR_UWL 53 /* unable to write line to output file */
|
||||
/*
|
||||
Standard TECO errors that possibly should be generated by TECOC-C:
|
||||
?CON Confused use of conditionals
|
||||
?FER File error
|
||||
?INP Input error
|
||||
?OUT Output error
|
||||
Standard TECO errors not used by TECO-C are:
|
||||
?CCL CCL.SV not found or EG argument too long
|
||||
?CPQ Can't pop into Q-register (TECO-C uses PES)
|
||||
?DEV Invalid device
|
||||
?ERR RSTS/E error message (RSTS/E only)
|
||||
?FUL Output Command would have overflowed output device
|
||||
?IFN Illegal character "x" in filename
|
||||
?MLA Missing Left Angle Bracket
|
||||
?MLP Missing (
|
||||
?MRA Missing Right Angle Bracket
|
||||
?MRP Missing )
|
||||
?MSC Missing Start of Conditional
|
||||
?NPA Negative or 0 argument to P (TECO-C uses IPA)
|
||||
?NRO No room for output
|
||||
?UTM Unterminated macro
|
||||
?WLO System Device Write-Locked
|
||||
?nnn I/O Error or Directive Error (RSX-11 only)
|
||||
%Superseding existing filed (TECO-11 only)
|
||||
%Search fail in iter (TECO-11 only)
|
||||
*/
|
||||
|
|
@ -0,0 +1,89 @@
|
|||
/*****************************************************************************
|
||||
DefExt.h
|
||||
This header file declares as EXTERN all the variables declared as
|
||||
GLOBAL in Tecoc.c for use by everyone else.
|
||||
*****************************************************************************/
|
||||
EXTERN charptr AraBeg; /* beginning of text m,n area */
|
||||
EXTERN charptr AraEnd; /* end of text m,n area */
|
||||
EXTERN charptr ArgPtr; /* beginning of text argument */
|
||||
EXTERN charptr CBfBeg; /* command buffer beginning */
|
||||
EXTERN charptr CBfEnd; /* command buffer end */
|
||||
EXTERN charptr CBfPtr; /* pointer into command string */
|
||||
EXTERN char CmdMod; /* command modifiers flags for @, ;, etc. */
|
||||
EXTERN DEFAULT CrType; /* value of 0:W (terminal type) */
|
||||
EXTERN charptr CStBeg; /* command string beginning */
|
||||
EXTERN charptr CStEnd; /* pointer to last char of command string */
|
||||
EXTERN DEFAULT CurInp; /* index of current input stream in IFiles */
|
||||
EXTERN DEFAULT CurOut; /* index of current output stream in OFiles */
|
||||
EXTERN charptr DBfBeg; /* digit buffer beginning */
|
||||
EXTERN charptr DBfPtr; /* digit buffer pointer */
|
||||
#if DEBUGGING
|
||||
EXTERN char DbgSBf[]; /* debug message sprintf() buffer */
|
||||
#endif
|
||||
EXTERN charptr EBfBeg; /* edit buffer beginning */
|
||||
EXTERN charptr EBfEnd; /* edit buffer end */
|
||||
EXTERN charptr EBPtr1; /* pointer to start of found string */
|
||||
EXTERN charptr EBPtr2; /* pointer to end of found string */
|
||||
EXTERN WORD EdFlag; /* ED mode control flag */
|
||||
EXTERN WORD EhFlag; /* EH mode control flag */
|
||||
EXTERN charptr EndSAr; /* end of search area */
|
||||
EXTERN char ErrTxt[]; /* holds part of error message */
|
||||
EXTERN WORD EsFlag; /* ES mode control flag */
|
||||
EXTERN WORD EStBot; /* expression stack bottom */
|
||||
EXTERN struct EStck EStack[]; /* expression stack */
|
||||
EXTERN WORD EStTop; /* expression stack top */
|
||||
EXTERN WORD EtFlag; /* ET mode control flag */
|
||||
EXTERN WORD EuFlag; /* EU mode control flag */
|
||||
EXTERN WORD EvFlag; /* EV mode control flag */
|
||||
EXTERN WORD EzFlag; /* EZ mode control flag */
|
||||
EXTERN charptr FBfBeg; /* beginning of filename buffer */
|
||||
EXTERN charptr FBfEnd; /* end of filename buffer */
|
||||
EXTERN charptr FBfPtr; /* pointer into filename buffer */
|
||||
EXTERN LONG FFPage; /* form feed flag (returned by ^E command) */
|
||||
EXTERN charptr GapBeg; /* edit buffer gap beginning */
|
||||
EXTERN charptr GapEnd; /* end of edit buffer gap */
|
||||
EXTERNV BOOLEAN GotCtC; /* TRUE if the user just hit a control-C */
|
||||
EXTERN charptr IBfEnd; /* end of input buffer */
|
||||
EXTERN charptr IBfEnd; /* input buffer end */
|
||||
EXTERN int IniSrM; /* initial search mode */
|
||||
EXTERN BOOLEAN IsEofI[]; /* input file has reached end of file */
|
||||
EXTERN BOOLEAN IsOpnI[]; /* input file is opened indicators */
|
||||
EXTERN BOOLEAN IsOpnO[]; /* output file is opened indicators */
|
||||
EXTERN WORD LStBot; /* loop stack bottom */
|
||||
EXTERN struct LStck LStack[]; /* loop stack */
|
||||
EXTERN struct LStck LStack[]; /* loop stack */
|
||||
EXTERN WORD LstErr; /* number of last error message */
|
||||
EXTERN WORD LStTop; /* loop stack top */
|
||||
EXTERN LONG MArgmt; /* m part of m,n numeric argument pair */
|
||||
EXTERN BOOLEAN Matchd; /* indicates successful search */
|
||||
EXTERN struct MStck MStack[]; /* macro stack */
|
||||
EXTERN WORD MStTop; /* macro stack top */
|
||||
EXTERN LONG NArgmt; /* numeric argument */
|
||||
EXTERN QRptr QR; /* pointer to q-register structure */
|
||||
EXTERN struct QReg QRgstr[]; /* global q-registers */
|
||||
EXTERN struct QReg QStack[]; /* q-register stack */
|
||||
EXTERN WORD QStTop; /* top of q-register stack */
|
||||
EXTERN DEFAULT Radix; /* TECO-C's current radix, 2-36 */
|
||||
EXTERN LONG RefLen; /* value returned by ^S command */
|
||||
EXTERN charptr RhtSid; /* right-hand side of area to be searched */
|
||||
EXTERN charptr SBfBeg; /* search string buffer beginning */
|
||||
EXTERN charptr SBfEnd; /* search string buffer end */
|
||||
EXTERN charptr SBfPtr; /* end of search string, plus one */
|
||||
EXTERN LONG SIncrm; /* search increment, 1 (forward), -1 (back) */
|
||||
EXTERN WORD SMFlag; /* search mode flag */
|
||||
EXTERN WORD SrcTyp; /* type of search (E_SEARCH, N_SEARCH, etc) */
|
||||
EXTERN charptr SStPtr; /* pointer into search string */
|
||||
EXTERN BOOLEAN TraceM; /* trace mode flag */
|
||||
#if VIDEO
|
||||
EXTERN DEFAULT HldFlg; /* value of 5:W (hold mode flag) */
|
||||
EXTERN DEFAULT HtSize; /* value of 1:W (screen width) */
|
||||
EXTERN DEFAULT MrkFlg; /* value of 4:W */
|
||||
EXTERN DEFAULT ScroLn; /* value of 7:W */
|
||||
EXTERN DEFAULT SeeAll; /* value of 3:W */
|
||||
EXTERN DEFAULT TopDot; /* value of 6:W */
|
||||
EXTERN DEFAULT VtSize; /* value of 2:W (screen height) */
|
||||
#if CURSES
|
||||
EXTERN DEFAULT SpcMrk; /* value of 8:W */
|
||||
EXTERN DEFAULT KeyPad; /* value of 9:W */
|
||||
#endif
|
||||
#endif
|
||||
|
|
@ -0,0 +1,54 @@
|
|||
/*****************************************************************************
|
||||
DoCJR()
|
||||
This function contains the code that's common to the C, J and R
|
||||
commands. It is called by ExeC, ExeJ and ExeR only.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT DoCJR(HowFar) /* do C, J or R stuff */
|
||||
LONG HowFar; /* positive or negative displacement */
|
||||
{
|
||||
LONG InRange;
|
||||
BOOLEAN ColonMod;
|
||||
#if DEBUGGING
|
||||
static char *DbgFNm = "DoCJR";
|
||||
sprintf(DbgSBf,"HowFar = %ld", HowFar);
|
||||
DbgFEn(2,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
ColonMod = (CmdMod & COLON); /* is it :C, :J, or :R? */
|
||||
CmdMod &= ~COLON; /* clear : flag */
|
||||
InRange = -1; /* -1 means SUCCESS in TECO */
|
||||
if (HowFar > 0) {
|
||||
if ((GapEnd+HowFar) > EBfEnd) {
|
||||
InRange = 0; /* 0 means FAILURE in TECO */
|
||||
} else {
|
||||
MEMMOVE(GapBeg, GapEnd+1, HowFar);
|
||||
GapBeg += HowFar;
|
||||
GapEnd += HowFar;
|
||||
}
|
||||
} else {
|
||||
if ((GapBeg+HowFar) < EBfBeg) {
|
||||
InRange = 0; /* 0 means FAILURE in TECO */
|
||||
} else {
|
||||
GapBeg += HowFar;
|
||||
GapEnd += HowFar;
|
||||
MEMMOVE(GapEnd+1, GapBeg, -(HowFar));
|
||||
}
|
||||
}
|
||||
if (ColonMod) { /* if colon modifier */
|
||||
DBGFEX(2,DbgFNm,"PushEx");
|
||||
return PushEx(InRange, OPERAND);
|
||||
} else {
|
||||
if (InRange == 0) { /* if out-of-bounds */
|
||||
ErrChr(ERR_POP, *CBfPtr);
|
||||
DBGFEX(2,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
EStTop = EStBot; /* clear expression stack */
|
||||
DBGFEX(2,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,88 @@
|
|||
/*****************************************************************************
|
||||
DoEvEs()
|
||||
This function "does" what's specified by the EV (edit verify) or
|
||||
ES (search verify) flag. The ES and EV flags are mode control flags that
|
||||
allow the user to cause TECO to display a part of the edit buffer after
|
||||
executing a command string (edit verify) or after a search (search verify).
|
||||
Both the ES and EV flags are 0 by default, which means don't do anything.
|
||||
This function is only called when the ES or EV flag is non-zero.
|
||||
The flag is passed to this function for decoding. This function
|
||||
examines the flag and acts accordingly. Both the ES and EV flags have the
|
||||
following meaning:
|
||||
-1 do a 1V command to display the current line
|
||||
0 do nothing (this function is not even called)
|
||||
1-31 type out current line with line-feed at CP
|
||||
32-255 type out current line with ASCII character (32-255) at CP
|
||||
else bottom byte as above, top byte is argument to V command
|
||||
*****************************************************************************/
|
||||
#if CURSES /* need to define standout and standend? */
|
||||
#if ULTRIX
|
||||
#include <cursesX.h> /* note: this has to come before zport.h */
|
||||
#else
|
||||
#include <curses.h> /* note: this has to come before zport.h */
|
||||
#endif
|
||||
#endif
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
VVOID DoEvEs(Flag) /* EV or ES flag code */
|
||||
WORD Flag;
|
||||
{
|
||||
unsigned char PtChar; /* special "CP" character */
|
||||
unsigned char VLines; /* argument to V command */
|
||||
if (Flag == 0) {
|
||||
return;
|
||||
}
|
||||
if (Flag == -1) { /* -1 means do a 1V command */
|
||||
VLines = 1; /* view 1 line */
|
||||
PtChar = '\0';
|
||||
} else {
|
||||
PtChar = (unsigned char)Flag;
|
||||
VLines = (unsigned char)(Flag >> 8);
|
||||
if (VLines == 0) { /* be sure it's at least 1 */
|
||||
VLines = 1;
|
||||
}
|
||||
}
|
||||
TypBuf(GapBeg+Ln2Chr((LONG)1 - (LONG)VLines), GapBeg);
|
||||
#if CURSES
|
||||
if (GapEnd+1 < EBfEnd) {
|
||||
unsigned char c = *(GapEnd + 1);
|
||||
standout();
|
||||
if (c=='\b') {
|
||||
ZDspBf("^H", 2);
|
||||
} else if (c=='\r') {
|
||||
ZDspBf("^M", 2);
|
||||
} else if (c=='\n') {
|
||||
ZDspBf("^J", 2);
|
||||
} else if (c & 0200) {
|
||||
int i;
|
||||
char a,b;
|
||||
c = c & 0177;
|
||||
i = c/16;
|
||||
if (i==0)
|
||||
a='8';
|
||||
else if (i==1)
|
||||
a=9;
|
||||
else
|
||||
a = i - 2 + 'A';
|
||||
i = (c % 16);
|
||||
b = (i > 9) ? i - 10 + 'A' : i + '0';
|
||||
ZDspCh('[');
|
||||
ZDspCh(a);
|
||||
ZDspCh(b);
|
||||
ZDspCh(']');
|
||||
} else
|
||||
ZDspCh(c);
|
||||
standend();
|
||||
TypBuf(GapEnd+2, GapEnd + Ln2Chr((LONG)VLines)+1);
|
||||
}
|
||||
#else
|
||||
if ((PtChar >= '\001') && (PtChar <= '\037')) {
|
||||
ZDspCh(LINEFD);
|
||||
} else if (PtChar != 0) {
|
||||
ZDspCh(PtChar);
|
||||
}
|
||||
TypBuf(GapEnd+1, GapEnd+Ln2Chr((LONG)VLines)+1);
|
||||
#endif
|
||||
}
|
||||
|
|
@ -0,0 +1,38 @@
|
|||
/*****************************************************************************
|
||||
DoFlag()
|
||||
This function gets or sets the value of a TECO mode control flag.
|
||||
The TECO mode control flags are ED, EH, ES, ET, EU, EV, EZ and ^X.
|
||||
The EO flag can only be examined, not set, so ExeEO does not call this
|
||||
function.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT DoFlag(Flag) /* handle a mode control flag */
|
||||
WORD *Flag;
|
||||
{
|
||||
DBGFEN(2,"DoFlag",NULL);
|
||||
if ((EStTop == EStBot) || /* if no numeric arg or */
|
||||
(EStack[EStTop].ElType != OPERAND)) { /* partial expression */
|
||||
DBGFEX(2,DbgFNm,"PushEx");
|
||||
return PushEx((LONG)*Flag, OPERAND); /* return the flag */
|
||||
}
|
||||
if (GetNmA() == FAILURE) { /* get the numeric argument */
|
||||
DBGFEX(2,DbgFNm,"FAILURE, GetNmA() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
if ((CmdMod & MARGIS) == '\0') { /* if it's n<flag> */
|
||||
*Flag = (WORD)NArgmt; /* set the flag to n */
|
||||
} else if (MArgmt && NArgmt) { /* else if it's m,n<flag> */
|
||||
*Flag &= (WORD)~MArgmt; /* turn off m bits */
|
||||
*Flag |= (WORD)NArgmt; /* turn on n bits */
|
||||
} else if ((MArgmt == 0) && NArgmt) { /* else if it's 0,n<flag> */
|
||||
*Flag |= (WORD)NArgmt; /* turn on n bits */
|
||||
} else if ((MArgmt) && (NArgmt == 0)) { /* else if it's m,0<flag> */
|
||||
*Flag &= (WORD)~MArgmt; /* turn off m bits */
|
||||
}
|
||||
EStTop = EStBot; /* clear expression stack */
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
DBGFEX(2,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
/*****************************************************************************
|
||||
DScren.h
|
||||
Terminal types (0:W command, CrType variable). The strange
|
||||
numbering is what is used in TECO-11.
|
||||
*****************************************************************************/
|
||||
#define UNTERM -1 /* unknown */
|
||||
#define VT52 0 /* VT52 */
|
||||
#define VT61 1 /* VT61 */
|
||||
#define VT100V 2 /* VT100 in VT52 mode */
|
||||
#define VT100 4 /* VT100 in ANSI mode */
|
||||
#define VT05 6 /* VT05 */
|
||||
#define VT102 8 /* VT102 */
|
||||
#define VK100 10 /* VK100 */
|
||||
#define VT200 11 /* VT200 in VT200 mode */
|
||||
#define VT200A 12 /* VT200 in ANSI (VT100) mode */
|
||||
#define VT200V 13 /* VT200 in VT52 mode */
|
||||
#define IBMPC 14 /* IBM PC console */
|
||||
/*****************************************************************************
|
||||
Screen function codes. These are used in calls to ZScrOp.
|
||||
*****************************************************************************/
|
||||
#define SCR_CUP 1 /* move cursor up 1 row */
|
||||
#define SCR_EEL 2 /* erase to end of line */
|
||||
#define SCR_RON 3 /* reverse-video on */
|
||||
#define SCR_ROF 4 /* reverse-video off */
|
||||
|
|
@ -0,0 +1,51 @@
|
|||
/*****************************************************************************
|
||||
EchoIt()
|
||||
This function displays a character in it's printable form, either
|
||||
as CH, ^CH, or [CH].
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global identifiers */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
VVOID EchoIt(Charac)
|
||||
unsigned char Charac;
|
||||
{
|
||||
if (Charac > USCHAR && Charac < DELETE) { /* displayable? */
|
||||
ZDspCh(Charac);
|
||||
} else if (Charac & '\200') { /* eighth bit set? */
|
||||
if (EtFlag & ET_EIGHTBIT) { /* term can display */
|
||||
ZDspCh(Charac);
|
||||
} else {
|
||||
ZDspCh('['); /* display as [ch] */
|
||||
MakDBf((LONG)Charac,16);
|
||||
*DBfPtr++ = ']';
|
||||
ZDspBf(DBfBeg, DBfPtr-DBfBeg);
|
||||
}
|
||||
} else {
|
||||
switch (Charac) {
|
||||
case BAKSPC:
|
||||
case TABCHR:
|
||||
case LINEFD:
|
||||
case CRETRN:
|
||||
ZDspCh(Charac);
|
||||
break;
|
||||
case ESCAPE:
|
||||
ZDspCh('$');
|
||||
break;
|
||||
case FORMFD:
|
||||
ZDspCh('\r');
|
||||
/* fall through to VRTTAB */
|
||||
case VRTTAB:
|
||||
ZDspBf("\n\n\n\n", 4);
|
||||
break;
|
||||
case DELETE:
|
||||
break;
|
||||
case CTRL_G:
|
||||
ZDspCh(CTRL_G);
|
||||
/* fall through to default case */
|
||||
default: /* display as ^ch */
|
||||
ZDspCh('^');
|
||||
ZDspCh(Charac | '\100');
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
@ -0,0 +1,273 @@
|
|||
/*****************************************************************************
|
||||
ErrChr(), ErrMsg(), ErrStr(), ErrUTC(), ErrVrb()
|
||||
These functions display TECO's error messages.
|
||||
ErrChr display a message that contains a special character
|
||||
ErrMsg display a message given the message number
|
||||
ErrStr display a message that contains a special string
|
||||
ErrUTC display UTC or UTM based on macro stack depth
|
||||
ErrVrb display the verbose form of an error message
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define error message codes */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
#include <string.h> /* prototype for strlen() */
|
||||
#if USE_PROTOTYPES
|
||||
static VVOID ErrDsp(WORD ErrNum, unsigned char *ELine);
|
||||
static VVOID ToErr(unsigned char Charac, charptr *PtrPtr);
|
||||
#endif
|
||||
/****
|
||||
IMPORTANT: if you change this list, you must also change DEFERR.H,
|
||||
TECOC.RNH and VRBMSG.H !!!
|
||||
****/
|
||||
static char *Errors[] = {
|
||||
/* 0*/ "ARG Improper arguments",
|
||||
/* 1*/ "BNI > not in iteration",
|
||||
/* 2*/ "DTB Delete too big",
|
||||
/* 3*/ "FNF File not found \"%s\"",
|
||||
/* 4*/ "ICE Illegal ^E command in search argument",
|
||||
/* 5*/ "IEC Illegal character \"%s\" after E",
|
||||
/* 6*/ "IFC Illegal character \"%s\" after F",
|
||||
/* 7*/ "IIA Illegal insert argument",
|
||||
/* 8*/ "ILL Illegal command \"%s\"",
|
||||
/* 9*/ "ILN Illegal number",
|
||||
/* 10*/ "IPA Negative or 0 argument to P",
|
||||
/* 11*/ "IQC Illegal \" character",
|
||||
/* 12*/ "IQN Illegal Q-register name \"%s\"",
|
||||
/* 13*/ "IRA Illegal radix argument to ^R",
|
||||
/* 14*/ "ISA Illegal search argument",
|
||||
/* 15*/ "ISS Illegal search string",
|
||||
/* 16*/ "IUC Illegal character \"%s\" following ^",
|
||||
/* 17*/ "MAP Missing '",
|
||||
/* 18*/ "MEM Memory overflow",
|
||||
/* 19*/ "NAB No argument before ^_ ",
|
||||
/* 20*/ "NAC No argument before ,",
|
||||
/* 21*/ "NAE No argument before =",
|
||||
/* 22*/ "NAP No argument before )",
|
||||
/* 23*/ "NAQ No argument before \"",
|
||||
/* 24*/ "NAS No argument before ;",
|
||||
/* 25*/ "NAU No argument before U",
|
||||
/* 26*/ "NCA Negative argument to ,",
|
||||
/* 27*/ "NFI No file for input",
|
||||
/* 28*/ "NFO No file for output",
|
||||
/* 29*/ "NYA Numeric argument with Y",
|
||||
/* 30*/ "NYI Not yet implemented",
|
||||
/* 31*/ "OFO Output file already open",
|
||||
/* 32*/ "PDO Push-down list overflow",
|
||||
/* 33*/ "PES Attempt to pop an empty stack",
|
||||
/* 34*/ "POP Attempt to move pointer off page with \"%s\"",
|
||||
/* 35*/ "SNI ; not in iteration",
|
||||
/* 36*/ "SRH Search failure \"%s\"",
|
||||
/* 37*/ "STL String too long",
|
||||
/* 38*/ "TAG Missing tag !%s!",
|
||||
/* 39*/ "UTC Unterminated command",
|
||||
/* 40*/ "UTM Unterminated macro",
|
||||
/* 41*/ "XAB Execution aborted",
|
||||
/* 42*/ "YCA Y command aborted",
|
||||
/* 43*/ "IFE ill-formed numeric expression",
|
||||
/* 44*/ "SYS %s",
|
||||
/* 45*/ "UCD unable to close and delete output file %s",
|
||||
/* 46*/ "UCI unable to close input file",
|
||||
/* 47*/ "UCO unable to close output file",
|
||||
/* 48*/ "UFI unable to open file %s for input",
|
||||
/* 49*/ "UFO unable to open file %s for output",
|
||||
/* 50*/ "URC unable to read character from terminal",
|
||||
/* 51*/ "URE unable to read TECO command file",
|
||||
/* 52*/ "URL unable to read line from input file",
|
||||
/* 53*/ "UWL unable to write line to output file"
|
||||
};
|
||||
/*****************************************************************************
|
||||
ErrUTC()
|
||||
Simply call ErrMsg with either ERR_UTC (unterminated command) or
|
||||
ERR_UTM (unterminated macro) depending on whether we're in a macro or not.
|
||||
*****************************************************************************/
|
||||
VVOID ErrUTC()
|
||||
{
|
||||
ErrMsg((MStTop < 0) ? ERR_UTC : ERR_UTM);
|
||||
}
|
||||
/*****************************************************************************
|
||||
ErrVrb()
|
||||
This function displays the verbose form of an error message.
|
||||
The verbose form is a short paragraph explaining the error condition in
|
||||
some detail. This function is called from ErrDsp when the least significant
|
||||
two bits of the EH flag are set to 3, or from FrstCh when the user types
|
||||
a / immediately after receiving a short error message.
|
||||
Verbose explanations of error messages are stored in the HELP system
|
||||
so that they can be accessed using the HELP command. Therefore this function
|
||||
calls ZHelp to display the verbose messages.
|
||||
*****************************************************************************/
|
||||
VVOID ErrVrb(ErrNum) /* display verbose error message */
|
||||
WORD ErrNum; /* error message number */
|
||||
{
|
||||
DBGFEN(3,"ErrVrb",NULL);
|
||||
ZVrbos(ErrNum, Errors[ErrNum]);
|
||||
DBGFEX(3,DbgFNm,NULL);
|
||||
}
|
||||
/*****************************************************************************
|
||||
ErrDsp()
|
||||
This function displays a TECO error message on the terminal screen.
|
||||
This function is passed the number of the error message and the text of the
|
||||
error message.
|
||||
The EH flag controls how verbose the error message will be. The two
|
||||
least significant bits of the EH flag control how verbose the error message
|
||||
is. The third bit (mask is EH_COMMAND) causes the erroneous command string up
|
||||
to and including the erroneous command to be displayed.
|
||||
The low two bits of EH have the following meanings:
|
||||
0 same as 2
|
||||
1 only the three letter code is output
|
||||
2 three letter code and one-line error message
|
||||
3 three letter code, one-lien message and paragraph
|
||||
*****************************************************************************/
|
||||
static VVOID ErrDsp(ErrNum, ELine)
|
||||
WORD ErrNum; /* the error number */
|
||||
unsigned char *ELine; /* error message text */
|
||||
{
|
||||
WORD HlpLvl;
|
||||
ptrdiff_t lenn;
|
||||
HlpLvl = (EhFlag & 3) ? (EhFlag & 3) : 2;
|
||||
lenn = (HlpLvl < 2) ? 4 : strlen(ELine);
|
||||
ZDspBf(ELine, lenn);
|
||||
if (HlpLvl == 3) { /* if paragraph */
|
||||
ErrVrb(ErrNum); /* display paragraph */
|
||||
}
|
||||
ZDspBf("\r\n", 2);
|
||||
if (EhFlag & EH_COMMAND) { /* if error string display is on */
|
||||
TypESt();
|
||||
}
|
||||
LstErr = ErrNum;
|
||||
}
|
||||
/*****************************************************************************
|
||||
ToErr()
|
||||
Given a character and a buffer pointer, this function puts the
|
||||
displayable representation for the character into the buffer and updates
|
||||
the buffer position. For most characters, the displayable representation
|
||||
is the character itself.
|
||||
*****************************************************************************/
|
||||
static VVOID ToErr(Charac, PtrPtr)
|
||||
unsigned char Charac;
|
||||
charptr *PtrPtr;
|
||||
{
|
||||
char SBuf[5];
|
||||
char *SPtr;
|
||||
size_t SLen;
|
||||
switch (Charac) {
|
||||
case TABCHR: SPtr = "<TAB>"; SLen = 5; break;
|
||||
case LINEFD: SPtr = "<LF>"; SLen = 4; break;
|
||||
case VRTTAB: SPtr = "<VT>"; SLen = 4; break;
|
||||
case FORMFD: SPtr = "<FF>"; SLen = 4; break;
|
||||
case CRETRN: SPtr = "<CR>"; SLen = 4; break;
|
||||
case ESCAPE: SPtr = "<ESC>"; SLen = 5; break;
|
||||
case '\0': SPtr = "<NUL>"; SLen = 5; break;
|
||||
default: if (Charac >= DELETE) {
|
||||
SPtr = SBuf;
|
||||
MakDBf((LONG)Charac, 16);
|
||||
SLen = (size_t) (DBfPtr - DBfBeg);
|
||||
SBuf[0] = '[';
|
||||
MEMMOVE(&SBuf[1], DBfBeg, SLen);
|
||||
SBuf[++SLen] = ']';
|
||||
++SLen;
|
||||
} else if (Charac < SPACE) {
|
||||
SPtr = SBuf;
|
||||
MEMMOVE(SBuf, "<^x>", 4);
|
||||
SBuf[2] = Charac + '@';
|
||||
SLen = 4;
|
||||
} else {
|
||||
SPtr = (char *)&Charac;
|
||||
SLen = 1;
|
||||
}
|
||||
break;
|
||||
}
|
||||
MEMMOVE(*PtrPtr, SPtr, SLen);
|
||||
*PtrPtr += SLen;
|
||||
}
|
||||
/*****************************************************************************
|
||||
*****************************************************************************/
|
||||
VVOID ErrChr(ErrNum, EChr) /* display error message with character arg */
|
||||
WORD ErrNum; /* the error number */
|
||||
unsigned char EChr; /* character to imbed in message */
|
||||
{
|
||||
char *TmpPtr;
|
||||
unsigned char ErrBuf[ERBFSIZ];
|
||||
charptr EPtr = ErrBuf;
|
||||
*EPtr++ = '?';
|
||||
TmpPtr = Errors[ErrNum];
|
||||
while (*TmpPtr != '%') { /* copy up to "%" */
|
||||
*EPtr++ = *TmpPtr++;
|
||||
}
|
||||
ToErr(EChr, &EPtr); /* copy the %c character */
|
||||
TmpPtr++; /* skip % */
|
||||
TmpPtr++; /* skip c */
|
||||
while (*TmpPtr) { /* copy rest of string */
|
||||
*EPtr++ = *TmpPtr++;
|
||||
}
|
||||
*EPtr = '\0';
|
||||
ErrDsp(ErrNum, ErrBuf);
|
||||
}
|
||||
/*****************************************************************************
|
||||
*****************************************************************************/
|
||||
VVOID ErrMsg(ErrNum) /* display error message */
|
||||
WORD ErrNum; /* the error number */
|
||||
{
|
||||
char *TmpPtr;
|
||||
unsigned char ErrBuf[ERBFSIZ];
|
||||
charptr EPtr = ErrBuf;
|
||||
*EPtr++ = '?';
|
||||
TmpPtr = Errors[ErrNum];
|
||||
while (*TmpPtr) { /* copy rest of string */
|
||||
*EPtr++ = *TmpPtr++;
|
||||
}
|
||||
*EPtr = '\0';
|
||||
ErrDsp(ErrNum, ErrBuf);
|
||||
}
|
||||
/*****************************************************************************
|
||||
*****************************************************************************/
|
||||
VVOID ErrStr(ErrNum, EStr) /* display error message with string arg */
|
||||
WORD ErrNum; /* the error number */
|
||||
char *EStr; /* string to imbed in message */
|
||||
{
|
||||
char *TmpPtr;
|
||||
unsigned char ErrBuf[ERBFSIZ];
|
||||
charptr EPtr = ErrBuf;
|
||||
*EPtr++ = '?';
|
||||
TmpPtr = Errors[ErrNum];
|
||||
while (*TmpPtr != '%') { /* copy up to "%" */
|
||||
*EPtr++ = *TmpPtr++;
|
||||
}
|
||||
while (*EStr) { /* copy %s string */
|
||||
ToErr((unsigned char)*EStr++, &EPtr);
|
||||
}
|
||||
TmpPtr++; /* skip % */
|
||||
TmpPtr++; /* skip s */
|
||||
while (*TmpPtr) { /* copy rest of string */
|
||||
*EPtr++ = *TmpPtr++;
|
||||
}
|
||||
*EPtr = '\0';
|
||||
ErrDsp(ErrNum, ErrBuf);
|
||||
}
|
||||
/*****************************************************************************
|
||||
*****************************************************************************/
|
||||
VVOID ErrPSt(ErrNum, EBeg, EEnd) /* display error message with string arg */
|
||||
WORD ErrNum; /* the error number */
|
||||
charptr EBeg; /* string to imbed in message */
|
||||
charptr EEnd; /* ptr to char after last char */
|
||||
{
|
||||
char *TmpPtr;
|
||||
unsigned char ErrBuf[ERBFSIZ];
|
||||
charptr EPtr = ErrBuf;
|
||||
*EPtr++ = '?';
|
||||
TmpPtr = Errors[ErrNum];
|
||||
while (*TmpPtr != '%') { /* copy up to "%" */
|
||||
*EPtr++ = *TmpPtr++;
|
||||
}
|
||||
while (EBeg < EEnd) { /* copy %s string */
|
||||
ToErr(*EBeg++, &EPtr);
|
||||
}
|
||||
TmpPtr++; /* skip % */
|
||||
TmpPtr++; /* skip s */
|
||||
while (*TmpPtr) { /* copy rest of string */
|
||||
*EPtr++ = *TmpPtr++;
|
||||
}
|
||||
*EPtr = '\0';
|
||||
ErrDsp(ErrNum, ErrBuf);
|
||||
}
|
||||
|
|
@ -0,0 +1,113 @@
|
|||
/*****************************************************************************
|
||||
ExeA()
|
||||
This function executes an A command.
|
||||
A Appends the next page of the input file to the contents
|
||||
of the text buffer, thus combining the two pages of
|
||||
text on a single page with no intervening form feed
|
||||
character. This command takes no argument. To perform
|
||||
n Appends, use the n<A> construct. Note that nA is a
|
||||
completely different command.
|
||||
:A Equivalent to the A command except that a value is
|
||||
returned. -1 is returned if the append succeeded, and
|
||||
0 is returned if the append failed because the
|
||||
end-of-the-input-file had previously been reached (^N
|
||||
flag is -1 at start of this command).
|
||||
n:A Appends n lines of text from the input file to the
|
||||
contents of the text buffer. The value of n must not
|
||||
be negative. A value is returned indicating whether or
|
||||
not there were in fact n lines remaining in the input
|
||||
file. -1 is returned if the command succeeded. 0 is
|
||||
returned if end-of-file on the input file was
|
||||
encountered before all n lines were read in. Note that
|
||||
the command can succeed and yet read in fewer than n
|
||||
lines in the case that the text buffer fills up.
|
||||
nA Equivalent to the ASCII code for the .+n+1th character
|
||||
in the buffer (that is, the character to the right of
|
||||
buffer pointer position .+n). The expression -1A is
|
||||
equivalent to the ASCII code of the character
|
||||
immediately preceding the pointer and 0A is equivalent
|
||||
to the ASCII code of the character immediately
|
||||
following the pointer (the current character). If the
|
||||
character position referenced lies outside the bounds
|
||||
of the text buffer, this command returns a -1.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeA() /* execute an A command */
|
||||
{
|
||||
BOOLEAN EBfFul;
|
||||
unsigned char TmpChr;
|
||||
BOOLEAN ColonMod;
|
||||
DBGFEN(1,"ExeA",NULL);
|
||||
ColonMod = (CmdMod & COLON); /* is it :A or n:A */
|
||||
CmdMod &= ~COLON; /* clear : flag */
|
||||
/*
|
||||
* if we have a numeric argument, it's nA or n:A
|
||||
*/
|
||||
if (EStTop > EStBot) { /* if numeric argument */
|
||||
UMinus(); /* if it's -A, make it -1A */
|
||||
if (GetNmA() == FAILURE) { /* get numeric argument */
|
||||
DBGFEX(1,DbgFNm,"FAILURE, GetNmA() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
if (ColonMod) { /* if it's n:A */
|
||||
if (NArgmt < 1) {
|
||||
ErrMsg(ERR_IPA);
|
||||
DBGFEX(1,DbgFNm,"FAILURE, n:A, n < 1");
|
||||
return FAILURE;
|
||||
}
|
||||
while (NArgmt-- > 0) {
|
||||
EBfFul = FALSE;
|
||||
if (RdLine(&EBfFul) == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE, RdLine() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
if (EBfFul) {
|
||||
break;
|
||||
}
|
||||
if (IsEofI[CurInp]) { /* if end-of-file */
|
||||
DBGFEX(1,DbgFNm,"PushEx(0)");
|
||||
return PushEx(0L, OPERAND);
|
||||
}
|
||||
}
|
||||
DBGFEX(1,DbgFNm,"PushEx(-1)");
|
||||
return PushEx(-1L, OPERAND);
|
||||
}
|
||||
/*
|
||||
* it's nA
|
||||
*/
|
||||
if (NArgmt < 0) {
|
||||
if ((GapBeg+NArgmt) < EBfBeg) {
|
||||
DBGFEX(1,DbgFNm,"PushEx(-1)");
|
||||
return PushEx(-1L, OPERAND);
|
||||
}
|
||||
TmpChr = *(GapBeg+NArgmt);
|
||||
} else {
|
||||
if ((GapEnd+NArgmt+1) > EBfEnd) {
|
||||
DBGFEX(1,DbgFNm,"PushEx(-1)");
|
||||
return PushEx(-1L, OPERAND);
|
||||
}
|
||||
TmpChr = *(GapEnd+NArgmt+1);
|
||||
}
|
||||
#if DEBUGGING
|
||||
sprintf(DbgSBf,"PushEx(%d)", TmpChr);
|
||||
DbgFEx(1,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
return PushEx((LONG)TmpChr, OPERAND);
|
||||
}
|
||||
/*
|
||||
* if there is no numeric argument, must be A or :A
|
||||
*/
|
||||
if (IsEofI[CurInp]) { /* if already at end-of-file */
|
||||
DBGFEX(1,DbgFNm,(ColonMod) ? "PushEx(0)" : "SUCCESS");
|
||||
return ((ColonMod) ? PushEx(0L,OPERAND) : SUCCESS);
|
||||
}
|
||||
if (RdPage() == FAILURE) { /* read a page */
|
||||
DBGFEX(1,DbgFNm,"FAILURE, RdPage() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
DBGFEX(1,DbgFNm,(ColonMod) ? "PushEx(-1)" : "SUCCESS");
|
||||
return (ColonMod) ? PushEx(-1L, OPERAND) : SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
/*****************************************************************************
|
||||
ExeAtS()
|
||||
This function executes an @ (at-sign) command.
|
||||
This function implements the at-sign modifier by setting a bit in
|
||||
the CmdMod variable. Commands which are sensitive to at-sign modification
|
||||
check CmdMod explicitly.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeAtS() /* execute an @ (at sign) command */
|
||||
{
|
||||
DBGFEN(1,"ExeAtS",NULL);
|
||||
CmdMod |= ATSIGN; /* set at sign */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
/*****************************************************************************
|
||||
ExeB()
|
||||
This function executes a B command.
|
||||
B Always equivalent to zero. Thus, B represents the
|
||||
position preceding the first character in the buffer.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeB() /* execute a B command */
|
||||
{
|
||||
DBGFEN(1,"ExeB",NULL);
|
||||
DBGFEX(1,DbgFNm,"PushEx(0)");
|
||||
return PushEx(0L, OPERAND);
|
||||
}
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
/*****************************************************************************
|
||||
ExeBar()
|
||||
This function executes a | (vertical bar) command.
|
||||
| Start ELSE part of conditional
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeBar() /* execute | (vertical bar) command */
|
||||
{
|
||||
DBGFEN(1,"ExeBar",NULL);
|
||||
if (FlowEC() == FAILURE) { /* flow to ' */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
EStTop = EStBot; /* clear expression stack */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,86 @@
|
|||
/*****************************************************************************
|
||||
ExeBSl()
|
||||
This function executes a \ (backslash) command.
|
||||
\ Value of digit string in buffer
|
||||
n\ Convert n to digits in buffer
|
||||
The backslash command allows the user to convert binary numbers
|
||||
to/from their ASCII representations. If a numeric argument precedes the
|
||||
backslash command, then the ASCII representation for the number is inserted
|
||||
into the edit buffer at the current point. If there is no preceding numeric
|
||||
argument, then the number in it's ASCII representation in the edit buffer is
|
||||
converted to binary, and is returned by the backslash command. In either
|
||||
case, TECO's current radix controls how the numbers are represented. If
|
||||
the current radix is decimal, then a plus or minus sign can precede an
|
||||
ASCII number being read, and a minus sign will be generated if necessary
|
||||
for a number being generated. When converting a string that's in the edit
|
||||
buffer, the character pointer is left at the end of the string in the buffer.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "chmacs.h" /* define character processing macros */
|
||||
DEFAULT ExeBSl() /* execute a \ (backslash) command */
|
||||
{
|
||||
DBGFEN(1,"ExeBSl",NULL);
|
||||
/*
|
||||
* Handle the case where there's no numeric argument: convert the digit
|
||||
* string in the edit buffer into a binary value and push it onto the
|
||||
* expression stack.
|
||||
*/
|
||||
if ((EStTop == EStBot) || /* if no numeric arg or */
|
||||
(EStack[EStTop].ElType != OPERAND)) { /* partial expression */
|
||||
LONG StrVal = 0;
|
||||
RefLen=0;
|
||||
if (GapEnd != EBfEnd) { /* if not at end of buffer */
|
||||
BOOLEAN negative = FALSE;
|
||||
char NxtChr;
|
||||
if (*(GapEnd+1) == '-') { /* minus sign? */
|
||||
RefLen--;
|
||||
GapEnd++; /* move forward... */
|
||||
*GapBeg++ = *GapEnd; /* ... one character */
|
||||
negative = TRUE;
|
||||
} else if (*(GapEnd+1) == '+') { /* plus sign? */
|
||||
RefLen--;
|
||||
GapEnd++; /* move forward... */
|
||||
*GapBeg++ = *GapEnd; /* ... one character */
|
||||
}
|
||||
while ((GapEnd != EBfEnd) && (IsRadx(*(GapEnd+1)))) {
|
||||
RefLen--;
|
||||
GapEnd++; /* move forward... */
|
||||
*GapBeg++ = *GapEnd; /* ... one character */
|
||||
NxtChr = *GapEnd;
|
||||
if (Is_Digit(NxtChr))
|
||||
NxtChr -= '0';
|
||||
else if (Is_Upper(NxtChr))
|
||||
NxtChr -= '\67';
|
||||
else
|
||||
NxtChr -= '\127';
|
||||
StrVal = (StrVal * Radix) + NxtChr;
|
||||
}
|
||||
if (negative)
|
||||
StrVal = -StrVal;
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
#if DEBUGGING
|
||||
sprintf(DbgSBf,"PushEx(%ld)", StrVal);
|
||||
DbgFEx(1,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
return PushEx(StrVal,OPERAND);
|
||||
}
|
||||
/*
|
||||
* If we made it to here, then there is a numeric argument
|
||||
*/
|
||||
if (GetNmA() == FAILURE) { /* get numeric argument */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
MakDBf(NArgmt, Radix); /* convert it to ASCII */
|
||||
if (InsStr(DBfBeg, DBfPtr-DBfBeg) == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
EStTop = EStBot; /* clear expression stack */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
/*****************************************************************************
|
||||
ExeC()
|
||||
This function executes a C command.
|
||||
nC Advance n characters
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeC() /* execute a C command */
|
||||
{
|
||||
DBGFEN(1,"ExeC",NULL);
|
||||
if (EStTop == EStBot) { /* if no numeric argument */
|
||||
NArgmt = 1; /* default is 1C */
|
||||
} else {
|
||||
UMinus(); /* if it's -C, make it -1C */
|
||||
if (GetNmA() == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
DBGFEX(1,DbgFNm,"DoCJR");
|
||||
return DoCJR(NArgmt);
|
||||
}
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
/*****************************************************************************
|
||||
ExeCCC()
|
||||
This function executes a ^^ (control-caret or caret-caret) command.
|
||||
^^x Equivilent to the ASCII value of x
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeCCC() /* execute a control-^ command */
|
||||
{
|
||||
DBGFEN(1,"ExeCCC",NULL);
|
||||
if (IncCBP() == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
DBGFEX(1,DbgFNm,"PushEx()");
|
||||
return PushEx((LONG)*CBfPtr, OPERAND);
|
||||
}
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
/*****************************************************************************
|
||||
ExeCln()
|
||||
This function handles the colon and double-colon modifiers.
|
||||
This function implements the modifiers by setting bits in the
|
||||
CmdMod variable. Commands which are sensitive to colon or double colon
|
||||
modification check CmdMod explicitly.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCln() /* execute : or :: modifiers */
|
||||
{
|
||||
DBGFEN(1,"ExeCln",NULL);
|
||||
if (CmdMod & COLON) { /* if colon bit is set */
|
||||
CmdMod &= ~COLON; /* clear colon bit */
|
||||
CmdMod |= DCOLON; /* set double-colon bit */
|
||||
} else {
|
||||
CmdMod |= COLON; /* set colon bit */
|
||||
}
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
/*****************************************************************************
|
||||
ExeCom()
|
||||
This function executes a , (comma argument separator) command.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeCom() /* execute a , (comma) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCom",NULL);
|
||||
if (EStTop == EStBot) { /* if no numeric argument */
|
||||
ErrMsg(ERR_NAC); /* no arg before , */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (GetNmA() == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
MArgmt = NArgmt;
|
||||
CmdMod |= MARGIS;
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,38 @@
|
|||
/*****************************************************************************
|
||||
ExeCrt()
|
||||
This function "executes" a ^ (caret) command. Most TECO commands
|
||||
which are control characters (^A, ^B, etc) can also be entered as a caret
|
||||
and letter combination. For example, control-A can also be entered as
|
||||
caret-A.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "chmacs.h" /* define character processing macros */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeCrt() /* execute a ^ (caret) command */
|
||||
{
|
||||
unsigned char TmpChr;
|
||||
static DEFAULT (*FCAray[])(VVOID) = {
|
||||
/* ^A*/ ExeCtA, /* ^B*/ ZExCtB, /* ^C*/ ExeCtC,
|
||||
/* ^D*/ ExeCtD, /* ^E*/ ExeCtE, /* ^F*/ ExeNYI,
|
||||
/* ^G*/ ExeIll, /* ^H*/ ZExCtH, /*TAB*/ ExeCtI,
|
||||
/* LF*/ ExeNul, /* VT*/ ExeIll, /* FF*/ ExeCtL,
|
||||
/* CR*/ ExeNul, /* ^N*/ ExeCtN, /* ^O*/ ExeCtO,
|
||||
/* ^P*/ ExeCtP, /* ^Q*/ ExeCtQ, /* ^R*/ ExeCtR,
|
||||
/* ^S*/ ExeCtS, /* ^T*/ ExeCtT, /* ^U*/ ExeCtU,
|
||||
/* ^V*/ ExeCtV, /* ^W*/ ExeCtW, /* ^X*/ ExeCtX,
|
||||
/* ^Y*/ ExeCtY, /* ^Z*/ ExeCtZ, /* ^[*/ ExeEsc,
|
||||
/* ^\*/ ExeIll, /* ^]*/ ExeIll, /* ^^*/ ExeCCC,
|
||||
/* ^_*/ ExeUsc
|
||||
};
|
||||
if (IncCBP() == FAILURE) {
|
||||
return FAILURE;
|
||||
}
|
||||
TmpChr = To_Upper(*CBfPtr);
|
||||
if ((TmpChr < 'A') || (TmpChr > '_')) {
|
||||
ErrChr(ERR_IUC, *CBfPtr);
|
||||
return FAILURE;
|
||||
}
|
||||
return (*FCAray[TmpChr-'A'])();
|
||||
}
|
||||
|
|
@ -0,0 +1,113 @@
|
|||
/*****************************************************************************
|
||||
ExeCSt()
|
||||
This function executes a TECO command string. The string is pointed
|
||||
to by CBfPtr. The last character in the string is pointed to by CStEnd.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeCSt() /* execute command string */
|
||||
{
|
||||
DEFAULT status;
|
||||
static DEFAULT (*FArray[])(VVOID) = {
|
||||
/*NUL*/ ExeNul, /* ^A*/ ExeCtA, /* ^B*/ ZExCtB, /* ^C*/ ExeCtC,
|
||||
/* ^D*/ ExeCtD, /* ^E*/ ExeCtE, /* ^F*/ ExeNYI, /* ^G*/ ExeIll,
|
||||
/* ^H*/ ZExCtH, /* ^I*/ ExeCtI, /* LF*/ ExeNul, /* VT*/ ExeIll,
|
||||
/* ^L*/ ExeCtL, /* CR*/ ExeNul, /* ^N*/ ExeCtN, /* ^O*/ ExeCtO,
|
||||
/* ^P*/ ExeCtP, /* ^Q*/ ExeCtQ, /* ^R*/ ExeCtR, /* ^S*/ ExeCtS,
|
||||
/* ^T*/ ExeCtT, /* ^U*/ ExeCtU, /* ^V*/ ExeCtV, /* ^W*/ ExeCtW,
|
||||
/* ^X*/ ExeCtX, /* ^Y*/ ExeCtY, /* ^Z*/ ExeCtZ, /*ESC*/ ExeEsc,
|
||||
/* ^\*/ ExeIll, /* ^]*/ ExeIll, /* ^^*/ ExeCCC, /* ^_*/ ExeUsc,
|
||||
/* SP*/ ExeNul, /* ! */ ExeExc, /* " */ ExeDQu, /* # */ ExeOpr,
|
||||
/* $ */ ExeEsc, /* % */ ExePrc, /* & */ ExeOpr, /* ' */ ExeNul,
|
||||
/* ( */ ExeOpr, /* ) */ ExeRtP, /* * */ ExeOpr, /* + */ ExeOpr,
|
||||
/* , */ ExeCom, /* - */ ExeOpr, /* . */ ExeDot, /* / */ ExeOpr,
|
||||
/* 0 */ ExeDgt, /* 1 */ ExeDgt, /* 2 */ ExeDgt, /* 3 */ ExeDgt,
|
||||
/* 4 */ ExeDgt, /* 5 */ ExeDgt, /* 6 */ ExeDgt, /* 7 */ ExeDgt,
|
||||
/* 8 */ ExeDgt, /* 9 */ ExeDgt, /* : */ ExeCln, /* ; */ ExeSCl,
|
||||
/* < */ ExeLst, /* = */ ExeEqu, /* > */ ExeGtr, /* ? */ ExeQes,
|
||||
/* @ */ ExeAtS, /* A */ ExeA, /* B */ ExeB, /* C */ ExeC,
|
||||
/* D */ ExeD, /* E */ ExeE, /* F */ ExeF, /* G */ ExeG,
|
||||
/* H */ ExeH, /* I */ ExeI, /* J */ ExeJ, /* K */ ExeK,
|
||||
/* L */ ExeL, /* M */ ExeM, /* N */ ExeN, /* O */ ExeO,
|
||||
/* P */ ExeP, /* Q */ ExeQ, /* R */ ExeR, /* S */ ExeS,
|
||||
/* T */ ExeT, /* U */ ExeU, /* V */ ExeV, /* W */ ExeW,
|
||||
/* X */ ExeX, /* Y */ ExeY, /* Z */ ExeZ, /* [ */ ExeLBr,
|
||||
/* \ */ ExeBSl, /* ] */ ExeRBr, /* ^ */ ExeCrt, /* _ */ ExeUnd,
|
||||
/* ` */ ExeIll, /* a */ ExeA, /* b */ ExeB, /* c */ ExeC,
|
||||
/* d */ ExeD, /* e */ ExeE, /* f */ ExeF, /* g */ ExeG,
|
||||
/* h */ ExeH, /* i */ ExeI, /* j */ ExeJ, /* k */ ExeK,
|
||||
/* l */ ExeL, /* m */ ExeM, /* n */ ExeN, /* o */ ExeO,
|
||||
/* p */ ExeP, /* q */ ExeQ, /* r */ ExeR, /* s */ ExeS,
|
||||
/* t */ ExeT, /* u */ ExeU, /* v */ ExeV, /* w */ ExeW,
|
||||
/* x */ ExeX, /* y */ ExeY, /* z */ ExeZ, /* { */ ExeIll,
|
||||
/* | */ ExeBar, /* } */ ExeIll, /* ~ */ ExeIll, /*DEL*/ ExeIll,
|
||||
/*129*/ ExeIll, /*130*/ ExeIll, /*131*/ ExeIll, /*132*/ ExeIll,
|
||||
/*133*/ ExeIll, /*134*/ ExeIll, /*135*/ ExeIll, /*136*/ ExeIll,
|
||||
/*137*/ ExeIll, /*138*/ ExeIll, /*139*/ ExeIll, /*140*/ ExeIll,
|
||||
/*141*/ ExeIll, /*142*/ ExeIll, /*143*/ ExeIll, /*144*/ ExeIll,
|
||||
/*145*/ ExeIll, /*146*/ ExeIll, /*147*/ ExeIll, /*148*/ ExeIll,
|
||||
/*149*/ ExeIll, /*150*/ ExeIll, /*151*/ ExeIll, /*152*/ ExeIll,
|
||||
/*153*/ ExeIll, /*154*/ ExeIll, /*155*/ ExeIll, /*156*/ ExeIll,
|
||||
/*157*/ ExeIll, /*158*/ ExeIll, /*159*/ ExeIll, /*160*/ ExeIll,
|
||||
/*161*/ ExeIll, /*162*/ ExeIll, /*163*/ ExeIll, /*164*/ ExeIll,
|
||||
/*165*/ ExeIll, /*166*/ ExeIll, /*167*/ ExeIll, /*168*/ ExeIll,
|
||||
/*169*/ ExeIll, /*170*/ ExeIll, /*171*/ ExeIll, /*172*/ ExeIll,
|
||||
/*173*/ ExeIll, /*174*/ ExeIll, /*175*/ ExeIll, /*176*/ ExeIll,
|
||||
/*177*/ ExeIll, /*178*/ ExeIll, /*179*/ ExeIll, /*180*/ ExeIll,
|
||||
/*181*/ ExeIll, /*182*/ ExeIll, /*183*/ ExeIll, /*184*/ ExeIll,
|
||||
/*185*/ ExeIll, /*186*/ ExeIll, /*187*/ ExeIll, /*188*/ ExeIll,
|
||||
/*189*/ ExeIll, /*190*/ ExeIll, /*191*/ ExeIll, /*192*/ ExeIll,
|
||||
/*193*/ ExeIll, /*194*/ ExeIll, /*195*/ ExeIll, /*196*/ ExeIll,
|
||||
/*197*/ ExeIll, /*198*/ ExeIll, /*199*/ ExeIll, /*200*/ ExeIll,
|
||||
/*201*/ ExeIll, /*202*/ ExeIll, /*203*/ ExeIll, /*204*/ ExeIll,
|
||||
/*205*/ ExeIll, /*206*/ ExeIll, /*207*/ ExeIll, /*208*/ ExeIll,
|
||||
/*209*/ ExeIll, /*210*/ ExeIll, /*211*/ ExeIll, /*212*/ ExeIll,
|
||||
/*213*/ ExeIll, /*214*/ ExeIll, /*215*/ ExeIll, /*216*/ ExeIll,
|
||||
/*217*/ ExeIll, /*218*/ ExeIll, /*219*/ ExeIll, /*220*/ ExeIll,
|
||||
/*221*/ ExeIll, /*222*/ ExeIll, /*223*/ ExeIll, /*224*/ ExeIll,
|
||||
/*225*/ ExeIll, /*226*/ ExeIll, /*227*/ ExeIll, /*228*/ ExeIll,
|
||||
/*229*/ ExeIll, /*230*/ ExeIll, /*231*/ ExeIll, /*232*/ ExeIll,
|
||||
/*233*/ ExeIll, /*234*/ ExeIll, /*235*/ ExeIll, /*236*/ ExeIll,
|
||||
/*237*/ ExeIll, /*238*/ ExeIll, /*239*/ ExeIll, /*240*/ ExeIll,
|
||||
/*241*/ ExeIll, /*242*/ ExeIll, /*243*/ ExeIll, /*244*/ ExeIll,
|
||||
/*245*/ ExeIll, /*246*/ ExeIll, /*247*/ ExeIll, /*248*/ ExeIll,
|
||||
/*249*/ ExeIll, /*250*/ ExeIll, /*251*/ ExeIll, /*252*/ ExeIll,
|
||||
/*253*/ ExeIll, /*254*/ ExeIll, /*255*/ ExeIll, /*256*/ ExeIll
|
||||
};
|
||||
DBGFEN(4,"ExeCSt",NULL);
|
||||
while (CBfPtr <= CStEnd) { /* while more commands */
|
||||
if (TraceM) { /* if trace mode is on */
|
||||
EchoIt(*CBfPtr); /* display the command */
|
||||
}
|
||||
status = (*FArray[*CBfPtr])(); /* execute command */
|
||||
#if CONSISTENCY_CHECKING
|
||||
check_consistency();
|
||||
#endif
|
||||
#if CHECKSUM_CODE
|
||||
check_code_checksums ();
|
||||
#endif
|
||||
ZCHKKB(); /* kludge for MS-DOS only */
|
||||
if (GotCtC) { /* if got a control-C */
|
||||
GotCtC = FALSE;
|
||||
ErrMsg(ERR_XAB); /* XAB = execution aborted */
|
||||
DBGFEX(4,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
if (status == FAILURE) { /* did command fail? */
|
||||
if (EtFlag & ET_MUNG_MODE) { /* if in mung mode */
|
||||
TAbort(EXIT_FAILURE); /* ... terminate */
|
||||
} else {
|
||||
DBGFEX(4,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
CBfPtr++; /* move to next command */
|
||||
}
|
||||
if (LStTop != LStBot) { /* if unclosed loop */
|
||||
ErrUTC(); /* unterminated command */
|
||||
}
|
||||
DBGFEX(4,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
/*****************************************************************************
|
||||
ExeCtA()
|
||||
This function executes a ^A (control-A or caret-A) command.
|
||||
^Atext^A Types "text" on the terminal. The closing
|
||||
character must be a control-A.
|
||||
@^A/text/ Equivilent to ^A except text can be bracketed
|
||||
with any character, avoids need for second ^A.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
DEFAULT ExeCtA() /* execute a ^A (control-A) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtA",NULL);
|
||||
if (FindES(CTRL_A) == FAILURE) { /* find end of string */
|
||||
DBGFEX(1,DbgFNm,"FAILURE, FindES() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
TypBuf(ArgPtr, CBfPtr);
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
EStTop = EStBot; /* clear expression stack */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
/*****************************************************************************
|
||||
ExeCtC()
|
||||
This function executes a control-C command.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
DEFAULT ExeCtC() /* execute an control-C command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtC",NULL);
|
||||
if ((CBfPtr < CStEnd) && (*(CBfPtr+1) == CTRL_C)) { /* if it's ^C^C */
|
||||
TAbort(EXIT_SUCCESS);
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
EStTop = EStBot; /* clear expression stack */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
/*****************************************************************************
|
||||
ExeCtD()
|
||||
This function executes a ^D (control-D or caret-D) command. This
|
||||
command sets the radix to decimal.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtD() /* execute a ^D (control-D) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtD",NULL);
|
||||
Radix = 10;
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,30 @@
|
|||
/*****************************************************************************
|
||||
ExeCtE()
|
||||
This function executes a ^E (control-E or caret-E) command, which
|
||||
returns the value of the form feed flag. The form feed flag is -1 if the
|
||||
last read operation was terminated because a form feed was encountered. It
|
||||
is 0 otherwise. If the ^E command is preceded by a numeric argument, then
|
||||
the command sets the value of the form feed flag. The form feed flag is
|
||||
used by the output code to indicate whether a form feed should be appended
|
||||
when the edit buffer is written to the output file.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtE() /* execute a ^E (control-E) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtE",NULL);
|
||||
if (EStTop > EStBot) { /* if numeric argument */
|
||||
if (GetNmA() == FAILURE) { /* get numeric arg */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
FFPage = (NArgmt == -1) ? -1 : 0;
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
DBGFEX(1,DbgFNm,"PushEx(FFPage)");
|
||||
return PushEx(FFPage, OPERAND);
|
||||
}
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
/*****************************************************************************
|
||||
ExeCtI()
|
||||
This function executes a ^I (control-I or caret-I) command. This
|
||||
is equivilent to the I command, except the <TAB> is inserted as well.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
DEFAULT ExeCtI() /* execute control-I (tab) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtI",NULL);
|
||||
if (FindES(ESCAPE) == FAILURE) { /* find end of text arg */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (InsStr(ArgPtr-1, (CBfPtr-ArgPtr)+1) == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
EStTop = EStBot; /* clear expression stack */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
/*****************************************************************************
|
||||
ExeCtL()
|
||||
This function executes a ^L (control-L or caret-L) command.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
DEFAULT ExeCtL() /* execute an ^L (control-L) command */
|
||||
{
|
||||
ZDspCh(FORMFD);
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
/*****************************************************************************
|
||||
ExeCtN()
|
||||
This function executes a ^N (control-N or caret-N) command.
|
||||
^N <CTRL/N> (caret/N) is the end of file flag. It is
|
||||
equivalent to -1 if the file open on the currently
|
||||
selected input stream is at end of file, and zero
|
||||
otherwise.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtN() /* execute a ^N (control-N) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtN",NULL);
|
||||
DBGFEX(1,DbgFNm,"PushEx()");
|
||||
return PushEx((IsEofI[CurInp] ? -1L : 0L), OPERAND);
|
||||
}
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
/*****************************************************************************
|
||||
ExeCtO()
|
||||
This function executes a ^O (control-O or caret-O) command. This
|
||||
command sets the radix to octal.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtO() /* execute a ^O (control-O) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtO",NULL);
|
||||
Radix = 8; /* set radix to octal */
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
/*****************************************************************************
|
||||
ExeCtP()
|
||||
This function executes a ^P (control-P or caret-P) command. ^P
|
||||
is not a TECO command and is used to set TECO-C debugging parameters. For
|
||||
more information on the debugging routines, see the DEBUGGING lines in
|
||||
Tecoc.c.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtP() /* execute a ^P (control-P) command */
|
||||
{
|
||||
#if DEBUGGING
|
||||
if (DbgDsp() == FAILURE) {
|
||||
return FAILURE;
|
||||
}
|
||||
EStTop = EStBot; /* clear expression stack */
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
return SUCCESS;
|
||||
#else
|
||||
return (ExeIll ()); /* Illegal command */
|
||||
#endif
|
||||
}
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
/*****************************************************************************
|
||||
ExeCtQ()
|
||||
This function executes a ^Q (control-Q or caret-Q) command.
|
||||
n^Q returns number of characters between the buffer pointer
|
||||
and the nth line separator (n^QC == nL).
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtQ() /* execute a ^Q (control-Q) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtQ",NULL);
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
if (EStTop == EStBot) { /* if no numeric argument */
|
||||
DBGFEX(1,DbgFNm,"PushEx(0)");
|
||||
return PushEx(0L, OPERAND);
|
||||
}
|
||||
if (GetNmA() == FAILURE) { /* get numeric argument */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
DBGFEX(1,DbgFNm,"PushEx()");
|
||||
return PushEx(Ln2Chr(NArgmt), OPERAND);
|
||||
}
|
||||
|
|
@ -0,0 +1,33 @@
|
|||
/*****************************************************************************
|
||||
ExeCtR()
|
||||
This function executes a ^R (control-R or caret-R) command. The
|
||||
control-R command sets TECO's radix, which controls how ASCII strings are
|
||||
converted to/from their binary representations. The current radix is used
|
||||
by the backslash command and whenever TECO encounters a string of digits in
|
||||
a command string.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeCtR() /* execute a ^R (control-R) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtR",NULL);
|
||||
if ((EStTop == EStBot) || /* if no numeric arg or */
|
||||
(EStack[EStTop].ElType != OPERAND)) { /* partial expression */
|
||||
DBGFEX(1,DbgFNm,"PushEx");
|
||||
return PushEx((LONG)Radix, OPERAND);
|
||||
}
|
||||
if (GetNmA() == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE, GetNmA() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
if ((NArgmt != 8) && (NArgmt != 10) && (NArgmt != 16)) {
|
||||
ErrMsg(ERR_IRA); /* illegal radix with ^R */
|
||||
DBGFEX(1,DbgFNm,"FAILURE, illegal radix");
|
||||
return FAILURE;
|
||||
}
|
||||
Radix = (DEFAULT)NArgmt;
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
/*****************************************************************************
|
||||
ExeCtS()
|
||||
This function executes a ^S (control-S or caret-S) command. This
|
||||
is equivilent to the negative of the last referenced string (last insert,
|
||||
string found, or string inserted with "G" command).
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtS() /* execute a ^S (control-S) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtS",NULL);
|
||||
DBGFEX(1,DbgFNm,"PushEx(RefLen)");
|
||||
return PushEx(RefLen, OPERAND);
|
||||
}
|
||||
|
|
@ -0,0 +1,40 @@
|
|||
/*****************************************************************************
|
||||
ExeCtT()
|
||||
This function executes a ^T (control-T or caret-T) command.
|
||||
^T ASCII value of next char typed
|
||||
n^T Types out character for ASCII code n.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeCtT() /* execute a ^T (control-T) command */
|
||||
{
|
||||
DEFAULT lchar;
|
||||
DBGFEN(1,"ExeCtT",NULL);
|
||||
if ((EStTop == EStBot) || /* if no numeric arg or */
|
||||
(EStack[EStTop].ElType != OPERAND)) { /* partial expression */
|
||||
lchar = ZChIn(EtFlag & ET_NO_WAIT); /* read a character */
|
||||
if (GotCtC) { /* if got a control-C */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (((EtFlag & ET_NO_ECHO) == 0) && (lchar != -1)) {
|
||||
EchoIt((unsigned char)lchar);
|
||||
}
|
||||
DBGFEX(1,DbgFNm,"PushEx()");
|
||||
return PushEx((LONG)lchar, OPERAND);
|
||||
}
|
||||
if (GetNmA() == FAILURE) { /* get numeric arg */
|
||||
DBGFEX(1,DbgFNm,"FAILURE, GetNmA() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
if ((CmdMod & COLON) || (EtFlag & ET_IMAGE_MODE)) {
|
||||
ZDspCh((char)NArgmt);
|
||||
} else {
|
||||
EchoIt((unsigned char)NArgmt);
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,136 @@
|
|||
/*****************************************************************************
|
||||
ExeCtU()
|
||||
This function executes a ^U (control-U or caret-U) command.
|
||||
^Uqstring`
|
||||
This command inserts character string "string" into the text
|
||||
storage area of Q-register q. When entering a command string
|
||||
from the terminal, you must specify ^U using the caret/U
|
||||
format, since the <CTRL/U> character is the line erase
|
||||
immediate action command.
|
||||
:^Uqstring`
|
||||
This command appends character string "string" to the text
|
||||
storage area of Q-register "q".
|
||||
n^Uq' This form of the ^Uq` command inserts the single character
|
||||
whose ASCII code is n into the text storage area of
|
||||
Q-register "q". (n is taken modulo 256 in TECO-11, modulo
|
||||
128 in other TECOs.)
|
||||
n:^Uq` This form of the :^Uq` command appends the single character
|
||||
whose ASCII code is n to the text storage area of Q-register
|
||||
"q". (n is taken modulo 256 in TECO-11, modulo 128 in other
|
||||
TECOs.) [not in TECO-8]
|
||||
@^Uq/string/
|
||||
@:^Uq/string/
|
||||
n@^Uq//
|
||||
n@:^Uq//
|
||||
Equivalent, respectively, to the ^Uqstring`, :^Uqstring`,
|
||||
n^Uq`, and n:^Uq` commands, except that alternate delimiters
|
||||
are used and no <DELIM> characters are necessary.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
#include "dchars.h" /* define identifiers for characters */
|
||||
DEFAULT ExeCtU() /* execute a ^U (control-U) command */
|
||||
{
|
||||
ptrdiff_t TmpSiz;
|
||||
DBGFEN(1,"ExeCtU",NULL);
|
||||
/*
|
||||
* increment CBfPtr past ^U
|
||||
*/
|
||||
if (IncCBP() == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE, IncCBP() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
/*
|
||||
* try to find Q-register name after ^U
|
||||
*/
|
||||
if (FindQR() == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE, FindQR() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
/*
|
||||
* If there is a colon modifier, we are appending to the Q-register text.
|
||||
* If there isn't a colon modifier, we are replacing the text currently
|
||||
* in the Q-register. If there is any text currently in the Q-register,
|
||||
* we have to zap it first.
|
||||
*/
|
||||
if (!(CmdMod & COLON)) { /* if no colon modifier */
|
||||
if (QR->Start != NULL) { /* if not empty */
|
||||
ZFree((voidptr)QR->Start); /* free the memory */
|
||||
QR->Start = QR->End_P1 = NULL;
|
||||
}
|
||||
}
|
||||
/*
|
||||
* If there is a numeric argument n, we are dealing with a character to
|
||||
* place into or append to the Q-register.
|
||||
*/
|
||||
if (EStTop > EStBot) { /* if numeric argument */
|
||||
if (GetNmA() == FAILURE) { /* get numeric argument */
|
||||
DBGFEX(1,DbgFNm,"FAILURE, GetNmA() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
if (CmdMod & ATSIGN) { /* it's @^U// */
|
||||
/*
|
||||
* increment CBfPtr to 1st delimiter
|
||||
*/
|
||||
if (IncCBP() == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE, IncCBP() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
/*
|
||||
* increment CBfPtr to 2nd delimiter
|
||||
*/
|
||||
if (IncCBP() == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE, IncCBP() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
/*
|
||||
* the two delimiters should be the same
|
||||
*/
|
||||
if (*CBfPtr != *(CBfPtr-1)) {
|
||||
ErrMsg(ERR_IIA);
|
||||
DBGFEX(1,DbgFNm,"FAILURE, ERR_IIA");
|
||||
return FAILURE;
|
||||
}
|
||||
}
|
||||
/*
|
||||
* Increase the size of the text area by 1 character
|
||||
*/
|
||||
if (MakRom((SIZE_T) 1) == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE, MakRom() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
/*
|
||||
* Append the character to the Q-register
|
||||
*/
|
||||
*(QR->End_P1) = (char) NArgmt;
|
||||
QR->End_P1++;
|
||||
} else { /* else no numeric argument */
|
||||
/*
|
||||
* We must be dealing with a string, find the end of the string.
|
||||
*/
|
||||
if (FindES(ESCAPE) == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE, FindES() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
TmpSiz = CBfPtr - ArgPtr;
|
||||
if (TmpSiz > 0) {
|
||||
/*
|
||||
* make room for the string
|
||||
*/
|
||||
if (MakRom((SIZE_T)TmpSiz) == FAILURE) {
|
||||
DBGFEX(1,DbgFNm,"FAILURE, MakRom() failed");
|
||||
return FAILURE;
|
||||
}
|
||||
/*
|
||||
* Append the string to the Q-register text
|
||||
*/
|
||||
MEMMOVE(QR->End_P1, ArgPtr, (SIZE_T)TmpSiz);
|
||||
QR->End_P1 += TmpSiz;
|
||||
}
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
/*****************************************************************************
|
||||
ExeCtV()
|
||||
This function executes a ^V (control-V or caret-V) command.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeCtV() /* execute a ^V (control-V) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtV",NULL);
|
||||
if (EStTop == EStBot) { /* if no numeric argument */
|
||||
IniSrM = LOWER;
|
||||
} else {
|
||||
if (GetNmA() == FAILURE) { /* get numeric argument */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (NArgmt) { /* if it wasn't 0^V */
|
||||
ErrMsg(ERR_ARG); /* improper arguments */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
IniSrM = NONE;
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
/*****************************************************************************
|
||||
ExeCtW()
|
||||
This function executes a control-W command.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
#include "deferr.h" /* define identifiers for error messages */
|
||||
DEFAULT ExeCtW() /* execute a ^W (control-W) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtW",NULL);
|
||||
if (EStTop == EStBot) { /* if no numeric argument */
|
||||
IniSrM = UPPER;
|
||||
} else {
|
||||
if (GetNmA() == FAILURE) { /* get numeric argument */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
if (NArgmt) { /* if it wasn't 0^W */
|
||||
ErrMsg(ERR_ARG); /* improper arguments */
|
||||
DBGFEX(1,DbgFNm,"FAILURE");
|
||||
return FAILURE;
|
||||
}
|
||||
IniSrM = NONE;
|
||||
}
|
||||
CmdMod = '\0'; /* clear modifiers flags */
|
||||
DBGFEX(1,DbgFNm,"SUCCESS");
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
/*****************************************************************************
|
||||
ExeCtX()
|
||||
This function executes a control-X command.
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtX() /* execute a ^X (control-X) command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtX",NULL);
|
||||
DBGFEX(1,DbgFNm,"DoFlag()");
|
||||
return DoFlag(&SMFlag);
|
||||
}
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
/*****************************************************************************
|
||||
ExeCtY()
|
||||
This function executes a control-Y command.
|
||||
^Y <CTRL/Y> (caret/Y) is equivalent to ".+^S,.", the n,m
|
||||
numeric argument spanning the text just searched for or
|
||||
inserted. This value may be used to recover from
|
||||
inserting a string in the wrong place. Type "^YXSFR`"
|
||||
to store the string in Q-register S and remove it from
|
||||
the buffer. You can then position the pointer to the
|
||||
right place and type "GS" to insert the string.
|
||||
[TECO-11 only]
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtY() /* execute ^Y command */
|
||||
{
|
||||
DBGFEN(1,"ExeCtY",NULL);
|
||||
MArgmt = (GapBeg-EBfBeg) + RefLen; /* set m part of m,n pair */
|
||||
CmdMod |= MARGIS; /* say that m part exists */
|
||||
DBGFEX(1,DbgFNm,"PushEx()");
|
||||
return PushEx((LONG)(GapBeg-EBfBeg), OPERAND); /* push n part */
|
||||
}
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
/*****************************************************************************
|
||||
ExeCtZ()
|
||||
This function executes a control-Z command.
|
||||
^Z <CTRL/Z> (caret/Z) is equivalent to the total space
|
||||
occupied by text in the Q-registers (including the
|
||||
command line currently being executed).
|
||||
*****************************************************************************/
|
||||
#include "zport.h" /* define portability identifiers */
|
||||
#include "tecoc.h" /* define general identifiers */
|
||||
#include "defext.h" /* define external global variables */
|
||||
DEFAULT ExeCtZ() /* execute a ^Z (control-Z) command */
|
||||
{
|
||||
LONG TmpLng;
|
||||
WORD TmpWrd;
|
||||
DBGFEN(1,"ExeCtZ",NULL);
|
||||
TmpLng = (CStEnd - CStBeg) + 1;
|
||||
for (TmpWrd = 0; TmpWrd < 36; ++TmpWrd) {
|
||||
TmpLng += QRgstr[TmpWrd].End_P1 - QRgstr[TmpWrd].Start;
|
||||
}
|
||||
#if DEBUGGING
|
||||
sprintf(DbgSBf,"PushEx(%ld)", TmpLng);
|
||||
DbgFEx(1,DbgFNm,DbgSBf);
|
||||
#endif
|
||||
return PushEx(TmpLng,OPERAND);
|
||||
}
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue