Пролог, Чтение данных из CSV с разным разделителем

Question

Мне нужно прочитать другой файл CSV в прологе, некоторые строки отформатированы с 0'\t, в другом файле отформатированы с пространством 0'.

я использовал:

read_points(Filename, Points) :- 
     csv_read_file(Filename, P,[convert(true),functor(pt),separator(0'\t)]), 
     csv_read_file(Filename, P,[convert(true),functor(pt),separator(0')]). 

Но dosen't работу, потому что вернуть мне два разных списка.

Как я могу его правильно скопировать? Спасибо.

EDIT: пример файла с '0\t:

0.1  5 
3  5 
5  8 

пример с '0:

0.1 5 
3 5 
5 8 

Answer 1

Я решаю, что с помощью оператора If и поиск в первой строке, если есть место или нет ,

read(Filename, Elements) :- 
( space(Filename) 
-> csv_read_file(Filename, L,[functor(line),separator(0')]) 
; csv_read_file(Filename, L,[functor(line),separator(0'\t)]) 
). 

space(File):- 
    read_first(File,L), 
    once(member(32,L)). 

read_first(File, sol) :- 
    see(File), 
    read_one_line(Codes), 
    seen, 
    Sol = Codes. 

read_one_line(Codes) :- 
    get0(Code), 
    ( Code < 0 /* end of file */ -> 
     Codes = [] 
    ; Code =:= 10 /* end of line */ -> 
     Codes = [] 
    ; Codes = [Code|Codes1], 
     read_one_line(Codes1) 
).