R-85 EDEND Force ^Z to exit wildcard filename response. */ /* 23-APR-85 EDPLCD Fix CDELETE not to overrun short lines. */ /* 23-APR-85 SCLOOK Fix REPNEXT to not skip adjacent matching pat. */ /* 09-MAY-85 EDMAIN Add call to CLOTMP() to insure temp files go */ /* 13-MAY-85 DISKIO Fix close errors on cut/paste buffers */ /* 15-MAY-85 EDINS Insert command can hose file up */ /* away. */ /* 21-MAY-85 SCUPDO Bug in reverse scrolling for VT2xx series */ /* 11-JUN-85 EDLOOK Fix TRIM command to work right */ /* 11-JUN-85 SCROOT Fix SET DELETE PREVIOUS to work correctly at */ /* end of line. */ /* 12-JUN-85 SCCMD Added definitions for f10 and f17-f20 on LK201 */ /* keyboards (vt2xx, Rainbow, Pro/3xx). F10 does */ /* a GOLD F (exit), where F17-F20 switch to the */ /* alternate edit windows */ /* 24-JUN-85 EDEND Call SAVEFILENAME() to set the saved name to be */ /* that which we wrote out always */ /* 01-JUL-85 SCINIT Don't turn a VT2xx into a VT100 at exit if VMS */ /* thinks it's a VT2xx. */ /* 08-JUL-85 SCINIT Added SET HEADER [update][fast] to control the */ /* EDSET top header line for VT/SED command. */ /* 08-JUL-85 EDSET Added SET LINE [eoln][next] to control how the */ /* SCUPDO KP2 key works. */ /* 08-JUL-85 DISKIO Leave keypad application mode on in RSTTER() if */ /* VMS thinks it's supposed to be on. */ /* 12-AUG-85 EDVMS Redo spawning to execute a command file instead */ /* and leave the spawned subprocess out there until*/ /* TED exits. The command proc and TED will switch */ /* back and forth via ATTACH and LIB$ATTACH. */ /* 12-AUG-85 DISKIO Removed DCLCOMMAND ept, now in EDVMS.C */ /* XX-AUG-85 ...... Many small mods to facilitate moving to PDP-11. */ /* Broke some larger modules up to better fit in */ /* overlays for the PDP-11. */ /* 17-SEP-85 EDIFL (1) Fix EDIFL to call PAGEOFF(window_number) and*/ /* PAGEON(...) properly. */ /* EDPAGR (2) Fix PAGEOF() to allocate no more than 61440 */ /* bytes for a page if caching is disabled for the */ /* initial file load (RAB$W_RSZ is 16 bits please) */ /* 27-SEP-85 DISKIO Look for ESC[5 or ESC[6 when checking to cancel */ /* a screen print (vt220 Prev and Next Screen) */ /* 27-SEP-85 SCINIT Added ESC(B to terinit() to turn off graphics */ /* 03-OCT-85 EDSTAR Do something reasonable if user trys to edit a */ /* DISKIO directory file, either explicity or via wild- */ /* card spec. EP added to DISKIO calling ACP to */ /* check if a file is a directory. */ /* 04-oct-85 PDPIO The PRO/350 does not do char insert like a 220 */ /* 29-oct-85 DISKIO Added QIO to ept putbin to use IO$M_NOFORMAT */ /* to increase performance on DHU11 and DMF. */ /* 29-oct-85 SCREM Fix bug in delete word at end of line. */ /* 30-oct-85 various Add intermediate terminal QIO buffering to get */ /* better silo i/o and sometimes even get into DMA */ /* I/O, also cuts number of QIO's by 60%. */ /* 30-oct-85 EDVMS F14 (on vt2xx) prints VMS stats, GOLD F14 does */ /* stats from PUTBIN qio's (used for screen editor)*/ /* 26-Nov-85 TEMPIO Add lookahead for the next bucket, saves quite */ /* a bit of cpu time for searchs. */ /* 26-Nov-85 EDFIND Use MOVTC, LOCC and MATCHC to speed up case in- */ /* sensitive matching on VAX. */ #include "sysdef.h" #define then static char inifile[_FILESIZE] ; main() { extern int indlun,cmdlun ; if ( checkterminal() == 0 ) then xprintf("Current output device is not a terminal\n") ; else { inistats() ; xinit() ; chkrmt() ; setcc() ; scdainit() ; gethomedir(inifile) ; strcpy(&inifile[strlen(inifile)],"TEDINIT.INI") ; if ( flookup(inifile) && openfi(inifile,indlun) ) then cmdlun = indlun ; if ( edstart() ) then while ( opennext() ) execommand() ; clotmp() ; delspawn() ; } } prsys_error() { char s[80] ; geterror(s) ; xprintf("%s\n",s) ; } scwarning(number) int number ; { char txt[64] ; getwarn(txt,number) ; putwarn(txt) ; } EDMAINC [.050036]EDMAIN.C [.050036]   X14|H [4;Ik(&'( k ߫H&P` \RrPP2PPzPP{PPPPP2P~\$\\TD 0D \~ hi) +\ ^( n ^( np\^txY\^ˀ\!kVk<\F˰<˴ˬ\VVkˤ1`@lP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<SЬTЬ UQS>?\\\\\\\\\`:#@'="\abcdefghi\\\\\\\jklmnopqr\\\\\\\~stuvwxyz\\\\\\\\\\\\\\\\\\\\\\{ABCDEFGHI\\\\\\}JKLMNOPQR\\\\\\\\STUVWXYZ\\\\\\0123456789\\\\\  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~@ggh<i|o<m<4p<p<k|Zn<l fr rwx<x<x<x޺<w@]@@fjnr]Ze@@|> | |v<H|  |  |xz|  |zt f r   < &^ @&@'*/V,"?Lh:hmBmz|z{x`y~|fN|@@|@͂|@ ݃ƃ<ns