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