inform7/inrtps/Chapter 1/Main.w

[Main::] Main.

The top level, which decides what is to be done and then carries
this plan out.

@h Main routine.

@d PROGRAM_NAME "inrtps"
@d DEFAULT_FONT_TEXT 

=
pathname *from_folder = NULL;
pathname *to_folder = NULL;
int font_setting = TRUE;

int main(int argc, char **argv) {
	Foundation::start(argc, argv);
	@<Read the command line@>;
	if (from_folder) {
		if (to_folder == NULL)
			Errors::fatal("usage: inrtps from-folder to-folder [options]");
		text_stream *f = NULL;
		if (font_setting)
			f = I"face='lucida grande,geneva,arial,tahoma,verdana,helvetica,helv'";
		Translator::go(from_folder, to_folder, f);
	}
	Foundation::end();
	return 0;
}

@ We use Foundation to read the command line:

@e FONT_CLSW

@<Read the command line@> =	
	CommandLine::declare_heading(
		L"[[Purpose]]\n\n"
		L"usage: inrtps from-folder to-folder [options]\n");

	CommandLine::declare_boolean_switch(FONT_CLSW, L"font", 1,
		L"explicitly set sans-serif fonts by name", TRUE);

	CommandLine::read(argc, argv, NULL, &Main::option, &Main::bareword);

@ =
void Main::option(int id, int val, text_stream *arg, void *state) {
	switch (id) {
		case FONT_CLSW: font_setting = val; break;
	}
}

void Main::bareword(int id, text_stream *arg, void *state) {
	if (from_folder == NULL) from_folder = Pathnames::from_text(arg);
	else if (to_folder == NULL) to_folder = Pathnames::from_text(arg);
	else Errors::fatal("too many arguments given at command line");
}