ofs | hex dump | ascii |
---|
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');. |