check_books_format.pl

:-include('../listprologinterpreter/la_strings.pl').
:-include('../listprologinterpreter/la_strings_string.pl').

% copy Books folder into sources, move out dot-stub.txt

check_books_format:-
	directory_files("sources1/",F),
	delete_invisibles_etc(F,G),
%%trace,
%SepandPad="#@~%`$?-+*^,()|.:;=_/[]<>{}\n\r\s\t\\!'0123456789",
	findall(_,(member(Folderx1,G),
	string_concat("sources1/",Folderx1,Folderx),
	directory_files(Folderx,F1),
	delete_invisibles_etc(F1,G1),
	
	findall(_,(member(Filex1,G1),
	%trace,
	foldr(string_concat,["sources1/",Folderx1,"/",Filex1],Filex),
	%foldr(string_concat,["sources1/",Folderx1,"/",Filex1],Filexx),
	
	%split_string(Filex1," "," ",Filex2),
	%Filex3=Filex2,
	%findall([Filex31," "],(member(Filex31,Filex3)),Filex32),
	%maplist(append,[Filex32],[Filex321]),
	%concat_list(Filex321,Filex33),
	
	%string_concat(Filex1,".txt",Filex33),
		phrase_from_file_s(string(String00a), Filex),
		
		%string_codes(String02c,String00a),

	%atomic_list_concat(B,"\"",String02c),
	%atomic_list_concat(B,"\\""",C),
	%atom_string(C,String02b),
	
	once((string_concat(A,_,Filex1),string_length(A,4))),
	(A="dot-" ->
	
		true;%Line=String00a;
		
	(string_codes(String02c,String00a),
		(catch((term_to_atom(String02c1,String02c),


		String02c1=[_,_,_,_]),_B,(%writeln(B),
		false))->true;
		writeln([Folderx1,Filex1,corrupted,format]))
		%concat_list(["[\"Green, L 2022, <i>",Filex4,"</i>, Lucian Academy Press, Melbourne.\",\"Green, L 2022\",1,\"",String02b,"\"]"],Line)
	))
		%atom_to_term(String02b,String02a,[]),

/*,
	foldr(string_concat,["sources1/",Folderx1,"/"],Folderxx1),
	(exists_directory(Folderxx1)->true;make_directory(Folderxx1)),		
	(open_s(Filexx,write,Stream1),
%%	string_codes(BrDict3),
	write(Stream1,Line),
	close(Stream1))
	
	*/
	),_)),_).
		
delete_invisibles_etc(F,G) :-
	findall(J,(member(H,F),atom_string(H,J),not(J="."),not(J=".."),not(string_concat(".",_,J))),G).

string(String) --> list(String).

list([]) --> [].
list([L|Ls]) --> [L], list(Ls).