dump-file

Priskribo de la ĉi-paĝa enhavo

Forth-vorto por montri dosier-enhavon.

Etikedoj:

dump-file estas simpla fortha vorto kiu montras, pece kaj per DUMP, la enhavon de dosiero.

Fontkodo

\ dump-file

\ (c) 2006,2012 Marcos Cruz (programandala.net)
\ License: http://programandala.net/license

\ Simple word to inspect the content of a file.

\ Programa escrito en ANS Forth. Probado en Gforth.
\ Programo verkita en ANS-Fortho. Gforth-e provita.
\ Program written in ANS Forth. Tested with Gforth.

\ --------------------------------------------------------

\ 2006-03-16 First version.
\ 2012-02-07 Source edited. Some words renamed. Fixed the end of the loop.

\ --------------------------------------------------------


64 value df-piece
create df-buffer df-piece chars allot
variable file-id

: df-there  ( -- a-addr u )
  df-buffer df-piece
  ;

: df-open  ( c-addr u -- )
  \ c-addr u = file name
  r/o open-file  abort" open file error"  file-id !
  ;

: df-close  ( -- )
  file-id @ close-file  abort" close file error"
  ;

: dump-file ( c-addr u -- )
  \ c-addr u = file name
  df-open
  begin
    df-there erase  df-there file-id @ read-file
    0= over 0<> and
  while
    df-buffer swap dump  cr ." press any key" key drop cr
  repeat
  df-close
  ;

Deŝutoj