/* qlam.c :w | !gcc % -o %< -Wall -Wfatal-errors -g !./%< qlam (c) 2023 Mourad Arnout marnout à free.fr */ #include "qlam.h" int main(int argc, char *argv[]) { // make hdict for(int i=0; i<27; i++) hdict[i] = NULL; mkdict(hdict, "html"); if(argc == 1) printf("Usage: %s NAME [NAME] ...\n", argv[0]); else { str_t src, dest; char *p = basename(argv[1]), *q; for(int c=1; c\n" "\n" "\n" " \n" " \n" " \n" " \n" " \n" " \n" ); while(fgets(line, Lsize, qlm) != NULL) { *strchrnul(line, '\n') = '\0'; switch(*line) { case '#' : //#' ' if(line[1] == ' ') fprintf(html, "\n", line + 2); // header

..

with id else if(line[1]>'1' && line[1]<'7' && line[2]==' ') { int k = line[1] - '2'; hnum[k]++; for(int j=k+1; j<5; j++) hnum[j] = 0; p = hid; q = num; if(k < 3) for(int j=0; j<3 && hnum[j]; j++) p += sprintf(p, "%d_", hnum[j]); else for(int j=0; j<5; j++) p += sprintf(p, "%d_", hnum[j]); fprintf(html, "\n%s\n", k+2, hid, line + 2, k+2); } //#article else if((p = qtag(line, "#article")) != NULL) { str_t article, name; strcpy(name, p); sprintf(article, "qlm/%s.qlm", p); FILE *fp = fopen(article, "r"); assert(fp != NULL); while(fgets(line, Lsize, fp) && !(q = qtag(line, "#title"))); *strchrnul(q, '\n') = '\0'; fprintf(html, "
%s
", name, q); while(fgets(line, Lsize, fp) && !(p = qtag(line, "#abstract"))); while(fgets(line, Lsize, fp) && *line != '\n') { *strchrnul(line, '\n') = '\0'; fputs("

", html); mkstr(html, line, strlen(line)); fputs("

\n", html); } fclose(fp); } //#code else if((p = qtag(line, "#code"))) { //wrd_t lang; // e.g. "c", "cpp", "js" //strcpy(lang, p); mkpre(html, qlm, p); } //#html else if((p = qtag(line, "#html"))) { while(fgets(line, Lsize, qlm) && *line != '\n') fputs(line, html); } //#include else if((p = qtag(line, "#include")) != NULL) { FILE *fp = fopen(p, "r"); assert(fp != NULL); while(fgets(l, Lsize, fp)) fprintf(html, l); fclose(fp); } //#js else if((p = qtag(line, "#js")) != NULL) { if(*p) fprintf(html, "\n", p); else { fprintf(html, ""); } } //#meta else if((p = qtag(line, "#meta")) != NULL) { q = strchr(line, ':'); *q = '\0'; fprintf(html, "\n", p, q + 1); } //#note else if((p = qtag(line, "#note")) != NULL) { fprintf(html, "(%s)\n", p); fprintf(html, "
\n", p); while(fgets(line, Lsize, qlm) && line[0] != '\n') { *strchrnul(line, '\n') = '\0'; fputs("

", html); mkstr(html, line, strlen(line)); fputs("

\n", html); } fputs("
\n", html); } //#style else if((p = qtag(line, "#style")) != NULL) { if(*p) fprintf(html, "\n", p); else { fprintf(html, ""); } } //#table else if((p = qtag(line, "#table")) != NULL) { if(*p) fprintf(html, "\n", p); else fputs("
\n", html); mktable(html, qlm); fputs("
\n", html); } //#title else if((p = qtag(line, "#title")) != NULL) { str_t title; strcpy(title, p); fprintf(html, "%s\n", title); fprintf(html, "\n\n"); FILE *fp = fopen("include/header.html", "r"); while(fgets(line, Lsize, fp)) fprintf(html, "%s", line); fclose(fp); fgets(line, Lsize, qlm); *strchrnul(line, '\n') = '\0'; fprintf(html, "

%s

\n", line); fprintf(html, "

%s

