summaryrefslogtreecommitdiff
path: root/support/lsedit/review/compile.tpu
blob: 3ba21edba220a8d4d15b99e6141d7cb29d02a8fd (plain)
ofshex dumpascii
0000 15 00 50 52 4f 43 45 44 55 52 45 20 6c 73 69 5f 63 6f 6d 70 69 6c 65 00 01 00 20 00 2b 00 4c 4f ..PROCEDURE.lsi_compile.....+.LO
0020 43 41 4c 20 63 6f 6d 70 69 6c 65 5f 73 74 72 69 6e 67 2c 09 09 21 20 44 43 4c 20 63 6f 6d 6d 61 CAL.compile_string,..!.DCL.comma
0040 6e 64 20 73 74 72 69 6e 67 00 40 00 20 20 20 20 20 20 64 69 61 67 5f 66 69 6c 65 2c 09 09 21 20 nd.string.@.......diag_file,..!.
0060 44 49 41 47 20 66 69 6c 65 6e 61 6d 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 63 75 DIAG.filename.associated.with.cu
0080 72 72 65 6e 74 20 62 75 66 66 65 72 29 00 20 20 20 20 20 20 62 75 66 5f 6e 61 6d 65 2c 09 09 09 rrent.buffer).......buf_name,...
00a0 21 20 43 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 6e 61 6d 65 00 36 00 20 20 20 20 20 20 !.Current.buffer's.name.6.......
00c0 6c 69 6e 65 5f 63 6f 75 6e 74 2c 09 09 21 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 74 line_count,..!.number.of.lines.t
00e0 6f 20 73 61 76 65 64 20 70 6f 73 69 74 69 6f 6e 43 00 20 20 20 20 20 20 73 61 76 65 5f 6f 66 66 o.saved.positionC.......save_off
0100 73 65 74 2c 09 09 21 20 73 61 76 65 64 20 63 68 61 72 61 63 74 65 72 20 6f 66 66 73 65 74 20 66 set,..!.saved.character.offset.f
0120 6f 72 20 72 65 73 74 6f 72 69 6e 67 20 70 6f 73 69 74 69 6f 6e 00 20 00 20 20 20 20 20 20 73 61 or.restoring.position.........sa
0140 76 65 5f 73 70 6f 74 2c 09 09 21 20 6c 6f 63 61 6c 20 6d 61 72 6b 65 72 24 00 20 20 20 20 20 20 ve_spot,..!.local.marker$.......
0160 74 68 69 73 5f 62 75 66 66 65 72 2c 09 09 21 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 28 00 this_buffer,..!.current.buffer(.
0180 20 20 20 20 20 20 74 68 69 73 5f 70 6f 73 69 74 69 6f 6e 2c 09 09 21 20 63 75 72 72 65 6e 74 20 ......this_position,..!.current.
01a0 70 6f 73 69 74 69 6f 6e 40 00 20 20 20 20 20 20 75 6e 73 75 70 70 6f 72 74 65 64 2c 09 09 21 20 position@.......unsupported,..!.
01c0 69 6e 64 69 63 61 74 65 73 20 69 66 20 6c 61 6e 67 75 61 67 65 20 73 75 70 70 6f 72 74 73 20 64 indicates.if.language.supports.d
01e0 69 61 67 6e 6f 73 74 69 63 73 44 00 20 20 20 20 20 20 66 75 6c 6c 5f 66 69 6c 65 6e 61 6d 65 2c iagnosticsD.......full_filename,
0200 09 09 21 20 66 75 6c 6c 20 66 69 6c 65 6e 61 6d 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 ..!.full.filename.associated.wit
0220 68 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2f 00 20 20 20 20 20 20 64 65 76 2c 20 64 69 72 h.current.buffer/.......dev,.dir
0240 2c 20 66 69 6c 65 2c 20 65 78 74 2c 09 21 20 50 61 72 74 73 20 6f 66 20 66 69 6c 65 20 73 70 65 ,.file,.ext,.!.Parts.of.file.spe
0260 63 00 3d 00 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 2c 09 20 20 09 09 21 20 66 69 6c 65 6e 61 c.=.......filename,.....!.filena
0280 6d 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 me.associated.with.current.buffe
02a0 72 00 44 00 20 20 20 20 20 20 6f 6c 64 5f 74 69 6d 65 72 5f 6d 73 67 3b 09 20 20 20 20 20 20 20 r.D.......old_timer_msg;........
02c0 20 21 20 4f 6c 64 20 6d 65 73 73 61 67 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 54 .!.Old.message.associated.with.T
02e0 50 55 20 74 69 6d 65 72 01 00 20 00 0b 00 20 20 20 6f 6e 5f 65 72 72 6f 72 00 26 00 20 20 20 20 PU.timer.........on_error.&.....
0300 20 20 20 69 66 20 65 72 72 6f 72 20 3d 20 74 70 75 24 5f 63 72 65 61 74 65 66 61 69 6c 20 74 68 ...if.error.=.tpu$_createfail.th
0320 65 6e 3b 00 20 20 20 09 20 20 20 6d 65 73 73 61 67 65 20 28 22 63 6f 6d 70 69 6c 65 20 73 75 62 en;........message.("compile.sub
0340 70 72 6f 63 65 73 73 20 63 6f 75 6c 64 20 6e 6f 74 20 62 65 20 63 72 65 61 74 65 64 22 29 3b 00 process.could.not.be.created");.
0360 0f 00 09 20 20 20 72 65 74 75 72 6e 20 28 30 29 3b 00 0d 00 20 20 20 20 20 20 20 65 6e 64 69 66 ......return.(0);..........endif
0380 3b 00 0f 00 20 20 20 65 6e 64 6f 6e 5f 65 72 72 6f 72 3b 00 02 00 21 2b 1b 00 21 20 20 20 20 20 ;......endon_error;...!+..!.....
03a0 53 61 76 65 20 63 75 72 72 65 6e 74 20 70 6f 73 69 74 69 6f 6e 00 02 00 21 2d 21 00 20 20 20 74 Save.current.position...!-!....t
03c0 68 69 73 5f 62 75 66 66 65 72 20 3a 3d 20 63 75 72 72 65 6e 74 5f 62 75 66 66 65 72 3b 00 1f 00 his_buffer.:=.current_buffer;...
03e0 20 20 20 74 68 69 73 5f 70 6f 73 69 74 69 6f 6e 20 3a 3d 20 4d 41 52 4b 28 4e 4f 4e 45 29 3b 00 ...this_position.:=.MARK(NONE);.
0400 33 00 20 20 20 73 61 76 65 5f 6f 66 66 73 65 74 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 74 68 3....save_offset.:=.GET_INFO.(th
0420 69 73 5f 62 75 66 66 65 72 2c 20 22 6f 66 66 73 65 74 22 29 3b 00 29 00 20 20 20 50 4f 53 49 54 is_buffer,."offset");.)....POSIT
0440 49 4f 4e 20 28 42 45 47 49 4e 4e 49 4e 47 5f 4f 46 20 28 74 68 69 73 5f 62 75 66 66 65 72 29 29 ION.(BEGINNING_OF.(this_buffer))
0460 3b 00 13 00 20 20 20 6c 69 6e 65 5f 63 6f 75 6e 74 20 3a 3d 20 30 3b 00 07 00 20 20 20 4c 4f 4f ;......line_count.:=.0;......LOO
0480 50 00 29 00 20 20 20 20 20 20 45 58 49 54 49 46 20 4d 41 52 4b 28 4e 4f 4e 45 29 20 3e 3d 20 74 P.).......EXITIF.MARK(NONE).>=.t
04a0 68 69 73 5f 70 6f 73 69 74 69 6f 6e 3b 00 19 00 20 20 20 20 20 20 4d 4f 56 45 5f 56 45 52 54 49 his_position;.........MOVE_VERTI
04c0 43 41 4c 20 28 31 30 29 3b 00 23 00 20 20 20 20 20 20 6c 69 6e 65 5f 63 6f 75 6e 74 20 3a 3d 20 CAL.(10);.#.......line_count.:=.
04e0 6c 69 6e 65 5f 63 6f 75 6e 74 20 2b 20 31 30 00 0b 00 20 20 20 45 4e 44 4c 4f 4f 50 3b 00 3d 00 line_count.+.10......ENDLOOP;.=.
0500 20 20 20 49 46 20 6c 69 6e 65 5f 63 6f 75 6e 74 20 3e 20 47 45 54 5f 49 4e 46 4f 20 28 74 68 69 ...IF.line_count.>.GET_INFO.(thi
0520 73 5f 62 75 66 66 65 72 2c 22 72 65 63 6f 72 64 5f 63 6f 75 6e 74 22 29 20 54 48 45 4e 00 39 00 s_buffer,"record_count").THEN.9.
0540 20 20 20 20 20 20 6c 69 6e 65 5f 63 6f 75 6e 74 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 74 68 ......line_count.:=.GET_INFO.(th
0560 69 73 5f 62 75 66 66 65 72 2c 22 72 65 63 6f 72 64 5f 63 6f 75 6e 74 22 29 00 09 00 20 20 20 45 is_buffer,"record_count")......E
0580 4e 44 49 46 3b 00 07 00 20 20 20 4c 4f 4f 50 00 29 00 20 20 20 20 20 20 45 58 49 54 49 46 20 4d NDIF;......LOOP.).......EXITIF.M
05a0 41 52 4b 28 4e 4f 4e 45 29 20 3c 3d 20 74 68 69 73 5f 70 6f 73 69 74 69 6f 6e 3b 00 19 00 20 20 ARK(NONE).<=.this_position;.....
05c0 20 20 20 20 4d 4f 56 45 5f 56 45 52 54 49 43 41 4c 20 28 2d 31 29 3b 00 21 00 20 20 20 20 20 20 ....MOVE_VERTICAL.(-1);.!.......
05e0 6c 69 6e 65 5f 63 6f 75 6e 74 20 3a 3d 20 6c 69 6e 65 5f 63 6f 75 6e 74 20 2d 31 00 0b 00 20 20 line_count.:=.line_count.-1.....
0600 20 45 4e 44 4c 4f 4f 50 3b 00 02 00 21 2b 1e 00 21 20 20 20 20 20 42 75 69 6c 64 20 74 68 65 20 .ENDLOOP;...!+..!.....Build.the.
0620 63 6f 6d 70 69 6c 65 20 73 74 72 69 6e 67 02 00 21 2d 38 00 20 20 20 66 69 6c 65 6e 61 6d 65 20 compile.string..!-8....filename.
0640 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 43 55 52 52 45 4e 54 5f 42 55 46 46 45 52 2c 20 22 6f 75 :=.GET_INFO.(CURRENT_BUFFER,."ou
0660 74 70 75 74 5f 66 69 6c 65 22 29 3b 30 00 20 20 20 49 46 20 47 45 54 5f 49 4e 46 4f 20 28 66 69 tput_file");0....IF.GET_INFO.(fi
0680 6c 65 6e 61 6d 65 2c 20 22 54 59 50 45 22 29 20 3d 20 49 4e 54 45 47 45 52 20 54 48 45 4e 38 00 lename,."TYPE").=.INTEGER.THEN8.
06a0 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 43 55 52 52 ......filename.:=.GET_INFO.(CURR
06c0 45 4e 54 5f 42 55 46 46 45 52 2c 20 22 66 69 6c 65 5f 6e 61 6d 65 22 29 09 00 20 20 20 45 4e 44 ENT_BUFFER,."file_name").....END
06e0 49 46 3b 00 31 00 20 20 20 62 75 66 5f 6e 61 6d 65 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 43 IF;.1....buf_name.:=.GET_INFO.(C
0700 55 52 52 45 4e 54 5f 42 55 46 46 45 52 2c 20 22 6e 61 6d 65 22 29 3b 00 30 00 20 20 20 64 65 76 URRENT_BUFFER,."name");.0....dev
0720 20 3a 3d 20 46 49 4c 45 5f 50 41 52 53 45 20 28 66 69 6c 65 6e 61 6d 65 2c 20 22 22 2c 20 22 22 .:=.FILE_PARSE.(filename,."",.""
0740 2c 20 44 45 56 49 43 45 29 3b 33 00 20 20 20 64 69 72 20 3a 3d 20 46 49 4c 45 5f 50 41 52 53 45 ,.DEVICE);3....dir.:=.FILE_PARSE
0760 20 28 66 69 6c 65 6e 61 6d 65 2c 20 22 22 2c 20 22 22 2c 20 44 49 52 45 43 54 4f 52 59 29 3b 00 .(filename,."",."",.DIRECTORY);.
0780 2e 00 20 20 20 66 69 6c 65 3a 3d 20 46 49 4c 45 5f 50 41 52 53 45 20 28 66 69 6c 65 6e 61 6d 65 .....file:=.FILE_PARSE.(filename
07a0 2c 20 22 22 2c 20 22 22 2c 20 4e 41 4d 45 29 3b 2e 00 20 20 20 65 78 74 20 3a 3d 20 46 49 4c 45 ,."",."",.NAME);.....ext.:=.FILE
07c0 5f 50 41 52 53 45 20 28 66 69 6c 65 6e 61 6d 65 2c 20 22 22 2c 20 22 22 2c 20 54 59 50 45 29 3b _PARSE.(filename,."",."",.TYPE);
07e0 1e 00 20 20 20 64 69 61 67 5f 66 69 6c 65 20 3a 3d 20 66 69 6c 65 20 2b 20 22 2e 44 49 41 22 3b .....diag_file.:=.file.+.".DIA";
0800 2b 00 20 20 20 66 75 6c 6c 5f 66 69 6c 65 6e 61 6d 65 20 3a 3d 20 64 65 76 20 2b 20 64 69 72 20 +....full_filename.:=.dev.+.dir.
0820 2b 20 66 69 6c 65 20 2b 20 65 78 74 3b 00 1a 00 20 20 20 66 69 6c 65 6e 61 6d 65 20 3a 3d 20 66 +.file.+.ext;......filename.:=.f
0840 69 6c 65 20 2b 20 65 78 74 3b 02 00 21 2b 2d 00 21 20 20 20 20 20 42 75 69 6c 64 20 63 6f 6d 70 ile.+.ext;..!+-.!.....Build.comp
0860 69 6c 65 20 73 74 72 69 6e 67 20 62 61 73 65 64 20 6f 6e 20 66 69 6c 65 20 74 79 70 65 00 02 00 ile.string.based.on.file.type...
0880 21 2d 14 00 20 20 20 75 6e 73 75 70 70 6f 72 74 65 64 20 3a 3d 20 30 3b 0b 00 21 20 2d 20 2d 20 !-.....unsupported.:=.0;..!.-.-.
08a0 2d 20 41 64 61 00 17 00 20 20 20 49 46 20 65 78 74 20 3d 20 22 2e 41 44 41 22 20 54 48 45 4e 00 -.Ada......IF.ext.=.".ADA".THEN.
08c0 43 00 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 5f 73 74 72 69 6e 67 20 3a 3d 20 22 41 44 41 2f 4e C.......compile_string.:=."ADA/N
08e0 4f 4f 50 54 2f 44 45 42 55 47 20 22 20 2b 20 66 69 6c 65 6e 61 6d 65 20 2b 20 22 20 2f 44 49 41 OOPT/DEBUG.".+.filename.+."./DIA
0900 47 3d 22 20 2b 00 0e 00 09 09 09 20 64 69 61 67 5f 66 69 6c 65 20 09 00 20 20 20 45 4e 44 49 46 G=".+.......diag_file......ENDIF
0920 3b 00 0f 00 21 20 2d 20 2d 20 2d 20 46 4f 52 54 52 41 4e 00 17 00 20 20 20 49 46 20 65 78 74 20 ;...!.-.-.-.FORTRAN......IF.ext.
0940 3d 20 22 2e 46 4f 52 22 20 54 48 45 4e 00 43 00 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 5f 73 74 =.".FOR".THEN.C.......compile_st
0960 72 69 6e 67 20 3a 3d 20 22 46 4f 52 2f 4e 4f 4f 50 54 2f 44 45 42 55 47 20 22 20 2b 20 66 69 6c ring.:=."FOR/NOOPT/DEBUG.".+.fil
0980 65 6e 61 6d 65 20 2b 20 22 20 2f 44 49 41 47 3d 22 20 2b 00 0e 00 09 09 09 20 64 69 61 67 5f 66 ename.+."./DIAG=".+.......diag_f
09a0 69 6c 65 20 09 00 20 20 20 45 4e 44 49 46 3b 00 0c 00 21 20 2d 20 2d 20 2d 20 53 43 41 4e 17 00 ile......ENDIF;...!.-.-.-.SCAN..
09c0 20 20 20 49 46 20 65 78 74 20 3d 20 22 2e 53 43 4e 22 20 54 48 45 4e 00 44 00 20 20 20 20 20 20 ...IF.ext.=.".SCN".THEN.D.......
09e0 63 6f 6d 70 69 6c 65 5f 73 74 72 69 6e 67 20 3a 3d 20 22 53 43 41 4e 2f 4e 4f 4f 50 54 2f 44 45 compile_string.:=."SCAN/NOOPT/DE
0a00 42 55 47 20 22 20 2b 20 66 69 6c 65 6e 61 6d 65 20 2b 20 22 20 2f 44 49 41 47 3d 22 20 2b 0d 00 BUG.".+.filename.+."./DIAG=".+..
0a20 09 09 09 20 64 69 61 67 5f 66 69 6c 65 00 09 00 20 20 20 45 4e 44 49 46 3b 00 0d 00 21 20 2d 20 ....diag_file......ENDIF;...!.-.
0a40 2d 20 2d 20 4c 41 54 45 58 00 17 00 20 20 20 49 46 20 65 78 74 20 3d 20 22 2e 54 45 58 22 20 54 -.-.LATEX......IF.ext.=.".TEX".T
0a60 48 45 4e 00 17 00 20 20 20 20 20 20 75 6e 73 75 70 70 6f 72 74 65 64 20 3a 3d 20 33 3b 00 31 00 HEN.........unsupported.:=.3;.1.
0a80 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 5f 73 74 72 69 6e 67 20 3a 3d 20 22 4c 41 54 45 58 2f 42 ......compile_string.:=."LATEX/B
0aa0 41 54 43 48 20 22 20 2b 20 66 69 6c 65 6e 61 6d 65 00 09 00 20 20 20 45 4e 44 49 46 3b 00 0e 00 ATCH.".+.filename......ENDIF;...
0ac0 21 20 2d 20 2d 20 2d 20 4a 4f 56 49 41 4c 3d 00 20 20 20 49 46 20 28 65 78 74 20 3d 20 22 2e 4a !.-.-.-.JOVIAL=....IF.(ext.=.".J
0ae0 37 33 22 29 20 4f 52 20 28 65 78 74 20 3d 20 22 2e 43 50 4c 22 29 20 4f 52 20 28 65 78 74 20 3d 73").OR.(ext.=.".CPL").OR.(ext.=
0b00 20 22 2e 4a 4f 56 22 29 20 54 48 45 4e 00 17 00 20 20 20 20 20 20 75 6e 73 75 70 70 6f 72 74 65 .".JOV").THEN.........unsupporte
0b20 64 20 3a 3d 20 32 3b 00 30 00 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 5f 73 74 72 69 6e 67 20 3a d.:=.2;.0.......compile_string.:
0b40 3d 20 22 4c 53 45 24 4a 4f 56 49 41 4c 20 22 20 2b 20 66 69 6c 65 6e 61 6d 65 09 00 20 20 20 45 =."LSE$JOVIAL.".+.filename.....E
0b60 4e 44 49 46 3b 00 22 00 21 20 2d 20 2d 20 2d 20 41 43 54 20 4c 49 4e 4b 45 52 20 6f 72 20 31 37 NDIF;.".!.-.-.-.ACT.LINKER.or.17
0b80 35 30 41 20 4c 49 4e 4b 45 52 2b 00 20 20 20 49 46 20 28 65 78 74 20 3d 20 22 2e 4c 4f 44 22 29 50A.LINKER+....IF.(ext.=.".LOD")
0ba0 20 4f 52 20 28 65 78 74 20 3d 20 22 2e 43 54 4c 22 29 20 54 48 45 4e 00 17 00 20 20 20 20 20 20 .OR.(ext.=.".CTL").THEN.........
0bc0 75 6e 73 75 70 70 6f 72 74 65 64 20 3a 3d 20 31 3b 00 30 00 20 20 20 20 20 20 63 6f 6d 70 69 6c unsupported.:=.1;.0.......compil
0be0 65 5f 73 74 72 69 6e 67 20 3a 3d 20 22 4c 53 45 24 4c 49 4e 4b 45 52 20 22 20 2b 20 66 69 6c 65 e_string.:=."LSE$LINKER.".+.file
0c00 6e 61 6d 65 09 00 20 20 20 45 4e 44 49 46 3b 00 2a 00 21 20 2d 20 2d 20 2d 20 2e 2e 2e 2e 2e 2e name.....ENDIF;.*.!.-.-.-.......
0c20 2e 2e 20 49 4e 53 45 52 54 20 4e 45 57 20 4c 41 4e 47 55 41 47 45 53 20 48 45 52 45 19 00 21 20 ...INSERT.NEW.LANGUAGES.HERE..!.
0c40 2d 20 2d 20 2d 20 2a 2a 2a 2a 20 55 4e 4b 4e 4f 57 4e 20 2a 2a 2a 2a 00 1e 00 20 20 20 49 46 20 -.-.-.****.UNKNOWN.****......IF.
0c60 63 6f 6d 70 69 6c 65 5f 73 74 72 69 6e 67 20 3d 20 22 22 20 54 48 45 4e 3e 00 20 20 20 20 20 20 compile_string.=."".THEN>.......
0c80 4d 45 53 53 41 47 45 20 28 22 55 6e 73 75 70 70 6f 72 74 65 64 20 66 69 6c 65 20 74 79 70 65 20 MESSAGE.("Unsupported.file.type.
0ca0 2d 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 22 29 3b 0c 00 20 20 20 20 20 20 -.compilation.aborted");........
0cc0 52 45 54 55 52 4e 09 00 20 20 20 45 4e 44 49 46 3b 00 02 00 21 2b 32 00 21 20 20 20 20 20 43 68 RETURN.....ENDIF;...!+2.!.....Ch
0ce0 65 63 6b 20 66 6f 72 20 70 72 65 73 65 6e 63 65 20 6f 66 20 6c 73 69 24 63 6f 6d 70 69 6c 65 5f eck.for.presence.of.lsi$compile_
0d00 71 75 61 6c 69 66 69 65 72 73 02 00 21 2d 3e 00 20 20 20 49 46 20 47 45 54 5f 49 4e 46 4f 20 28 qualifiers..!->....IF.GET_INFO.(
0d20 6c 73 69 24 63 6f 6d 70 69 6c 65 5f 71 75 61 6c 69 66 69 65 72 73 2c 20 22 54 59 50 45 22 29 20 lsi$compile_qualifiers,."TYPE").
0d40 3c 3e 20 53 54 52 49 4e 47 20 54 48 45 4e 23 00 20 20 20 20 20 20 6c 73 69 24 63 6f 6d 70 69 6c <>.STRING.THEN#.......lsi$compil
0d60 65 5f 71 75 61 6c 69 66 69 65 72 73 20 3a 3d 20 22 22 3b 00 09 00 20 20 20 45 4e 44 49 46 3b 00 e_qualifiers.:=."";......ENDIF;.
0d80 3c 00 21 2b 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 <.!+............................
0da0 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 3c 00 ..............................<.
0dc0 21 20 20 20 20 20 4f 6e 6c 79 20 61 70 70 65 6e 64 20 63 6f 6d 70 69 6c 65 20 71 75 61 6c 69 66 !.....Only.append.compile.qualif
0de0 69 65 72 73 20 69 66 20 61 20 73 75 70 70 6f 72 74 65 64 20 6c 61 6e 67 75 61 67 65 02 00 21 2d iers.if.a.supported.language..!-
0e00 1a 00 20 20 20 49 46 20 75 6e 73 75 70 70 6f 72 74 65 64 20 3d 20 30 20 54 48 45 4e 3f 00 20 20 .....IF.unsupported.=.0.THEN?...
0e20 20 20 20 20 63 6f 6d 70 69 6c 65 5f 73 74 72 69 6e 67 20 3a 3d 20 63 6f 6d 70 69 6c 65 5f 73 74 ....compile_string.:=.compile_st
0e40 72 69 6e 67 20 2b 20 6c 73 69 24 63 6f 6d 70 69 6c 65 5f 71 75 61 6c 69 66 69 65 72 73 00 09 00 ring.+.lsi$compile_qualifiers...
0e60 20 20 20 45 4e 44 49 46 3b 00 02 00 21 2b 20 00 21 20 20 20 20 20 43 72 65 61 74 65 20 62 75 66 ...ENDIF;...!+..!.....Create.buf
0e80 66 65 72 20 69 66 20 6e 65 63 65 73 73 61 72 79 03 00 21 2d 20 00 35 00 20 20 20 49 46 20 47 45 fer.if.necessary..!-..5....IF.GE
0ea0 54 5f 49 4e 46 4f 20 28 6c 73 69 5f 64 63 6c 5f 62 75 66 66 65 72 2c 20 27 74 79 70 65 27 29 20 T_INFO.(lsi_dcl_buffer,.'type').
0ec0 3c 3e 20 42 55 46 46 45 52 20 20 20 20 00 35 00 20 20 20 54 48 45 4e 20 20 20 20 20 20 20 20 20 <>.BUFFER.....5....THEN.........
0ee0 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 20 ................................
0f00 20 20 20 20 20 00 3d 00 20 20 20 20 20 20 6c 73 69 5f 64 63 6c 5f 62 75 66 66 65 72 20 3a 3d 20 ......=.......lsi_dcl_buffer.:=.
0f20 63 72 65 61 74 65 5f 62 75 66 66 65 72 20 28 22 44 43 4c 2f 63 6f 6d 70 69 6c 65 20 57 69 6e 64 create_buffer.("DCL/compile.Wind
0f40 6f 77 22 29 3b 00 25 00 20 20 20 20 20 20 53 45 54 20 28 4e 4f 5f 57 52 49 54 45 2c 20 6c 73 69 ow");.%.......SET.(NO_WRITE,.lsi
0f60 5f 64 63 6c 5f 62 75 66 66 65 72 29 3b 00 29 00 20 20 20 20 20 20 53 45 54 20 28 45 4f 42 5f 54 _dcl_buffer);.).......SET.(EOB_T
0f80 45 58 54 2c 20 6c 73 69 5f 64 63 6c 5f 62 75 66 66 65 72 2c 20 22 22 29 3b 00 22 00 20 20 20 20 EXT,.lsi_dcl_buffer,."");.".....
0fa0 20 20 53 45 54 20 28 53 59 53 54 45 4d 2c 20 6c 73 69 5f 64 63 6c 5f 62 75 66 66 65 72 29 35 00 ..SET.(SYSTEM,.lsi_dcl_buffer)5.
0fc0 20 20 20 45 4e 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 ...ENDIF;.......................
0fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 02 00 21 2b 24 00 21 20 20 20 ........................!+$.!...
1000 20 20 43 72 65 61 74 65 20 73 75 62 70 72 6f 63 65 73 73 20 69 66 20 6e 65 63 65 73 73 61 72 79 ..Create.subprocess.if.necessary
1020 02 00 21 2d 4c 00 20 20 20 69 66 20 28 67 65 74 5f 69 6e 66 6f 20 28 6c 73 69 5f 64 63 6c 5f 70 ..!-L....if.(get_info.(lsi_dcl_p
1040 72 6f 63 65 73 73 2c 20 22 74 79 70 65 22 29 20 3d 20 75 6e 73 70 65 63 69 66 69 65 64 29 20 6f rocess,."type").=.unspecified).o
1060 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 00 20 20 20 20 20 20 28 6c 73 69 5f 64 r.................L.......(lsi_d
1080 63 6c 5f 70 72 6f 63 65 73 73 20 3d 20 30 29 20 74 68 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 cl_process.=.0).then............
10a0 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 20 ................................
10c0 36 00 20 20 20 20 20 20 20 6d 65 73 73 61 67 65 20 28 22 43 72 65 61 74 69 6e 67 20 63 6f 6d 70 6........message.("Creating.comp
10e0 69 6c 61 74 69 6f 6e 20 73 75 62 70 72 6f 63 65 73 73 2e 2e 2e 22 29 3b 48 00 20 20 20 20 20 20 ilation.subprocess...");H.......
1100 20 6c 73 69 5f 64 63 6c 5f 70 72 6f 63 65 73 73 20 3a 3d 20 63 72 65 61 74 65 5f 70 72 6f 63 65 .lsi_dcl_process.:=.create_proce
1120 73 73 20 28 6c 73 69 5f 64 63 6c 5f 62 75 66 66 65 72 2c 20 22 24 20 73 65 74 20 6e 6f 6f 6e 22 ss.(lsi_dcl_buffer,."$.set.noon"
1140 29 3b 02 00 21 2b 30 00 21 20 20 20 20 20 20 20 20 20 43 68 65 63 6b 20 66 6f 72 20 70 72 65 73 );..!+0.!.........Check.for.pres
1160 65 6e 63 65 20 6f 66 20 6c 73 69 24 70 72 6f 63 65 73 73 5f 6e 61 6d 65 02 00 21 2d 3b 00 20 20 ence.of.lsi$process_name..!-;...
1180 20 20 20 20 49 46 20 47 45 54 5f 49 4e 46 4f 20 28 6c 73 69 24 70 72 6f 63 65 73 73 5f 6e 61 6d ....IF.GET_INFO.(lsi$process_nam
11a0 65 2c 20 22 54 59 50 45 22 29 20 3c 3e 20 53 54 52 49 4e 47 20 54 48 45 4e 00 18 00 09 20 6c 73 e,."TYPE").<>.STRING.THEN.....ls
11c0 69 24 70 72 6f 63 65 73 73 5f 6e 61 6d 65 20 3a 3d 20 22 22 0a 00 20 20 20 20 20 20 45 4c 53 45 i$process_name.:=.""........ELSE
11e0 20 00 09 20 49 46 20 6c 73 69 24 70 72 6f 63 65 73 73 5f 6e 61 6d 65 20 3c 3e 20 22 22 20 54 48 ....IF.lsi$process_name.<>."".TH
1200 45 4e 41 00 09 20 20 20 20 73 65 6e 64 20 28 22 24 20 73 65 74 20 70 72 6f 63 2f 6e 61 6d 65 3d ENA......send.("$.set.proc/name=
1220 22 2b 6c 73 69 24 70 72 6f 63 65 73 73 5f 6e 61 6d 65 2c 20 6c 73 69 5f 64 63 6c 5f 70 72 6f 63 "+lsi$process_name,.lsi_dcl_proc
1240 65 73 73 29 3b 00 07 00 09 20 45 4e 44 49 46 00 0c 00 20 20 20 20 20 20 45 4e 44 49 46 3b 2d 00 ess);.....ENDIF.........ENDIF;-.
1260 20 20 20 20 20 20 73 65 6e 64 20 28 22 24 20 73 65 74 20 76 65 72 69 66 79 22 2c 20 6c 73 69 5f ......send.("$.set.verify",.lsi_
1280 64 63 6c 5f 70 72 6f 63 65 73 73 29 3b 00 50 00 20 20 20 45 4e 44 49 46 3b 20 20 20 20 20 20 20 dcl_process);.P....ENDIF;.......
12a0 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 20 ................................
12c0 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 20 ................................
12e0 02 00 21 2b 22 00 21 20 20 20 20 20 75 70 64 61 74 65 20 62 75 66 66 65 72 20 62 65 69 6e 67 20 ..!+".!.....update.buffer.being.
1300 63 6f 6d 70 69 6c 65 64 02 00 21 2d 30 00 20 20 20 49 46 20 47 45 54 5f 49 4e 46 4f 20 28 74 68 compiled..!-0....IF.GET_INFO.(th
1320 69 73 5f 62 75 66 66 65 72 2c 22 6d 6f 64 69 66 69 65 64 22 29 20 3d 20 31 20 54 48 45 4e 1f 00 is_buffer,"modified").=.1.THEN..
1340 20 20 20 20 20 20 57 52 49 54 45 5f 46 49 4c 45 20 28 74 68 69 73 5f 62 75 66 66 65 72 29 3b 00 ......WRITE_FILE.(this_buffer);.
1360 09 00 20 20 20 45 4e 44 49 46 3b 00 15 00 20 20 20 53 45 54 20 28 53 55 43 43 45 53 53 2c 4f 46 .....ENDIF;......SET.(SUCCESS,OF
1380 46 29 3b 00 16 00 20 20 20 45 52 41 53 45 28 74 68 69 73 5f 62 75 66 66 65 72 29 3b 28 00 20 20 F);......ERASE(this_buffer);(...
13a0 20 50 4f 53 49 54 49 4f 4e 20 28 42 45 47 49 4e 4e 49 4e 47 5f 4f 46 28 74 68 69 73 5f 62 75 66 .POSITION.(BEGINNING_OF(this_buf
13c0 66 65 72 29 29 3b 1d 00 20 20 20 52 45 41 44 5f 46 49 4c 45 20 28 66 75 6c 6c 5f 66 69 6c 65 6e fer));.....READ_FILE.(full_filen
13e0 61 6d 65 29 3b 00 1c 00 20 20 20 57 52 49 54 45 5f 46 49 4c 45 20 28 74 68 69 73 5f 62 75 66 66 ame);......WRITE_FILE.(this_buff
1400 65 72 29 3b 14 00 20 20 20 53 45 54 20 28 53 55 43 43 45 53 53 2c 4f 4e 29 3b 02 00 21 2b 1d 00 er);.....SET.(SUCCESS,ON);..!+..
1420 21 20 20 20 20 20 6d 6f 76 65 20 74 6f 20 70 72 6f 70 65 72 20 70 6f 73 69 74 69 6f 6e 00 02 00 !.....move.to.proper.position...
1440 21 2d 29 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 74 !-)....POSITION.(BEGINNING_OF.(t
1460 68 69 73 5f 62 75 66 66 65 72 29 29 3b 00 1e 00 20 20 20 4d 4f 56 45 5f 56 45 52 54 49 43 41 4c his_buffer));......MOVE_VERTICAL
1480 20 28 6c 69 6e 65 5f 63 6f 75 6e 74 29 3b 21 00 20 20 20 4d 4f 56 45 5f 48 4f 52 49 5a 4f 4e 54 .(line_count);!....MOVE_HORIZONT
14a0 41 4c 20 28 73 61 76 65 5f 6f 66 66 73 65 74 29 3b 00 02 00 21 2b 15 00 21 20 20 20 20 20 66 6c AL.(save_offset);...!+..!.....fl
14c0 75 73 68 20 6f 75 74 20 66 69 6c 65 73 00 02 00 21 2d 15 00 20 20 20 6c 73 69 5f 66 6c 75 73 68 ush.out.files...!-.....lsi_flush
14e0 5f 62 75 66 66 65 72 73 3b 00 02 00 21 2b 37 00 21 20 20 20 20 20 73 65 74 20 74 68 65 20 64 65 _buffers;...!+7.!.....set.the.de
1500 66 61 75 6c 74 20 64 69 72 65 63 74 6f 72 79 20 69 6e 20 74 68 65 20 73 75 62 70 72 6f 63 65 73 fault.directory.in.the.subproces
1520 73 2c 20 74 68 65 6e 00 1d 00 21 20 20 20 20 20 70 65 72 66 6f 72 6d 20 74 68 65 20 63 6f 6d 70 s,.then...!.....perform.the.comp
1540 69 6c 61 74 69 6f 6e 00 02 00 21 2d 14 00 20 20 20 64 69 72 20 3a 3d 20 64 65 76 20 2b 20 64 69 ilation...!-.....dir.:=.dev.+.di
1560 72 3b 25 00 20 20 20 50 4f 53 49 54 49 4f 4e 20 28 45 4e 44 5f 4f 46 28 6c 73 69 5f 64 63 6c 5f r;%....POSITION.(END_OF(lsi_dcl_
1580 62 75 66 66 65 72 29 29 3b 00 18 00 20 20 20 4d 4f 56 45 5f 48 4f 52 49 5a 4f 4e 54 41 4c 20 28 buffer));......MOVE_HORIZONTAL.(
15a0 2d 31 29 3b 0e 00 20 20 20 53 50 4c 49 54 5f 4c 49 4e 45 3b 13 00 20 20 20 43 4f 50 59 5f 54 45 -1);.....SPLIT_LINE;.....COPY_TE
15c0 58 54 28 22 24 20 22 29 3b 00 39 00 20 20 20 53 45 4e 44 20 28 27 49 46 20 46 24 53 45 41 52 43 XT("$.");.9....SEND.('IF.F$SEARC
15e0 48 28 22 27 20 2b 20 66 69 6c 65 6e 61 6d 65 20 2b 20 27 22 29 2e 45 51 53 2e 22 22 20 54 48 45 H("'.+.filename.+.'").EQS."".THE
1600 4e 20 27 20 2b 00 27 00 20 20 20 20 20 20 27 53 45 54 20 44 45 46 20 27 2b 64 69 72 2c 20 6c 73 N.'.+.'.......'SET.DEF.'+dir,.ls
1620 69 5f 64 63 6c 5f 70 72 6f 63 65 73 73 29 3b 00 1c 00 20 20 20 4d 45 53 53 41 47 45 20 28 63 6f i_dcl_process);......MESSAGE.(co
1640 6d 70 69 6c 65 5f 73 74 72 69 6e 67 29 3b 37 00 20 20 20 6f 6c 64 5f 74 69 6d 65 72 5f 6d 73 67 mpile_string);7....old_timer_msg
1660 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 53 59 53 54 45 4d 2c 20 27 74 69 6d 65 64 5f 6d 65 73 .:=.GET_INFO.(SYSTEM,.'timed_mes
1680 73 61 67 65 27 29 3b 00 21 00 20 20 20 53 45 54 20 28 54 49 4d 45 52 2c 20 4f 4e 2c 20 27 43 6f sage');.!....SET.(TIMER,.ON,.'Co
16a0 6d 70 69 6c 69 6e 67 20 27 29 3b 00 2a 00 20 20 20 53 45 4e 44 20 28 63 6f 6d 70 69 6c 65 5f 73 mpiling.');.*....SEND.(compile_s
16c0 74 72 69 6e 67 2c 20 6c 73 69 5f 64 63 6c 5f 70 72 6f 63 65 73 73 29 3b 18 00 20 20 20 49 46 20 tring,.lsi_dcl_process);.....IF.
16e0 6f 6c 64 5f 74 69 6d 65 72 5f 6d 73 67 20 3d 20 27 27 07 00 20 20 20 54 48 45 4e 00 15 00 20 20 old_timer_msg.=.''.....THEN.....
1700 20 20 20 20 53 45 54 20 28 54 49 4d 45 52 2c 20 4f 4e 29 00 07 00 20 20 20 45 4c 53 45 00 24 00 ....SET.(TIMER,.ON)......ELSE.$.
1720 20 20 20 20 20 20 53 45 54 20 28 54 49 4d 45 52 2c 20 4f 4e 2c 20 6f 6c 64 5f 74 69 6d 65 72 5f ......SET.(TIMER,.ON,.old_timer_
1740 6d 73 67 29 09 00 20 20 20 45 4e 44 49 46 3b 00 02 00 21 2b 22 00 21 20 20 20 20 20 73 70 6c 69 msg).....ENDIF;...!+".!.....spli
1760 74 20 74 68 65 20 6c 69 6e 65 20 69 6e 20 44 43 4c 20 42 75 66 66 65 72 02 00 21 2d 25 00 20 20 t.the.line.in.DCL.Buffer..!-%...
1780 20 50 4f 53 49 54 49 4f 4e 20 28 45 4e 44 5f 4f 46 28 6c 73 69 5f 64 63 6c 5f 62 75 66 66 65 72 .POSITION.(END_OF(lsi_dcl_buffer
17a0 29 29 3b 00 0e 00 20 20 20 53 50 4c 49 54 5f 4c 49 4e 45 3b 13 00 20 20 20 43 4f 50 59 5f 54 45 ));......SPLIT_LINE;.....COPY_TE
17c0 58 54 28 22 24 20 22 29 3b 00 1a 00 20 20 20 50 4f 53 49 54 49 4f 4e 20 28 74 68 69 73 5f 62 75 XT("$.");......POSITION.(this_bu
17e0 66 66 65 72 29 3b 02 00 21 2b 4c 00 21 20 20 20 20 20 49 66 20 74 68 65 20 6c 61 6e 67 75 61 67 ffer);..!+L.!.....If.the.languag
1800 65 20 64 6f 65 73 20 6e 6f 74 20 70 72 6f 64 75 63 65 20 64 69 61 67 6e 6f 73 74 69 63 73 2c 20 e.does.not.produce.diagnostics,.
1820 74 68 65 6e 20 64 69 73 70 6c 61 79 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 39 00 21 20 20 20 20 20 then.display.compilation9.!.....
1840 72 65 73 75 6c 74 73 20 69 6e 20 74 68 65 20 44 43 4c 20 62 75 66 66 65 72 2e 20 20 4f 74 68 65 results.in.the.DCL.buffer...Othe
1860 72 77 69 73 65 2c 20 63 61 6c 6c 20 52 45 56 49 45 57 2e 00 02 00 21 2d 1f 00 20 20 20 43 41 53 rwise,.call.REVIEW....!-.....CAS
1880 45 20 75 6e 73 75 70 70 6f 72 74 65 64 20 46 52 4f 4d 20 30 20 54 4f 20 33 00 46 00 20 20 20 20 E.unsupported.FROM.0.TO.3.F.....
18a0 20 20 5b 30 5d 20 3a 20 6c 73 65 24 64 6f 5f 63 6f 6d 6d 61 6e 64 20 28 22 52 45 56 49 45 57 2f ..[0].:.lse$do_command.("REVIEW/
18c0 46 49 4c 45 3d 22 2b 64 69 72 2b 64 69 61 67 5f 66 69 6c 65 2b 22 20 22 2b 62 75 66 5f 6e 61 6d FILE="+dir+diag_file+"."+buf_nam
18e0 65 29 00 00 0b 00 20 20 20 20 20 20 5b 31 5d 20 3a 00 29 00 09 20 49 46 20 28 63 75 72 72 65 6e e)..........[1].:.)...IF.(curren
1900 74 5f 77 69 6e 64 6f 77 20 3d 20 6c 73 65 24 74 6f 70 5f 77 69 6e 64 6f 77 29 20 4f 52 00 29 00 t_window.=.lse$top_window).OR.).
1920 09 20 20 20 20 28 63 75 72 72 65 6e 74 5f 77 69 6e 64 6f 77 20 3d 20 6c 73 65 24 62 6f 74 74 6f .....(current_window.=.lse$botto
1940 6d 5f 77 69 6e 64 6f 77 29 00 06 00 09 20 54 48 45 4e 16 00 09 20 20 20 6c 73 65 24 24 6f 74 68 m_window).....THEN......lse$$oth
1960 65 72 5f 77 69 6e 64 6f 77 3b 2c 00 09 20 20 20 69 66 20 43 55 52 52 45 4e 54 5f 42 55 46 46 45 er_window;,.....if.CURRENT_BUFFE
1980 52 20 3c 3e 20 6c 73 69 5f 64 63 6c 5f 62 75 66 66 65 72 20 74 68 65 6e 2d 00 09 20 20 20 20 20 R.<>.lsi_dcl_buffer.then-.......
19a0 20 20 4d 41 50 20 28 43 55 52 52 45 4e 54 5f 57 49 4e 44 4f 57 2c 20 6c 73 69 5f 64 63 6c 5f 62 ..MAP.(CURRENT_WINDOW,.lsi_dcl_b
19c0 75 66 66 65 72 29 3b 00 0a 00 09 20 20 20 45 4e 44 49 46 3b 2e 00 09 20 20 20 53 45 54 20 28 53 uffer);.......ENDIF;......SET.(S
19e0 54 41 54 55 53 5f 4c 49 4e 45 2c 20 43 55 52 52 45 4e 54 5f 57 49 4e 44 4f 57 2c 20 52 45 56 45 TATUS_LINE,.CURRENT_WINDOW,.REVE
1a00 52 53 45 2c 37 00 09 20 20 20 20 20 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 RSE,7.........".................
1a20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 52 65 73 75 6c 74 73 22 29 00 06 00 ........Compilation.Results")...
1a40 09 20 45 4c 53 45 1f 00 09 20 20 20 6c 73 65 24 6e 75 6d 62 65 72 5f 6f 66 5f 77 69 6e 64 6f 77 ..ELSE......lse$number_of_window
1a60 73 20 3a 3d 20 32 3b 00 1c 00 09 20 20 20 55 4e 4d 41 50 20 28 6c 73 65 24 6d 61 69 6e 5f 77 69 s.:=.2;.......UNMAP.(lse$main_wi
1a80 6e 64 6f 77 29 3b 26 00 09 20 20 20 4d 41 50 20 28 6c 73 65 24 74 6f 70 5f 77 69 6e 64 6f 77 2c ndow);&.....MAP.(lse$top_window,
1aa0 20 74 68 69 73 5f 62 75 66 66 65 72 29 3b 29 00 09 20 20 20 6c 73 65 24 73 65 74 5f 73 74 61 74 .this_buffer);).....lse$set_stat
1ac0 75 73 5f 6c 69 6e 65 20 28 6c 73 65 24 74 6f 70 5f 77 69 6e 64 6f 77 29 3b 00 1c 00 09 20 20 20 us_line.(lse$top_window);.......
1ae0 55 50 44 41 54 45 20 28 6c 73 65 24 74 6f 70 5f 77 69 6e 64 6f 77 29 3b 2c 00 09 20 20 20 4d 41 UPDATE.(lse$top_window);,.....MA
1b00 50 20 28 6c 73 65 24 62 6f 74 74 6f 6d 5f 77 69 6e 64 6f 77 2c 20 6c 73 69 5f 64 63 6c 5f 62 75 P.(lse$bottom_window,.lsi_dcl_bu
1b20 66 66 65 72 29 3b 2e 00 09 20 20 20 53 45 54 20 28 53 54 41 54 55 53 5f 4c 49 4e 45 2c 20 43 55 ffer);......SET.(STATUS_LINE,.CU
1b40 52 52 45 4e 54 5f 57 49 4e 44 4f 57 2c 20 52 45 56 45 52 53 45 2c 37 00 09 20 20 20 20 20 20 20 RRENT_WINDOW,.REVERSE,7.........
1b60 22 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 43 6f 6d 70 69 6c ".........................Compil
1b80 61 74 69 6f 6e 20 52 65 73 75 6c 74 73 22 29 00 08 00 09 20 45 4e 44 49 46 3b 23 00 09 20 50 4f ation.Results").....ENDIF;#...PO
1ba0 53 49 54 49 4f 4e 28 45 4e 44 5f 4f 46 28 43 55 52 52 45 4e 54 5f 42 55 46 46 45 52 29 29 3b 00 SITION(END_OF(CURRENT_BUFFER));.
1bc0 17 00 09 20 4d 4f 56 45 5f 48 4f 52 49 5a 4f 4e 54 41 4c 20 28 2d 31 29 3b 00 13 00 09 20 6c 73 ....MOVE_HORIZONTAL.(-1);.....ls
1be0 65 24 24 6f 74 68 65 72 5f 77 69 6e 64 6f 77 00 00 00 1d 00 20 20 20 20 20 20 5b 32 5d 20 3a 20 e$$other_window...........[2].:.
1c00 6c 73 69 5f 6a 6f 76 69 61 6c 5f 72 65 76 69 65 77 00 00 00 1c 00 20 20 20 20 20 20 5b 33 5d 20 lsi_jovial_review...........[3].
1c20 3a 20 6c 73 69 5f 6c 61 74 65 78 5f 72 65 76 69 65 77 00 00 0b 00 20 20 20 45 4e 44 43 41 53 45 :.lsi_latex_review.......ENDCASE
1c40 3b 00 00 00 1a 00 45 4e 44 50 52 4f 43 45 44 55 52 45 20 21 20 6c 73 69 5f 63 6f 6d 70 69 6c 65 ;.....ENDPROCEDURE.!.lsi_compile
1c60 36 00 44 45 46 49 4e 45 5f 4b 45 59 20 28 27 6c 73 69 5f 63 6f 6d 70 69 6c 65 27 2c 20 4b 45 59 6.DEFINE_KEY.('lsi_compile',.KEY
1c80 5f 4e 41 4d 45 20 28 27 43 27 2c 20 53 48 49 46 54 5f 4b 45 59 29 2c 20 15 00 20 20 20 27 63 6f _NAME.('C',.SHIFT_KEY),......'co
1ca0 6d 70 69 6c 65 2f 72 65 76 69 65 77 27 29 3b 00 mpile/review');.