2008-05-10 00:41:52 +02:00
|
|
|
// Convert source code to hyperlinked html.
|
|
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
#include <sys/types.h>
|
|
|
|
|
#include <dirent.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
|
|
|
|
|
#define N 1000
|
|
|
|
|
#define BUFLEN 1000
|
|
|
|
|
char buf[BUFLEN], token[BUFLEN];
|
2008-05-11 06:04:58 +02:00
|
|
|
int special, comment_state, ncol;
|
2008-05-10 00:41:52 +02:00
|
|
|
|
|
|
|
|
struct {
|
|
|
|
|
char *filename;
|
|
|
|
|
char *symbol;
|
|
|
|
|
int line;
|
|
|
|
|
} stab[N];
|
|
|
|
|
|
|
|
|
|
int count;
|
|
|
|
|
|
|
|
|
|
main()
|
|
|
|
|
{
|
|
|
|
|
phase_1();
|
|
|
|
|
phase_2();
|
|
|
|
|
printf("%d symbols\n", count);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
filter(struct dirent *p)
|
|
|
|
|
{
|
|
|
|
|
int len;
|
|
|
|
|
len = strlen(p->d_name);
|
|
|
|
|
if (len > 2 && strcmp(p->d_name + len - 2, ".h") == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
else if (len > 4 && strcmp(p->d_name + len - 4, ".cpp") == 0)
|
|
|
|
|
return 1;
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
phase_1()
|
|
|
|
|
{
|
|
|
|
|
int i, n, x;
|
|
|
|
|
struct dirent **p;
|
|
|
|
|
n = scandir(".", &p, filter, alphasort);
|
|
|
|
|
for (i = 0; i < n; i++)
|
|
|
|
|
//printf("<a href=\"%s\">%s</a><br>\n", p[i]->d_name, p[i]->d_name);
|
|
|
|
|
g(p[i]->d_name);
|
|
|
|
|
scan_defs();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
char str1[1000], str2[1000], str3[1000];
|
|
|
|
|
|
|
|
|
|
g(char *s)
|
|
|
|
|
{
|
|
|
|
|
int line = 2;
|
|
|
|
|
char *a, *b, *c, *t;
|
|
|
|
|
FILE *f;
|
|
|
|
|
if (strcmp(s, "MainOSX.cpp") == 0 || strcmp(s, "MainXP.cpp") == 0)
|
|
|
|
|
return;
|
|
|
|
|
// printf("\n// %s\n", s);
|
|
|
|
|
f = fopen(s, "r");
|
|
|
|
|
if (f == NULL) {
|
|
|
|
|
printf("cannot open %s\n", s);
|
|
|
|
|
exit(1);
|
|
|
|
|
}
|
|
|
|
|
a = fgets(str1, 1000, f);
|
|
|
|
|
b = fgets(str2, 1000, f);
|
|
|
|
|
c = fgets(str3, 1000, f);
|
|
|
|
|
while (1) {
|
|
|
|
|
if (c == NULL)
|
|
|
|
|
break;
|
|
|
|
|
if (*c == '{' && strncmp(a, "static", 5) != 0) {
|
|
|
|
|
// string b has the name of the function
|
|
|
|
|
strchr(b, '(')[0] = 0;
|
|
|
|
|
if (count == N) {
|
|
|
|
|
printf("stab full\n");
|
|
|
|
|
exit(1);
|
|
|
|
|
}
|
|
|
|
|
stab[count].filename = strdup(s);
|
|
|
|
|
stab[count].symbol = strdup(b);
|
|
|
|
|
stab[count].line = line;
|
|
|
|
|
count++;
|
|
|
|
|
// printf("%s %d\n", b, line);
|
|
|
|
|
}
|
|
|
|
|
t = a;
|
|
|
|
|
a = b;
|
|
|
|
|
b = c;
|
|
|
|
|
c = fgets(t, 1000, f);
|
|
|
|
|
line++;
|
|
|
|
|
}
|
|
|
|
|
fclose(f);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
scan_defs()
|
|
|
|
|
{
|
|
|
|
|
char *s, *t;
|
|
|
|
|
FILE *f;
|
|
|
|
|
f = fopen("defs.h", "r");
|
|
|
|
|
while (fgets(buf, BUFLEN, f)) {
|
|
|
|
|
if (strncmp(buf, "#define", 7) == 0) {
|
|
|
|
|
s = buf + 8;
|
|
|
|
|
t = token;
|
|
|
|
|
do {
|
|
|
|
|
*t++ = *s++;
|
|
|
|
|
} while (*s == '_' || isalnum(*s));
|
|
|
|
|
*t = 0;
|
|
|
|
|
stab[count].filename = "defs.h";
|
|
|
|
|
stab[count].symbol = strdup(token);
|
|
|
|
|
count++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
phase_2()
|
|
|
|
|
{
|
|
|
|
|
int i, n, x;
|
|
|
|
|
struct dirent **p;
|
|
|
|
|
n = scandir(".", &p, filter, alphasort);
|
|
|
|
|
for (i = 0; i < n; i++)
|
|
|
|
|
//printf("<a href=\"%s\">%s</a><br>\n", p[i]->d_name, p[i]->d_name);
|
|
|
|
|
emit_html(p[i]->d_name);
|
|
|
|
|
special = 1;
|
|
|
|
|
emit_html("defs.h");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
char *preamble =
|
|
|
|
|
"<html>\n"
|
|
|
|
|
"<head>\n"
|
|
|
|
|
"<title>%s</title>\n"
|
|
|
|
|
//"<style type=\"text/css\">\n"
|
|
|
|
|
//"<!--\n"
|
|
|
|
|
//"A:link {color: black; text-decoration: none}\n"
|
|
|
|
|
//"A:visited {color: black; text-decoration: none}\n"
|
|
|
|
|
//"A:active {color: black; text-decoration: none}\n"
|
|
|
|
|
//"A:hover {color: blue; text-decoration: underline}\n"
|
|
|
|
|
//"-->\n"
|
|
|
|
|
//"</style>\n"
|
|
|
|
|
"</head>\n"
|
|
|
|
|
"<body>\n";
|
|
|
|
|
|
2008-08-09 04:29:44 +02:00
|
|
|
#if 0
|
2008-05-10 02:36:00 +02:00
|
|
|
char *epilog =
|
|
|
|
|
"<p><a href=\"http://sourceforge.net\"><img src=\"http://sflogo.sourceforge.net/sflogo.php?group_id=103462&type=2\" width=\"125\" height=\"37\" border=\"0\" alt=\"SourceForge.net Logo\" /></a></body></html>\n";
|
2008-08-09 04:29:44 +02:00
|
|
|
#else
|
|
|
|
|
char *epilog = "</body></html>\n";
|
|
|
|
|
#endif
|
2008-05-10 02:36:00 +02:00
|
|
|
|
2008-05-10 00:41:52 +02:00
|
|
|
char newfilename[BUFLEN], buf[BUFLEN];
|
|
|
|
|
FILE *fout;
|
|
|
|
|
|
|
|
|
|
emit_html(char *filename, int special)
|
|
|
|
|
{
|
|
|
|
|
FILE *f;
|
|
|
|
|
if (strcmp(filename, "MainOSX.cpp") == 0
|
|
|
|
|
|| strcmp(filename, "MainXP.cpp") == 0)
|
|
|
|
|
return;
|
|
|
|
|
f = fopen(filename, "r");
|
|
|
|
|
if (f == NULL) {
|
|
|
|
|
printf("cannot open %s\n", filename);
|
|
|
|
|
exit(1);
|
|
|
|
|
}
|
2008-05-10 02:27:45 +02:00
|
|
|
strcpy(newfilename, "src/");
|
2008-05-10 00:41:52 +02:00
|
|
|
strcat(newfilename, filename);
|
|
|
|
|
strcat(newfilename, ".html");
|
|
|
|
|
fout = fopen(newfilename, "w");
|
|
|
|
|
if (fout == NULL) {
|
|
|
|
|
printf("cannot open %s\n", newfilename);
|
|
|
|
|
exit(1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fprintf(fout, preamble, filename);
|
|
|
|
|
|
2008-05-11 06:04:58 +02:00
|
|
|
comment_state = 0;
|
|
|
|
|
|
2008-05-10 00:41:52 +02:00
|
|
|
while (fgets(buf, BUFLEN, f)) {
|
2008-08-09 04:29:44 +02:00
|
|
|
if (strcmp(buf, "#if SELFTEST\n") == 0)
|
|
|
|
|
break;
|
2008-05-10 00:41:52 +02:00
|
|
|
fputs("<tt>", fout);
|
|
|
|
|
process_one_line_of_source_code(buf);
|
|
|
|
|
fputs("</tt><br>\n", fout);
|
|
|
|
|
}
|
|
|
|
|
|
2008-05-10 02:36:00 +02:00
|
|
|
fputs(epilog, fout);
|
2008-05-10 00:41:52 +02:00
|
|
|
|
|
|
|
|
fclose(f);
|
|
|
|
|
fclose(fout);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
process_one_line_of_source_code(char *s)
|
|
|
|
|
{
|
2008-05-11 06:04:58 +02:00
|
|
|
char *t;
|
2008-05-10 00:41:52 +02:00
|
|
|
int d, i;
|
|
|
|
|
|
|
|
|
|
ncol = 0;
|
|
|
|
|
|
|
|
|
|
// erase line feed
|
|
|
|
|
|
|
|
|
|
t = s + strlen(s);
|
|
|
|
|
if (t - s && t[-1] == '\n') {
|
|
|
|
|
t--;
|
|
|
|
|
*t = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (strncmp(s, "#define ", 8) == 0)
|
|
|
|
|
d = 1;
|
|
|
|
|
else
|
|
|
|
|
d = 0;
|
|
|
|
|
|
|
|
|
|
while (*s) {
|
|
|
|
|
|
|
|
|
|
if (comment_state) {
|
2008-05-11 06:04:58 +02:00
|
|
|
if (s[0] == '*' && s[1] == '/') {
|
2008-05-10 00:41:52 +02:00
|
|
|
emit_char(*s++);
|
|
|
|
|
emit_char(*s++);
|
|
|
|
|
fputs("</i></b>", fout);
|
|
|
|
|
comment_state = 0;
|
|
|
|
|
} else
|
|
|
|
|
emit_char(*s++);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
2008-05-11 06:04:58 +02:00
|
|
|
if (s[0] == '/' && s[1] == '*') {
|
|
|
|
|
comment_state = 1;
|
2008-05-10 00:41:52 +02:00
|
|
|
fputs("<b><i>", fout);
|
|
|
|
|
emit_char(*s++);
|
|
|
|
|
emit_char(*s++);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
2008-05-11 06:04:58 +02:00
|
|
|
if (s[0] == '/' && s[1] == '/') {
|
|
|
|
|
comment_state = 1;
|
2008-05-10 00:41:52 +02:00
|
|
|
fputs("<b><i>", fout);
|
|
|
|
|
while (*s)
|
|
|
|
|
emit_char(*s++);
|
|
|
|
|
fputs("</i></b>", fout);
|
2008-05-11 06:04:58 +02:00
|
|
|
comment_state = 0;
|
2008-05-10 00:41:52 +02:00
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
2008-05-10 02:27:45 +02:00
|
|
|
// quoted string?
|
|
|
|
|
|
|
|
|
|
if (*s == '"') {
|
|
|
|
|
emit_char(*s++);
|
|
|
|
|
while (*s && *s != '"')
|
|
|
|
|
emit_char(*s++);
|
|
|
|
|
if (*s)
|
|
|
|
|
emit_char(*s++);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// symbol?
|
|
|
|
|
|
2008-05-10 00:41:52 +02:00
|
|
|
if (*s == '_' || isalpha(*s)) {
|
|
|
|
|
|
2008-05-11 06:04:58 +02:00
|
|
|
t = token;
|
2008-05-10 02:27:45 +02:00
|
|
|
while (*s == '_' || isalnum(*s))
|
2008-05-11 06:04:58 +02:00
|
|
|
*t++ = *s++;
|
|
|
|
|
*t = 0;
|
|
|
|
|
t = token;
|
2008-05-10 00:41:52 +02:00
|
|
|
|
|
|
|
|
// check symbol table
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < count; i++)
|
2008-05-11 06:04:58 +02:00
|
|
|
if (strcmp(t, stab[i].symbol) == 0)
|
2008-05-10 00:41:52 +02:00
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
// symbol not found?
|
|
|
|
|
|
|
|
|
|
if (i == count) {
|
2008-05-11 06:04:58 +02:00
|
|
|
while (*t)
|
|
|
|
|
emit_char(*t++);
|
2008-05-10 00:41:52 +02:00
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// symbol defn?
|
|
|
|
|
|
|
|
|
|
if (ncol == 0 || d && ncol == 8) {
|
2008-05-11 06:04:58 +02:00
|
|
|
fprintf(fout, "<a name=\"%s\">", t);
|
|
|
|
|
while (*t)
|
|
|
|
|
emit_char(*t++);
|
2008-05-10 00:41:52 +02:00
|
|
|
fputs("</a>", fout);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// hyperlink
|
|
|
|
|
|
|
|
|
|
fprintf(fout, "<a href=\"%s.html#%s\">", stab[i].filename, stab[i].symbol);
|
2008-05-11 06:04:58 +02:00
|
|
|
while (*t)
|
|
|
|
|
emit_char(*t++);
|
2008-05-10 00:41:52 +02:00
|
|
|
fputs("</a>", fout);
|
|
|
|
|
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
2008-05-11 06:04:58 +02:00
|
|
|
// none of the above
|
2008-05-10 02:27:45 +02:00
|
|
|
|
2008-05-10 00:41:52 +02:00
|
|
|
emit_char(*s++);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
emit_char(int c)
|
|
|
|
|
{
|
|
|
|
|
switch (c) {
|
2008-05-11 06:04:58 +02:00
|
|
|
case '|':
|
|
|
|
|
if (comment_state)
|
|
|
|
|
fputs("</i>|<i>", fout);
|
|
|
|
|
else
|
|
|
|
|
fputc('|', fout);
|
|
|
|
|
break;
|
2008-05-10 00:41:52 +02:00
|
|
|
case '\t':
|
|
|
|
|
do {
|
|
|
|
|
fputs(" ", fout);
|
|
|
|
|
ncol++;
|
|
|
|
|
} while (ncol % 8);
|
2008-05-11 06:04:58 +02:00
|
|
|
ncol--;
|
2008-05-10 00:41:52 +02:00
|
|
|
break;
|
2008-05-11 16:41:11 +02:00
|
|
|
case '&':
|
|
|
|
|
fputs("&", fout);
|
|
|
|
|
break;
|
2008-05-10 00:41:52 +02:00
|
|
|
case ' ':
|
|
|
|
|
fputs(" ", fout);
|
|
|
|
|
break;
|
|
|
|
|
case '<':
|
|
|
|
|
fputs("<", fout);
|
|
|
|
|
break;
|
|
|
|
|
case '>':
|
|
|
|
|
fputs(">", fout);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
fputc(c, fout);
|
|
|
|
|
break;
|
|
|
|
|
}
|
2008-05-11 06:04:58 +02:00
|
|
|
ncol++;
|
2008-05-10 00:41:52 +02:00
|
|
|
}
|
