.First.lib_function(lib, pkg) {

	dirmyR_file.path(lib,pkg,"R")

	wmy_c(dir(dirmyR,patt=".txt",full=TRUE),	

		dir(dirmyR,patt=".R",full=TRUE))

	if (length(wmy)==0) return(invisible())

	envirmy_pos.to.env(match(paste("package:",pkg,sep=""), search()))

	for (i in (1:length(wmy) ) ) {

		#print(wmy[i])

		sys.source(wmy[i],envirmy)

	}

}



source.lib_function(filename,pkg,lib.loc=dirperm) {

	pkg_as.character(substitute(pkg))

	pathfile_file.path(lib.loc,pkg,"R",filename)

	if (!file.exists(pathfile)) stop ("file not found")

	envircha_match(paste("package:",pkg,sep=""), search())

	if (is.na(envircha)) stop ("package unknown")

	envirmy_pos.to.env(envircha)

	sys.source(pathfile,envirmy)

	cat(paste(pathfile,"sourced in",paste("package:",pkg,sep=""),"\n"))

}



save.lib_function(obj,pkg,lib.loc=dirperm,overwrite=FALSE) {

	objname_deparse(substitute(obj))

	filename_paste(objname,".rda",sep="")

	pkg_as.character(substitute(pkg))

	pathfile_file.path(lib.loc,pkg,"data",filename)

	if (file.exists(pathfile) & !overwrite) stop ("file already exists")

	assign(objname,eval(parse(text=objname),envir=	.GlobalEnv))

	save (list=objname, file=pathfile, ascii=T) 

	cat(paste("New file",pathfile,"\n"))

}



files.lib_function(pkg,lib.loc=dirperm) {

	pkg_as.character(substitute(pkg))

	dirmylibR_file.path(lib.loc,pkg,"R")

	wmylib_dir(dirmylibR,full=FALSE)

	cat(paste("\nR folder = ",dirmylibR,"\n"))

	print.noquote(wmylib)

	dirmylibR_file.path(lib.loc,pkg,"data")

	cat(paste("\ndata folder = ",dirmylibR,"\n"))

	wmylib_dir(dirmylibR,full=FALSE)

	print.noquote(wmylib)

}