PFE 0.33.70

generated
(C) Guido U. Draheim
guidod@gmx.de

FILE-Misc

Compatibility words

---

INCLUDE( "filename" -- ??? ) [FTH]  => [FORTH]

load the specified file, see also LOAD" filename"

primitive code = [p4_include]

---

COPY-FILE( src-ptr src-len dst-ptr dst-len -- copy-errno# ) [FTH]  => [FORTH]

like RENAME-FILE, copies the file from src-name to dst-name and returns an error-code or null

primitive code = [p4_copy_file]

---

MOVE-FILE( src-ptr src-len dst-ptr dst-len -- move-errno# ) [FTH]  => [FORTH]

like RENAME-FILE, but also across-volumes moves the file from src-name to dst-name and returns an error-code or null

primitive code = [p4_move_file]

---

FILE-R/W( buffer* use-block# flag? some-file* -- ) [FTH]  => [FORTH]

like FIG-Forth R/W

primitive code = [p4_file_rw]

---

FILE-BLOCK( use-block# some-file* -- buffer* ) [FTH]  => [FORTH]

primitive code = [p4_file_block]

---

FILE-BUFFER( use-block# some-file* -- buffer* ) [FTH]  => [FORTH]

primitive code = [p4_file_buffer]

---

FILE-EMPTY-BUFFERS( some-file* -- ) [FTH]  => [FORTH]

primitive code = [p4_file_empty_buffers]

---

FILE-FLUSH( some-file* -- ) [FTH]  => [FORTH]

 
  simulate      : FILE-FLUSH DUP FILE-SAVE-BUFFERS FILE-EMTPY-BUFFERS ;
  

primitive code = [p4_file_flush]

---

FILE-LIST( use-block# some-file* -- ) [FTH]  => [FORTH]

primitive code = [p4_file_list]

---

FILE-LOAD( use-block# some-file* -- ) [FTH]  => [FORTH]

primitive code = [p4_file_load]

---

FILE-SAVE-BUFFERS( some-file* -- ) [FTH]  => [FORTH]

primitive code = [p4_file_save_buffers]

---

FILE-THRU( lo-block# hi-block# some-file* -- ) [FTH]  => [FORTH]

see THRU

primitive code = [p4_file_thru]

---

FILE-UPDATE( some-file* -- ) [FTH]  => [FORTH]

primitive code = [p4_file_update]