🚀 go-pugleaf

Łukasz 'Maly' Ostrowski pisze:
> Andrzej Grażyński wrote:
>> Dlaczego takich funkcji TextSeek i TextFilePos nie ma w standardowej
>> bibliotece Turbo Pascala i jak można ten brak uzupełnić w BP7?
> 
> 
> Bo Input i Output są Text'ami, i trudno sobie wyobrazić skakanie
> po standardowym we/wy.
> 
> Teraz sobie nie przypominam detali, ale jakoś się da z tego co
> pamiętam dostać do underlying file-handle'a, być może czymś
> w stylu absolute. I wtedy Seek/FilePos robią się wykonalne ;).
> 

Zapomniałeś jeszcze o wewnętrznym buforowaniu.

Poniższe funkcje sprawdziłem w BP7:


Function TextFilePos ( var F : Text ) : Longint ;
assembler;
Asm
    CMP  InOutRes,0
    JNE  @@Done
    LES  DI,F
    MOV  BX,ES:[DI].TextRec.Handle
    MOV  AX,$4201
    XOR  CX,CX
    XOR  DX,DX
    INT  $21
    JNC  @@OK
    MOV  InOutRes,AX
    SBB  AX,AX
    CWD
    JMP  @@Done
@@OK:
    MOV  BX,ES:[DI].TextRec.BufEnd
    SUB  BX,ES:[DI].TextRec.BufPos
    SUB  AX,BX
    SBB  DX,0
@@Done:
End;

Procedure TextSeek ( Var F : Text ; N : Longint );
Assembler;
Asm
    CMP  InOutRes,0
    JNE  @@Done
    LES  DI,F
    MOV  BX,ES:[DI].TextRec.Handle
    MOV  AX,$4200
    MOV  CX,N.Word[2]
    MOV  DX,N.Word[0]
    INT  $21
    JNC  @@OK
    MOV  InOutRes,AX
@@OK:
    MOV  ES:[DI].TextRec.BufEnd,0
    MOV  ES:[DI].TextRec.BufPos,0
@@Done:
End;