ofs | hex dump | ascii |
---|
0000 | 38 00 50 52 4f 43 45 44 55 52 45 20 6c 73 69 5f 66 6c 75 73 68 5f 62 75 66 66 65 72 73 20 21 20 | 8.PROCEDURE.lsi_flush_buffers.!. |
0020 | 57 72 69 74 65 20 61 6c 6c 20 6d 6f 64 69 66 69 65 64 20 62 75 66 66 65 72 73 35 00 21 20 49 6e | Write.all.modified.buffers5.!.In |
0040 | 76 6f 6b 65 64 20 62 79 20 4c 53 45 44 49 54 20 63 6f 6d 6d 61 6e 64 2c 20 22 43 41 4c 4c 20 6c | voked.by.LSEDIT.command,."CALL.l |
0060 | 73 69 5f 66 6c 75 73 68 5f 62 75 66 66 65 72 73 22 00 3b 00 21 20 50 72 6f 62 61 62 6c 79 20 62 | si_flush_buffers".;.!.Probably.b |
0080 | 65 73 74 20 75 73 65 64 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 4c 53 45 20 62 79 20 64 65 66 69 | est.used.from.within.LSE.by.defi |
00a0 | 6e 69 6e 67 20 61 20 63 6f 6d 6d 61 6e 64 2c 00 33 00 21 20 20 20 20 20 44 45 46 49 4e 45 20 43 | ning.a.command,.3.!.....DEFINE.C |
00c0 | 4f 4d 4d 41 4e 44 20 46 4c 55 53 48 20 22 43 41 4c 4c 20 6c 73 69 5f 66 6c 75 73 68 5f 62 75 66 | OMMAND.FLUSH."CALL.lsi_flush_buf |
00e0 | 66 65 72 73 22 00 01 00 21 00 3e 00 4c 4f 43 41 4c 20 62 75 66 66 65 72 5f 70 74 72 2c 20 20 20 | fers"...!.>.LOCAL.buffer_ptr,... |
0100 | 20 21 20 70 6f 69 6e 74 65 72 20 74 6f 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 6f 6e 20 | .!.pointer.to.current.buffer.on. |
0120 | 54 50 55 27 73 20 6c 69 73 74 2d 00 20 20 20 20 20 20 62 75 66 66 65 72 5f 6e 61 6d 65 2c 20 20 | TPU's.list-.......buffer_name,.. |
0140 | 20 21 20 6e 61 6d 65 20 6f 66 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 00 2c 00 20 20 20 20 | .!.name.of.current.buffer.,..... |
0160 | 20 20 61 6e 73 77 65 72 2c 09 20 20 20 20 20 21 20 72 65 73 70 6f 6e 73 65 20 74 6f 20 77 72 69 | ..answer,......!.response.to.wri |
0180 | 74 65 20 71 75 65 72 79 2c 00 20 20 20 20 20 20 72 65 61 64 5f 6f 6e 6c 79 3b 20 20 20 20 20 21 | te.query,.......read_only;.....! |
01a0 | 20 62 75 66 66 65 72 20 72 65 61 64 2d 6f 6e 6c 79 20 66 6c 61 67 01 00 21 00 1a 00 21 20 47 65 | .buffer.read-only.flag..!...!.Ge |
01c0 | 74 20 66 69 72 73 74 20 62 75 66 66 65 72 20 6f 6e 20 6c 69 73 74 29 00 62 75 66 66 65 72 5f 70 | t.first.buffer.on.list).buffer_p |
01e0 | 74 72 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 42 55 46 46 45 52 2c 20 22 66 69 72 73 74 22 29 | tr.:=.GET_INFO.(BUFFER,."first") |
0200 | 3b 00 11 00 49 46 20 62 75 66 66 65 72 5f 70 74 72 20 3d 20 30 00 04 00 54 48 45 4e 24 00 20 20 | ;...IF.buffer_ptr.=.0...THEN$... |
0220 | 20 4d 45 53 53 41 47 45 20 28 27 4e 6f 20 62 75 66 66 65 72 73 20 6d 6f 64 69 66 69 65 64 2e 27 | .MESSAGE.('No.buffers.modified.' |
0240 | 29 3b 06 00 45 4e 44 49 46 3b 01 00 21 00 21 00 4c 4f 4f 50 20 20 20 21 20 6f 76 65 72 20 61 6c | );..ENDIF;..!.!.LOOP...!.over.al |
0260 | 6c 20 62 75 66 66 65 72 73 20 6f 6e 20 6c 69 73 74 00 35 00 45 58 49 54 49 46 20 62 75 66 66 65 | l.buffers.on.list.5.EXITIF.buffe |
0280 | 72 5f 70 74 72 20 3d 20 30 3b 20 20 20 21 20 77 68 65 6e 20 62 75 66 66 65 72 20 6c 69 73 74 20 | r_ptr.=.0;...!.when.buffer.list. |
02a0 | 65 78 68 61 75 73 74 65 64 00 29 00 20 20 20 49 46 20 47 45 54 5f 49 4e 46 4f 20 28 62 75 66 66 | exhausted.)....IF.GET_INFO.(buff |
02c0 | 65 72 5f 70 74 72 2c 20 22 73 79 73 74 65 6d 22 29 20 3d 20 30 00 07 00 20 20 20 54 48 45 4e 00 | er_ptr,."system").=.0......THEN. |
02e0 | 01 00 21 00 1f 00 21 20 62 75 66 66 65 72 20 69 73 20 6e 6f 74 20 61 20 73 79 73 74 65 6d 20 62 | ..!...!.buffer.is.not.a.system.b |
0300 | 75 66 66 65 72 00 2e 00 20 20 20 20 20 20 49 46 20 47 45 54 5f 49 4e 46 4f 20 28 62 75 66 66 65 | uffer.........IF.GET_INFO.(buffe |
0320 | 72 5f 70 74 72 2c 20 22 6d 6f 64 69 66 69 65 64 22 29 20 3d 20 31 0a 00 20 20 20 20 20 20 54 48 | r_ptr,."modified").=.1........TH |
0340 | 45 4e 01 00 21 00 14 00 21 20 62 75 66 66 65 72 20 69 73 20 6d 6f 64 69 66 69 65 64 31 00 09 20 | EN..!...!.buffer.is.modified1... |
0360 | 72 65 61 64 5f 6f 6e 6c 79 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 62 75 66 66 65 72 5f 70 74 | read_only.:=.GET_INFO.(buffer_pt |
0380 | 72 2c 20 22 6e 6f 5f 77 72 69 74 65 22 29 3b 00 01 00 21 00 19 00 21 20 62 75 66 66 65 72 20 69 | r,."no_write");...!...!.buffer.i |
03a0 | 73 20 6e 6f 74 20 72 65 61 64 2d 6f 6e 6c 79 00 12 00 09 20 49 46 20 72 65 61 64 5f 6f 6e 6c 79 | s.not.read-only.....IF.read_only |
03c0 | 20 3d 20 30 06 00 09 20 54 48 45 4e 01 00 21 00 2d 00 21 20 57 72 69 74 65 20 6f 75 74 20 74 68 | .=.0....THEN..!.-.!.Write.out.th |
03e0 | 65 20 62 75 66 66 65 72 20 75 73 69 6e 67 20 64 65 66 61 75 6c 74 20 66 69 6c 65 6e 61 6d 65 00 | e.buffer.using.default.filename. |
0400 | 1d 00 09 20 20 20 20 57 52 49 54 45 5f 46 49 4c 45 20 28 62 75 66 66 65 72 5f 70 74 72 29 3b 00 | .......WRITE_FILE.(buffer_ptr);. |
0420 | 07 00 09 20 45 4e 44 49 46 00 0b 00 20 20 20 20 20 20 45 4e 44 49 46 00 09 00 20 20 20 45 4e 44 | ....ENDIF.........ENDIF......END |
0440 | 49 46 3b 00 01 00 21 00 11 00 21 20 47 65 74 20 6e 65 78 74 20 62 75 66 66 65 72 00 2b 00 20 20 | IF;...!...!.Get.next.buffer.+... |
0460 | 20 62 75 66 66 65 72 5f 70 74 72 20 3a 3d 20 47 45 54 5f 49 4e 46 4f 20 28 42 55 46 46 45 52 2c | .buffer_ptr.:=.GET_INFO.(BUFFER, |
0480 | 20 22 6e 65 78 74 22 29 3b 00 09 00 45 4e 44 4c 4f 4f 50 3b 20 00 1f 00 4d 45 53 53 41 47 45 28 | ."next");...ENDLOOP;....MESSAGE( |
04a0 | 27 41 6c 6c 20 62 75 66 66 65 72 73 20 77 72 69 74 74 65 6e 2e 27 29 00 0d 00 45 4e 44 50 52 4f | 'All.buffers.written.')...ENDPRO |
04c0 | 43 45 44 55 52 45 3b 00 | CEDURE;. |