/* ************************************************************
	naming module
*************************************************************** */

:- export file_name/3, index_list/2, temp_name/2, loop_name/2, dbname/2.
:- import append/3 from basics.

dbname(Name,DBName) :-
	name(Name,NameList),
	append("db_",NameList,DBList),
	name(DBName,DBList).

file_name(Name,NArgs,FName) :-
	name(Name,NList),
	name(NArgs,NAList),
	append(NAList,"_rules.pl",FList),
	append(NList,FList,FNList),
	append("Rules/",FNList,DFNList),
	name(FName,DFNList).
index_list(NArgs,IdList) :-
	name(NArgs,NAList),
	append(NAList,"_",IdList).




/* */
temp_name(X,NewName) :-
	name(X,XList),
	append("temp_",XList,NameList),
	name(NewName,NameList).
loop_name(X,NewName) :-
	name(X,XList),
	append("loop_",XList,NameList),
	name(NewName,NameList).