Forum Programmation.autre [GFORTH] copie de fichier texte (pb sur copie de CR)

Bjr,

je comptais m'amuser un peu cette nuit en codant des copies de fichiers dans divers langages mais j'ai eut un soucis dès le premier essai avec un langage barbare je l'avoue mais sympa pour certaine applications , Le code fonctionne sauf que le caractère de fin de ligne "CR", n'est pas copié sur la destination.

En bref au lieu d'avoir une copie brut de mon fichier ascii j'obtiens tout le contenu de la source sur une seule ligne dans le fichier destination.



#! /usr/bin/gforth

0 Value fd-in
0 Value fd-out


s" fic.in" r/o open-file throw Value fd-in
s" fic.out" w/o create-file throw Value fd-out

s" fic.in" open-input
s" ffic.out" open-output


256 Constant max-line
Create line-buffer max-line 2 + allot

( traitement )

: copy-file ( -- )
begin
line-buffer max-line fd-in read-line throw
while
line-buffer swap fd-out write-file throw
repeat ;

copy-file
fd-in close-file throw
fd-out close-file throw
bye


Si il y a ici des furieux qui codent en forth ansi ou gforth, une aide serait apprécié pour comprendre l'erreur.

merci