SAVE-BUFFERS: различия между версиями

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Строка 59: Строка 59:
[[Категория:Стандартные слова]]
[[Категория:Стандартные слова]]
[[Категория:1994 BLOCK]]
[[Категория:1994 BLOCK]]
[[Категория:2012 BLOCK]]

Версия от 18:58, 25 июня 2016

SAVE-BUFFERS (сохранить буферы) — стандартное слово Каллисто.

SAVE−BUFFERS   ( −− )                               Если установлен флаг UPDATE, сбросить блок на диск.

Если находящийся в буфере экран был изменён, скидывает его на диск. Буфер остаётся распределённым, но флаг UPDATE сбрасывается.

Ввод слова SAVE-BUFFERS

В режиме ЛАТ последовательно нажмите клавиши  1   ШГ←      ИП     P        Р-ГРД-Г   В/О   3   П   П   ИП   ×   1 

SAVE-BUFFERS в стандарте ANS Forth

7.6.1.2180   SAVE-BUFFERS                                                 BLOCK
           ( -- )
           Перемещает содержание каждого модифицированного блочного буфера на 
           запоминающее устройство. Отмечает все буферы как не 
           модифицированные.

История

Для совместимости с Фортом английское слово buffer (рус. буфер) в имени SAVE-BUFFERS по-прежнему используется во множественном числе, хотя в Каллисто буфер всего один.

SAVE-BUFFERS в предыдущем стандарте Forth-83 (англ.)

     SAVE-BUFFERS --                            M,79    "save-buffers"
          The contents of all block buffers marked as UPDATEed are
          written to their corresponding mass storage blocks.  All
          buffers are marked as no longer being modified, but may
          remain assigned.

SAVE-BUFFERS в стандарте Forth-79 (англ.)

SAVE-BUFFERS                                 221
    Write  all  blocks to mass-storage that have been  flagged  as
    UPDATEd.   An  error condition results if mass-storage writing
    is not completed.

Реализация

Описание и определение слова SAVE-BUFFERS в ядре ФОРТ-ЕС:

SAVE-BUFFERS -> ЗАПИСАТЬ НА ДИСК ВСЕ ИСПРАВЛЕННЫЕ БЛОКИ         26

                     Экран номер 26
( 31.03.66     SAVE-BUFFERS  FLUSH  )

: SAVE-BUFFERS  ( ->)
 LIMIT FIRST DO I @ 32768 AND
       IF    I @ 32767 AND DUP I !
             I 2+ SWAP WBLK         THEN
  B/BUF 4 + +LOOP  ;

Ссылки


  У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.


  Это заготовка статьи. Вы можете помочь проекту, дополнив её.