/*
	Read the options in a scad file
	an option is either // optionname values ...
	or // optionname1 optionname2 values ...

	The program just prints the values
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <regex.h>
#include <sys/stat.h>
#include <misc.h>
#include <tlmplib.h>
#include <string>
#include <vector>

using namespace std;

/*
	Read each word of a line. If a word does not start with a -, it assume the
	word references an opts file in ~/.Slic3r/modes. It either executes the file
	or read it to get the slic3r options
*/
<mod>
static void oscad_convert(const char *line)
{
	const char *home = getenv("HOME");
	vector<string> words;
	int n = str_splitline(line,' ',words);
	for (int i=0; i<n; i++){
		const char *word = words[i].c_str();
		if (*word == '-'){
			printf ("%s\n",word);
		}else{
			char tmp[1000];
			snprintf (tmp,sizeof(tmp)-1,"%s/.Slic3r/modes/%s.opts",home,word);
			struct stat st;
			if (stat(tmp,&st)==-1){
				printf ("Unknown-mode-file-%s\n",word);
			}else if (st.st_mode & 0100){
				system(tmp);
			}else{
				string cmd = string("cat ") + tmp;
				system (cmd.c_str());
			}
		}
	}
}

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal const char *optname1 = NULL;
	glocal const char *optname2 = NULL;
	glocal bool splitline = false;
	glocal bool printdesc = false;
	glocal bool convert = false;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("oscad-readopts","0.0"
			,"Read and print options in scad files\n"
			 "\n"
			 "oscad-readopts -o name1 [ --optname2 name2 ] scadfile\n");
		setarg ('c',"convert","Convert options by reading corresponding file",glocal.convert,false);
		setarg ('o',"optname1","option name 1",glocal.optname1,true);
		setarg (' ',"optname2","option name 2",glocal.optname2,false);
		setarg (' ',"splitline","Split the values on the option line",glocal.splitline,false);
		setarg (' ',"printdesc","Print the comment at the end of the line",glocal.printdesc,false);
	</f>
	<f main>
		int ret = -1;
		if (argc != 1){
			usage();
		}else{
			string tmp;
			if (glocal.optname2 != NULL){
				const char *pt = strchr(glocal.optname2,':');
				if (pt != NULL){
					tmp = string (glocal.optname2,pt-glocal.optname2);
					glocal.optname2 = tmp.c_str();
				}
			}
			<call loadfile>(argv[0],true);
			<f oneline>
				const char *pt = str_skip(line);
				if (strncmp(pt,"//",2)==0){
					string word;
					pt += 2;
					string tmp;
					string description;
					const char *comment = strstr(pt,"//");
					if (comment != NULL){
						description = str_skip(comment+2);
						tmp = string(pt,comment-pt);
						pt = tmp.c_str();
					}
					pt = str_copyword(word,pt);
					if (strcmp(word.c_str(),glocal.optname1)==0){
						if (glocal.optname2 != NULL){
							pt = str_copyword(word,pt);
							vector<string> tb;
							int n = str_splitline(word.c_str(),',',tb);
							for (int i=0; i<n; i++){
								const char *w = tb[i].c_str();
								string tmp = string("^") + w + "$";
								regex_t reg;
								if (regcomp(&reg,tmp.c_str(),0)==-1){
									tlmp_error("Invalid regex expression: %s\n",w);
								}else{
									regmatch_t pmatch[1];
									//printf ("match :%s: :%s: %d\n",w,glocal.optname2,regexec(&reg,glocal.optname2, 1,pmatch,0));
									if (regexec(&reg,glocal.optname2, 1,pmatch,0)==0){
										if (glocal.convert){
											oscad_convert(pt);
										}else{
											printf ("%s\n",pt);
										}
										regfree (&reg);
										break;
									}
									regfree (&reg);
								}
							}
						}else{
							if (glocal.convert){
								oscad_convert(pt);
							}else if (glocal.splitline){
								vector<string> tb;
								int n = str_splitline(pt,' ',tb);
								for (int i=0; i<n; i++){
									if (glocal.printdesc){
										printf ("%s %s\n",tb[i].c_str(),description.c_str());
									}else{
										printf ("%s\n",tb[i].c_str());
									}
								}
							}else{
								printf ("%s\n",pt);
							}
						}
					}
				}
				return 0;
			</f>
			</call>
			ret = 0;
		}
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>