commit-tree.b

implement Committree;

include "commit-tree.m";

include "sys.m";
	sys: Sys;

include "arg.m";
	arg: Arg;

include "filter.m";
	deflate: Filter;
		
include "bufio.m";
	bufio: Bufio;
Iobuf: import bufio;

include "tables.m";
	tables: Tables;

Strhash: import tables;

include "utils.m";
	utils: Utils;
Config: import utils;
chomp, readline, int2string, sha2string: import utils;


include "daytime.m";
	daytime: Daytime;

include "env.m";
	env: Env;

stderr: ref Sys->FD;
REPOPATH: string;


init(args: list of string)
{
	sys = load Sys Sys->PATH;
	arg = load Arg Arg->PATH;
	utils = load Utils Utils->PATH;
	deflate = load Filter Filter->DEFLATEPATH;
	bufio = load Bufio Bufio->PATH;
	tables = load Tables Tables->PATH;
	daytime = load Daytime Daytime->PATH;
	env = load Env Env->PATH;

	stderr = sys->fildes(2);

	if(len args < 2)
	{
		usage();
		exit;
	}

	REPOPATH = hd args;
	args = tl args;
	
	utils->init(REPOPATH);
	deflate->init();

	parents: list of string = nil;

	sha := hd args;
		arg->init(args);

	while((c := arg->opt()) != 0){
		case c{

			'p' => parents = arg->arg() :: parents;
			 *  => usage(); return; 
		}
	}

	commit(sha, parents, arg->argv());
}

commit(treesha: string, parents: list of string, args: list of string): string
{
	if(!utils->exists(treesha)){
		sys->fprint(stderr, "no such tree file\n");
		return "";
	}
	for(l := parents; l != nil; l = tl l){
		if(!utils->exists(hd l)){
			sys->fprint(stderr, "no such sha file: %s\n", hd l);
			return "";
		}
	}

	commitmsg := "";
	commitmsg += "tree " + treesha + "\n";
	while(parents != nil){
		commitmsg += "parent " + (hd parents) + "\n";
		parents = tl parents;
	}
	config: ref Strhash[ref Config];
	config = utils->getuserinfo();

	authorname := hd args;
	args = tl args;

	authoremail := hd args;
	args = tl args;
	
	authordate := hd args;
	args = tl args;

	comname := hd args;
	args = tl args;
	
	comemail := hd args;
	args = tl args;

#	authorname := env->getenv("AUTHOR_NAME");
#	authoremail := env->getenv("AUTHOR_EMAIL");
#	authordate := env->getenv("AUTHOR_DATE");
#	
#	if(authorname == "" || authoremail == ""){
#		(authorname, authoremail) = getpersoninfo("author");	
#	}
#
#	(comname, comemail) := (config.find("user"), config.find("email")););
#	if(comname == "" || comemail == ""){
#		(comname, comemail) = getpersoninfo("committer");
#	}
	date := daytime->time();

	if(authordate == "")
		authordate = date;

	commitmsg += "author " + authorname + " <" + authoremail + "> " + authordate + "\n";
	commitmsg += "committer " + comname + " <" + comemail + "> " + date + "\n\n";

	while(args != nil){
		commitmsg += hd args;
		args = tl args;
	}
#	commitmsg += getcomment();


	commitlen := int2string(len commitmsg);
	#6 - "commit", 1 - " ", 1 - '\0'
	buf := array[6 + 1 + len commitlen + 1 + len commitmsg] of byte;

	buf[:] = sys->aprint("commit %d", len commitmsg);
	buf[7 + len commitlen] = byte 0;
	buf[7 + len commitlen + 1:] = array of byte commitmsg;

	sys->print("Commitmsg: %s", commitmsg);

	ch := chan of (int, array of byte);
	spawn utils->writesha1file(ch);
	sha: array of byte;
	sz: int;
	ch <-= (len buf, buf);
	ch <-= (0, buf);
	(sz, sha) = <-ch;

	fd := sys->create(REPOPATH + "head", Sys->OWRITE, 8r644);
	
	ret := sha2string(sha);

	sys->fprint(fd, "%s", ret);

	return ret;
}


getpersoninfo(pos: string): (string, string)
{

	ibuf := bufio->fopen(sys->fildes(0), bufio->OREAD);
	
	sys->print("Enter %s's name: ", pos);
	buf := array[128] of byte;
	name := readline(ibuf);	

	sys->print("Enter %s's email: ", pos);
	email := readline(ibuf);

	return (name, email);
}



getcomment(): string
{
	ibuf := bufio->fopen(sys->fildes(0), bufio->OREAD);	
	sys->print("Comments: ");
	return ibuf.gets('\0');
}

usage()
{
	sys->fprint(sys->fildes(1), "commit-tree sha1 [-p sha1]");
	return;
}