From: CSBVAX::MRGATE!@KL.SRI.Com:info-vax-request@kl.sri.com@SMTP 17-OCT-1987 05:50 To: EVERHART Subj: Diffs listing for munged VI for TPU posting Received: from ucbvax.Berkeley.EDU by KL.SRI.COM with TCP; Sat 17 Oct 87 02:27:44-PDT Received: by ucbvax.Berkeley.EDU (5.58/1.27) id AA01874; Sat, 17 Oct 87 02:26:06 PDT Received: from USENET by ucbvax.Berkeley.EDU with netnews for info-vax@kl.sri.com (info-vax@kl.sri.com) (contact usenet@ucbvax.Berkeley.EDU if you have questions) Date: 15 Oct 87 19:02:17 GMT From: pbox!okstate!gregg@rutgers.edu (Gregg Wonderly) Organization: Oklahoma State Univ., Stillwater Subject: Diffs listing for munged VI for TPU posting Message-Id: <2693@okstate.UUCP> Sender: info-vax-request@kl.sri.com To: info-vax@kl.sri.com 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 (!) 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 (!) 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 ============================