#define _GNU_SOURCE #include #include #include #include #include #include "config.h" /* Copyright (c) 2021 Derek Stevens Copyright (c) 2021 Devine Lu Linvega Permission to use, copy, modify, and distribute this software for any purpose with or without fee is hereby granted, provided that the above copyright notice and this permission notice appear in all copies. THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE. */ struct dirent* dir; typedef struct Lexicon { int len, refs[LEXICON_SIZE]; char files[LEXICON_SIZE][64]; } Lexicon; /* clang-format off */ char clca(char c) { return c >= 'A' && c <= 'Z' ? c + ('a' - 'A') : c; } /* char to lowercase */ char cuca(char c) { return c >= 'a' && c <= 'z' ? c - ('a' - 'A') : c; } /* char to uppercase */ int slen(char *s) { int i = 0; while(s[i] && s[++i]) { ; } return i; } /* string length */ char *st__(char *s, char (*fn)(char)) { int i = 0; char c; while((c = s[i])) s[i++] = fn(c); return s; } char *stuc(char *s) { return st__(s, cuca); } /* string to uppercase */ char *stlc(char *s) { return st__(s, clca); } /* string to lowercase */ char *scpy(char *src, char *dst, int len) { int i = 0; while((dst[i] = src[i]) && i < len - 2) i++; dst[i + 1] = '\0'; return dst; } /* string copy */ int scmp(char *a, char *b) { int i = 0; while(a[i] == b[i]) if(!a[i++]) return 1; return 0; } /* string compare */ char *scsw(char *s, char a, char b) { int i = 0; char c; while((c = s[i])) s[i++] = c == a ? b : c; return s; } /* string char swap */ char *scat(char *dst, const char *src) { char *ptr = dst + slen(dst); while(*src) *ptr++ = *src++; *ptr = '\0'; return dst; } /* string cat */ int ssin(char *s, char *ss) { int a = 0, b = 0; while(s[a]) { if(s[a] == ss[b]) { if(!ss[b + 1]) return a - b; b++; } else b = 0; a++; } return -1; } /* string substring index */ char *ccat(char *dst, char c) { int len = slen(dst); dst[len] = c; dst[len + 1] = '\0'; return dst; } int clin(char *str, char c) {int i = -1; int j = 0; while(str[j] != '\0'){if(str[j] == c) i = j;j++;}return i;} /* find last occurence of character in string */ /* clang-format on */ int fpinject(FILE* f, Lexicon* l, char* filepath); int error(char* msg, char* val) { printf("Error: %s(%s)\n", msg, val); return 0; } int ismetanav(char* name) { return scmp(name, "meta.nav"); } int findf(Lexicon* l, char* f) { int i; char filename[64]; scat(scsw(stlc(scpy(f, filename, 64)), ' ', '_'), ".htm"); for (i = 0; i < l->len; ++i) if (scmp(l->files[i], filename)) return i; return -1; } int gettwtxt(FILE* f) { char buf[1024] = {0}; char line[256]; char datebuf[16] = {0}; char msgbuf[240] = {0}; char *l, *d, *m; FILE* twtxt = fopen(SITEROOT "twtxt.txt", "r"); scat(buf, "

recent activity:

\n\n"); if (!twtxt) { error("Get twtxt feed", "no twtxt.txt"); return 0; } else { int i = 0; while (fgets(line, 256, twtxt) && i < 3) { l = line; while (*l != 'T') { ccat(datebuf, *l++); } while (*l != '\t') { l++; } scat(msgbuf, l); scat(buf, "\n"); d = datebuf; while (*d) { *d++ = 0; } m = msgbuf; while (*m) { *m++ = 0; } i++; } fclose(twtxt); scat(buf, "
"); scat(buf, datebuf); scat(buf, ": "); scat(buf, msgbuf); scat(buf, "
see all\n"); scat(buf, "
\n"); fputs(buf, f); return 1; } } void fpedited(FILE* f, char* path) { struct stat attr; stat(path, &attr); fprintf(f, "Edited on %s
", ctime(&attr.st_mtime)); } int fpportal(FILE* f, Lexicon* l, char* s, int head) { int target; char srcpath[64], filename[64]; target = findf(l, s); if (target < 0) return error("Missing portal", s); srcpath[0] = 0; filename[0] = 0; scat(scat(scat(srcpath, "inc/"), scpy(s, filename, 64)), ".htm"); if (head) fprintf( f, "

