This program splits the combined version of sqlite source code. See http://www.sqlite.org/ or http://www.sqlite.org/download.html for more of sqlite.


#include <stdio.h>

typedef enum
{
Error = -1,
None = 0,
Common,
BeginInc,
EndInc,
BeginFile,
EndFile,
} LineType;

typedef int Bool;

typedef struct
{
FILE *file;
char *fname;
} Writer;

void writeToCur (Writer *cur,char *line)
{
fprintf(cur->file,"%s",line);
}

void writeIncToCur (Writer *cur,char *chbuf)
{
fprintf(cur->file,"#include /"%s/"",chbuf);
}

Bool nextEq (char **s,const char *t)
{
Bool res = strncmp((*s),(t),strlen(t))==0;
if (res)
{
*s += strlen(t);
}
return res;
}

void getFileName (char *fname,const char *p)
{
while (*p != '*' && *p != ' ' && *p != 0)
{
*fname++ = *p++;
}
*fname = 0;
}

#define LineBufSize 1024

LineType readLine (FILE *file,char *line,char *fname)
{
int lenLine;
LineType type;
if (!fgets(line,LineBufSize - 1,file))
{
return None;
}
if (strlen(line) == LineBufSize - 1)
{ // possibly error
return Error;
}
lenLine = strlen(line);
if (lenLine > 20 && line[0] == '/' && line[1] == '*')
{
char *pEnd = line + lenLine;
char *p = line + 2;
for ( ; (*p == '*' || *p == ' ') && *p != 0; p++);
if (p - line < 10)
{
return Common;
}
if (nextEq(&p,"Begin file "))
{
getFileName(fname,p);
return BeginFile;
}
else if (nextEq(&p,"End of "))
{
getFileName(fname,p);
return EndFile;
}
else if (nextEq(&p,"Include pager.h in the middle of "))
{
getFileName(fname,p);
return BeginInc;
}
else if (nextEq(&p,"Continuing where we left off in "))
{
getFileName(fname,p);
return EndInc;
}
}
return Common;
}

void parse (char *sfname)
{
#define StackSize 32
char chbuf[128];
char fnbuf[256];
char line[LineBufSize];
Writer stack[StackSize];
Writer *cur;
int depth = 0;
FILE *srcFile = fopen(sfname,"r");

cur = stack + depth;
sprintf(fnbuf,"out/%s",sfname);
cur->file = fopen(fnbuf,"w");

while (1)
{
LineType type = readLine(srcFile,line,chbuf);
if (type == Error)
{
printf("An error has occurred during parsing./n");
break;
}
else if (type == None)
{
break;
}
switch (type)
{
case Common:
writeToCur(cur,line);
break;
case BeginInc:
writeIncToCur(cur,chbuf);
break;
case EndInc:
break;
case BeginFile:
printf("Found file embedded %s/n",chbuf);
depth++;
cur = stack + depth;
sprintf(fnbuf,chbuf);
cur->file = fopen(fnbuf,"w");
writeToCur(cur,line);
break;
case EndFile:
writeToCur(cur,line);
fclose(cur->file);
depth--;
cur = stack + depth;
break;
}
if (depth < 0)
{
break;
}
}
for ( ; depth >= 0; depth--)
{
cur = stack + depth;
fclose(cur->file);
}
}

int main (void)
{
parse("sqlite3.c");
return 0;
}