blob: 7d6644ebd3ccca77b65150ce9497cc2c8b1ca694 (plain)

ofs	hex dump	ascii
0000	00 00 1a 00 50 52 4f 43 45 44 55 52 45 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 69 65 77 10 00	....PROCEDURE.lsi_latex_review..
0020	4c 4f 43 41 4c 20 66 69 6c 65 5f 6e 61 6d 65 2c 0f 00 20 20 20 20 20 20 6c 69 73 5f 66 69 6c 65	LOCAL.file_name,........lis_file
0040	2c 00 10 00 20 20 20 20 20 20 69 73 5f 6d 65 6d 62 65 72 2c 18 00 20 20 20 20 20 20 6b 65 79 5f	,.........is_member,........key_
0060	6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 2c 13 00 20 20 20 20 20 20 6b 65 79 5f 6d 61 70 5f 6e 61	map_list_name,........key_map_na
0080	6d 65 2c 00 13 00 20 20 20 20 20 20 73 74 61 72 74 5f 64 65 6c 65 74 65 3b 00 01 00 20 00 08 00	me,.........start_delete;.......
00a0	4f 4e 5f 45 52 52 4f 52 1e 00 20 20 20 4d 45 53 53 41 47 45 20 28 27 52 65 76 69 65 77 20 61 62	ON_ERROR.....MESSAGE.('Review.ab
00c0	6f 72 74 65 64 27 29 3b 18 00 20 20 20 6c 73 69 5f 6c 61 74 65 78 5f 65 6e 64 5f 72 65 76 69 65	orted');.....lsi_latex_end_revie
00e0	77 3b 08 00 20 20 20 41 42 4f 52 54 0b 00 45 4e 44 4f 4e 5f 45 52 52 4f 52 00 00 00 03 00 21 2b	w;.....ABORT..ENDON_ERROR.....!+
0100	2b 00 40 00 21 20 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72	+.@.!..Initialize.the.global.var
0120	69 61 62 6c 65 73 20 28 72 61 6e 67 65 73 20 61 6e 64 20 62 75 66 66 65 72 20 70 6f 69 6e 74 65	iables.(ranges.and.buffer.pointe
0140	72 73 29 2e 03 00 21 2d 2d 00 3a 00 49 46 20 28 47 45 54 5f 49 4e 46 4f 20 28 6c 73 69 5f 6c 61	rs)...!--.:.IF.(GET_INFO.(lsi_la
0160	74 65 78 5f 73 72 63 5f 62 75 66 2c 20 27 74 79 70 65 27 29 20 3d 20 42 55 46 46 45 52 29 20 41	tex_src_buf,.'type').=.BUFFER).A
0180	4e 44 20 20 20 20 3a 00 20 20 20 28 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 62 75 66 20 3c 3e	ND....:....(lsi_latex_src_buf.<>
01a0	20 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.0).............................
01c0	20 20 3b 00 54 48 45 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	..;.THEN........................
01e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00	................................
0200	3a 00 20 20 20 6c 73 69 5f 6c 61 74 65 78 5f 65 6e 64 5f 72 65 76 69 65 77 20 20 20 20 20 20 20	:....lsi_latex_end_review.......
0220	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 00 45 4e	............................;.EN
0240	44 49 46 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	DIF;............................
0260	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 24 00 6c 73 69 5f	..........................$.lsi_
0280	6c 61 74 65 78 5f 73 72 63 5f 62 75 66 20 3a 3d 20 43 55 52 52 45 4e 54 5f 42 55 46 46 45 52 3b	latex_src_buf.:=.CURRENT_BUFFER;
02a0	03 00 21 2b 2b 00 1e 00 21 20 20 47 65 74 20 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 20 61 6e 64	..!++...!..Get.the.file.name.and
02c0	20 74 79 70 65 2e 03 00 21 2d 2d 00 34 00 66 69 6c 65 5f 6e 61 6d 65 20 3a 3d 20 47 45 54 5f 49	.type...!--.4.file_name.:=.GET_I
02e0	4e 46 4f 20 28 43 55 52 52 45 4e 54 5f 42 55 46 46 45 52 2c 20 27 66 69 6c 65 5f 6e 61 6d 65 27	NFO.(CURRENT_BUFFER,.'file_name'
0300	29 3b 3b 00 66 69 6c 65 5f 6e 61 6d 65 20 3a 3d 20 53 55 42 53 54 52 20 28 66 69 6c 65 5f 6e 61	);;.file_name.:=.SUBSTR.(file_na
0320	6d 65 2c 20 31 2c 20 49 4e 44 45 58 20 28 66 69 6c 65 5f 6e 61 6d 65 2c 20 27 3b 27 29 29 3b 00	me,.1,.INDEX.(file_name,.';'));.
0340	31 00 6c 69 73 5f 66 69 6c 65 20 3a 3d 20 46 49 4c 45 5f 50 41 52 53 45 20 28 66 69 6c 65 5f 6e	1.lis_file.:=.FILE_PARSE.(file_n
0360	61 6d 65 2c 20 27 27 2c 20 27 27 2c 20 4e 41 4d 45 29 3b 00 36 00 6c 69 73 5f 66 69 6c 65 20 3a	ame,.'',.'',.NAME);.6.lis_file.:
0380	3d 20 46 49 4c 45 5f 50 41 52 53 45 20 28 6c 69 73 5f 66 69 6c 65 20 2b 20 27 2e 4c 49 53 27 2c	=.FILE_PARSE.(lis_file.+.'.LIS',
03a0	20 66 69 6c 65 5f 6e 61 6d 65 29 3b 03 00 21 2b 2b 00 30 00 21 20 20 52 65 61 64 20 74 68 65 20	.file_name);..!++.0.!..Read.the.
03c0	6c 69 73 74 69 6e 67 20 66 69 6c 65 20 69 6e 74 6f 20 74 68 65 20 72 65 76 69 65 77 20 62 75 66	listing.file.into.the.review.buf
03e0	66 65 72 2e 03 00 21 2d 2d 00 33 00 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 20 3a 3d	fer...!--.3.lsi_latex_rev_buf.:=
0400	20 6c 73 69 5f 6c 6f 6f 6b 75 70 5f 62 75 66 66 65 72 20 28 27 24 52 45 56 49 45 57 27 29 3b 00	.lsi_lookup_buffer.('$REVIEW');.
0420	18 00 49 46 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 20 3d 20 30 04 00 54 48 45 4e	..IF.lsi_latex_rev_buf.=.0..THEN
0440	3b 00 20 20 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 20 3a 3d 20 6c 73 69 5f 6c 6f	;....lsi_latex_rev_buf.:=.lsi_lo
0460	6f 6b 75 70 5f 62 75 66 66 65 72 20 28 27 24 4c 41 54 45 58 5f 52 45 56 49 45 57 27 29 00 06 00	okup_buffer.('$LATEX_REVIEW')...
0480	45 4e 44 49 46 3b 19 00 49 46 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 20 3c 3e 20	ENDIF;..IF.lsi_latex_rev_buf.<>.
04a0	30 00 04 00 54 48 45 4e 46 00 20 20 20 6c 73 65 24 64 6f 5f 63 6f 6d 6d 61 6e 64 20 28 27 53 45	0...THENF....lse$do_command.('SE
04c0	54 20 4d 4f 44 49 46 59 2f 42 55 46 46 45 52 3d 27 20 2b 20 47 45 54 5f 49 4e 46 4f 20 28 6c 73	T.MODIFY/BUFFER='.+.GET_INFO.(ls
04e0	69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 2c 13 00 20 20 20 20 20 20 27 6e 61 6d 65 27 29 29	i_latex_rev_buf,........'name'))
0500	3b 20 20 20 20 00 1c 00 20 20 20 45 52 41 53 45 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f	;..........ERASE.(lsi_latex_rev_
0520	62 75 66 29 04 00 45 4c 53 45 38 00 20 20 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66	buf)..ELSE8....lsi_latex_rev_buf
0540	20 3a 3d 20 43 52 45 41 54 45 5f 42 55 46 46 45 52 20 28 27 24 4c 41 54 45 58 5f 52 45 56 49 45	.:=.CREATE_BUFFER.('$LATEX_REVIE
0560	57 27 29 3b 23 00 20 20 20 53 45 54 20 28 53 59 53 54 45 4d 2c 20 6c 73 69 5f 6c 61 74 65 78 5f	W');#....SET.(SYSTEM,.lsi_latex_
0580	72 65 76 5f 62 75 66 29 3b 00 29 00 20 20 20 53 45 54 20 28 45 4f 42 5f 54 45 58 54 2c 20 6c 73	rev_buf);.)....SET.(EOB_TEXT,.ls
05a0	69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 2c 20 27 27 29 3b 00 28 00 20 20 20 53 45 54 20 28	i_latex_rev_buf,.'');.(....SET.(
05c0	4e 4f 5f 57 52 49 54 45 2c 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 2c 20 4f 4e 29	NO_WRITE,.lsi_latex_rev_buf,.ON)
05e0	06 00 45 4e 44 49 46 3b 1d 00 50 4f 53 49 54 49 4f 4e 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72 65	..ENDIF;..POSITION.(lsi_latex_re
0600	76 5f 62 75 66 29 3b 00 15 00 52 45 41 44 5f 46 49 4c 45 20 28 6c 69 73 5f 66 69 6c 65 29 3b 00	v_buf);...READ_FILE.(lis_file);.
0620	45 00 6c 73 65 24 64 6f 5f 63 6f 6d 6d 61 6e 64 20 28 27 53 45 54 20 4e 4f 4d 4f 44 49 46 59 2f	E.lse$do_command.('SET.NOMODIFY/
0640	42 55 46 46 45 52 3d 27 20 2b 20 47 45 54 5f 49 4e 46 4f 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72	BUFFER='.+.GET_INFO.(lsi_latex_r
0660	65 76 5f 62 75 66 2c 00 10 00 20 20 20 27 6e 61 6d 65 27 29 29 3b 20 20 20 20 2c 00 50 4f 53 49	ev_buf,......'name'));....,.POSI
0680	54 49 4f 4e 20 28 42 45 47 49 4e 4e 49 4e 47 5f 4f 46 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72 65	TION.(BEGINNING_OF.(lsi_latex_re
06a0	76 5f 62 75 66 29 29 3b 03 00 21 2b 2b 00 18 00 21 20 20 46 69 6e 64 20 74 68 65 20 66 69 72 73	v_buf));..!++...!..Find.the.firs
06c0	74 20 65 72 72 6f 72 2e 03 00 21 2d 2d 00 15 00 6c 73 69 5f 6c 61 74 65 78 5f 6e 65 78 74 5f 65	t.error...!--...lsi_latex_next_e
06e0	72 72 6f 72 3b 00 03 00 21 2b 2b 00 38 00 21 20 20 41 63 74 69 76 61 74 65 20 74 68 65 20 6b 65	rror;...!++.8.!..Activate.the.ke
0700	79 20 6d 61 70 20 66 6f 72 20 74 68 65 20 73 6f 75 72 63 65 20 26 20 72 65 76 69 65 77 20 62 75	y.map.for.the.source.&.review.bu
0720	66 66 65 72 73 2e 03 00 21 2d 2d 00 42 00 6b 65 79 5f 6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 20	ffers...!--.B.key_map_list_name.
0740	3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 62 75 66 2c 20	:=.GET_INFO.(lsi_latex_src_buf,.
0760	22 6b 65 79 5f 6d 61 70 5f 6c 69 73 74 22 29 3b 3f 00 6b 65 79 5f 6d 61 70 5f 6e 61 6d 65 20 3a	"key_map_list");?.key_map_name.:
0780	3d 20 47 45 54 5f 49 4e 46 4f 20 28 4b 45 59 5f 4d 41 50 2c 20 22 66 69 72 73 74 22 2c 20 6b 65	=.GET_INFO.(KEY_MAP,."first",.ke
07a0	79 5f 6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 29 3b 00 04 00 4c 4f 4f 50 39 00 20 20 20 69 73 5f	y_map_list_name);...LOOP9....is_
07c0	6d 65 6d 62 65 72 20 3a 3d 20 28 6b 65 79 5f 6d 61 70 5f 6e 61 6d 65 20 3d 20 22 4c 53 49 5f 4c	member.:=.(key_map_name.=."LSI_L
07e0	41 54 45 58 5f 52 45 56 49 45 57 5f 4b 45 59 53 22 29 3b 00 14 00 20 20 20 45 58 49 54 49 46 20	ATEX_REVIEW_KEYS");......EXITIF.
0800	69 73 5f 6d 65 6d 62 65 72 3b 41 00 20 20 20 6b 65 79 5f 6d 61 70 5f 6e 61 6d 65 20 3a 3d 20 47	is_member;A....key_map_name.:=.G
0820	45 54 5f 49 4e 46 4f 20 28 4b 45 59 5f 4d 41 50 2c 20 22 6e 65 78 74 22 2c 20 6b 65 79 5f 6d 61	ET_INFO.(KEY_MAP,."next",.key_ma
0840	70 5f 6c 69 73 74 5f 6e 61 6d 65 29 3b 00 1a 00 20 20 20 45 58 49 54 49 46 20 6b 65 79 5f 6d 61	p_list_name);......EXITIF.key_ma
0860	70 5f 6e 61 6d 65 20 3d 20 30 08 00 45 4e 44 4c 4f 4f 50 3b 10 00 49 46 20 4e 4f 54 20 69 73 5f	p_name.=.0..ENDLOOP;..IF.NOT.is_
0880	6d 65 6d 62 65 72 04 00 54 48 45 4e 44 00 20 20 20 41 44 44 5f 4b 45 59 5f 4d 41 50 20 28 6b 65	member..THEND....ADD_KEY_MAP.(ke
08a0	79 5f 6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 2c 20 22 66 69 72 73 74 22 2c 20 22 4c 53 49 5f 4c	y_map_list_name,."first",."LSI_L
08c0	41 54 45 58 5f 52 45 56 49 45 57 5f 4b 45 59 53 22 29 06 00 45 4e 44 49 46 3b 42 00 6b 65 79 5f	ATEX_REVIEW_KEYS")..ENDIF;B.key_
08e0	6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 6c 73 69 5f 6c	map_list_name.:=.GET_INFO.(lsi_l
0900	61 74 65 78 5f 72 65 76 5f 62 75 66 2c 20 22 6b 65 79 5f 6d 61 70 5f 6c 69 73 74 22 29 3b 3f 00	atex_rev_buf,."key_map_list");?.
0920	6b 65 79 5f 6d 61 70 5f 6e 61 6d 65 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 4b 45 59 5f 4d 41	key_map_name.:=.GET_INFO.(KEY_MA
0940	50 2c 20 22 66 69 72 73 74 22 2c 20 6b 65 79 5f 6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 29 3b 00	P,."first",.key_map_list_name);.
0960	04 00 4c 4f 4f 50 39 00 20 20 20 69 73 5f 6d 65 6d 62 65 72 20 3a 3d 20 28 6b 65 79 5f 6d 61 70	..LOOP9....is_member.:=.(key_map
0980	5f 6e 61 6d 65 20 3d 20 22 4c 53 49 5f 4c 41 54 45 58 5f 52 45 56 49 45 57 5f 4b 45 59 53 22 29	_name.=."LSI_LATEX_REVIEW_KEYS")
09a0	3b 00 14 00 20 20 20 45 58 49 54 49 46 20 69 73 5f 6d 65 6d 62 65 72 3b 41 00 20 20 20 6b 65 79	;......EXITIF.is_member;A....key
09c0	5f 6d 61 70 5f 6e 61 6d 65 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 4b 45 59 5f 4d 41 50 2c 20	_map_name.:=.GET_INFO.(KEY_MAP,.
09e0	22 6e 65 78 74 22 2c 20 6b 65 79 5f 6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 29 3b 00 1a 00 20 20	"next",.key_map_list_name);.....
0a00	20 45 58 49 54 49 46 20 6b 65 79 5f 6d 61 70 5f 6e 61 6d 65 20 3d 20 30 08 00 45 4e 44 4c 4f 4f	.EXITIF.key_map_name.=.0..ENDLOO
0a20	50 3b 10 00 49 46 20 4e 4f 54 20 69 73 5f 6d 65 6d 62 65 72 04 00 54 48 45 4e 44 00 20 20 20 41	P;..IF.NOT.is_member..THEND....A
0a40	44 44 5f 4b 45 59 5f 4d 41 50 20 28 6b 65 79 5f 6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 2c 20 22	DD_KEY_MAP.(key_map_list_name,."
0a60	66 69 72 73 74 22 2c 20 22 4c 53 49 5f 4c 41 54 45 58 5f 52 45 56 49 45 57 5f 4b 45 59 53 22 29	first",."LSI_LATEX_REVIEW_KEYS")
0a80	06 00 45 4e 44 49 46 3b 1f 00 45 4e 44 50 52 4f 43 45 44 55 52 45 20 21 20 6c 73 69 5f 6c 61 74	..ENDIF;..ENDPROCEDURE.!.lsi_lat
0aa0	65 78 5f 72 65 76 69 65 77 00 02 00 21 0c 1e 00 50 52 4f 43 45 44 55 52 45 20 6c 73 69 5f 6c 61	ex_review...!...PROCEDURE.lsi_la
0ac0	74 65 78 5f 65 6e 64 5f 72 65 76 69 65 77 18 00 4c 4f 43 41 4c 20 6b 65 79 5f 6d 61 70 5f 6c 69	tex_end_review..LOCAL.key_map_li
0ae0	73 74 5f 6e 61 6d 65 3b 00 00 08 00 4f 4e 5f 45 52 52 4f 52 20 00 20 20 20 49 46 20 65 72 72 6f	st_name;....ON_ERROR.....IF.erro
0b00	72 20 3c 3e 20 54 50 55 24 5f 4b 45 59 4d 41 50 4e 4f 54 46 4e 44 07 00 20 20 20 54 48 45 4e 00	r.<>.TPU$_KEYMAPNOTFND.....THEN.
0b20	23 00 20 20 20 20 20 20 4d 45 53 53 41 47 45 20 28 27 55 6e 65 78 70 65 63 74 65 64 20 65 72 72	#.......MESSAGE.('Unexpected.err
0b40	6f 72 27 29 3b 00 0b 00 20 20 20 20 20 20 41 42 4f 52 54 00 08 00 20 20 20 45 4e 44 49 46 0b 00	or');.........ABORT......ENDIF..
0b60	45 4e 44 4f 4e 5f 45 52 52 4f 52 00 03 00 21 2b 2b 00 47 00 21 20 20 52 65 6d 6f 76 65 20 61 6e	ENDON_ERROR...!++.G.!..Remove.an
0b80	79 20 63 75 72 72 65 6e 74 6c 79 20 68 69 67 68 6c 69 67 68 74 65 64 20 72 61 6e 67 65 73 20 62	y.currently.highlighted.ranges.b
0ba0	79 20 72 65 73 65 74 74 69 6e 67 20 74 68 65 69 72 20 70 6f 69 6e 74 65 72 73 2e 00 04 00 21 2d	y.resetting.their.pointers....!-
0bc0	2d 20 1a 00 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 6c 69 6e 65 20 3a 3d 20 30 3b 1b 00	-...lsi_latex_error_line.:=.0;..
0be0	6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 72 61 6e 67 65 20 3a 3d 20 30 3b 00 1b 00 6c 73	lsi_latex_error_range.:=.0;...ls
0c00	69 5f 6c 61 74 65 78 5f 73 6f 75 72 63 65 5f 6c 69 6e 65 20 3a 3d 20 30 3b 00 03 00 21 2b 2b 00	i_latex_source_line.:=.0;...!++.
0c20	32 00 21 20 20 52 65 73 74 6f 72 65 20 6f 6e 65 2d 77 69 6e 64 6f 77 20 6d 6f 64 65 20 66 6f 72	2.!..Restore.one-window.mode.for
0c40	20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 03 00 21 2d 2d 00 22 00 49 46 20 28	.the.current.buffer...!--.".IF.(
0c60	6c 73 65 24 6e 75 6d 62 65 72 5f 6f 66 5f 77 69 6e 64 6f 77 73 20 3e 20 31 29 20 41 4e 44 32 00	lse$number_of_windows.>.1).AND2.
0c80	20 20 20 28 47 45 54 5f 49 4e 46 4f 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 77 64 77 2c	...(GET_INFO.(lsi_latex_rev_wdw,
0ca0	20 27 74 79 70 65 27 29 20 3d 20 57 49 4e 44 4f 57 29 04 00 54 48 45 4e 13 00 20 20 20 6c 73 65	.'type').=.WINDOW)..THEN.....lse
0cc0	24 24 6f 6e 65 5f 77 69 6e 64 6f 77 3b 00 29 00 20 20 20 49 46 20 6c 73 69 5f 6c 61 74 65 78 5f	$$one_window;.)....IF.lsi_latex_
0ce0	73 72 63 5f 62 75 66 20 3c 3e 20 43 55 52 52 45 4e 54 5f 42 55 46 46 45 52 00 07 00 20 20 20 54	src_buf.<>.CURRENT_BUFFER......T
0d00	48 45 4e 00 2d 00 20 20 20 20 20 20 4d 41 50 20 28 43 55 52 52 45 4e 54 5f 57 49 4e 44 4f 57 2c	HEN.-.......MAP.(CURRENT_WINDOW,
0d20	20 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 62 75 66 29 00 09 00 20 20 20 45 4e 44 49 46 3b 00	.lsi_latex_src_buf)......ENDIF;.
0d40	27 00 20 20 20 6c 73 65 24 73 65 74 5f 73 74 61 74 75 73 5f 6c 69 6e 65 20 28 43 55 52 52 45 4e	'....lse$set_status_line.(CURREN
0d60	54 5f 57 49 4e 44 4f 57 29 00 06 00 45 4e 44 49 46 3b 03 00 21 2b 2b 00 1f 00 21 20 20 52 65 6d	T_WINDOW)...ENDIF;..!++...!..Rem
0d80	6f 76 65 20 74 68 65 20 73 70 65 63 69 61 6c 20 6b 65 79 20 6d 61 70 73 2e 00 03 00 21 2d 2d 00	ove.the.special.key.maps....!--.
0da0	42 00 6b 65 79 5f 6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20	B.key_map_list_name.:=.GET_INFO.
0dc0	28 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 2c 20 22 6b 65 79 5f 6d 61 70 5f 6c 69 73	(lsi_latex_rev_buf,."key_map_lis
0de0	74 22 29 3b 3c 00 52 45 4d 4f 56 45 5f 4b 45 59 5f 4d 41 50 20 28 6b 65 79 5f 6d 61 70 5f 6c 69	t");<.REMOVE_KEY_MAP.(key_map_li
0e00	73 74 5f 6e 61 6d 65 2c 20 22 4c 53 49 5f 4c 41 54 45 58 5f 52 45 56 49 45 57 5f 4b 45 59 53 22	st_name,."LSI_LATEX_REVIEW_KEYS"
0e20	29 3b 42 00 6b 65 79 5f 6d 61 70 5f 6c 69 73 74 5f 6e 61 6d 65 20 3a 3d 20 47 45 54 5f 49 4e 46	);B.key_map_list_name.:=.GET_INF
0e40	4f 20 28 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 62 75 66 2c 20 22 6b 65 79 5f 6d 61 70 5f 6c	O.(lsi_latex_src_buf,."key_map_l
0e60	69 73 74 22 29 3b 3c 00 52 45 4d 4f 56 45 5f 4b 45 59 5f 4d 41 50 20 28 6b 65 79 5f 6d 61 70 5f	ist");<.REMOVE_KEY_MAP.(key_map_
0e80	6c 69 73 74 5f 6e 61 6d 65 2c 20 22 4c 53 49 5f 4c 41 54 45 58 5f 52 45 56 49 45 57 5f 4b 45 59	list_name,."LSI_LATEX_REVIEW_KEY
0ea0	53 22 29 3b 03 00 21 2b 2b 00 20 00 21 20 20 44 65 61 73 73 69 67 6e 20 74 68 65 20 62 75 66 66	S");..!++...!..Deassign.the.buff
0ec0	65 72 20 70 6f 69 6e 74 65 72 73 2e 03 00 21 2d 2d 00 17 00 6c 73 69 5f 6c 61 74 65 78 5f 73 72	er.pointers...!--...lsi_latex_sr
0ee0	63 5f 62 75 66 20 3a 3d 20 30 3b 00 17 00 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 20	c_buf.:=.0;...lsi_latex_rev_buf.
0f00	3a 3d 20 30 3b 00 23 00 45 4e 44 50 52 4f 43 45 44 55 52 45 20 21 20 6c 73 69 5f 6c 61 74 65 78	:=.0;.#.ENDPROCEDURE.!.lsi_latex
0f20	5f 65 6e 64 5f 72 65 76 69 65 77 00 02 00 21 0c 22 00 50 52 4f 43 45 44 55 52 45 20 6c 73 69 5f	_end_review...!.".PROCEDURE.lsi_
0f40	6c 61 74 65 78 5f 72 65 76 69 65 77 5f 64 69 73 70 6c 61 79 00 00 03 00 21 2b 2b 00 3a 00 21 20	latex_review_display....!++.:.!.
0f60	20 44 69 73 70 6c 61 79 20 74 68 65 20 73 6f 75 72 63 65 20 26 20 72 65 76 69 65 77 20 62 75 66	.Display.the.source.&.review.buf
0f80	66 65 72 73 20 69 6e 20 74 77 6f 2d 77 69 6e 64 6f 77 20 6d 6f 64 65 2e 03 00 21 2d 2d 00 1d 00	fers.in.two-window.mode...!--...
0fa0	50 4f 53 49 54 49 4f 4e 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 29 3b 00 1c 00	POSITION.(lsi_latex_rev_buf);...
0fc0	49 46 20 6c 73 65 24 6e 75 6d 62 65 72 5f 6f 66 5f 77 69 6e 64 6f 77 73 20 3d 20 31 04 00 54 48	IF.lse$number_of_windows.=.1..TH
0fe0	45 4e 14 00 20 20 20 6c 73 65 24 24 74 77 6f 5f 77 69 6e 64 6f 77 73 3b 27 00 20 20 20 6c 73 69	EN.....lse$$two_windows;'....lsi
1000	5f 6c 61 74 65 78 5f 72 65 76 5f 77 64 77 20 3a 3d 20 6c 73 65 24 74 6f 70 5f 77 69 6e 64 6f 77	_latex_rev_wdw.:=.lse$top_window
1020	3b 00 2a 00 20 20 20 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 77 64 77 20 3a 3d 20 6c 73 65 24	;.*....lsi_latex_src_wdw.:=.lse$
1040	62 6f 74 74 6f 6d 5f 77 69 6e 64 6f 77 3b 04 00 45 4c 53 45 3d 00 20 20 20 49 46 20 6c 73 69 5f	bottom_window;..ELSE=....IF.lsi_
1060	6c 61 74 65 78 5f 73 72 63 5f 62 75 66 20 3d 20 47 45 54 5f 49 4e 46 4f 20 28 6c 73 65 24 74 6f	latex_src_buf.=.GET_INFO.(lse$to
1080	70 5f 77 69 6e 64 6f 77 2c 20 27 62 75 66 66 65 72 27 29 00 07 00 20 20 20 54 48 45 4e 00 2a 00	p_window,.'buffer')......THEN.*.
10a0	20 20 20 20 20 20 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 77 64 77 20 3a 3d 20 6c 73 65 24 74	......lsi_latex_src_wdw.:=.lse$t
10c0	6f 70 5f 77 69 6e 64 6f 77 3b 2c 00 20 20 20 20 20 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f	op_window;,.......lsi_latex_rev_
10e0	77 64 77 20 3a 3d 20 6c 73 65 24 62 6f 74 74 6f 6d 5f 77 69 6e 64 6f 77 07 00 20 20 20 45 4c 53	wdw.:=.lse$bottom_window.....ELS
1100	45 00 2d 00 20 20 20 20 20 20 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 77 64 77 20 3a 3d 20 6c	E.-.......lsi_latex_src_wdw.:=.l
1120	73 65 24 62 6f 74 74 6f 6d 5f 77 69 6e 64 6f 77 3b 00 29 00 20 20 20 20 20 20 6c 73 69 5f 6c 61	se$bottom_window;.).......lsi_la
1140	74 65 78 5f 72 65 76 5f 77 64 77 20 3a 3d 20 6c 73 65 24 74 6f 70 5f 77 69 6e 64 6f 77 00 08 00	tex_rev_wdw.:=.lse$top_window...
1160	20 20 20 45 4e 44 49 46 06 00 45 4e 44 49 46 3b 3e 00 49 46 20 6c 73 69 5f 6c 61 74 65 78 5f 73	...ENDIF..ENDIF;>.IF.lsi_latex_s
1180	72 63 5f 62 75 66 20 3c 3e 20 47 45 54 5f 49 4e 46 4f 20 28 6c 73 69 5f 6c 61 74 65 78 5f 73 72	rc_buf.<>.GET_INFO.(lsi_latex_sr
11a0	63 5f 77 64 77 2c 20 27 62 75 66 66 65 72 27 29 04 00 54 48 45 4e 2d 00 20 20 20 4d 41 50 20 28	c_wdw,.'buffer')..THEN-....MAP.(
11c0	6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 77 64 77 2c 20 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63	lsi_latex_src_wdw,.lsi_latex_src
11e0	5f 62 75 66 29 00 06 00 45 4e 44 49 46 3b 3e 00 49 46 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76	_buf)...ENDIF;>.IF.lsi_latex_rev
1200	5f 62 75 66 20 3c 3e 20 47 45 54 5f 49 4e 46 4f 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f	_buf.<>.GET_INFO.(lsi_latex_rev_
1220	77 64 77 2c 20 27 62 75 66 66 65 72 27 29 04 00 54 48 45 4e 2e 00 20 20 20 4d 41 50 20 28 6c 73	wdw,.'buffer')..THEN.....MAP.(ls
1240	69 5f 6c 61 74 65 78 5f 72 65 76 5f 77 64 77 2c 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 62	i_latex_rev_wdw,.lsi_latex_rev_b
1260	75 66 29 3b 06 00 45 4e 44 49 46 3b 28 00 6c 73 65 24 73 65 74 5f 73 74 61 74 75 73 5f 6c 69 6e	uf);..ENDIF;(.lse$set_status_lin
1280	65 20 28 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 77 64 77 29 3b 27 00 6c 73 65 24 73 65 74 5f	e.(lsi_latex_src_wdw);'.lse$set_
12a0	73 74 61 74 75 73 5f 6c 69 6e 65 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 77 64 77 29 00	status_line.(lsi_latex_rev_wdw).
12c0	27 00 45 4e 44 50 52 4f 43 45 44 55 52 45 20 21 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 69 65	'.ENDPROCEDURE.!.lsi_latex_revie
12e0	77 5f 64 69 73 70 6c 61 79 00 02 00 21 0c 1e 00 50 52 4f 43 45 44 55 52 45 20 6c 73 69 5f 6c 61	w_display...!...PROCEDURE.lsi_la
1300	74 65 78 5f 6e 65 78 74 5f 65 72 72 6f 72 00 00 03 00 21 2b 2b 00 2c 00 21 20 20 46 69 6e 64 20	tex_next_error....!++.,.!..Find.
1320	74 68 65 20 6e 65 78 74 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 72 65 76 69 65 77 20 62 75 66	the.next.error.in.the.review.buf
1340	66 65 72 2e 03 00 21 2d 2d 00 19 00 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 69 65 77 5f 64 69 73	fer...!--...lsi_latex_review_dis
1360	70 6c 61 79 3b 00 1f 00 6c 73 69 5f 6c 61 74 65 78 5f 66 69 6e 64 5f 65 72 72 6f 72 20 28 46 4f	play;...lsi_latex_find_error.(FO
1380	52 57 41 52 44 29 3b 00 1a 00 55 50 44 41 54 45 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f	RWARD);...UPDATE.(lsi_latex_rev_
13a0	77 64 77 29 23 00 45 4e 44 50 52 4f 43 45 44 55 52 45 20 21 20 6c 73 69 5f 6c 61 74 65 78 5f 6e	wdw)#.ENDPROCEDURE.!.lsi_latex_n
13c0	65 78 74 5f 65 72 72 6f 72 00 02 00 21 0c 1e 00 50 52 4f 43 45 44 55 52 45 20 6c 73 69 5f 6c 61	ext_error...!...PROCEDURE.lsi_la
13e0	74 65 78 5f 70 72 65 76 5f 65 72 72 6f 72 00 00 03 00 21 2b 2b 00 30 00 21 20 20 46 69 6e 64 20	tex_prev_error....!++.0.!..Find.
1400	74 68 65 20 70 72 65 76 69 6f 75 73 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 72 65 76 69 65 77	the.previous.error.in.the.review
1420	20 62 75 66 66 65 72 2e 03 00 21 2d 2d 00 19 00 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 69 65 77	.buffer...!--...lsi_latex_review
1440	5f 64 69 73 70 6c 61 79 3b 00 1f 00 6c 73 69 5f 6c 61 74 65 78 5f 66 69 6e 64 5f 65 72 72 6f 72	_display;...lsi_latex_find_error
1460	20 28 52 45 56 45 52 53 45 29 3b 00 1a 00 55 50 44 41 54 45 20 28 6c 73 69 5f 6c 61 74 65 78 5f	.(REVERSE);...UPDATE.(lsi_latex_
1480	72 65 76 5f 77 64 77 29 23 00 45 4e 44 50 52 4f 43 45 44 55 52 45 20 21 20 6c 73 69 5f 6c 61 74	rev_wdw)#.ENDPROCEDURE.!.lsi_lat
14a0	65 78 5f 70 72 65 76 5f 65 72 72 6f 72 00 02 00 21 0c 2a 00 50 52 4f 43 45 44 55 52 45 20 6c 73	ex_prev_error...!.*.PROCEDURE.ls
14c0	69 5f 6c 61 74 65 78 5f 66 69 6e 64 5f 65 72 72 6f 72 20 28 64 69 72 65 63 74 69 6f 6e 29 12 00	i_latex_find_error.(direction)..
14e0	4c 4f 43 41 4c 20 65 72 72 6f 72 5f 72 61 6e 67 65 2c 14 00 20 20 20 20 20 20 73 74 61 72 74 5f	LOCAL.error_range,........start_
1500	6f 66 5f 6c 69 6e 65 2c 10 00 20 20 20 20 20 20 74 68 69 73 5f 73 70 6f 74 2c 0c 00 20 20 20 20	of_line,........this_spot,......
1520	20 20 64 75 6d 6d 79 3b 00 00 08 00 4f 4e 5f 45 52 52 4f 52 1e 00 20 20 20 49 46 20 65 72 72 6f	..dummy;....ON_ERROR.....IF.erro
1540	72 20 3d 20 74 70 75 24 5f 73 74 72 6e 6f 74 66 6f 75 6e 64 07 00 20 20 20 54 48 45 4e 00 07 00	r.=.tpu$_strnotfound.....THEN...
1560	20 20 20 45 4c 53 45 00 22 00 20 20 20 20 20 20 4d 45 53 53 41 47 45 20 28 27 55 6e 65 78 70 65	...ELSE.".......MESSAGE.('Unexpe
1580	63 74 65 64 20 65 72 72 6f 72 27 29 08 00 20 20 20 45 4e 44 49 46 0c 00 45 4e 44 4f 4e 5f 45 52	cted.error').....ENDIF..ENDON_ER
15a0	52 4f 52 20 00 00 03 00 21 2b 2b 00 3c 00 21 20 20 52 65 6d 6f 76 65 20 74 68 65 20 68 69 67 68	ROR.....!++.<.!..Remove.the.high
15c0	6c 69 67 68 74 69 6e 67 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 6f 75 72 63 65 20 65	lighting.of.the.current.source.e
15e0	72 72 6f 72 20 6c 69 6e 65 2e 03 00 21 2d 2d 00 1b 00 6c 73 69 5f 6c 61 74 65 78 5f 73 6f 75 72	rror.line...!--...lsi_latex_sour
1600	63 65 5f 6c 69 6e 65 20 3a 3d 20 30 3b 00 03 00 21 2b 2b 00 35 00 21 20 20 4c 6f 6f 6b 20 66 6f	ce_line.:=.0;...!++.5.!..Look.fo
1620	72 20 74 68 65 20 6e 65 78 74 20 65 72 72 6f 72 20 66 6c 61 67 20 69 6e 20 74 68 65 20 72 65 76	r.the.next.error.flag.in.the.rev
1640	69 65 77 20 62 75 66 66 65 72 2e 00 39 00 21 20 20 53 74 61 72 74 20 62 79 20 70 6f 73 69 74 69	iew.buffer..9.!..Start.by.positi
1660	6f 6e 69 6e 67 20 6a 75 73 74 20 70 61 73 74 20 74 68 65 20 6c 61 73 74 20 65 72 72 6f 72 20 6c	oning.just.past.the.last.error.l
1680	6f 63 61 74 65 64 2e 00 03 00 21 2d 2d 00 1d 00 50 4f 53 49 54 49 4f 4e 20 28 6c 73 69 5f 6c 61	ocated....!--...POSITION.(lsi_la
16a0	74 65 78 5f 72 65 76 5f 77 64 77 29 3b 00 32 00 49 46 20 47 45 54 5f 49 4e 46 4f 20 28 6c 73 69	tex_rev_wdw);.2.IF.GET_INFO.(lsi
16c0	5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 6c 69 6e 65 2c 20 27 74 79 70 65 27 29 20 3d 20 52 41 4e	_latex_error_line,.'type').=.RAN
16e0	47 45 04 00 54 48 45 4e 1c 00 20 20 20 74 68 69 73 5f 73 70 6f 74 20 3a 3d 20 4d 41 52 4b 20 28	GE..THEN.....this_spot.:=.MARK.(
1700	4e 4f 4e 45 29 3b 35 00 20 20 20 49 46 20 74 68 69 73 5f 73 70 6f 74 20 3d 20 42 45 47 49 4e 4e	NONE);5....IF.this_spot.=.BEGINN
1720	49 4e 47 5f 4f 46 20 28 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 6c 69 6e 65 29 00 07 00	ING_OF.(lsi_latex_error_line)...
1740	20 20 20 54 48 45 4e 00 1c 00 20 20 20 20 20 20 49 46 20 64 69 72 65 63 74 69 6f 6e 20 3d 20 46	...THEN.........IF.direction.=.F
1760	4f 52 57 41 52 44 0a 00 20 20 20 20 20 20 54 48 45 4e 13 00 09 20 4d 4f 56 45 5f 56 45 52 54 49	ORWARD........THEN....MOVE_VERTI
1780	43 41 4c 20 28 31 29 00 0a 00 20 20 20 20 20 20 45 4c 53 45 16 00 09 20 4d 4f 56 45 5f 48 4f 52	CAL.(1).........ELSE....MOVE_HOR
17a0	49 5a 4f 4e 54 41 4c 20 28 2d 31 29 0b 00 20 20 20 20 20 20 45 4e 44 49 46 00 08 00 20 20 20 45	IZONTAL.(-1)........ENDIF......E
17c0	4e 44 49 46 06 00 45 4e 44 49 46 3b 03 00 21 2b 2b 00 26 00 21 20 20 4c 6f 6f 6b 20 66 6f 72 20	NDIF..ENDIF;..!++.&.!..Look.for.
17e0	74 68 65 20 73 70 65 63 69 61 6c 20 65 72 72 6f 72 20 70 61 74 74 65 72 6e 2e 03 00 21 2d 2d 00	the.special.error.pattern...!--.
1800	23 00 65 72 72 6f 72 5f 72 61 6e 67 65 20 3a 3d 20 53 45 41 52 43 48 20 28 4c 49 4e 45 5f 42 45	#.error_range.:=.SEARCH.(LINE_BE
1820	47 49 4e 20 26 00 04 00 20 20 20 28 30 00 20 20 20 20 20 20 28 27 27 20 26 20 28 27 4f 76 65 72	GIN.&......(0.......(''.&.('Over
1840	27 20 7c 20 27 55 6e 64 65 72 27 29 20 26 20 27 66 75 6c 6c 20 5c 68 62 6f 78 27 29 20 7c 0b 00	'.|.'Under').&.'full.\hbox').|..
1860	20 20 20 20 20 20 28 27 21 27 29 00 18 00 20 20 20 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 45	......('!')......),.direction,.E
1880	58 41 43 54 29 3b 20 00 21 20 20 20 28 27 6c 2e 27 20 26 20 53 50 41 4e 20 28 27 30 31 32 33 34	XACT);..!...('l.'.&.SPAN.('01234
18a0	35 36 37 38 39 27 29 29 19 00 21 20 20 20 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 45 58 41 43	56789'))..!...),.direction,.EXAC
18c0	54 29 3b 00 12 00 49 46 20 65 72 72 6f 72 5f 72 61 6e 67 65 20 3d 20 30 04 00 54 48 45 4e 18 00	T);...IF.error_range.=.0..THEN..
18e0	20 20 20 50 4f 53 49 54 49 4f 4e 20 28 74 68 69 73 5f 73 70 6f 74 29 3b 1e 00 20 20 20 4d 45 53	...POSITION.(this_spot);.....MES
1900	53 41 47 45 20 28 27 4e 6f 20 6d 6f 72 65 20 65 72 72 6f 72 73 27 29 3b 09 00 20 20 20 52 45 54	SAGE.('No.more.errors');.....RET
1920	55 52 4e 00 06 00 45 4e 44 49 46 3b 03 00 21 2b 2b 00 4b 00 21 20 20 53 61 76 65 20 74 68 65 20	URN...ENDIF;..!++.K.!..Save.the.
1940	65 72 72 6f 72 20 70 61 74 74 65 72 6e 20 72 61 6e 67 65 20 61 6e 64 20 74 68 65 20 63 75 72 72	error.pattern.range.and.the.curr
1960	65 6e 74 20 64 69 72 65 63 74 69 6f 6e 20 66 6f 72 20 6c 61 74 65 72 20 75 73 65 20 28 69 6e 00	ent.direction.for.later.use.(in.
1980	1b 00 21 20 20 6c 73 69 5f 6c 61 74 65 78 5f 66 69 6e 64 5f 73 6f 75 72 63 65 29 2e 20 00 03 00	..!..lsi_latex_find_source).....
19a0	21 2d 2d 00 25 00 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 72 61 6e 67 65 20 3a 3d 20 65	!--.%.lsi_latex_error_range.:=.e
19c0	72 72 6f 72 5f 72 61 6e 67 65 3b 00 23 00 53 45 54 20 28 64 69 72 65 63 74 69 6f 6e 2c 20 6c 73	rror_range;.#.SET.(direction,.ls
19e0	69 5f 6c 61 74 65 78 5f 72 65 76 5f 62 75 66 29 3b 00 30 00 50 4f 53 49 54 49 4f 4e 20 28 42 45	i_latex_rev_buf);.0.POSITION.(BE
1a00	47 49 4e 4e 49 4e 47 5f 4f 46 20 28 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 72 61 6e 67	GINNING_OF.(lsi_latex_error_rang
1a20	65 29 29 3b 03 00 21 2b 2b 00 3f 00 21 20 20 52 65 6d 6f 76 65 20 74 68 65 20 68 69 67 68 6c 69	e));..!++.?.!..Remove.the.highli
1a40	67 68 74 69 6e 67 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 6f 75 72 63 65 20 65 72 72	ghting.of.the.current.source.err
1a60	6f 72 20 6c 69 6e 65 20 61 6e 64 00 1c 00 21 20 20 68 69 67 68 6c 69 67 68 74 20 74 68 65 20 65	or.line.and...!..highlight.the.e
1a80	72 72 6f 72 20 6c 69 6e 65 2e 03 00 21 2d 2d 00 22 00 4d 4f 56 45 5f 48 4f 52 49 5a 4f 4e 54 41	rror.line...!--.".MOVE_HORIZONTA
1aa0	4c 20 28 2d 43 55 52 52 45 4e 54 5f 4f 46 46 53 45 54 29 3b 1d 00 73 74 61 72 74 5f 6f 66 5f 6c	L.(-CURRENT_OFFSET);..start_of_l
1ac0	69 6e 65 20 3a 3d 20 4d 41 52 4b 20 28 4e 4f 4e 45 29 3b 00 2c 00 4d 4f 56 45 5f 48 4f 52 49 5a	ine.:=.MARK.(NONE);.,.MOVE_HORIZ
1ae0	4f 4e 54 41 4c 20 28 4c 45 4e 47 54 48 20 28 43 55 52 52 45 4e 54 5f 4c 49 4e 45 29 20 2d 20 31	ONTAL.(LENGTH.(CURRENT_LINE).-.1
1b00	29 3b 4b 00 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 6c 69 6e 65 20 3a 3d 20 43 52 45 41	);K.lsi_latex_error_line.:=.CREA
1b20	54 45 5f 52 41 4e 47 45 20 28 73 74 61 72 74 5f 6f 66 5f 6c 69 6e 65 2c 20 4d 41 52 4b 20 28 4e	TE_RANGE.(start_of_line,.MARK.(N
1b40	4f 4e 45 29 2c 20 52 45 56 45 52 53 45 29 3b 00 2f 00 50 4f 53 49 54 49 4f 4e 20 28 42 45 47 49	ONE),.REVERSE);./.POSITION.(BEGI
1b60	4e 4e 49 4e 47 5f 4f 46 20 28 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 6c 69 6e 65 29 29	NNING_OF.(lsi_latex_error_line))
1b80	3b 00 23 00 45 4e 44 50 52 4f 43 45 44 55 52 45 20 21 20 6c 73 69 5f 6c 61 74 65 78 5f 66 69 6e	;.#.ENDPROCEDURE.!.lsi_latex_fin
1ba0	64 5f 65 72 72 6f 72 00 02 00 21 0c 1f 00 50 52 4f 43 45 44 55 52 45 20 6c 73 69 5f 6c 61 74 65	d_error...!...PROCEDURE.lsi_late
1bc0	78 5f 66 69 6e 64 5f 73 6f 75 72 63 65 00 14 00 4c 4f 43 41 4c 20 6c 69 6e 65 5f 6e 6f 5f 72 61	x_find_source...LOCAL.line_no_ra
1be0	6e 67 65 2c 14 00 20 20 20 20 20 20 73 74 61 72 74 5f 6c 69 6e 65 5f 6e 6f 2c 12 00 20 20 20 20	nge,........start_line_no,......
1c00	20 20 65 6e 64 5f 6c 69 6e 65 5f 6e 6f 2c 14 00 20 20 20 20 20 20 65 72 72 6f 72 5f 6c 69 6e 65	..end_line_no,........error_line
1c20	5f 6e 6f 2c 14 00 20 20 20 20 20 20 73 74 61 72 74 5f 6f 66 5f 6c 69 6e 65 2c 0f 00 20 20 20 20	_no,........start_of_line,......
1c40	20 20 73 72 63 5f 73 70 6f 74 3b 00 00 00 08 00 4f 4e 5f 45 52 52 4f 52 1e 00 20 20 20 49 46 20	..src_spot;.....ON_ERROR.....IF.
1c60	65 72 72 6f 72 20 3d 20 74 70 75 24 5f 73 74 72 6e 6f 74 66 6f 75 6e 64 07 00 20 20 20 54 48 45	error.=.tpu$_strnotfound.....THE
1c80	4e 00 07 00 20 20 20 45 4c 53 45 00 22 00 20 20 20 20 20 20 4d 45 53 53 41 47 45 20 28 27 55 6e	N......ELSE.".......MESSAGE.('Un
1ca0	65 78 70 65 63 74 65 64 20 65 72 72 6f 72 27 29 08 00 20 20 20 45 4e 44 49 46 0c 00 45 4e 44 4f	expected.error').....ENDIF..ENDO
1cc0	4e 5f 45 52 52 4f 52 20 00 00 19 00 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 69 65 77 5f 64 69 73	N_ERROR.....lsi_latex_review_dis
1ce0	70 6c 61 79 3b 00 03 00 21 2b 2b 00 43 00 21 20 20 46 69 6e 64 20 74 68 65 20 73 74 61 72 74 69	play;...!++.C.!..Find.the.starti
1d00	6e 67 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74	ng.line.number.associated.with.t
1d20	68 65 20 63 75 72 72 65 6e 74 20 65 72 72 6f 72 2e 00 03 00 21 2d 2d 00 34 00 49 46 20 47 45 54	he.current.error....!--.4.IF.GET
1d40	5f 49 4e 46 4f 20 28 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 72 61 6e 67 65 2c 20 27 74	_INFO.(lsi_latex_error_range,.'t
1d60	79 70 65 27 29 20 3c 3e 20 52 41 4e 47 45 04 00 54 48 45 4e 20 00 20 20 20 4d 45 53 53 41 47 45	ype').<>.RANGE..THEN.....MESSAGE
1d80	20 28 27 4e 6f 20 63 75 72 72 65 6e 74 20 65 72 72 6f 72 27 29 3b 08 00 20 20 20 41 42 4f 52 54	.('No.current.error');.....ABORT
1da0	06 00 45 4e 44 49 46 3b 30 00 50 4f 53 49 54 49 4f 4e 20 28 42 45 47 49 4e 4e 49 4e 47 5f 4f 46	..ENDIF;0.POSITION.(BEGINNING_OF
1dc0	20 28 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 72 61 6e 67 65 29 29 3b 2e 00 49 46 20 53	.(lsi_latex_error_range));..IF.S
1de0	55 42 53 54 52 20 28 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 72 61 6e 67 65 2c 20 31 2c	UBSTR.(lsi_latex_error_range,.1,
1e00	20 31 29 20 3c 3e 20 27 21 27 04 00 54 48 45 4e 4f 00 20 20 20 65 72 72 6f 72 5f 6c 69 6e 65 5f	.1).<>.'!'..THENO....error_line_
1e20	6e 6f 20 3a 3d 20 53 45 41 52 43 48 20 28 27 61 74 20 6c 69 6e 65 73 20 27 20 26 20 53 50 41 4e	no.:=.SEARCH.('at.lines.'.&.SPAN
1e40	20 28 27 30 31 32 33 34 35 36 37 38 39 27 29 2c 20 46 4f 52 57 41 52 44 2c 20 45 58 41 43 54 29	.('0123456789'),.FORWARD,.EXACT)
1e60	3b 00 04 00 45 4c 53 45 15 00 20 20 20 4d 4f 56 45 5f 56 45 52 54 49 43 41 4c 20 28 31 29 3b 00	;...ELSE.....MOVE_VERTICAL.(1);.
1e80	44 00 20 20 20 65 72 72 6f 72 5f 6c 69 6e 65 5f 6e 6f 20 3a 3d 20 53 45 41 52 43 48 20 28 4c 49	D....error_line_no.:=.SEARCH.(LI
1ea0	4e 45 5f 42 45 47 49 4e 20 26 20 27 6c 2e 27 20 26 20 53 50 41 4e 20 28 27 30 31 32 33 34 35 36	NE_BEGIN.&.'l.'.&.SPAN.('0123456
1ec0	37 38 39 27 29 2c 15 00 20 20 20 20 20 20 46 4f 52 57 41 52 44 2c 20 45 58 41 43 54 29 00 06 00	789'),........FORWARD,.EXACT)...
1ee0	45 4e 44 49 46 3b 14 00 49 46 20 65 72 72 6f 72 5f 6c 69 6e 65 5f 6e 6f 20 3d 20 30 04 00 54 48	ENDIF;..IF.error_line_no.=.0..TH
1f00	45 4e 33 00 20 20 20 50 4f 53 49 54 49 4f 4e 20 28 42 45 47 49 4e 4e 49 4e 47 5f 4f 46 20 28 6c	EN3....POSITION.(BEGINNING_OF.(l
1f20	73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 72 61 6e 67 65 29 29 3b 00 39 00 20 20 20 4d 45 53	si_latex_error_range));.9....MES
1f40	53 41 47 45 20 28 27 4e 6f 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 61 73 73 6f 63 69 61 74 65 64	SAGE.('No.line.number.associated
1f60	20 77 69 74 68 20 74 68 69 73 20 65 72 72 6f 72 27 29 3b 00 08 00 20 20 20 41 42 4f 52 54 06 00	.with.this.error');......ABORT..
1f80	45 4e 44 49 46 3b 28 00 50 4f 53 49 54 49 4f 4e 20 28 42 45 47 49 4e 4e 49 4e 47 5f 4f 46 20 28	ENDIF;(.POSITION.(BEGINNING_OF.(
1fa0	65 72 72 6f 72 5f 6c 69 6e 65 5f 6e 6f 29 29 3b 37 00 6c 69 6e 65 5f 6e 6f 5f 72 61 6e 67 65 20	error_line_no));7.line_no_range.
1fc0	3a 3d 20 53 45 41 52 43 48 20 28 53 50 41 4e 20 28 27 30 31 32 33 34 35 36 37 38 39 27 29 2c 20	:=.SEARCH.(SPAN.('0123456789'),.
1fe0	46 4f 52 57 41 52 44 29 3b 00 43 00 73 74 61 72 74 5f 6c 69 6e 65 5f 6e 6f 20 3a 3d 20 53 55 42	FORWARD);.C.start_line_no.:=.SUB
2000	53 54 52 20 28 6c 69 6e 65 5f 6e 6f 5f 72 61 6e 67 65 2c 20 31 2c 20 4c 45 4e 47 54 48 20 28 6c	STR.(line_no_range,.1,.LENGTH.(l
2020	69 6e 65 5f 6e 6f 5f 72 61 6e 67 65 29 29 3b 00 03 00 21 2b 2b 00 39 00 21 20 20 50 6f 73 69 74	ine_no_range));...!++.9.!..Posit
2040	69 6f 6e 20 74 6f 20 74 68 65 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 75 73 65 64 20 69 6e 20 74	ion.to.the.line.number.used.in.t
2060	68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 00 03 00 21 2d 2d 00 1d 00 50 4f 53 49 54 49	he.error.message....!--...POSITI
2080	4f 4e 20 28 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 62 75 66 29 3b 00 27 00 6c 73 69 5f 67 6f	ON.(lsi_latex_src_buf);.'.lsi_go
20a0	74 6f 5f 6c 69 6e 65 5f 64 69 73 70 61 74 63 68 20 28 73 74 61 72 74 5f 6c 69 6e 65 5f 6e 6f 29	to_line_dispatch.(start_line_no)
20c0	3b 00 03 00 21 2b 2b 00 23 00 21 20 20 48 69 67 68 6c 69 67 68 74 20 74 68 65 20 73 6f 75 72 63	;...!++.#.!..Highlight.the.sourc
20e0	65 20 65 72 72 6f 72 20 6c 69 6e 65 2e 00 03 00 21 2d 2d 00 22 00 4d 4f 56 45 5f 48 4f 52 49 5a	e.error.line....!--.".MOVE_HORIZ
2100	4f 4e 54 41 4c 20 28 2d 43 55 52 52 45 4e 54 5f 4f 46 46 53 45 54 29 3b 1d 00 73 74 61 72 74 5f	ONTAL.(-CURRENT_OFFSET);..start_
2120	6f 66 5f 6c 69 6e 65 20 3a 3d 20 4d 41 52 4b 20 28 4e 4f 4e 45 29 3b 00 2e 00 49 46 20 53 55 42	of_line.:=.MARK.(NONE);...IF.SUB
2140	53 54 52 20 28 6c 73 69 5f 6c 61 74 65 78 5f 65 72 72 6f 72 5f 72 61 6e 67 65 2c 20 31 2c 20 31	STR.(lsi_latex_error_range,.1,.1
2160	29 20 3c 3e 20 27 21 27 04 00 54 48 45 4e 25 00 20 20 20 50 4f 53 49 54 49 4f 4e 20 28 45 4e 44	).<>.'!'..THEN%....POSITION.(END
2180	5f 4f 46 20 28 6c 69 6e 65 5f 6e 6f 5f 72 61 6e 67 65 29 29 3b 00 17 00 20 20 20 4d 4f 56 45 5f	_OF.(line_no_range));......MOVE_
21a0	48 4f 52 49 5a 4f 4e 54 41 4c 20 28 31 29 3b 00 3a 00 20 20 20 6c 69 6e 65 5f 6e 6f 5f 72 61 6e	HORIZONTAL.(1);.:....line_no_ran
21c0	67 65 20 3a 3d 20 53 45 41 52 43 48 20 28 53 50 41 4e 20 28 27 30 31 32 33 34 35 36 37 38 39 27	ge.:=.SEARCH.(SPAN.('0123456789'
21e0	29 2c 20 46 4f 52 57 41 52 44 29 3b 44 00 20 20 20 65 6e 64 5f 6c 69 6e 65 5f 6e 6f 20 3a 3d 20	),.FORWARD);D....end_line_no.:=.
2200	53 55 42 53 54 52 20 28 6c 69 6e 65 5f 6e 6f 5f 72 61 6e 67 65 2c 20 31 2c 20 4c 45 4e 47 54 48	SUBSTR.(line_no_range,.1,.LENGTH
2220	20 28 6c 69 6e 65 5f 6e 6f 5f 72 61 6e 67 65 29 29 3b 1c 00 20 20 20 50 4f 53 49 54 49 4f 4e 20	.(line_no_range));.....POSITION.
2240	28 73 74 61 72 74 5f 6f 66 5f 6c 69 6e 65 29 3b 28 00 20 20 20 6c 73 69 5f 67 6f 74 6f 5f 6c 69	(start_of_line);(....lsi_goto_li
2260	6e 65 5f 64 69 73 70 61 74 63 68 20 28 65 6e 64 5f 6c 69 6e 65 5f 6e 6f 29 3b 06 00 45 4e 44 49	ne_dispatch.(end_line_no);..ENDI
2280	46 3b 28 00 4d 4f 56 45 5f 48 4f 52 49 5a 4f 4e 54 41 4c 20 28 4c 45 4e 47 54 48 20 28 43 55 52	F;(.MOVE_HORIZONTAL.(LENGTH.(CUR
22a0	52 45 4e 54 5f 4c 49 4e 45 29 29 3b 4c 00 6c 73 69 5f 6c 61 74 65 78 5f 73 6f 75 72 63 65 5f 6c	RENT_LINE));L.lsi_latex_source_l
22c0	69 6e 65 20 3a 3d 20 43 52 45 41 54 45 5f 52 41 4e 47 45 20 28 73 74 61 72 74 5f 6f 66 5f 6c 69	ine.:=.CREATE_RANGE.(start_of_li
22e0	6e 65 2c 20 4d 41 52 4b 20 28 4e 4f 4e 45 29 2c 20 52 45 56 45 52 53 45 29 3b 03 00 21 2b 2b 00	ne,.MARK.(NONE),.REVERSE);..!++.
2300	12 00 21 20 20 55 70 64 61 74 65 20 64 69 73 70 6c 61 79 2e 03 00 21 2d 2d 00 1d 00 50 4f 53 49	..!..Update.display...!--...POSI
2320	54 49 4f 4e 20 28 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 5f 77 64 77 29 3b 00 2f 00 50 4f 53 49	TION.(lsi_latex_rev_wdw);./.POSI
2340	54 49 4f 4e 20 28 42 45 47 49 4e 4e 49 4e 47 5f 4f 46 20 28 6c 73 69 5f 6c 61 74 65 78 5f 65 72	TION.(BEGINNING_OF.(lsi_latex_er
2360	72 6f 72 5f 6c 69 6e 65 29 29 3b 00 1d 00 50 4f 53 49 54 49 4f 4e 20 28 6c 73 69 5f 6c 61 74 65	ror_line));...POSITION.(lsi_late
2380	78 5f 73 72 63 5f 77 64 77 29 3b 00 30 00 50 4f 53 49 54 49 4f 4e 20 28 42 45 47 49 4e 4e 49 4e	x_src_wdw);.0.POSITION.(BEGINNIN
23a0	47 5f 4f 46 20 28 6c 73 69 5f 6c 61 74 65 78 5f 73 6f 75 72 63 65 5f 6c 69 6e 65 29 29 3b 1a 00	G_OF.(lsi_latex_source_line));..
23c0	55 50 44 41 54 45 20 28 6c 73 69 5f 6c 61 74 65 78 5f 73 72 63 5f 77 64 77 29 24 00 45 4e 44 50	UPDATE.(lsi_latex_src_wdw)$.ENDP
23e0	52 4f 43 45 44 55 52 45 20 21 20 6c 73 69 5f 6c 61 74 65 78 5f 66 69 6e 64 5f 73 6f 75 72 63 65	ROCEDURE.!.lsi_latex_find_source
2400	02 00 21 0c 1f 00 50 52 4f 43 45 44 55 52 45 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 69 65 77	..!...PROCEDURE.lsi_latex_review
2420	5f 6b 65 79 73 00 00 00 29 00 43 52 45 41 54 45 5f 4b 45 59 5f 4d 41 50 20 28 27 4c 53 49 5f 4c	_keys...).CREATE_KEY_MAP.('LSI_L
2440	41 54 45 58 5f 52 45 56 49 45 57 5f 4b 45 59 53 27 29 3b 00 3e 00 44 45 46 49 4e 45 5f 4b 45 59	ATEX_REVIEW_KEYS');.>.DEFINE_KEY
2460	20 28 27 6c 73 69 5f 6c 61 74 65 78 5f 6e 65 78 74 5f 65 72 72 6f 72 27 2c 20 43 54 52 4c 5f 46	.('lsi_latex_next_error',.CTRL_F
2480	5f 4b 45 59 2c 20 27 4e 65 78 74 20 65 72 72 6f 72 27 2c 20 1c 00 20 20 20 27 4c 53 49 5f 4c 41	_KEY,.'Next.error',......'LSI_LA
24a0	54 45 58 5f 52 45 56 49 45 57 5f 4b 45 59 53 27 29 3b 3d 00 44 45 46 49 4e 45 5f 4b 45 59 20 28	TEX_REVIEW_KEYS');=.DEFINE_KEY.(
24c0	27 6c 73 69 5f 6c 61 74 65 78 5f 70 72 65 76 5f 65 72 72 6f 72 27 2c 20 43 54 52 4c 5f 42 5f 4b	'lsi_latex_prev_error',.CTRL_B_K
24e0	45 59 2c 20 27 50 72 65 76 20 65 72 72 6f 72 27 2c 00 1c 00 20 20 20 27 4c 53 49 5f 4c 41 54 45	EY,.'Prev.error',......'LSI_LATE
2500	58 5f 52 45 56 49 45 57 5f 4b 45 59 53 27 29 3b 3f 00 44 45 46 49 4e 45 5f 4b 45 59 20 28 27 6c	X_REVIEW_KEYS');?.DEFINE_KEY.('l
2520	73 69 5f 6c 61 74 65 78 5f 66 69 6e 64 5f 73 6f 75 72 63 65 27 2c 20 43 54 52 4c 5f 47 5f 4b 45	si_latex_find_source',.CTRL_G_KE
2540	59 2c 20 27 47 6f 74 6f 20 73 6f 75 72 63 65 27 2c 00 1c 00 20 20 20 27 4c 53 49 5f 4c 41 54 45	Y,.'Goto.source',......'LSI_LATE
2560	58 5f 52 45 56 49 45 57 5f 4b 45 59 53 27 29 3b 3e 00 44 45 46 49 4e 45 5f 4b 45 59 20 28 27 6c	X_REVIEW_KEYS');>.DEFINE_KEY.('l
2580	73 69 5f 6c 61 74 65 78 5f 65 6e 64 5f 72 65 76 69 65 77 27 2c 20 4b 45 59 5f 4e 41 4d 45 20 28	si_latex_end_review',.KEY_NAME.(
25a0	27 45 27 2c 20 53 48 49 46 54 5f 4b 45 59 29 2c 29 00 20 20 20 27 45 6e 64 20 72 65 76 69 65 77	'E',.SHIFT_KEY),)....'End.review
25c0	27 2c 20 27 4c 53 49 5f 4c 41 54 45 58 5f 52 45 56 49 45 57 5f 4b 45 59 53 27 29 00 24 00 45 4e	',.'LSI_LATEX_REVIEW_KEYS').$.EN
25e0	44 50 52 4f 43 45 44 55 52 45 20 21 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 69 65 77 5f 6b 65	DPROCEDURE.!.lsi_latex_review_ke
2600	79 73 2b 00 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 69 65 77 5f 6b 65 79 73 3b 09 21 20 49 6e 69	ys+.lsi_latex_review_keys;.!.Ini
2620	74 69 61 6c 69 7a 65 20 6b 65 79 20 6d 61 70 00	tialize.key.map.