initial commit into repository0.0

1 files changed, 279 insertions, 0 deletions

diff --git a/lib/component_factory.cc b/lib/component_factory.cc
new file mode 100644
index 0000000..bcf19f2
--- a/dev/null
+++ b/lib/component_factory.cc
@@ -0,0 +1,279 @@
+#ifdef USE_PCH
+ #include "pch.h"
+#else
+ #include <sys/types.h>
+ #include <sys/stat.h>
+ #include <unistd.h>
+ #include <sys/wait.h>
+ #include <fcntl.h>
+ #include <iostream>
+ #include <fstream>
+ #include <stdexcept>
+ #include <vector>
+ using namespace std;
+ #include "sitecing/component_factory.h"
+ #include "sitecing/sitecing_util.h"
+ #include "sitecing/sitecing_parser.h"
+ #include "sitecing/sitecing_exception.h"
+#endif
+ 
+namespace sitecing {
+
+    static const char *pp_targets[] = { ".cc", ".h", ".imports", ".classname", ".baseclassname", ".ancestors" };
+
+    component_factory::component_factory(configuration& c)
+	: config(c),
+    root_source(normalize_path(c.root_source,strip_trailing_slash)+'/'),
+    root_intermediate(normalize_path(c.root_intermediate,strip_trailing_slash)+'/'),
+    root_so(normalize_path(c.root_so,strip_trailing_slash)+'/') {
+    }
+
+    void component_factory::get_dependencies(const string& dst,file_list_t& deps) {
+	deps.clear();
+	string dp = normalize_path(dst,strip_trailing_slash);
+	// source documents
+	try { // XXX: or just compare it off?
+	    string noro = strip_prefix(dp,root_source);
+	    return;
+	}catch(utility_no_affix& una) {
+	}
+	// .so binaries
+	try {
+	    string noso = strip_suffix(dp,".so");
+	    string noro = strip_prefix(noso,root_so);
+	    deps.push_back(root_intermediate+noro+".cc");
+	    config_options *co_cpp_deps = config.lookup_config(noro,config_options::flag_cpp_deps);
+	    if( (!co_cpp_deps) || co_cpp_deps->cpp_deps) {
+		ifstream df((root_intermediate+noro+".d").c_str(),ios::in);
+		if(df.good()) {
+		    string str;
+		    while(!df.eof()) {
+			df >> str;
+			if(str.find_first_of("\\:")==string::npos)
+			    deps.push_back(combine_path(config.root_source+noro,str));
+		    }
+		}
+	    }
+	    config_options *co_so_deps = config.lookup_config(noro,config_options::flag_so_deps);
+	    if(co_so_deps) {
+		for(list<string>::const_iterator i=co_so_deps->so_deps.begin();i!=co_so_deps->so_deps.end();++i)
+		    deps.push_back(*i);
+	    }
+	    return;
+	}catch(utility_no_prefix& unp) {
+	    throw konforka::exception(CODEPOINT,"component is outside of component root");
+	}catch(utility_no_suffix& uns) {
+	}
+	// preprocessor targets
+	for(int ppt=0;ppt<sizeof(pp_targets)/sizeof(*pp_targets);ppt++) {
+	    try {
+		string nos = strip_suffix(dp,pp_targets[ppt]);
+		string noro = strip_prefix(nos,root_intermediate);
+		deps.push_back(root_source+noro);
+		ifstream imports((root_intermediate+noro+".imports").c_str(),ios::in);
+		if(imports.good()) {
+		    string str;
+		    while(!imports.eof()) {
+			imports >> str;
+			if(!str.empty())
+			    deps.push_back(root_intermediate+str+".classname");
+		    }
+		}
+		ifstream ancestors((root_intermediate+noro+".ancestors").c_str(),ios::in);
+		if(ancestors.good()) {
+		    string str;
+		    while(!ancestors.eof()) {
+			ancestors >> str;
+			if(!str.empty())
+			    deps.push_back(root_intermediate+str+".classname");
+		    }
+		}
+		config_options *co_intermediate_deps = config.lookup_config(noro,config_options::flag_intermediate_deps);
+		if(co_intermediate_deps) {
+		    for(list<string>::const_iterator i=co_intermediate_deps->intermediate_deps.begin();i!=co_intermediate_deps->intermediate_deps.end();++i)
+			deps.push_back(*i);
+		}
+		return;
+	    }catch(utility_no_affix& una) {
+		// do nothing. must be a cpp dependency.
+	    }
+	}
+    }
+
+    bool component_factory::is_uptodate(const string& dst,file_list_t *deps) {
+	string dp = normalize_path(dst,strip_trailing_slash);
+	// XXX: or just compare it off, instead of throwing things around.
+	try {
+	    strip_prefix(dp,root_intermediate);
+	    return file_factory::is_uptodate(dst,deps);
+	}catch(utility_no_prefix& unp) {
+	}
+	try {
+	    strip_prefix(dp,root_so);
+	    return file_factory::is_uptodate(dst,deps);
+	}catch(utility_no_prefix& unp) {
+	}
+	return true;
+    }
+
+    void component_factory::build(const string& dst) {
+	string dp = normalize_path(dst,strip_trailing_slash);
+	// sources
+	try {
+	    string noro = strip_prefix(dp,root_source);
+	    // building the sources is left up to developer
+	    return;
+	}catch(utility_no_prefix& unp) {
+	}
+	// .so files
+	try {
+	    string noso = strip_suffix(dp,".so");
+	    string noro = strip_prefix(noso,root_so);
+	    string cc = root_intermediate+noro+".cc";
+	    if(access(cc.c_str(),R_OK))
+		throw konforka::exception(CODEPOINT,string("can't access preprocessed component code (")+cc+")");
+	    make_path(dir_name(root_so+noro),0755);
+	    string pwd = dir_name(root_source+noro);
+	    auto_chdir dir_changer(pwd);
+	    file_lock lock_source(root_intermediate+noro+".lock");
+	    file_lock lock_so(root_so+noro+".so.lock");
+	    int stdO = open((root_intermediate+noro+".stdout").c_str(),O_CREAT|O_TRUNC|O_WRONLY,0664);
+	    if(stdO<0)
+		throw konforka::exception(CODEPOINT,"failed to open/create compiler stdout");
+	    int stdE = open((root_intermediate+noro+".stderr").c_str(),O_CREAT|O_TRUNC|O_WRONLY,0664);
+	    if(stdE<0) {
+		close(stdO);
+		throw konforka::exception(CODEPOINT,"failed to open/create compiler's stderr");
+	    }
+	    list<string> args;
+	    config_options *co_cpp_flags = config.lookup_config(noro,config_options::flag_cpp_flags);
+	    if(co_cpp_flags) {
+		args.insert(args.end(),co_cpp_flags->cpp_flags.begin(),co_cpp_flags->cpp_flags.end());
+	    }
+	    config_options *co_ld_flags = config.lookup_config(noro,config_options::flag_ld_flags);
+	    if(co_ld_flags) {
+		args.insert(args.end(),co_ld_flags->ld_flags.begin(),co_ld_flags->ld_flags.end());
+	    }
+	    // TODO: maybe move it to separare config option like CoreCPPFLags?
+	    args.push_back("-I"+root_intermediate);
+	    args.push_back("-I"+root_source);
+	    args.push_back("-MD"); args.push_back("-MF"); args.push_back(root_intermediate+noro+".d");
+	    args.push_back("-shared");
+	    args.push_back("-o"); args.push_back(dp);
+	    args.push_back(cc);
+	    file_list_t ancestors;
+	    get_ancestors(noro,ancestors);
+	    for(file_list_t::const_iterator i=ancestors.begin();i!=ancestors.end();++i) {
+		string aso=root_so+*i+".so";
+		make(aso);
+		args.push_back(aso);
+	    }
+	    // TODO: "g++" configurable
+	    int rv = execute("g++",args,stdO,stdE);
+	    if(! (WIFEXITED(rv) && !WEXITSTATUS(rv)) )
+		throw compile_error(CODEPOINT,"failed to compile component",noro);
+	    return;
+	}catch(utility_no_prefix& unp) {
+	    throw konforka::exception(CODEPOINT,"component is outside of component root");
+	}catch(utility_no_suffix& uns) {
+	}
+	// preprocessor targets
+	for(int ppt=0;ppt<sizeof(pp_targets)/sizeof(*pp_targets);ppt++) {
+	    try {
+		string nos = strip_suffix(dp,pp_targets[ppt]);
+		string noro = strip_prefix(nos,root_intermediate);
+		string src = root_source+noro;
+		if(access(src.c_str(),R_OK))
+		    throw konforka::exception(CODEPOINT,string("can't access component source (")+src+")");
+		make_path(dir_name(root_intermediate+noro),0755);
+		file_lock lock(root_intermediate+noro+".lock");
+		sitecing_parser parser(*this);
+		config_options *co_skeleton = config.lookup_config(noro,config_options::flag_skeleton);
+		if(co_skeleton)
+		    parser.skeleton = co_skeleton->skeleton;
+		static const char *id_chars = "abcdefghijklmnopqrstuvwxyz0123456789_ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+		parser.class_name = normalize_path(noro,strip_leading_slash|strip_trailing_slash);
+		for(string::size_type illc = parser.class_name.find_first_not_of(id_chars);illc!=string::npos;illc=parser.class_name.find_first_not_of(id_chars,illc)) {
+		    string::size_type lc = parser.class_name.find_first_of(id_chars,illc);
+		    int n = ((lc==string::npos)?parser.class_name.length():lc)-illc;
+		    parser.class_name.replace(illc,n,n,'_');
+		}
+		parser.class_name = "_SCC_"+parser.class_name;
+		parser.output_basename = nos;
+		parser.component_basename = noro;
+		try {
+		    parser.preprocess(src);
+		}catch(preprocessor_error& pe) {
+		    pe.component_name = noro;
+		    pe.see(CODEPOINT);
+		    throw;
+		}
+		return;
+	    }catch(utility_no_affix& una) {
+		// must be a crap from .d file
+	    }
+	}
+	cerr << "ignoring build request for " << dp << endl;
+    }
+
+    int component_factory::execute(const string& cmd, const list<string>& args,int stdo,int stde) {
+	// XXX: is it right that we do stdio/stderr tricks outside of the function?
+	cerr << "executing: " << cmd;
+	vector<const char*> argv(args.size()+2);
+	argv[0]=cmd.c_str();
+	int an = 1;
+	for(list<string>::const_iterator i=args.begin();i!=args.end();i++) {
+	    cerr << " " << *i ;
+	    argv[an++] = i->c_str();
+	}
+	cerr << endl;
+	argv[an++]=NULL;
+	pid_t pid = vfork();
+	if(pid==-1) {
+	    close(stdo); close(stde);
+	    throw konforka::exception(CODEPOINT,"failed to vfork()");
+	}
+	if(!pid) {
+	    // child
+	    if(dup2(stdo,1)!=1)
+		_exit(-1);
+	    if(dup2(stde,2)!=2)
+		_exit(-1);
+	    close(0);
+	    execvp(cmd.c_str(),(char**)&argv.front());
+	    _exit(-1);
+	}
+	// parent
+	close(stdo); close(stde);
+	int rv;
+	if(waitpid(pid,&rv,0)<0)
+	    throw konforka::exception(CODEPOINT,"failed to waitpid()");
+	return rv;
+    }
+
+    string component_factory::get_classname(const string& component) {
+	string cn = root_intermediate+normalize_path(component,strip_trailing_slash|strip_leading_slash)+".classname";
+	make(cn);
+	ifstream ifs(cn.c_str());
+	if(!ifs.good())
+	    throw konforka::exception(CODEPOINT,"failed to access component .classname");
+	ifs >> cn;
+	return cn;
+    }
+
+    void component_factory::get_ancestors(const string& component,file_list_t& rv) {
+	string cn = root_intermediate+normalize_path(component,strip_trailing_slash|strip_leading_slash)+".ancestors";
+	make(cn);
+	ifstream ifs(cn.c_str());
+	if(!ifs.good())
+	    throw konforka::exception(CODEPOINT,"filed to access component .ancestors");
+	rv.clear();
+	while(!ifs.eof()) {
+	    string a;
+	    ifs >> a;
+	    if(!a.empty())
+		rv.push_back(a);
+	}
+    }
+
+}