Article View: vmsnet.sources
Article #4C Swing v3.6.3 patches, part 01/07
From: flowers
Date: Thu, 29 Oct 1992 17:41
Date: Thu, 29 Oct 1992 17:41
1595 lines
50139 bytes
50139 bytes
Submitted-by: flowers@memstvx1.memst.edu (Harry Flowers)
Posting-number: Volume 3, Issue 212
Archive-name: cswing/patch2_01
Patch-to: cswing: Volume 3, Issue 35-52,93
$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_VERIFY"))'
$!
$! This archive created by VMS_SHARE Version 7.2-007 22-FEB-1990
$! On 26-OCT-1992 10:05:10.67 By user FLOWERS
$!
$! This VMS_SHARE Written by:
$! Andy Harper, Kings College London UK
$!
$! Acknowledgements to:
$! James Gray - Original VMS_SHARE
$! Michael Bednarek - Original Concept and implementation
$!
$!+ THIS PACKAGE DISTRIBUTED IN 7 PARTS, TO KEEP EACH PART
$! BELOW 100 BLOCKS
$!
$! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
$! AND EXECUTE AS A COMMAND PROCEDURE ( @name )
$!
$! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
$! 1. AAAREADME_1ST.PAT;363
$! 2. BUFFER_C.PAT;363
$! 3. CMD_C.PAT;363
$! 4. DESCRIP_MMS.PAT;363
$! 5. EDIT_C.PAT;363
$! 6. EXTERNS_H.PAT;363
$! 7. FILE_C.PAT;363
$! 8. HELP_C.PAT;363
$! 9. KEYM_C.PAT;363
$! 10. LINE_C.PAT;363
$! 11. LINK_V5_COM.PAT;363
$! 12. MAIN_C.PAT;363
$! 13. MOST.DOC_FM;363
$! 14. MOST_C.PAT;363
$! 15. MOST_OPTIONS.OPT;363
$! 16. OPTIONS_FILE_OPT.PAT;363
$! 17. PATCH.COM;363
$! 18. SEARCH_C.PAT;363
$! 19. SWING-STARTUP_COM.PAT;363
$! 20. SWING_16_C.PAT;363
$! 21. SWING_22_C.PAT;363
$! 22. SWING_24_C.PAT;363
$! 23. SWING_38_C.PAT;363
$! 24. SWING_4_C.PAT;363
$! 25. SWING_8_C.PAT;363
$! 26. SWING_9_C.PAT;363
$! 27. SWING_C.PAT;363
$! 28. SWING_DEFS_H.PAT;363
$! 29. SWING_H.PAT;363
$! 30. SWING_REFS_H.PAT;363
$! 31. SYSDEP_C.PAT;363
$! 32. WINDOW_C.PAT;363
$! 33. WINDOW_H.PAT;363
$! 34. [.DOCUMENTATION]DCL_SWING.HLP;363
$!
$set="set"
$set symbol/scope=(nolocal,noglobal)
$f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
$e="write sys$error ""%UNPACK"", "
$w="write sys$output ""%UNPACK"", "
$ if f$trnlnm("SHARE_LOG") then $ w = "!"
$ ve=f$getsyi("version")
$ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto START
$ e "-E-OLDVER, Must run at least VMS 4.4"
$ v=f$verify(v)
$ exit 44
$UNPACK: SUBROUTINE ! P1=filename, P2=checksum
$ if f$search(P1) .eqs. "" then $ goto file_absent
$ e "-W-EXISTS, File ''P1' exists. Skipped."
$ delete 'f'*
$ exit
$file_absent:
$ if f$parse(P1) .nes. "" then $ goto dirok
$ dn=f$parse(P1,,,"DIRECTORY")
$ w "-I-CREDIR, Creating directory ''dn'."
$ create/dir 'dn'
$ if $status then $ goto dirok
$ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped."
$ delete 'f'*
$ exit
$dirok:
$ w "-I-PROCESS, Processing file ''P1'."
$ if .not. f$verify() then $ define/user sys$output nl:
$ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1'
PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET(
SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");b:=
CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(b));
LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION(
BEGINNING_OF(b));g:=0;LOOP EXITIF MARK(NONE)=END_OF(b);x:=ERASE_CHARACTER(1);
IF g=0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x="V" THEN APPEND_LINE;
MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;IF x="+" THEN g:=1;
ERASE_LINE;ENDIF;ELSE IF x="-" THEN IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+")=
1 THEN g:=0;ENDIF;ENDIF;ERASE_LINE;ENDIF;ENDLOOP;t:="0123456789ABCDEF";
POSITION(BEGINNING_OF(b));LOOP r:=SEARCH("`",FORWARD);EXITIF r=0;POSITION(r);
ERASE(r);x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,ERASE_CHARACTER(1))-1;
COPY_TEXT(ASCII(16*x1+x2));ENDLOOP;WRITE_FILE(b,GET_INFO(COMMAND_LINE,
"output_file"));ENDPROCEDURE;Unpacker;QUIT;
$ delete/nolog 'f'*
$ CHECKSUM 'P1'
$ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT
$ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
$ ENDSUBROUTINE
$START:
$ create 'f'
X*** disk$disk1:`5Bflowers.swing.vmsnet`5Daaareadme.1st;1
X--- disk$disk1:`5Bflowers.swing.src`5Daaareadme.1st;7
X**************
X*** 1,4
X! C SWING version 3.6.2
X =====================
X `20
X `20
X--- 1,4 -----
X! C SWING version 3.6.3
X =====================
X `20
X `20
X**************
X*** 62,67
X `09MATS_HACK
X `09CR_RETURNS_FROM_FILE_TO_DIR_MGR
X `09Q_EXITS_TO_ORIGINAL_DIR
X `20
X For full information, see SWING.H, the release notes and documentation.
X `20
X--- 62,70 -----
X `09MATS_HACK
X `09CR_RETURNS_FROM_FILE_TO_DIR_MGR
X `09Q_EXITS_TO_ORIGINAL_DIR
X+ `09ALWAYS_TRY_000000
X+ `09SPECIFIC_EXITS_TO_SYSROOT
X+ `09COMMON_EXITS_TO_SYSROOT
X `20
X For full information, see SWING.H, the release notes and documentation.
X `20
X**************
X*** 112,117
X way, define a foreign command in your SYS$SYLOGIN or LOGIN.COM thus:
X `20
X $ Sw*ing :== my_disk:`5Bmy_dir`5Dcswing
X `20
X Copy the help library in the HELP_LIB sub-directory into the same director
Vy as
X the executable, and you have on-line help. Also put the SWING_MANUAL.MEM i
Vnto
X--- 115,121 -----
X way, define a foreign command in your SYS$SYLOGIN or LOGIN.COM thus:
X `20
X $ Sw*ing :== my_disk:`5Bmy_dir`5Dcswing
X+ $ Mo*st :== my_disk:`5Bmy_dir`5Dmost ! If you want to use Most outside
V of Swing
X `20
X Copy the help library in the HELP_LIB sub-directory into the same director
Vy as
X the executable, and you have on-line help. Also put the SWING_MANUAL.MEM i
Vnto
X**************
X*** 148,154
X `20
X Harry Flowers
X Memphis State University
X! Tennessee
X Phone: +1 (901)678-2663 Fax: +1 (901)678-32
V99
X email: FLOWERS@MSUVX1.MEMST.EDU (on INTERNET)
X FLOWERS@MEMSTVX1 (on BITNET)
X--- 152,158 -----
X `20
X Harry Flowers
X Memphis State University
X! Memphis, TN USA
X Phone: +1 (901)678-2663 Fax: +1 (901)678-32
V99
X email: FLOWERS@MSUVX1.MEMST.EDU (on INTERNET)
X FLOWERS@MEMSTVX1 (on BITNET)
X**************
X*** 153,158
X email: FLOWERS@MSUVX1.MEMST.EDU (on INTERNET)
X FLOWERS@MEMSTVX1 (on BITNET)
X `20
X Chris Butler
X Forest Research Institute
X Ministry of Forestry
X--- 157,167 -----
X email: FLOWERS@MSUVX1.MEMST.EDU (on INTERNET)
X FLOWERS@MEMSTVX1 (on BITNET)
X `20
X+ Foteos Macrides
X+ Worcester Foundation for Experimental Biology
X+ Shrewsbury, MA USA
X+ email: MACRIDES@WFEB2.BITNET (on BITNET)
X+`20
X Chris Butler
X NEW ZEALAND
X email: C.Butler@FRI.CRI.NZ (on INTERNET)
X**************
X*** 154,162
X FLOWERS@MEMSTVX1 (on BITNET)
X `20
X Chris Butler
X- Forest Research Institute
X- Ministry of Forestry
X- Rotorua
X NEW ZEALAND
X Phone: +64 (7)347-5604 Fax: +64 (7)347-938
V0
X email: C.Butler@MoF.Govt.NZ (on INTERNET)
X--- 163,167 -----
X email: MACRIDES@WFEB2.BITNET (on BITNET)
X `20
X Chris Butler
X NEW ZEALAND
X email: C.Butler@FRI.CRI.NZ (on INTERNET)
X**************
X*** 158,162
X Ministry of Forestry
X Rotorua
X NEW ZEALAND
X! Phone: +64 (7)347-5604 Fax: +64 (7)347-938
V0
X! email: C.Butler@MoF.Govt.NZ (on INTERNET)
X--- 164,167 -----
X `20
X Chris Butler
X NEW ZEALAND
X! email: C.Butler@FRI.CRI.NZ (on INTERNET)
$ CALL UNPACK AAAREADME_1ST.PAT;363 1528905616
$ create 'f'
X*** disk$disk1:`5Bflowers.swing.vmsnet`5Dbuffer.c;1
X--- disk$disk1:`5Bflowers.swing.src`5Dbuffer.c;2
X**************
X*** 3,10
X #include "display.h"
X #include "line.h"
X `20
X- int MOST_W_OPT = 0;
X-`20
X unsigned char *BEG; /* beginning of current buffer */
X unsigned char *EOB; /* end of current buffer */
X unsigned char MINI_BUF`5B132`5D;
X--- 3,8 -----
X #include "display.h"
X #include "line.h"
X `20
X unsigned char *BEG; /* beginning of current buffer */
X unsigned char *EOB; /* end of current buffer */
X unsigned char MINI_BUF`5B132`5D;
X**************
X*** 11,17
X `20
X Buffer *BUF;
X `20
X- extern int SQUEEZE_LINES;
X int NUM_LINES;
X int ACTUAL_LINES;
X `20
X--- 9,14 -----
X `20
X Buffer *BUF;
X `20
X int NUM_LINES;
X int ACTUAL_LINES;
X `20
X**************
X*** 35,41
X SQUEEZE is on otherwise just return where we are. */
X if ((*pos-- == '\n') && (*pos == '\n'))
X `7B
X! if (SQUEEZE_LINES)
X `7B
X /* if we are between '\n's then skip past all of them. */
X while ((pos > BEG) && (*pos == '\n')) pos--;
X--- 32,38 -----
X SQUEEZE is on otherwise just return where we are. */
X if ((*pos-- == '\n') && (*pos == '\n'))
X `7B
X! if (MOST_S_OPT)
X `7B
X /* if we are between '\n's then skip past all of them. */
X while ((pos > BEG) && (*pos == '\n')) pos--;
X**************
X*** 79,85
X return(pos);
X `7D
X `20
X! if (!SQUEEZE_LINES) return (pos);
X `20
X /* if BEG = "....abc\n\n\n\n\ndef..." then we are at some first \n. W
Ve
X want to return the last '\n' unless we wre at the first '\n'. */
X--- 76,82 -----
X return(pos);
X `7D
X `20
X! if (!MOST_S_OPT) return (pos);
X `20
X /* if BEG = "....abc\n\n\n\n\ndef..." then we are at some first \n. W
Ve
X want to return the last '\n' unless we wre at the first '\n'. */
X**************
X*** 128,134
X if ((C_POS == EOB) `7C`7C (C_POS == EOB - 1) && (*C_POS ==
V '\n')) return (save - n - 1);
X C_LINE++;
X C_POS++;
X! if (MOST_S_OPT)
X `7B
X p = C_POS;
X ok = 1;
X--- 125,131 -----
X if ((C_POS == EOB) `7C`7C (C_POS == EOB - 1) && (*C_POS ==
V '\n')) return (save - n - 1);
X C_LINE++;
X C_POS++;
X! if (SELECTIVE_I_DISPLAY)
X `7B
X p = C_POS;
X ok = 1;
X**************
X*** 136,142
X `7B
X if (*p != '\n') p++;
X if (p >= EOB) break;
X! if ((*p == '\n') `7C`7C (apparant_distance(p)
V >= MOST_S_OPT))
X `7B
X ok = 0;
X C_LINE--;
X--- 133,140 -----
X `7B
X if (*p != '\n') p++;
X if (p >= EOB) break;
X! if ((*p == '\n') `7C`7C
X! (apparant_distance(p) >= SELECTIVE_I_DISPL
VAY))
X `7B
X ok = 0;
X C_LINE--;
X**************
X*** 143,149
X n++;
X `7D
X `7D
X! `7D /* MOST_S_OPT */
X `7D
X `7D
X else
X--- 141,147 -----
X n++;
X `7D
X `7D
X! `7D /* SELECTIVE_I_DISPLAY */
X `7D
X `7D
X else
X**************
X*** 162,168
X if (C_POS == BEG) return (n - save - 1);
X C_POS--;
X C_LINE--;
X! if (MOST_S_OPT)
X `7B
X C_POS = beg_of_line();
X p = C_POS;
X--- 160,166 -----
X if (C_POS == BEG) return (n - save - 1);
X C_POS--;
X C_LINE--;
X! if (SELECTIVE_I_DISPLAY)
X `7B
X C_POS = beg_of_line();
X p = C_POS;
X**************
X*** 171,177
X `7B
X if (*p != '\n') p++;
X if (p >= EOB) break;
X! if ((*p == '\n') `7C`7C (apparant_distance(p)
V >= MOST_S_OPT))
X `7B
X ok = 0;
X C_LINE++;
X--- 169,176 -----
X `7B
X if (*p != '\n') p++;
X if (p >= EOB) break;
X! if ((*p == '\n') `7C`7C
X! (apparant_distance(p) >= SELECTIVE_I_DISPL
VAY))
X `7B
X ok = 0;
X C_LINE++;
X**************
X*** 178,184
X n--;
X `7D
X `7D
X! `7D /* MOST_S_OPT */
X `7D
X `7D
X return(save);
X--- 177,183 -----
X n--;
X `7D
X `7D
X! `7D /* SELECTIVE_I_DISPLAY */
X `7D
X `7D
X return(save);
$ CALL UNPACK BUFFER_C.PAT;363 172019972
$ create 'f'
X*** disk$disk1:`5Bflowers.swing.vmsnet`5Dcmd.c;1
X--- disk$disk1:`5Bflowers.swing.src`5Dcmd.c;2
X**************
X*** 7,14
X #include "keym.h"
X #include "externs.h"
X `20
X! /* returns zero if not quit */
X! `20
X int do_extended_key()
X `7B
X char ch;
X--- 7,16 -----
X #include "keym.h"
X #include "externs.h"
X `20
X! /*
X! ** extended (':') command processing
X! ** returns zero if not quit
X! */
X int do_extended_key()
X `7B
X char ch, och, junk`5B80`5D;
X**************
X*** 11,18
X `20
X int do_extended_key()
X `7B
X! char ch;
X! static int next = 1;
X int quit = 0, n;
X unsigned char *save;
X `20
X--- 13,19 -----
X */
X int do_extended_key()
X `7B
X! char ch, och, junk`5B80`5D;
X int quit = 0, n;
X unsigned char *save;
X `20
X**************
X*** 16,22
X int quit = 0, n;
X unsigned char *save;
X `20
X! select_minibuffer(); putc(':',stdout); fflush(stdout);
X ch = getkey();
X putc(ch,stdout); fflush(stdout);
X if (ch == 'n')
X--- 17,25 -----
X int quit = 0, n;
X unsigned char *save;
X `20
X! select_minibuffer();
X! putc(':',stdout);
X! fflush(stdout);
X ch = getkey();
X putc(ch,stdout);
X fflush(stdout);
X**************
X*** 18,25
X `20
X select_minibuffer(); putc(':',stdout); fflush(stdout);
X ch = getkey();
X! putc(ch,stdout); fflush(stdout);
X! if (ch == 'n')
X `7B
X if (!NUM_FILES)
X `7B
X--- 21,30 -----
X putc(':',stdout);
X fflush(stdout);
X ch = getkey();
X! putc(ch,stdout);
X! fflush(stdout);
X!`20
X! switch (ch)
X `7B
X /*
X ** fetch next file in ring
X**************
X*** 21,26
X putc(ch,stdout); fflush(stdout);
X if (ch == 'n')
X `7B
X if (!NUM_FILES)
X `7B
X most_message("File ring is empty.",1);
X--- 26,36 -----
X `20
X switch (ch)
X `7B
X+ /*
X+ ** fetch next file in ring
X+ */
X+ case 'n':
X+ case 'N':
X if (!NUM_FILES)
X `7B
X most_message("File ring is empty.",1);
X**************
X*** 24,29
X if (!NUM_FILES)
X `7B
X most_message("File ring is empty.",1);
X `7D
X quit = next_file(&next);
X if (next == -1) quit = 1;
X--- 34,40 -----
X if (!NUM_FILES)
X `7B
X most_message("File ring is empty.",1);
X+ quit = 1;
X `7D
X else if (NUM_FILES == 1)
X `7B
X**************
X*** 25,48
X `7B
X most_message("File ring is empty.",1);
X `7D
X! quit = next_file(&next);
X! if (next == -1) quit = 1;
X! `7D
X! else if ((ch == 'c') `7C`7C (ch == 'C')) /* toggle case sensitive se
Varch */
X! `7B
X! CASE_SENSITIVE = !CASE_SENSITIVE;
X! if (CASE_SENSITIVE)
X! most_message("Searches now respect case.",0);
X! else
X! most_message("Searches nolonger respect case.",0);
X! `7D
X! else if ((ch == 'D') && MOST_D_OPT) /* delete file */
X! `7B
X! /* notice the missing D. */
X! fprintf(stdout,"elete %s? `5Bn`5D:", BUF->file);
X! fflush(stdout);
X! ch = getkey();
X! if (ch == 'y')
X `7B
X if (!sys_delete_file(BUF->file))
X most_message("File could not be deleted.",1);
X--- 36,42 -----
X most_message("File ring is empty.",1);
X quit = 1;
X `7D
X! else if (NUM_FILES == 1)
X `7B
X most_message("File ring has only one file.",1);
X quit = 1;
X**************
X*** 44,53
X ch = getkey();
X if (ch == 'y')
X `7B
X! if (!sys_delete_file(BUF->file))
X! most_message("File could not be deleted.",1);
X! else
X! most_message("File deleted.",0);
X `7D
X else
X most_message("File not deleted.",0);
X--- 38,45 -----
X `7D
X else if (NUM_FILES == 1)
X `7B
X! most_message("File ring has only one file.",1);
X! quit = 1;
X `7D
X else
X `7B
X**************
X*** 50,62
X most_message("File deleted.",0);
X `7D
X else
X- most_message("File not deleted.",0);
X- `7D
X- else if (ch == 'o')
X- `7B
X- fputs("\rToggle option: b d t v w",stdout); fflush(stdout);
X- ch = getkey();
X- if ((ch == 'd') `7C`7C (ch == 'w') `7C`7C (ch == 'b') `7C`7C (ch
V == 't') `7C`7C (ch == 'v') `7C`7C (ch == 's'))
X `7B
X if (ch == 'b')
X `7B
X--- 42,47 -----
X quit = 1;
X `7D
X else
X `7B
X quit = next_file();
X if (quit == -1)
X**************
X*** 58,64
X ch = getkey();
X if ((ch == 'd') `7C`7C (ch == 'w') `7C`7C (ch == 'b') `7C`7C (ch
V == 't') `7C`7C (ch == 'v') `7C`7C (ch == 's'))
X `7B
X! if (ch == 'b')
X `7B
X MOST_B_OPT = !MOST_B_OPT;
X NUM_LINES = count_lines(BEG,EOB);
X--- 43,50 -----
X `7D
X else
X `7B
X! quit = next_file();
X! if (quit == -1)
X `7B
X quit = 0;
X most_message("File fetch cancelled",0);
X**************
X*** 60,67
X `7B
X if (ch == 'b')
X `7B
X! MOST_B_OPT = !MOST_B_OPT;
X! NUM_LINES = count_lines(BEG,EOB);
X `7D
X else if (ch == 'd')
X `7B
X--- 46,53 -----
X quit = next_file();
X if (quit == -1)
X `7B
X! quit = 0;
X! most_message("File fetch cancelled",0);
X `7D
X `7D
X break;
X**************
X*** 63,69
X MOST_B_OPT = !MOST_B_OPT;
X NUM_LINES = count_lines(BEG,EOB);
X `7D
X! else if (ch == 'd')
X `7B
X if (DIGIT_ARG == NULL)
X `7B
X--- 49,82 -----
X quit = 0;
X most_message("File fetch cancelled",0);
X `7D
X! `7D
X! break;
X!`20
X! /*
X! ** toggle case-sensitivity of searches
X! */
X! case 'c':
X! case 'C':
X! MOST_C_OPT = !MOST_C_OPT;
X! if (MOST_C_OPT)
X! most_message("Searches now respect case.",0);
X! else
X! most_message("Searches no longer respect case.",0);
X! break;
X!`20
X! /*
X! ** delete (from disk) the current file
X! ** (+d extended switch must have been set)
X! */
X! case 'd':
X! case 'D':
X! if (MOST_D_OPT) /* +d argument is set, do try to delete */
X! `7B
X! /* notice the missing D. */
X! fprintf(stdout,"elete %s? `5Bn`5D:", BUF->file);
X! fflush(stdout);
X! ch = getkey();
X! if (ch == 'y' `7C`7C ch == 'Y')
X `7B
X if (!sys_delete_file(BUF->file))
X most_message("File could not be deleted.",1);
X**************
X*** 65,81
X `7D
X else if (ch == 'd')
X `7B
X! if (DIGIT_ARG == NULL)
X! `7B
X! most_message("Selective Display off.",0);
X! n = 0;
X! `7D
X! else n = abs( *DIGIT_ARG );
X! if (MOST_S_OPT != n)
X! `7B
X! MOST_S_OPT = n;
X! NUM_LINES = count_lines(BEG,EOB);
X! `7D
X `7D
X else if ((ch == 's') && !MOST_B_OPT)
X `7B
X--- 78,87 -----
X ch = getkey();
X if (ch == 'y' `7C`7C ch == 'Y')
X `7B
X! if (!sys_delete_file(BUF->file))
X! most_message("File could not be deleted.",1);
X! else
X! most_message("File deleted.",0);
X `7D
X else
X most_message("File not deleted.",1);
X**************
X*** 77,83
X NUM_LINES = count_lines(BEG,EOB);
X `7D
X `7D
X! else if ((ch == 's') && !MOST_B_OPT)
X `7B
X SQUEEZE_LINES = !SQUEEZE_LINES;
X NUM_LINES = count_lines(BEG,EOB);
X--- 83,132 -----
X else
X most_message("File deleted.",0);
X `7D
X! else
X! most_message("File not deleted.",1);
X! `7D
X! else
X! `7B
X! most_message("File deletion (+d) is not enabled.",1);
X! `7D
X! break;
X!`20
X! /*
X! ** toggle other options
X! */
X! case 'o':
X! case 'O':
X! fputs("\rToggle option (b i s t v w): ",stdout); fflush(stdout);
X! och = getkey();
X! switch (och)
X! `7B
X! /*
X! ** toggle forced binary display mode
X! */
X! case 'b':
X! case 'B':
X! MOST_B_OPT = !MOST_B_OPT;
X! NUM_LINES = count_lines(BEG,EOB);
X! if (MOST_B_OPT)
X! most_message("Forced Binary Display mode on.",0);
X! else
X! most_message("Forced Binary Display mode off.",0);
X! break;
X!`20
X! /*
X! ** if digit(s) preceded the ':' set selective
X! ** indentation display to skip lines indented
X! ** beyond that column
X! ** else turn off selective indentation display
X! */
X! case 'i':
X! case 'I':
X! if (DIGIT_ARG == NULL)
X! n = 0;
X! else
X! n = abs( *DIGIT_ARG );
X! if (SELECTIVE_I_DISPLAY != n)
X `7B
X SELECTIVE_I_DISPLAY = n;
X NUM_LINES = count_lines(BEG,EOB);
X**************
X*** 79,85
X `7D
X else if ((ch == 's') && !MOST_B_OPT)
X `7B
X! SQUEEZE_LINES = !SQUEEZE_LINES;
X NUM_LINES = count_lines(BEG,EOB);
X `7D
X else if (ch == 'w')
X--- 128,134 -----
X n = abs( *DIGIT_ARG );
X if (SELECTIVE_I_DISPLAY != n)
X `7B
X! SELECTIVE_I_DISPLAY = n;
X NUM_LINES = count_lines(BEG,EOB);
X `7D
X if (SELECTIVE_I_DISPLAY)
X**************
X*** 82,88
X SQUEEZE_LINES = !SQUEEZE_LINES;
X NUM_LINES = count_lines(BEG,EOB);
X `7D
X! else if (ch == 'w')
X `7B
X MOST_W_OPT = !MOST_W_OPT;
X NUM_LINES = count_lines(BEG,EOB);
X--- 131,168 -----
X SELECTIVE_I_DISPLAY = n;
X NUM_LINES = count_lines(BEG,EOB);
X `7D
X! if (SELECTIVE_I_DISPLAY)
X! sprintf(junk,
X! "Selective Indentation Display set at column %u.
V",n);
X! else
X! sprintf(junk,
X! "Selective Indentation Display off. Precede the :O with a number to s
Vet.");
X! most_message(junk,0);
X! break;
X!`20
X! /*
X! ** toggle squeezing of multiple blank lines to one
X! */
X! case 's':
X! case 'S':
X! MOST_S_OPT = !MOST_S_OPT;
X! NUM_LINES = count_lines(BEG,EOB);
X! if (MOST_S_OPT)
X! most_message("Squeeze Multiple Blank Lines on.",0);
X! else
X! most_message("Squeeze Multiple Blank Lines off.",0);
X! break;
X!`20
X! /*
X! ** toggle display of tabs as `5EI
X! ** (Verbose mode must also be set to implement)
X! */
X! case 't':
X! case 'T':
X! MOST_T_OPT = !MOST_T_OPT;
X! if (!MOST_T_OPT)
X! most_message("Display Tabs as `5EI off.",0);
X! else
X `7B
X strcpy(junk,"Display Tabs as `5EI on.");
X if (!MOST_V_OPT)
X**************
X*** 84,91
X `7D
X else if (ch == 'w')
X `7B
X! MOST_W_OPT = !MOST_W_OPT;
X! NUM_LINES = count_lines(BEG,EOB);
X `7D
X else if (ch == 'v') MOST_V_OPT = !MOST_V_OPT;
X else if (ch == 't') MOST_T_OPT = !MOST_T_OPT;
X--- 164,173 -----
X most_message("Display Tabs as `5EI off.",0);
X else
X `7B
X! strcpy(junk,"Display Tabs as `5EI on.");
X! if (!MOST_V_OPT)
X! strcat(junk," Toggle Verbose mode to implement.")
V;
X! most_message(junk,0);
X `7D
X break;
X `20
X**************
X*** 87,106
X MOST_W_OPT = !MOST_W_OPT;
X NUM_LINES = count_lines(BEG,EOB);
X `7D
X! else if (ch == 'v') MOST_V_OPT = !MOST_V_OPT;
X! else if (ch == 't') MOST_T_OPT = !MOST_T_OPT;
X! save_win_flags(WIN);
X! save = C_POS;
X! C_POS = BEG;
X! C_LINE = 1;
X! C_LINE = what_line(save);
X! C_POS = save;
X! WIN->beg_line = C_LINE;
X! delete_line(1);
X! exit_minibuffer();
X! redraw_window();
X! update_status(0);
X! return(quit);
X `7D
X `7D
X else
X--- 169,205 -----
X strcat(junk," Toggle Verbose mode to implement.")
V;
X most_message(junk,0);
X `7D
X! break;
X!`20
X! /*
X! ** toggle display of control characters as `5Ech
X! ** (Verbose mode)
X! */
X! case 'v':
X! case 'V':
X! MOST_V_OPT = !MOST_V_OPT;
X! if (MOST_V_OPT)
X! most_message("Verbose (display control chars) mode on.",
V0);
X! else
X! most_message("Verbose (display control chars) mode off."
V,0);
X! break;
X!`20
X! /*
X! ** toggle wrapping mode
X! */
X! case 'w':
X! case 'W':
X! MOST_W_OPT = !MOST_W_OPT;
X! NUM_LINES = count_lines(BEG,EOB);
X! if (MOST_W_OPT)
X! most_message("Wrapping on.",0);
X! else
X! most_message("Wrapping off.",0);
X! break;
X!`20
X! default:
X! most_message("Options not modified.",1);
X! break;
X `7D
X /*
X ** break point for switch (och), clean up and return
X**************
X*** 102,111
X update_status(0);
X return(quit);
X `7D
X! `7D
X! else
X! `7B
X! putc('\007',stdout);
X delete_line(1);
X `7D
X fflush(stdout);
X--- 201,216 -----
X most_message("Options not modified.",1);
X break;
X `7D
X! /*
X! ** break point for switch (och), clean up and return
X! */
X! save_win_flags(WIN);
X! save = C_POS;
X! C_POS = BEG;
X! C_LINE = 1;
X! C_LINE = what_line(save);
X! C_POS = save;
X! WIN->beg_line = C_LINE;
X delete_line(1);
X exit_minibuffer();
X redraw_window();
X**************
X*** 107,112
X `7B
X putc('\007',stdout);
X delete_line(1);
X `7D
X fflush(stdout);
X `20
X--- 212,227 -----
X C_POS = save;
X WIN->beg_line = C_LINE;
X delete_line(1);
X+ exit_minibuffer();
X+ redraw_window();
X+ update_status(0);
X+ return(quit);
X+ break;
X+`20
X+ default:
X+ putc('\007',stdout);
X+ delete_line(1);
X+ break;
X `7D
X /*
X ** break point for switch (ch), clean up and return
X**************
X*** 108,113
X putc('\007',stdout);
X delete_line(1);
X `7D
X fflush(stdout);
X `20
X exit_minibuffer();
X--- 223,231 -----
X delete_line(1);
X break;
X `7D
X+ /*
X+ ** break point for switch (ch), clean up and return
X+ */
X fflush(stdout);
X exit_minibuffer();
X return(quit);
X**************
X*** 109,115
X delete_line(1);
X `7D
X fflush(stdout);
X- `20
X exit_minibuffer();
X return(quit);
X `7D
X--- 227,232 -----
X ** break point for switch (ch), clean up and return
X */
X fflush(stdout);
X exit_minibuffer();
X return(quit);
X `7D
$ CALL UNPACK CMD_C.PAT;363 252464644
$ create 'f'
X*** disk$disk1:`5Bflowers.swing.vmsnet`5Ddescrip.mms;1
X--- disk$disk1:`5Bflowers.swing.src`5Ddescrip.mms;7
X**************
X*** 5,12
X !
X !`09The system we're building
X !
X! system : makedir $(EXE)cswing.exe
X! dir/date/siz $(EXE)cswing.exe;
X `20
X makedir :
X @ if f$search("obj.dir") .eqs. "" then create/dir <.obj>
X--- 5,12 -----
X !
X !`09The system we're building
X !
X! system : makedir $(EXE)cswing.exe $(EXE)most.exe
X! dir/date/siz $(EXE)cswing.exe;,$(EXE)most.exe
X `20
X makedir :
X @ if f$search("obj.dir") .eqs. "" then create/dir <.obj>
X**************
X*** 38,51
X !
X LFLAGS =`09 /nodebug/traceback/nomap
X !
X! $(EXE)cswing.exe depends_on $(OBJECTS)
X! link $(OBJECTS),$(SRC)options_file/opt /exec=$(EXE)cswing.exe $(LFLAGS
V)
X! @ purge $(EXE)cswing.exe/keep=1/nolog
X! @ purge $(OBJ)*.obj/keep=1/nolog
X! !
X! $(EXE)cswing.exe : $(OBJECTS)
X! library /create $(OBJ)swing.olb $(OBJ)*.obj`20
X! link /nouserlib /exe=$(EXE)cswing.exe $(OBJ)swing.olb/lib -`20
X /inc=swing, $(SRC)options_file/opt $(LFLAGS)
X @ purge $(EXE)cswing.exe/keep=1/nolog
X @ purge $(OBJ)*.obj/keep=1/nolog
X--- 38,45 -----
X !
X LFLAGS =`09 /nodebug/traceback/nomap
X !
X! $(EXE)cswing.exe : $(OBJ)swing.olb
X! link/nouserlib/exe=$(EXE)cswing.exe $(OBJ)swing.olb/lib -`20
X /inc=swing, $(SRC)options_file/opt $(LFLAGS)
X @ purge $(EXE)cswing.exe/keep=1/nolog
X !
X**************
X*** 48,55
X link /nouserlib /exe=$(EXE)cswing.exe $(OBJ)swing.olb/lib -`20
X /inc=swing, $(SRC)options_file/opt $(LFLAGS)
X @ purge $(EXE)cswing.exe/keep=1/nolog
X- @ purge $(OBJ)*.obj/keep=1/nolog
X- @ delete $(OBJ)swing.olb.*/nolog
X !
X $(OBJ)swing.obj : swing.c, swing.h, swing_defs.h
X cc swing $(CFLAGS)
X--- 42,47 -----
X link/nouserlib/exe=$(EXE)cswing.exe $(OBJ)swing.olb/lib -`20
X /inc=swing, $(SRC)options_file/opt $(LFLAGS)
X @ purge $(EXE)cswing.exe/keep=1/nolog
X !
X $(EXE)most.exe : $(OBJ)swing.olb $(OBJ)main.most
X link/nouserlib/exe=$(EXE)most.exe $(OBJ)main.most,$(OBJ)swing.olb/lib,
V -
X**************
X*** 51,56
X @ purge $(OBJ)*.obj/keep=1/nolog
X @ delete $(OBJ)swing.olb.*/nolog
X !
X $(OBJ)swing.obj : swing.c, swing.h, swing_defs.h
X cc swing $(CFLAGS)
X !
X--- 43,58 -----
X /inc=swing, $(SRC)options_file/opt $(LFLAGS)
X @ purge $(EXE)cswing.exe/keep=1/nolog
X !
X+ $(EXE)most.exe : $(OBJ)swing.olb $(OBJ)main.most
X+ link/nouserlib/exe=$(EXE)most.exe $(OBJ)main.most,$(OBJ)swing.olb/lib,
V -
X+ `09$(SRC)most_options/opt $(LFLAGS)
X+ @ purge $(EXE)most.exe/keep=1/nolog
X+`20
X+ $(OBJ)swing.olb : $(OBJECTS)
X+ @ purge $(OBJ)*.obj/keep=1/nolog
X+ library /create $(OBJ)swing.olb $(OBJ)*.obj`20
X+ @ purge $(OBJ)swing.olb/keep=1/nolog
X+`20
X $(OBJ)swing.obj : swing.c, swing.h, swing_defs.h
X cc swing $(CFLAGS)
X !
X**************
X*** 206,211
X !
X $(OBJ)main.obj : main.c, externs.h, window.h, buffer.h, file.h, sysdep.h,
V most.h
X cc main $(CFLAGS)
X !
X $(OBJ)search.obj : search.c, most.h, externs.h, buffer.h, line.h
X cc search $(CFLAGS)
X--- 208,216 -----
X !
X $(OBJ)main.obj : main.c, externs.h, window.h, buffer.h, file.h, sysdep.h,
V most.h
X cc main $(CFLAGS)
X+ !
X+ $(OBJ)main.most : main.c, externs.h, window.h, buffer.h, file.h, sysdep.h,
V most.h
X+ cc main/nodebug/opt/object=$(OBJ)main.most
X !
X $(OBJ)search.obj : search.c, most.h, externs.h, buffer.h, line.h
X cc search $(CFLAGS)
$ CALL UNPACK DESCRIP_MMS.PAT;363 1579945716
$ create 'f'
X*** disk$disk1:`5Bflowers.swing.vmsnet`5Dedit.c;1
X--- disk$disk1:`5Bflowers.swing.src`5Dedit.c;2
X**************
X*** 6,12
X `20
X #ifdef VMS
X `20
X! int call_edt_tpu(char *file, int line, int what)
X `7B
X char the_file`5B100`5D;
X extern void edt$edit();
X--- 6,12 -----
X `20
X #ifdef VMS
X `20
X! int most_call_edt_tpu(char *file, int line, int what)
X `7B
X char the_file`5B100`5D;
X extern void edt$edit();
X**************
X*** 32,38
X return(1);
X `7D
X `20
X! int call_emacs(char *file, int line)
X `7B
X int status;
X char lstr`5B40`5D;
X--- 32,38 -----
X return(1);
X `7D
X `20
X! int most_call_emacs(char *file, int line)
X `7B
X int status;
X char lstr`5B40`5D;
X**************
X*** 45,51
X return(status);
X `7D
X `20
X! void edit_cmd()
X `7B
X char *editor, file`5B80`5D, *strp;
X int status;
X--- 45,51 -----
X return(status);
X `7D
X `20
X! int most_call_sedt(char *file, int line)
X `7B
X int status, completion_status;
X char command`5B120`5D;
X**************
X*** 47,57
X `20
X void edit_cmd()
X `7B
X! char *editor, file`5B80`5D, *strp;
X! int status;
X! `20
X! if ((editor = getenv("MOST_EDITOR")) == NULL) editor = "EDT";
X! `20
X strcpy(file,WIN->buf->file);
X strp = file;
X /* lose the version number */
X--- 47,128 -----
X `20
X int most_call_sedt(char *file, int line)
X `7B
X! int status, completion_status;
X! char command`5B120`5D;
X! struct dsc$descriptor_s command_desc;
X! sprintf (command,"$ SEDT %.*s -%d", strlen(file),file,line);
X! command_desc.dsc$w_length = strlen(command);
X! command_desc.dsc$a_pointer = command;
X! command_desc.dsc$b_class = DSC$K_CLASS_S; /* scalar, string type */
X! command_desc.dsc$b_dtype = DSC$K_DTYPE_T; /* ascii string */
X!`20
X! status = LIB$SPAWN(&command_desc, 0, 0, 0, 0, 0,
X! &completion_status, 0, 0, 0, 0, 0);
X! if (!(status & 0x1) `7C`7C !(completion_status & 0x1))
X! `7B
X! redraw_display();
X! return(0);
X! `7D
X! else
X! return(1);
X! `7D
X!`20
X! int most_call_other_editor(char *other_editor, char *file)
X! `7B
X! int status, completion_status;
X! char command`5B120`5D;
X! struct dsc$descriptor_s command_desc;
X! sprintf (command,"$ %.*s %.*s",strlen(other_editor),other_editor,
X! strlen(file),file);
X! command_desc.dsc$w_length = strlen(command);
X! command_desc.dsc$a_pointer = command;
X! command_desc.dsc$b_class = DSC$K_CLASS_S; /* scalar, string type */
X! command_desc.dsc$b_dtype = DSC$K_DTYPE_T; /* ascii string */
X!`20
X! status = LIB$SPAWN(&command_desc, 0, 0, 0, 0, 0,
X! &completion_status, 0, 0, 0, 0, 0);
X! if (!(status & 0x1) `7C`7C !(completion_status & 0x1))
X! `7B
X! redraw_display();
X! return(0);
X! `7D
X! else
X! return(1);
X! `7D
X!`20
X! void edit_cmd()
X! `7B
X! char *most_editor, file`5B80`5D, *strp, ch;
X! int status, i;
X! globalref char editor_defn`5B`5D;
X!`20
X! select_minibuffer();
X! fprintf(stdout,"\rEdit %.*s Y/N `5BN`5D",strlen(WIN->buf->file),WIN->b
Vuf->file);
X! fflush(stdout);
X! ch = getkey();
X! delete_line(1);
X! exit_minibuffer();
X! if (!(ch == 'y' `7C`7C ch == 'Y'))
X! `7B
X! return;
X! `7D
X!`20
X! if ((most_editor = getenv("MOST_EDITOR")) == NULL)
X! `7B
X! most_editor = "not_defined";
X! if (editor_defn`5B0`5D)
X! `7B
X! strcpy(most_editor,editor_defn);
X! `7D
X! `09 else
X! `09 `7B
X! most_message("Editor not defined.",1);
X! return;
X! `7D
X! `7D
X! for (i = 0; i < strlen(most_editor); i++)
X! most_editor`5Bi`5D = toupper(most_editor`5Bi`5D);
X!`20
X strcpy(file,WIN->buf->file);
X strp = file;
X /* lose the version number */
X**************
X*** 55,60
X strcpy(file,WIN->buf->file);
X strp = file;
X /* lose the version number */
X while((*strp != '\0') && (*strp != ';')) strp++;
X *strp = '\0';
X `20
X--- 126,132 -----
X strcpy(file,WIN->buf->file);
X strp = file;
X /* lose the version number */
X+ /* No, don't lose it!`20
X while((*strp != '\0') && (*strp != ';')) strp++;
X *strp = '\0';
X */
X**************
X*** 57,62
X /* lose the version number */
X while((*strp != '\0') && (*strp != ';')) strp++;
X *strp = '\0';
X `20
X reset_tty();
X reset_display();
X--- 129,135 -----
X /* No, don't lose it!`20
X while((*strp != '\0') && (*strp != ';')) strp++;
X *strp = '\0';
X+ */
X `20
X reset_tty();
X reset_display();
X**************
X*** 62,68
X reset_display();
X fflush(stdout);
X `20
X! if (!strcmp(editor,"EMACS"))
X `7B
X status = call_emacs(file,C_LINE);
X `7D
X--- 135,141 -----
X reset_display();
X fflush(stdout);
X `20
X! if (!strcmp(most_editor,"EMACS"))
X `7B
X status = most_call_emacs(file,C_LINE);
X `7D
X**************
X*** 64,70
X `20
X if (!strcmp(editor,"EMACS"))
X `7B
X! status = call_emacs(file,C_LINE);
X `7D
X else if (!strcmp(editor,"EDT"))
X `7B
X--- 137,143 -----
X `20
X if (!strcmp(most_editor,"EMACS"))
X `7B
X! status = most_call_emacs(file,C_LINE);
X `7D
X else if (!strcmp(most_editor,"EDT"))
X `7B
X**************
X*** 66,72
X `7B
X status = call_emacs(file,C_LINE);
X `7D
X! else if (!strcmp(editor,"EDT"))
X `7B
X status = call_edt_tpu(file,C_LINE,0);
X `7D
X--- 139,145 -----
X `7B
X status = most_call_emacs(file,C_LINE);
X `7D
X! else if (!strcmp(most_editor,"EDT"))
X `7B
X status = most_call_edt_tpu(file,C_LINE,0);
X `7D
X**************
X*** 68,74
X `7D
X else if (!strcmp(editor,"EDT"))
X `7B
X! status = call_edt_tpu(file,C_LINE,0);
X `7D
X else if (!strcmp(editor,"TPU"))
X `7B
X--- 141,147 -----
X `7D
X else if (!strcmp(most_editor,"EDT"))
X `7B
X! status = most_call_edt_tpu(file,C_LINE,0);
X `7D
X else if (!strcmp(most_editor,"TPU"))
X `7B
X**************
X*** 70,76
X `7B
X status = call_edt_tpu(file,C_LINE,0);
X `7D
X! else if (!strcmp(editor,"TPU"))
X `7B
X status = call_edt_tpu(file,C_LINE,1);
X `7D
X--- 143,149 -----
X `7B
X status = most_call_edt_tpu(file,C_LINE,0);
X `7D
X! else if (!strcmp(most_editor,"TPU"))
X `7B
X status = most_call_edt_tpu(file,C_LINE,1);
X `7D
X**************
X*** 72,78
X `7D
X else if (!strcmp(editor,"TPU"))
X `7B
X! status = call_edt_tpu(file,C_LINE,1);
X `7D
X else most_message("Unknown editor.",1);
X if (status)
X--- 145,151 -----
X `7D
X else if (!strcmp(most_editor,"TPU"))
X `7B
X! status = most_call_edt_tpu(file,C_LINE,1);
X `7D
X else if (!strcmp(most_editor, "SEDT"))
X `7B
X**************
X*** 74,81
X `7B
X status = call_edt_tpu(file,C_LINE,1);
X `7D
X! else most_message("Unknown editor.",1);
X! if (status)
X `7B
X redraw_display();
X `7D
X--- 147,153 -----
X `7B
X status = most_call_edt_tpu(file,C_LINE,1);
X `7D
X! else if (!strcmp(most_editor, "SEDT"))
X `7B
X status = most_call_sedt(file,C_LINE);
X `7D
X**************
X*** 77,82
X else most_message("Unknown editor.",1);
X if (status)
X `7B
X redraw_display();
X `7D
X else most_message("Unable to edit.",1);
X--- 149,162 -----
X `7D
X else if (!strcmp(most_editor, "SEDT"))
X `7B
X+ status = most_call_sedt(file,C_LINE);
X+ `7D
X+ else
X+ `7B
X+ status = most_call_other_editor(most_editor,file);
X+ `7D
X+ if (status)
X+ `7B
X redraw_display();
X `09 most_message(" ",0); /* Make sure message window is restored */
X `7D
X**************
X*** 78,83
X if (status)
X `7B
X redraw_display();
X `7D
X else most_message("Unable to edit.",1);
X `7D
X--- 158,164 -----
X if (status)
X `7B
X redraw_display();
X+ `09 most_message(" ",0); /* Make sure message window is restored */
X `7D
X else most_message("Unable to edit.",1);
X `7D
X**************
X*** 81,88
X `7D
X else most_message("Unable to edit.",1);
X `7D
X- `20
X- #else
X `20
X void edit_cmd()
X `7B
X--- 162,167 -----
X `7D
X else most_message("Unable to edit.",1);
X `7D
X `20
X #else
X `20
X**************
X*** 84,89
X `20
X #else
X `20
X void edit_cmd()
X `7B
X ;
X--- 163,170 -----
X else most_message("Unable to edit.",1);
X `7D
X `20
X+ #else
X+`20
X void edit_cmd()
X `7B
X most_message("Editing not implemented",1);
X**************
X*** 85,92
X #else
X `20
X void edit_cmd()
X! `7B
X! ;
X! `7D
X `20
X #endif
X--- 166,173 -----
X #else
X `20
X void edit_cmd()
X! `7B
X! most_message("Editing not implemented",1);
X! `7D
X `20
X #endif
$ CALL UNPACK EDIT_C.PAT;363 191709174
$ create 'f'
X*** disk$disk1:`5Bflowers.swing.vmsnet`5Dexterns.h;1
X--- disk$disk1:`5Bflowers.swing.src`5Dexterns.h;2
X**************
X*** 1,5
X! extern char SEARCH_STR`5B80`5D;
X! extern int SEARCH_DIRECTION;
X extern int STARTING_LINE; /* begin at this line upon startup of most */
X extern int CASE_SENSITIVE;
X `20
X--- 1,5 -----
X! extern char SEARCH_STR`5B`5D;
X! extern int SEARCH_DIR;
X extern int STARTING_LINE; /* begin at this line upon startup of most */
X `20
X extern int NUM_LINES;
X**************
X*** 1,7
X extern char SEARCH_STR`5B80`5D;
X extern int SEARCH_DIRECTION;
X extern int STARTING_LINE; /* begin at this line upon startup of most */
X- extern int CASE_SENSITIVE;
X `20
X extern int NUM_LINES;
X extern int ACTUAL_LINES;
X--- 1,6 -----
X extern char SEARCH_STR`5B`5D;
X extern int SEARCH_DIR;
X extern int STARTING_LINE; /* begin at this line upon startup of most */
X `20
X extern int NUM_LINES;
X extern int ACTUAL_LINES;
X**************
X*** 9,24
X extern int CURS_COL;
X extern unsigned char *CURS_POS;
X `20
X! extern int SQUEEZE_LINES; /* switch parameters */
X! extern int MOST_L_OPT; /* use `5EL (formfeed) to clear screen
V */
X! extern int MOST_V_OPT; /* display control chars */
X! extern int MOST_B_OPT; /* display Binary File */
X! extern int MOST_T_OPT; /* display tab as `5EI-- valid only wit
Vh V option */
X! extern int MOST_W_OPT; /* wrap lines if true */
X! extern int MOST_S_OPT; /* selective display */
X! extern int MOST_K_OPT; /* Kanji option */
X!`20
X! extern int MOST_D_OPT; /* delete file mode (see ':D') */
X `20
X #define _MOST_V_OPT 1
X #define _MOST_T_OPT 2
X--- 8,24 -----
X extern int CURS_COL;
X extern unsigned char *CURS_POS;
X `20
X! extern int MOST_B_OPT; /* display Binary File */
X! extern int MOST_C_OPT; /* case-sensitive searches */
X! extern int MOST_D_OPT; /* delete file mode (see ':D') */
+-+-+-+-+-+-+-+- END OF PART 1 +-+-+-+-+-+-+-+-
Technical Details
Message-ID:
<8880483@MVB.SAIC.COM>Path:
arc1-ca.pugleaf.net!sparky!uunet!news.centerline.com!noc.near.net!hri.com!ukma!darwin.sura.net!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!hamblin.math.byu.edu!arizona.edu!mvb.saic.com!vmsnet-sourcesShow Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!news.centerline.com!noc.near.net!hri.com!ukma!darwin.sura.net!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!hamblin.math.byu.edu!arizona.edu!mvb.saic.com!vmsnet-sources From: flowers@memstvx1.memst.edu Newsgroups: vmsnet.sources Subject: C Swing v3.6.3 patches, part 01/07 Message-ID: <8880483@MVB.SAIC.COM> Date: 29 Oct 92 17:41:31 GMT Organization: Memphis State University Lines: 1595 Approved: Mark.Berryman@Mvb.Saic.Com