summaryrefslogtreecommitdiff
path: root/support/lsedit/review/latex_review.tpu
blob: 7d6644ebd3ccca77b65150ce9497cc2c8b1ca694 (plain)
ofshex dumpascii
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.