Function main

tools/tool.c:63–148

extern int mainXSC(int argc, char* argv[]) ;

int main(int argc, char* argv[]) 
{
	int error = 0;
	if ((argc > 1) && !strcmp(argv[1], "cp")) {
#ifdef XSTOOLS
		char buffer[1024];
		FILE* src = NULL;
		FILE* dst = NULL;
		size_t srcSize;
		size_t dstSize;
		
		src = fopen(argv[2], "rb");
		if (!src) { error = errno; goto END; };
		dst = fopen(argv[3], "wb");
		if (!dst) { error = errno; goto END; };
		for (;;) {
			srcSize = fread(buffer, 1, sizeof(buffer), src);
			if (!srcSize)
				break;
			dstSize = fwrite(buffer, 1, srcSize, dst);
			if (srcSize != dstSize) { error = errno; goto END; };
		}
	END:
		if (dst)
			fclose(dst);
		if (src)
			fclose(src);
#endif
	}
	else if ((argc > 1) && !strcmp(argv[1], "xsa")) {
#ifdef XSTOOLS
		error = mainXSA(argc - 1, &argv[1]);
#endif
	}
	else if ((argc > 1) && !strcmp(argv[1], "xsc")) {
#ifdef XSTOOLS
		error = mainXSC(argc - 1, &argv[1]);
#endif
	}
	else {
		xsMachine* machine = fxPrepareMachine(NULL, xsPreparation(), "tool", NULL, NULL);
		xsBeginHost(machine);
		{
			xsVars(2);
			{
				xsTry {
					if (argc > 1) {
						int argi;
						xsVar(0) = xsNewArray(0);
						for (argi = 1; argi < argc; argi++) {
							xsSetAt(xsVar(0), xsInteger(argi - 1), xsString(argv[argi]));
						}
						xsVar(1) = xsAwaitImport(argv[1], XS_IMPORT_DEFAULT);
						fxPush(xsVar(1));
						fxNew(the);
						fxPush(xsVar(0));
						fxRunCount(the, 1);
						xsResult = fxPop();