%s

\n", scsw(filename, ' ', '_'), filename, s); fpinject(f, l, srcpath); l->refs[target]++; return 1; } int fphref(FILE* f, char* s) { char href[1024] = {0}; char txt[1024] = {0}; char* c = s; int i = 0; while (i < 2) { if (*c == '|' || !(*c)) { i++; c++; continue; } switch (i) { case 0: ccat(href, *c++); break; case 1: ccat(txt, *c++); break; } } fprintf(f, "%s", href, txt); return 1; } char* thumbtrans(char* s, char* thumb) { int i, j; char* ss; char* fnss; char fn[1024]; scpy(s, thumb, slen(s)); i = clin(thumb, '/'); ss = thumb + i + 1; scpy(ss, fn, slen(thumb) - i + 1); scpy(".thumb/", ss, 8); j = clin(fn, '.'); fnss = fn + j; scpy(".png", fnss, 5); scat(thumb, fn); return thumb; } int fpimg(FILE* f, char* s) { char id[1024] = {0}; char src[1024] = {0}; char alt[1024] = {0}; char thumb[1024] = {0}; char* c = s; int i = 0; while (i < 3) { if (*c == '|' || !(*c)) { i++; c++; continue; } switch (i) { case 0: ccat(id, *c++); break; case 1: ccat(src, *c++); break; case 2: ccat(alt, *c++); break; } } thumbtrans(src, thumb); fprintf(f, "\n", id, src); fprintf(f, "%s\n", thumb, alt); fputs("\n", f); return 1; } int fphimg(FILE* f, char* s) { char id[1024] = {0}; char href[1024] = {0}; char src[1024] = {0}; char alt[1024] = {0}; char thumb[1024] = {0}; char* c = s; int i = 0; while (i < 4) { if (*c == '|' || !(*c)) { i++; c++; continue; } switch (i) { case 0: ccat(id, *c++); break; case 1: ccat(href, *c++); break; case 2: ccat(src, *c++); break; case 3: ccat(alt, *c++); break; } } thumbtrans(src, thumb); fprintf(f, "\n", id, href); fprintf(f, "%s\n", thumb, alt); fputs("\n", f); return 1; } int fpaudio(FILE* f, char* s) { fputs("\n", f); return 1; } int fptemplate(FILE*, Lexicon*, char*); int fpmetatemplate(FILE*, Lexicon*, char*); int fppara(FILE* f, Lexicon* l, char* s) { fputs("

", f); fpmetatemplate(f, l, s); fputs("

", f); return 1; } int fpul(FILE* f, Lexicon* l, char* s) { fputs("
    ", f); fpmetatemplate(f, l, s); fputs("
", f); return 1; } int fpol(FILE* f, Lexicon* l, char* s) { fputs("
    ", f); fpmetatemplate(f, l, s); fputs("
