plfold.c

/* This program does syntax colouring on PL/SQL for display on the web; it also supports code folding by means of special embedded comments. The conventions are the same as for my similar C to HTML filter; this source is encoded using the C filter. Any comments in dark green are actually 'folds' and can be expanded by clicking on them. */ #include <stdio.h> « Constants »

#define QUOTE_COLOR "#ff0000" #define COMMENT_COLOR "#408080" #define FOLD_COLOR "#205050" #ifndef FALSE #define TRUE (0==0) #define FALSE (0!=0) #endif

char *Reserved_Words[] = { « Table of keywords »

"ACCESS", "ELSEIF", "PUBLIC", "ADD", "END", "RAISE", "ALL", "ENTRY", "RANGE", "ALTER", "EXCEPTION", "REAL", "AND", "EXCEPTION_INIT", "RECORD", "ANY", "EXISTS", "RELEASE", "ARRAY", "EXIT", "REM", "ARRAYLEN", "FALSE", "RENAME", "AS", "FETCH", "RESOURCE", "ASC", "FLOAT", "RETURN", "ASSERT", "FOR", "REVERSE", "ASSIGN", "FORM", "REVOKE", "AT", "FORMAT", "ROLLBACK", "AUTHORIZATION", "FROM", "ROWID", "BASE_TABLE", "FUNCTION", "ROWLABEL", "BEGIN", "GENERIC", "ROWNUM", "BETWEEN", "GOTO", "ROWTYPE", "BINARY_INTEGER", "GRANT", "RUN", "BODY", "GROUP", "SAVEPOINT", "BOOLEAN", "HAVING", "SCHEMA", "BY", "IDENTIFIED", "SELECT", "CASE", "IF", "SEPARATE", "CHAR", "IN", "SET", "CHAR_BASE", "INDEX", "SIZE", "CHECK", "INDEXES", "SMALLINT", "CLOSE", "INDICATOR", "SPACE", "CLUSTER", "INSERT", "SPOOL", "CLUSTERS", "INTEGER", "SQL", "COLAUTH", "INTERSECT", "SQLCODE", "COLUMN", "INTO", "SQLERRM", "COLUMNS", "IS", "START", "COMMIT", "LEVEL", "STATEMENT", "COMPRESS", "LIKE", "SUBTYPE", "CONNECT", "LIMITED", "TABAUTH", "CONSTANT", "LOOP", "TABLE", "CRASH", "MINUS", "TABLES", "CREATE", "MLSLABEL", "TABLESPACE", "CURRENT", "NATURAL", "TASK", "CURRVAL", "NEW", "TERMINATE", "CURSOR", "NEXTVAL", "THEN", "DATA_BASE", "NOCOMPRESS", "TO", "DATABASE", "NOT", "TRUE", "DATE", "NULL", "TYPE", "DBA", "NUMBER", "UNFORMAT", "DEBUGOFF", "NUMBER_BASE", "UNION", "DEBUGON", "OF", "UNIQUE", "DECIMAL", "ON", "UPDATE", "DECLARE", "OPEN", "USE", "DEFAULT", "OPTION", "VALUES", "DEFINITION", "OR", "VARCHAR", "DELAY", "ORDER", "VARCHAR2", "DELETE", "OTHERS", "VIEW", "DELTA", "OUT", "VIEWS", "DESC", "PACKAGE", "WHEN", "DIGITS", "PARTITION", "WHERE", "DISPOSE", "PCTFREE", "WHILE", "DISTINCT", "POSITIVE", "WITH", "DO", "PRAGMA", "WORK", "DROP", "PRIOR", "XOR", /* Additions by GT: */ "REPLACE", "PROCEDURE", "ELSE", "ELSIF", "PLS_INTEGER", "ROWCOUNT", "ISOPEN", "FORALL", NULL

}; int IsReservedWord(char *word) { « Is this a keyword to be printed bold? »

int i = 0; char *s = word; for (;;) { if (Reserved_Words[i] == NULL) break; if (!strcasecmp(word, Reserved_Words[i++])) return 1; } #ifdef UC_HACK while (*s != '\0') { if ((isalpha(*s)) && (!isupper(*s))) return 0; s += 1; } return 1; #else return 0; #endif

} « Support stuff for folding »

static int next_fold = 0; int stack[12]; int top = -1;

static int suppress_newline_hack = FALSE; // An unfortunate hack due to the way <div> inserts an extra blank line. void printchar (char inchar) « quote '<' and '&' with entity references on output. Note that fold descriptors like this comment do not go through this procedure, therefore embedded HTML is allowed! (Useful for embedded diagrams) »

{ if (inchar == '&') fprintf (stdout, "&"); else if (inchar == '>') fprintf (stdout, ">"); else if (inchar == '<') fprintf (stdout, "<"); else if (inchar == '\n') { if (suppress_newline_hack) { fprintf (stdout, ""); } else fputc ('\n', stdout); suppress_newline_hack = FALSE; } else { fputc (inchar, stdout); } }

void PrintHeader (void) « Output Javascript and CSS to the header section »

{ « First the Javascript - comes from http://www.netlobo.com/div_hiding.html »

« And then the CSS - derived from Tim Wakeham's page »

}

« Four procedures to output DHTML <div>s to hide/display the nested layers »

void UnexpandedStart (int seq) { stack[++top] = seq; if (top > 0) fprintf (stdout, /* terminate link from previous block because nested links are bad! */ "</a>"); fprintf (stdout, "<a href=\"javascript:toggleLayer('expanded_%d','unexpanded_%d')\" class=\"show\">", seq, seq, seq); } void UnexpandedFinish (void) { fprintf (stdout, "<div class=\"show\" id=\"unexpanded_%d\"></div>", stack[top]); fprintf (stdout, "</a>"); } void ExpandedStart (void) { int seq = stack[top]; if (top > 0) fprintf (stdout, /* terminate link from previous block because nested links are bad! */ "</a>" "</font>"); fprintf (stdout, "<div class=\"data\" id=\"expanded_%d\">" "<font color=\"#000000\">" "<a href=\"javascript:toggleLayer('expanded_%d','unexpanded_%d')\" class=\"show\">", seq, seq, seq); } void ExpandedFinish (void) { --top; fprintf (stdout, "</a>" "</font>" "</div>"); if (top >= 0) { int seq = stack[top]; fprintf (stdout, /* re-instate link to allow collapse of previous block */ "<font color=\"#000000\">" "<a href=\"javascript:toggleLayer('expanded_%d','unexpanded_%d')\" class=\"show\">", seq, seq, seq); } else { fprintf (stdout, "<font color=\"#000000\">"); } }

int main(int argc, char **argv) { #define NEXTCH {c = fgetc(stdin); \ pend = fgetc(stdin); \ ungetc(pend, stdin); \ } int c = -1, pend = -1, lastch; // HTML header printf("<html><head><title></title>"); PrintHeader(); printf("</head><body><PRE>"); for (;;) { lastch = c; NEXTCH; // C is always the current character, pend is what you will read next. « Loop over input, output it to HTML on stdout »