gregg@a.cs.okstate.edu (Gregg Wonderly) (10/15/87)
Due to oversight on my part, and some picky mailers, several lines in the
VI distribution were chopped and wrapped at 79 columns. Below is a
DIFFERENCES listing of the original parts, and the results that I got
from the NET. The [NETDIST] directory contains the originals, and
the [RESULT] directory contains the copies I received back. You should
be able to use this information to put together a proper distribution
that can be ran through DCL to create the correct files. Please
accept my appologies for any pain/suffering/headaches this has created.
-----
Gregg Wonderly
Mathematics Department
Oklahoma State University
UUCP: {cbosgd, ihnp4, rutgers}!okstate!nemo.math.okstate.edu!gregg
ARPA: gregg@NEMO.MATH.OKSTATE.EDU
========================== Part 1 diffs ===========================
Number of difference sections found: 0
Number of difference records found: 0
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]1.DIFF;1-
VI$ROOT:[RESULT]VI_1.COM;2-
VI$ROOT:[NETDIST]README.;4
========================== Part 2 diffs ===========================
************
File VI$ROOT:[RESULT]VI_2.COM;2
626 cmpl r0,#RMS$_FNF ;If FNF then say the right thin
627 g
628 beql 7$ ;Go set up the right pa
rameter
******
File VI$ROOT:[NETDIST]VI_1.COM;14
626 cmpl r0,#RMS$_FNF ;If FNF then say the right thing
627 beql 7$ ;Go set up the right pa
rameter
************
Number of difference sections found: 1
Number of difference records found: 2
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]2.DIFF;1-
VI$ROOT:[RESULT]VI_2.COM;2-
VI$ROOT:[NETDIST]VI_1.COM;14
========================== Part 3 diffs ===========================
************
File VI$ROOT:[RESULT]VI_3.COM;2
86 systems. VI is an excellent editor, but its full potential can not be
realized
87
88 without a full understanding of the commands that are available. Curre
ntly,
******
File VI$ROOT:[NETDIST]VI_2.COM;15
86 systems. VI is an excellent editor, but its full potential can not be
realized
87 without a full understanding of the commands that are available. Curre
ntly,
************
************
File VI$ROOT:[RESULT]VI_3.COM;2
152 The EX mode commands, 'show buffers' and 'show files', display informat
ion abou
153 t
154 existing buffers, and the current list of files to edit, respectively.
******
File VI$ROOT:[NETDIST]VI_2.COM;15
151 The EX mode commands, 'show buffers' and 'show files', display informat
ion about
152 existing buffers, and the current list of files to edit, respectively.
************
************
File VI$ROOT:[RESULT]VI_3.COM;2
163 The EX mode command, messages, allows you to map the TPU message buffer
unto th
164 e
165 current window for viewing.
******
File VI$ROOT:[NETDIST]VI_2.COM;15
161 The EX mode command, messages, allows you to map the TPU message buffer
unto the
162 current window for viewing.
************
************
File VI$ROOT:[RESULT]VI_3.COM;2
185 VI allows you to use a file to initialize the options and settings that
you wis
186 h
187 to use, automatically, each time the editor is envoked. Note that when
you use
188 VI in a subprocess, the initialization is done only when the subprocess
is firs
189 t
190 created, and not on any subsequent attach operations. The file SYS$LOGI
N:VI.INI
******
File VI$ROOT:[NETDIST]VI_2.COM;15
182 VI allows you to use a file to initialize the options and settings that
you wish
183 to use, automatically, each time the editor is envoked. Note that when
you use
184 VI in a subprocess, the initialization is done only when the subprocess
is first
185 created, and not on any subsequent attach operations. The file SYS$LOGI
N:VI.INI
************
************
File VI$ROOT:[RESULT]VI_3.COM;2
1576 if the filter_region (!<movement><command>) and read_from_command (:r!<
command>
1577 )
1578 capabilities do not fit your needs. Any line in any buffer can be sent
to
******
File VI$ROOT:[NETDIST]VI_2.COM;15
1571 if the filter_region (!<movement><command>) and read_from_command (:r!<
command>)
1572 capabilities do not fit your needs. Any line in any buffer can be sent
to
************
************
File VI$ROOT:[RESULT]VI_3.COM;2
1607 There are several problems with TPU that cause problems with this imple
mentatio
1608 n
1609 of VI. Outlined below are some of the more major problems. There are
probably
******
File VI$ROOT:[NETDIST]VI_2.COM;15
1601 There are several problems with TPU that cause problems with this imple
mentation
1602 of VI. Outlined below are some of the more major problems. There are
probably
************
************
File VI$ROOT:[RESULT]VI_3.COM;2
1927 $ VARS="MANUAL" ! Actually there is no such variant, but somethin
g is nee
1928 ded
1929 $ EXT="MEM"
******
File VI$ROOT:[NETDIST]VI_2.COM;15
1920 $ VARS="MANUAL" ! Actually there is no such variant, but somethin
g is needed
1921 $ EXT="MEM"
************
Number of difference sections found: 7
Number of difference records found: 17
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]3.DIFF;1-
VI$ROOT:[RESULT]VI_3.COM;2-
VI$ROOT:[NETDIST]VI_2.COM;15
========================== Part 4 diffs ===========================
************
File VI$ROOT:[RESULT]VI_4.COM;2
77
78 "UPCASE,TRIM,COMPRESS")
79 $ START = F$LOCATE ("/OUT", LIST)
******
File VI$ROOT:[NETDIST]VI_3.COM;14
77
"UPCASE,TRIM,COMPRESS")
78 $ START = F$LOCATE ("/OUT", LIST)
************
************
File VI$ROOT:[RESULT]VI_4.COM;2
89 $ OUTPUT=F$EXTRACT(END+1,F$LOCATE(" ",REMAIN)-END
-1,REMAI
90 N)
91 $ LIST = F$EXTRACT (0,START,LIST) + -
92 F$EXTRACT(END+2+F$LENGTH(OUTPUT
),255,RE
93 MAIN)
94 $!
******
File VI$ROOT:[NETDIST]VI_3.COM;14
88 $ OUTPUT=F$EXTRACT(END+1,F$LOCATE(" ",REMAIN)-END
-1,REMAIN)
89 $ LIST = F$EXTRACT (0,START,LIST) + -
90 F$EXTRACT(END+2+F$LENGTH(OUTPUT
),255,REMAIN)
91 $!
************
************
File VI$ROOT:[RESULT]VI_4.COM;2
98 (F$EXTRACT(1,1,P1) .NES. "?") T
HEN GOTO
99 NO_SEARCH
100 $ SEARCH = F$EXTRACT (1,255,P1)
******
File VI$ROOT:[NETDIST]VI_3.COM;14
95 (F$EXTRACT(1,1,P1) .NES. "?") T
HEN GOTO NO_SEARCH
96 $ SEARCH = F$EXTRACT (1,255,P1)
************
************
File VI$ROOT:[RESULT]VI_4.COM;2
115
"UPCASE
116 ,COMPRESS,TRIM")
117 $ NO_LINE:
******
File VI$ROOT:[NETDIST]VI_3.COM;14
111
"UPCASE,COMPRESS,TRIM")
112 $ NO_LINE:
************
Number of difference sections found: 4
Number of difference records found: 11
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]4.DIFF;1-
VI$ROOT:[RESULT]VI_4.COM;2-
VI$ROOT:[NETDIST]VI_3.COM;14
========================== Part 5 diffs ===========================
************
File VI$ROOT:[RESULT]VI_5.COM;2
465 DEFINE_KEY ("vi$repeat_subs", KEY_NAME('&'), "vi$repeat_subs", vi$c
md_keys)
466 ;
467 DEFINE_KEY ("vi$region_filter", KEY_NAME('!'),
******
File VI$ROOT:[NETDIST]VI_004.COM;4
465 DEFINE_KEY ("vi$repeat_subs", KEY_NAME('&'), "vi$repeat_subs", vi$c
md_keys);
466 DEFINE_KEY ("vi$region_filter", KEY_NAME('!'),
************
************
File VI$ROOT:[RESULT]VI_5.COM;2
505 DEFINE_KEY ("vi$search(-1)", KEY_NAME ("?"), "vi$search(-1)", vi$mo
ve_keys)
506 ;
507 DEFINE_KEY ("vi$match_brackets", KEY_NAME ("%"),
******
File VI$ROOT:[NETDIST]VI_004.COM;4
504 DEFINE_KEY ("vi$search(-1)", KEY_NAME ("?"), "vi$search(-1)", vi$mo
ve_keys);
505 DEFINE_KEY ("vi$match_brackets", KEY_NAME ("%"),
************
************
File VI$ROOT:[RESULT]VI_5.COM;2
536 DEFINE_KEY ("vi$to_char(0)", KEY_NAME ("t"), "vi$to_char(0)", vi$mo
ve_keys)
537 ;
538 DEFINE_KEY ("vi$back_to_char(0)", KEY_NAME ("T"),
******
File VI$ROOT:[NETDIST]VI_004.COM;4
534 DEFINE_KEY ("vi$to_char(0)", KEY_NAME ("t"), "vi$to_char(0)", vi$mo
ve_keys);
535 DEFINE_KEY ("vi$back_to_char(0)", KEY_NAME ("T"),
************
************
File VI$ROOT:[RESULT]VI_5.COM;2
1446 SET (SCROLLING, cur_window, ON, scrl_value, scrl_value, scr
l_value)
1447 ;
1448 POSITION (pos);
******
File VI$ROOT:[NETDIST]VI_004.COM;4
1443 SET (SCROLLING, cur_window, ON, scrl_value, scrl_value, scr
l_value);
1444 POSITION (pos);
************
Number of difference sections found: 4
Number of difference records found: 8
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]5.DIFF;1-
VI$ROOT:[RESULT]VI_5.COM;2-
VI$ROOT:[NETDIST]VI_004.COM;4
========================== Part 6 diffs ===========================
************
File VI$ROOT:[RESULT]VI_6.COM;2
318 if (vi$line_edit (max_col, start_col, max_mark, 0)
= 0) THE
319 N
320 vi$undo_end := 0;
******
File VI$ROOT:[NETDIST]VI_005.COM;4
318 if (vi$line_edit (max_col, start_col, max_mark, 0)
= 0) THEN
319 vi$undo_end := 0;
************
************
File VI$ROOT:[RESULT]VI_6.COM;2
483 (INDEX (vi$_numeric_chars, asc_acti
on) - 1)
484 ;
485 ENDLOOP;
******
File VI$ROOT:[NETDIST]VI_005.COM;4
482 (INDEX (vi$_numeric_chars, asc_acti
on) - 1);
483 ENDLOOP;
************
************
File VI$ROOT:[RESULT]VI_6.COM;2
550 vi$do_buf_act (asc_action, 'Y', "vi$_yank (KEY_NAME('y'), "+buf_na
me+");")
551 ;
552 ENDPROCEDURE;
******
File VI$ROOT:[NETDIST]VI_005.COM;4
548 vi$do_buf_act (asc_action, 'Y', "vi$_yank (KEY_NAME('y'), "+buf_na
me+");");
549 ENDPROCEDURE;
************
Number of difference sections found: 3
Number of difference records found: 6
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]6.DIFF;1-
VI$ROOT:[RESULT]VI_6.COM;2-
VI$ROOT:[NETDIST]VI_005.COM;4
========================== Part 7 diffs ===========================
************
File VI$ROOT:[RESULT]VI_7.COM;2
388 cur_dir,
level+1)
389 ;
390
******
File VI$ROOT:[NETDIST]VI_006.COM;4
388 cur_dir,
level+1);
389
************
************
File VI$ROOT:[RESULT]VI_7.COM;2
1353 MESSAGE ("Invalid character in ABBR name, '"+ch+"', is not
valid.")
1354 ;
1355 RETURN (1);
******
File VI$ROOT:[NETDIST]VI_006.COM;4
1352 MESSAGE ("Invalid character in ABBR name, '"+ch+"', is not
valid.");
1353 RETURN (1);
************
Number of difference sections found: 2
Number of difference records found: 4
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]7.DIFF;1-
VI$ROOT:[RESULT]VI_7.COM;2-
VI$ROOT:[NETDIST]VI_006.COM;4
========================== Part 8 diffs ===========================
************
File VI$ROOT:[RESULT]VI_8.COM;2
1134 vi$message ("No write of buffer """+GET_INFO (buf,
"NAME")
1135 +
1136 """ since last change, use """+token_1 +
******
File VI$ROOT:[NETDIST]VI_007.COM;4
1134 vi$message ("No write of buffer """+GET_INFO (buf,
"NAME") +
1135 """ since last change, use """+token_1 +
************
************
File VI$ROOT:[RESULT]VI_8.COM;2
1439 map_type + ")', " + STR(key) + ", 'active_macro', vi$edit_k
eys);"))
1440 ;
1441 ELSE
******
File VI$ROOT:[NETDIST]VI_007.COM;4
1438 map_type + ")', " + STR(key) + ", 'active_macro', vi$edit_k
eys);"));
1439 ELSE
************
Number of difference sections found: 2
Number of difference records found: 4
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]8.DIFF;1-
VI$ROOT:[RESULT]VI_8.COM;2-
VI$ROOT:[NETDIST]VI_007.COM;4
========================== Part 9 diffs ===========================
Number of difference sections found: 0
Number of difference records found: 0
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]9.DIFF;1-
VI$ROOT:[RESULT]VI_9.COM;2-
VI$ROOT:[NETDIST]VI_008.COM;4
========================== Part 10 diffs ===========================
************
File VI$ROOT:[RESULT]VI_10.COM;2
135 CURRENT_BUF
FER) THE
136 N
137 POSITION (vi$global_mark);
******
File VI$ROOT:[NETDIST]VI_009.COM;4
135 CURRENT_BUF
FER) THEN
136 POSITION (vi$global_mark);
************
************
File VI$ROOT:[RESULT]VI_10.COM;2
1005 ((replace = 0) OR seen_
eol) THE
1006 N
1007 SET (INSERT, CURRENT_BUFFER);
******
File VI$ROOT:[NETDIST]VI_009.COM;4
1004 ((replace = 0) OR seen_
eol) THEN
1005 SET (INSERT, CURRENT_BUFFER);
************
************
File VI$ROOT:[RESULT]VI_10.COM;2
1034 chcnt := chcnt + vi$abbr (abbrs, rchar, cabbr,
abbrlen)
1035 ;
1036 ELSE
******
File VI$ROOT:[NETDIST]VI_009.COM;4
1032 chcnt := chcnt + vi$abbr (abbrs, rchar, cabbr,
abbrlen);
1033 ELSE
************
************
File VI$ROOT:[RESULT]VI_10.COM;2
1109 IF (INDEX (" ", CURRENT_CHARACTER) <
> 0) THE
1110 N
1111 chcnt := chcnt + 1;
******
File VI$ROOT:[NETDIST]VI_009.COM;4
1106 IF (INDEX (" ", CURRENT_CHARACTER) <
> 0) THEN
1107 chcnt := chcnt + 1;
************
Number of difference sections found: 4
Number of difference records found: 8
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]10.DIFF;1-
VI$ROOT:[RESULT]VI_10.COM;2-
VI$ROOT:[NETDIST]VI_009.COM;4
========================== Part 11 diffs ===========================
************
File VI$ROOT:[RESULT]VI_11.COM;2
1458 temp_file_name, ! First file name string returned by fi
le_searc
1459 h
1460 loop_cnt, ! Number of files left to process in lo
op
******
File VI$ROOT:[NETDIST]VI_010.COM;4
1458 temp_file_name, ! First file name string returned by fi
le_search
1459 loop_cnt, ! Number of files left to process in lo
op
************
************
File VI$ROOT:[RESULT]VI_11.COM;2
1469 vi$message (FAO ("Don't understand file name: !AS", get_fil
e_name))
1470 ;
1471 RETURN (0);
******
File VI$ROOT:[NETDIST]VI_010.COM;4
1468 vi$message (FAO ("Don't understand file name: !AS", get_fil
e_name));
1469 RETURN (0);
************
Number of difference sections found: 2
Number of difference records found: 4
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]11.DIFF;1-
VI$ROOT:[RESULT]VI_11.COM;2-
VI$ROOT:[NETDIST]VI_010.COM;4
========================== Part 12 diffs ===========================
************
File VI$ROOT:[RESULT]VI_12.COM;2
67 IF (temp_file_name <> 0) and (temp_file_name <>
"") THE
68 N
69 vi$message ("Buffer empty, reading file");
******
File VI$ROOT:[NETDIST]VI_011.COM;4
67 IF (temp_file_name <> 0) and (temp_file_name <>
"") THEN
68 vi$message ("Buffer empty, reading file");
************
************
File VI$ROOT:[RESULT]VI_12.COM;2
109 FILE_PARSE (temp_file_name, "", "", DIR
ECTORY)
110 +
111 FILE_PARSE (temp_file_name, "", "", NAM
E) +
******
File VI$ROOT:[NETDIST]VI_011.COM;4
108 FILE_PARSE (temp_file_name, "", "", DIR
ECTORY) +
109 FILE_PARSE (temp_file_name, "", "", NAM
E) +
************
************
File VI$ROOT:[RESULT]VI_12.COM;2
157 IF (want_new_buffer = 0) and (CURRENT_BUFFER = loop_buf
fer) THE
158 N
159 vi$message (FAO (
******
File VI$ROOT:[NETDIST]VI_011.COM;4
155 IF (want_new_buffer = 0) and (CURRENT_BUFFER = loop_buf
fer) THEN
156 vi$message (FAO (
************
************
File VI$ROOT:[RESULT]VI_12.COM;2
170 temp_fi
le_name)
171 ;
172 ENDIF;
******
File VI$ROOT:[NETDIST]VI_011.COM;4
167 temp_fi
le_name);
168 ENDIF;
************
************
File VI$ROOT:[RESULT]VI_12.COM;2
203 possible_buffer, possible_buffer_name, loo
p_buffer
204 )
205
******
File VI$ROOT:[NETDIST]VI_011.COM;4
199 possible_buffer, possible_buffer_name, loo
p_buffer)
200
************
************
File VI$ROOT:[RESULT]VI_12.COM;2
336 possible_buffer, possible_buffer_name, loop
_buffer)
337 ;
338
******
File VI$ROOT:[NETDIST]VI_011.COM;4
331 possible_buffer, possible_buffer_name, loop
_buffer);
332
************
************
File VI$ROOT:[RESULT]VI_12.COM;2
414 possible_buffer, possible_buffer_name, loop
_buffer)
415 ;
416
******
File VI$ROOT:[NETDIST]VI_011.COM;4
408 possible_buffer, possible_buffer_name, loop
_buffer);
409
************
************
File VI$ROOT:[RESULT]VI_12.COM;2
482 possible_buffer, possible_buffer_name, loop
_buffer)
483 ;
484
******
File VI$ROOT:[NETDIST]VI_011.COM;4
475 possible_buffer, possible_buffer_name, loop
_buffer);
476
************
************
File VI$ROOT:[RESULT]VI_12.COM;2
519 " File names currently active for PREVIOUS, FIRST and NEXT line mode c
ommands"
520 ,
521 info_window)
******
File VI$ROOT:[NETDIST]VI_011.COM;4
511 " File names currently active for PREVIOUS, FIRST and NEXT line mode c
ommands",
512 info_window)
************
Number of difference sections found: 9
Number of difference records found: 18
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]12.DIFF;1-
VI$ROOT:[RESULT]VI_12.COM;2-
VI$ROOT:[NETDIST]VI_011.COM;4
========================== Part 13 diffs ===========================
************
File VI$ROOT:[RESULT]VI_13.COM;2
6 $ write sys$output "I can't find VI.4, have you executed
the comm
7 and files to extract"
8 $ write sys$output "each part of the VI.TPU source?"
******
File VI$ROOT:[NETDIST]ASSEMBLE.COM;10
6 $ write sys$output "I can't find VI.4, have you executed
the command files to extract"
7 $ write sys$output "each part of the VI.TPU source?"
************
************
File VI$ROOT:[RESULT]VI_13.COM;2
12 $ write sys$output "I can't find the [.SRC] directory, have you e
xtracted
13 the other portions
14 $ write sys$output "of the distribution yet?
******
File VI$ROOT:[NETDIST]ASSEMBLE.COM;10
11 $ write sys$output "I can't find the [.SRC] directory, have you e
xtracted the other portions
12 $ write sys$output "of the distribution yet?
************
************
File VI$ROOT:[RESULT]VI_13.COM;2
42 $ write sys$output "I can't find [.SRC]make.com, perhaps
you have
43 n't extracted it yet?"
44 $ set def [-]
******
File VI$ROOT:[NETDIST]ASSEMBLE.COM;10
40 $ write sys$output "I can't find [.SRC]make.com, perhaps
you haven't extracted it yet?"
41 $ set def [-]
************
************
File VI$ROOT:[RESULT]VI_13.COM;2
51 f$fao("!/*** The VI TPU section file has been succesfully built
***!/")
52
53 $ DEF = F$ENVIRONMENT ("DEFAULT")
******
File VI$ROOT:[NETDIST]ASSEMBLE.COM;10
48 f$fao("!/*** The VI TPU section file has been succesfully built
***!/")
49 $ DEF = F$ENVIRONMENT ("DEFAULT")
************
************
File VI$ROOT:[RESULT]VI_13.COM;2
61 $ write sys$output f$fao ("!/Proceeding with Compile, just in case it i
s not.!/
62 ")
63 $ goto compile
******
File VI$ROOT:[NETDIST]ASSEMBLE.COM;10
57 $ write sys$output f$fao ("!/Proceeding with Compile, just in case it i
s not.!/")
58 $ goto compile
************
Number of difference sections found: 5
Number of difference records found: 10
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=VI$ROOT:[RESULT]13.DIFF;1-
VI$ROOT:[RESULT]VI_13.COM;2-
VI$ROOT:[NETDIST]ASSEMBLE.COM;10
============================ End of differences ============================