", f); return 1; } int fppublish(FILE* f, char* s) { fputs("", f); return 1; } int fpli(FILE* f, Lexicon* l, char* s) { fputs("
  • ", f); fpmetatemplate(f, l, s); fputs("
  • ", f); return 1; } int fph3(FILE* f, char* s) { fputs("

    ", f); fputs(s, f); fputs("

    ", f); return 1; } int fph4(FILE* f, char* s) { fputs("

    ", f); fputs(s, f); fputs("

    ", f); return 1; } int fpcode(FILE* f, char* s) { fputs("", f); fputs(s, f); fputs("", f); return 1; } int fpbold(FILE* f, char* s) { fputs("", f); fputs(s, f); fputs("", f); return 1; } int fpitalic(FILE* f, char* s) { fputs("", f); fputs(s, f); fputs("", f); return 1; } int fpstrike(FILE* f, char* s) { fputs("", f); fputs(s, f); fputs("", f); return 1; } int fppre(FILE* f, char* s) { fputs("
    ", f);
      fputs(s, f);
      fputs("
    ", f); return 1; } int fpquote(FILE* f, char* s) { fputs("", f); fputs(s, f); fputs("", f); return 1; } int fpblock(FILE* f, char* s) { fputs("
    ", f); fputs(s, f); fputs("
    ", f); return 1; } int fptemplate(FILE* f, Lexicon* l, char* s) { int target = 0; switch (s[0]) { case '/': return fpportal(f, l, s + 1, 1); case '*': return fphref(f, s + 1); case ':': return fpimg(f, s + 1); case '?': return fphimg(f, s + 1); case '_': return fpaudio(f, s + 1); case '`': return fpcode(f, s + 1); case '~': return fpitalic(f, s + 1); case '>': return fpblock(f, s + 1); case '\'': return fpquote(f, s + 1); case '$': return fppre(f, s + 1); case '@': return fpbold(f, s + 1); case '\\': return fpstrike(f, s + 1); case '!': return fph3(f, s + 1); case '.': return fph4(f, s + 1); case '+': return fppublish(f, s + 1); case '#': return fpol(f, l, s + 1); case ',': return fpul(f, l, s + 1); case '-': return fpli(f, l, s + 1); case '&': return fppara(f, l, s + 1); } if (s[0]) target = findf(l, s); if (target < 0) return error("Missing link", s); fprintf(f, "", scsw(stlc(s), ' ', '_')); fprintf(f, "%s", scsw(stlc(s), '_', ' ')); l->refs[target]++; return 1; } int fpmetatemplate(FILE* f, Lexicon* l, char* s) { int bopen, bclose; char ss[TAG_BODY_SIZE]; unsigned char t = 0; bopen = 0; bclose = 0; while (*s) { if (*s == '}') { bclose++; if (bopen == bclose) { t = 0; bopen = 0; bclose = 0; s++; if (!fptemplate(f, l, ss)) { return 0; } continue; } } if (*s == '{') { bopen++; if (bopen == 1) { ss[0] = 0; t = 1; s++; continue; } } if (slen(s) >= TAG_BODY_SIZE) return error("Templating error", "text block exceeds tag body size"); if (t) { ccat(ss, *s); } else fprintf(f, "%c", *s); s++; } return 1; } int fpinject(FILE* f, Lexicon* l, char* filepath) { FILE* inc; int bopen, bclose; char c, s[TAG_BODY_SIZE]; unsigned char t = 0; /*fprintf(stderr, "Building: %s\n", filepath);*/ bopen = 0; bclose = 0; scsw(filepath, ' ', '_'); if (!(inc = fopen(filepath, "r"))) return error("Missing include", filepath); s[0] = 0; while ((c = fgetc(inc)) != EOF) { if (c == '}') { bclose++; if (bopen == bclose) { t = 0; bopen = 0; bclose = 0; if (!fptemplate(f, l, s)) { return 0; } continue; } } if (c == '{') { bopen++; if (bopen == 1) { s[0] = 0; t = 1; continue; } } if (slen(s) >= TAG_BODY_SIZE) return error("Templating error", filepath); if (t) ccat(s, c); else fprintf(f, "%c", c); } fclose(inc); return 1; } int fpfooter(FILE* f, char* name, char* path) { if (!f || !name || !path) return 0; fputs("
    ", f); if (!ismetanav(name)) { fpedited(f, path); fputs(CONTACT, f); } fputs(FOOTER, f); fputs(LICENSE, f); fputs("
    ", f); return 1; } FILE* build(FILE* f, Lexicon* l, char* name, char* srcpath) { if (!f) return f; /* begin */ fputs("\n\n", f); fputs("\n", f); fprintf( f, "\n" "\n" "\n", DESC); if (ismetanav(name)) { fputs("\n", f); } else { fputs("\n", f); } fprintf( f, "\n" "" NAME " — %s\n", ismetanav(name) ? "home" : name); fputs("\n", f); fputs("\n", f); /* header */ fputs("
    \n", f); if (ismetanav(name)) { fputs("

    " NAME "

    \n", f); } else { fputs("

    " NAME "

    \n", f); } fputs("
    \n", f); /* about (main page only) */ if (ismetanav(name)) { fputs("
    " ABOUT "
    \n", f); } /* nav */ fputs("\n", f); /* main */ if (!ismetanav(name)) { fputs("
    \n", f); fprintf(f, "

    %s

    \n", name); if (!fpinject(f, l, srcpath)) printf(">>> Building failed: %s\n", name); fputs("\n
    ", f); } else { gettwtxt(f); } /* footer */ if (!fpfooter(f, name, srcpath)) { printf(">>> Building failed: footer(%s)\n", name); } /* end */ fputs("\n\n", f); return f; } int generate(Lexicon* l) { int i = 0; char srcpath[64], dstpath[64], filename[64]; for (i = 0; i < l->len; ++i) { srcpath[0] = 0; dstpath[0] = 0; filename[0] = 0; /* src */ scpy(l->files[i], filename, ssin(l->files[i], ".htm") + 1); scat(srcpath, "inc/"); scat(srcpath, filename); scat(srcpath, ".htm"); /* dst */ if (scmp(filename, "meta.nav")) { scat(dstpath, SITEROOT); scat(dstpath, "index.html"); } else { scat(dstpath, SITEROOT); scat(dstpath, filename); scat(dstpath, ".html"); } fclose(build(fopen(dstpath, "w"), l, scsw(filename, '_', ' '), srcpath)); } printf("Generated %d files\n", i); return 1; } int index(Lexicon* l, DIR* d) { while ((dir = readdir(d))) if (ssin(dir->d_name, ".htm") > 0) { l->refs[l->len] = 0; scpy(dir->d_name, l->files[l->len++], 64); } closedir(d); printf("Indexed %d terms\n", l->len); return 1; } void inspect(Lexicon* l) { int i; for (i = 0; i < l->len; ++i) if (!l->refs[i]) error("Orphaned", l->files[i]); } void map(Lexicon* l) { char dstpath[64]; char srcpath[64]; struct dirent** d; FILE* siteMap; int n, i = 0; n = scandir("inc", &d, NULL, alphasort); if (n < 0) return; dstpath[0] = 0; srcpath[0] = 0; scat(dstpath, SITEROOT); scat(dstpath, "sitemap.html"); scat(srcpath, "map.htm"); siteMap = fopen("map.htm", "w"); /* don't use shorthand for the
      tag because it will easily overflow * TAG_BODY_SIZE */ fprintf(siteMap, "
        \n"); while (i < n) { char filepath[64], filename[64]; if (d[i]->d_name[0] != '.') { scpy(d[i]->d_name, filepath, 64); fprintf( siteMap, " {-{%s}}\n", scsw( scpy(d[i]->d_name, filename, ssin(d[i]->d_name, ".htm") + 1), '_', ' ')); } free(d[i++]); } free(d); fprintf(siteMap, "
      \n"); fclose(siteMap); fclose(build(fopen(dstpath, "w"), l, "sitemap", srcpath)); printf("Created sitemap\n"); } int main(void) { Lexicon lex; DIR* d; lex.len = 0; if (!(d = opendir("inc"))) return error("Open", "Missing inc/ folder. "); if (!index(&lex, d)) return error("Indexing", "Failed"); if (!generate(&lex)) return error("Generating", "Failed"); inspect(&lex); map(&lex); return 0; }