How to convert the SWI code to gprolog ?

[z_axis]

$ head foo.dat
14 18 20 22 26 27 13
7 10 19 29 31 32 9
...

open('foo.dat', read, H), file_ints(H,Ns), close(H), ! ,
...

file_ints(S, L) :-
    read_line_to_codes(S, Cs),
    (   Cs == end_of_file
    ->  L = []
    ;   phrase(ints(Is), Cs),
        file_ints(S, R),
        L = [Is|R]
    ).

read_ints(F, L) :-
    open(F, read, S),
    file_ints(S, L),
    close(S).

ints(L) --> blanks, (integer(I), ints(Is), {L = [I|Is]} ; {L = []}).

...

It seems there arenot read_line_to_codes and blanks in gprolog ?

Sincerely !