\n", title); } break; case '-' : case '+' : char c = *line; fprintf(html, "<%s>\n", c == '-' ? "ul" : "ol"); do { *strchrnul(line, '\n') = '\0'; fputs("\t
  • ", html); mkstr(html, line + 2, strlen(line) - 2); fputs("\t
    • \n", html); } while(fgets(line, Lsize, qlm) && *line == c); fprintf(html, "\n", c == '-' ? "ul" : "ol"); break; case '?' : fputs("
    \n", html); do { *strchrnul(line, '\n') = '\0'; fprintf(html, "\t
    %s
    \n", line + 2); fputs("\t
    \n", html); while(fgets(line, Lsize, qlm) && *line == '\t') { *strchrnul(line, '\n') = '\0'; mkstr(html, line, strlen(line)); fputs("
    \n", html); } fputs("\t
    \n", html); } while(*line == '?'); fputs("
    \n", html); break; case '<' : fprintf(html, "%s\n", line); break; default: if(*line) { fputs("

    ", html); mkstr(html, line, strlen(line)); fputs("

    \n", html); } } // switch *line } // while getline fputs("

    \n", html); fputs("Réalisé avec Qlam - LGPL\n", html); fputs("\n", html); printf("%s → %s\n", src, dest); return 0; } // mkstr void mkstr(FILE *html, char *str, int size) { const char ctrl[] = " "; enum {em, strong, kbd, underline, code}; const tiny_t tag[] = {"i", "strong", "kbd", "u", "code"}; bool flag[] = {false, false, false, false, false}; char *p, *q; int wdlen; for(char *ptr=str; *ptr && ptr < str + size; ptr++) { // typo style tag if((p = strchr(ctrl, *ptr)) != NULL) { int i = p - ctrl; if(flag[i]) fprintf(html, "", tag[i]); else fprintf(html, "<%s>", tag[i]); flag[i] = !flag[i]; } // link else if(*ptr == '[' && (p = strstr(ptr, "->")) != NULL && (q = strchr(p + 1, ']')) != NULL ) { *p = *q = 0; fprintf(html, "%s", p + 2, ptr + 1); ptr = q; } // span box else if(*ptr == '#' && ptr[1] == '[' && (p = strchr(ptr + 2, ']'))) { *p = 0; fprintf(html, "%s", ptr + 2); ptr = p + 1; } // foot note else if(*ptr == '#' && ptr[1] == '(' && (p = strchr(ptr + 2, ')'))) { *p = 0; fprintf(html, "(%s)", ptr + 2, ptr + 2); ptr = p + 1; } else if(!flag[code] && *ptr == '<' && (q = strchr(ptr+1, '>')) != NULL) { p = ptr[1] == '/' ? ptr+2 : ptr+1; wdlen = indict(p, hdict); if(wdlen > 0) { fprintf(html, "%.*s", (int)(q - ptr), ptr); ptr = q - 1; } else fputs("<", html); } else if(*ptr == '\\') { switch(ptr[1]) { case '<': fputs("<", html); ptr++; break; case '>': fputs(">", html); ptr++; break; case '"': fputs(""", html); ptr++; break; case '&': fputs("&", html); ptr++; break; case '#': fputs("#", html); ptr++; break; case '$': fputs("$", html); ptr++; break; case '[': fputs("[", html); ptr++; break; case ']': fputs("]", html); ptr++; break; case 't': fputs(" ", html); ptr++; break; default: fputc(*ptr, html); } } // special html entities i.e. < > " & else if(flag[code]) { switch(*ptr) { case '<': fputs("<", html); break; case '>': fputs(">", html); break; case '"': fputs(""", html); break; case '&': fputs("&", html); break; default: fputc(*ptr, html); } } // other else fputc(*ptr, html); } // garbage trailing typo style tags if(strlen(str) == size && str[size] == '\0') { for(int i=0; i", tag[i]); flag[i] = !flag[i]; } } } } /** check if s starts with w returns a pointer to the argument of the key word if any or NULL otherwise */ char * qtag(char *s, char *w) { size_t wl = strlen(w); char *p; if(!strncmp(s, w, wl)) { // match p = s + wl; // move in s at the end of w while(*p == ' ') p++; // trim spaces if anay return p; // pointer at the argument } else return NULL; // line don't match } void mktable(FILE *html, FILE *qlm) { lstr_t line; char *p, *q; if(fgets(line, Lsize, qlm) && *line != '\n') { *strchrnul(line, '\n') = '\0'; fputs("\n", html); p = line; while((q = strchr(p, '|')) != NULL) { mkstr(html, p, q - p); fputs("", html); p = q + 1; } mkstr(html, p, strlen(p)); fputs("\n", html); } while(fgets(line, Lsize, qlm) && *line != '\n') { *strchrnul(line, '\n') = '\0'; fputs("", html); p = line; while((q = strchr(p, '|')) != NULL) { mkstr(html, p, q - p); fputs("", html); p = q + 1; } mkstr(html, p, strlen(p)); fputs("\n", html); } } // dictionaries void mkdict(dict_t dict, char *name) { wrd_t w; token_t *token, *new; int i; sprintf(path, "include/%s.dict", name); FILE *fp = fopen(path, "r"); assert(fp); for(int i=0; i<27; i++) dict[i] = NULL; while(fgets(w, Wsize, fp)) { *strchrnul(w, '\n') = '\0'; new = (token_t *)malloc(sizeof(token_t)); new->data = (char *)malloc(strlen(w) + 1); strcpy(new->data, w); new->next = NULL; i = *w - 'a'; if(i<0 || i > 26) i = 26; if(dict[i] == NULL) { dict[i] = new; token = dict[i]; } else { token->next = new; token = token->next; } } fclose(fp); } int indict(char *s, dict_t dict) { int size = strspn(s, ALPHA); if(size >= Wsize || size == 0) return 0; wrd_t w = {'\0'}; memcpy(w, s, size); int i = *w - 'a'; if(i < 0 || i > 26) i = 26; token_t *t = dict[i]; while(t != NULL && strcmp(t->data, w) < 0) t = t->next; if(t != NULL && eq(t->data, w)) return size; return 0; } void freedict(dict_t dict) { token_t *token, *next; for(int i=0; i<27; i++) { token = dict[i]; while(token != NULL) { free(token->data); next = token->next; free(token); token = next; } } } void mkpre(FILE *html, FILE *qlm, char *lang) { char cmnts[][8] = {"//", "/*", "*/", "#", "\"\"\"", ""}; char *cmnt[3]; size_t lcmnt[3]; #define iscmnt(s, i) *lang && *cmnt[(i)] && !strncmp(s, cmnt[(i)], lcmnt[(i)]) int len; dict_t dict; bool lflag = false, nflag = false; if(*lang == '#') { nflag = true; lang++; } // number lines if(*lang == '!') { lflag = true; lang++; } // litteral bold if(*lang) { mkdict(dict, lang); for(int i=0; i<3; i++) cmnt[i] = ""; if(eq(lang, "c") || eq(lang,"cpp") || eq(lang, "js") || eq(lang, "scad")) { for(int i=0; i<3; i++) cmnt[i] = cmnts[i]; } else if(eq(lang, "bash")) { cmnt[0] = cmnts[3]; } else if(eq(lang, "html")) { cmnt[1] = cmnts[5]; cmnt[2] = cmnts[6]; } else if(eq(lang, "py")) { cmnt[0] = cmnts[3]; cmnt[1] = cmnt[2] = cmnts[4]; } for(int i=0; i<3; i++) lcmnt[i] = strlen(cmnt[i]); } if(nflag) fputs("
    \n", html); 
	else fputs("
    \n", html);
	lstr_t line;
	char *s, *p, *q, *r; 
	bool emflag, bflag, cflag = false;
	while(fgets(line, Lsize, qlm) != NULL && *line != '\n')
	{
		*strchrnul(line, '\n') = '\0';
		emflag = false; bflag = false; 
		s = line;
		fputs("", html);
		if(cflag) fputs("", html);
		while(*s) 
		{
			r = s + strcspn(s, ALPHA);
			for(p=s; *p && p < r; p++)
			{
				if((cflag || emflag) && *p == '/') 
					fprintf(html, "/");
				else if(iscmnt(p, 0)) {
					fprintf(html, "%s", cmnt[0]);
					p += lcmnt[0] - 1;
					emflag = true;
				}
				else if(iscmnt(p, 1)) {
					// special case for python """
					if(cflag) fprintf(html, "%s", cmnt[1]);
					else fprintf(html, "%s", cmnt[1]);
					cflag = !cflag;
					p += lcmnt[1] - 1;
				} 
				else if(iscmnt(p, 2)) {
					fprintf(html, "%s", cmnt[2]);
					p += lcmnt[2] - 1;
					cflag=false;
				} 
				else if(*p == '<') fprintf(html, "<");
				else if(*p == '>') fprintf(html, ">");
				else if(*p == '&') fprintf(html, "&");
				else if(*p == '"') {
					if(lflag && (q = strchr(p + 1, '"')) != NULL) 
					{
						fputs(""", html);
						for(char *c = p + 1; *c && c < q; c++)
						switch(*c)
						{
							case '<': fputs("<", html); break;
							case '>': fputs(">", html); break;
							case '&': fputs("&", html); break;
							default: fputc(*c, html);
						}
						fputs(""", html);
						r = q + 1;
						break;
					} 
					else 
					fprintf(html, """);
				}
				else if(*p == '') {
					if(bflag) fputs("", html);
					else fputs("", html);
					bflag = !bflag;
				}
				else if(lflag) {
					strtod(p, &q);
					if(q > p && !emflag && *(p - 1) != '_' && !isalpha(*(p - 1))) 
					{
						fprintf(html, "%.*s", (int)(q - p), p);
						p = q - 1;
					} 
					else 
					fputc(*p, html);
				}
				else fputc(*p, html);
			}
			s = r;
			len = strspn(s, ALPHA);
			if(*lang && !emflag &&
				(strcmp(lang, "html") || *(s-1) == '<' || *(s+len) == '>'))
			{
				if(len > 0 && len == indict(s, dict))
					fprintf(html, "%.*s", len, s);
				else 
					fprintf(html, "%.*s", len, s);
			}
			else fprintf(html, "%.*s", len, s);
			s += len;
		}
		if(emflag || cflag) fputs("", html);
		if(bflag) fputs("", html);
		fputs("\n", html);
	}
	fputs("
    \n", html);
	
	if(*lang) freedict(dict);
}