このディレクトリの索引

タブ区切り(_文字列,_列ならび) :-
        findall(_列,(
                    先頭からタブ区切り(_文字列,_,_列)),
                _列ならび).

先頭からタブ区切り(_文字列,_列目,_副文字列) :-
        先頭からタブ区切り(_文字列,_列目,_,_副文字列,_).

先頭からタブ区切り(_文字列,_列目,_区切り文字,_前文字列,_副文字列,_後文字列) :-
        先頭からタブ区切り(_文字列,'',1,_列目,_区切り文字,_前文字列,_副文字列,_後文字列).

先頭からタブ区切り('',_,_,_,_,_,_,_) :- !,fail.
先頭からタブ区切り(_文字列,_前文字列_1,_列目_1,_列目,_区切り文字,_前文字列,_副文字列,_後文字列) :-
        タブ区切りが成立する(_文字列,_区切り文字_1,_副文字列_1,_後文字列_1),!,
        先頭からタブ区切り(_列目_1,_区切り文字_1,_前文字列_1,_副文字列_1,_後文字列_1,_列目,_区切り文字,_前文字列,_副文字列,_後文字列).
先頭からタブ区切り(_文字列,_前文字列,_列目,_列目,'',_前文字列,_文字列,'').

先頭からタブ区切り(_列目,_区切り文字,_前文字列,_副文字列,_後文字列,_列目,_区切り文字,_前文字列,_副文字列,_後文字列).
先頭からタブ区切り(_列目_1,_,_前文字列_1,_副文字列_1,_後文字列_1,_列目,_区切り文字,_前文字列,_副文字列,_後文字列) :-
        _列目_2 is _列目_1 + 1,
        atomic_list_concat([_前文字列_1,_副文字列_1,'\t'],_前文字列_2),        
        先頭からタブ区切り(_後文字列_1,_前文字列_2,_列目_2,_列目,_区切り文字,_前文字列,_副文字列,_後文字列).

タブ区切りが成立する(_文字列,'\t',_副文字列_1,_後文字列_1) :-
        sub_atom(_文字列,S,1,R,'\t'),
        sub_atom(_文字列,0,S,_,_副文字列_1),
        sub_atom(_文字列,_,R,0,_後文字列_1),!.