int main(int argc, char** argv)
{
SDL_Surface *image, *mask;
SDL_Surface *surf;
FILE* out, *in;
Uint8 r, g, b;
Uint32 pixel;
char line[1024];
int i, j, k;
int opcode;
char* oper;
char spec[1024];
char* arg;
char* str;
int exit_code = 0;
char *oper_names[256] = {NULL};
int arg_count[256];
oper_names[10] = "Do";
arg_count[10] = 4;
oper_names[12] = "PtrTo";
arg_count[12] = 1;
oper_names[13] = "PtrFrom";
arg_count[13] = 1;
oper_names[31] = "bPtrTo";
arg_count[31] = 3;
oper_names[35] = "zbPtrTo";
arg_count[35] = 3;
oper_names[14] = "BoolDie";
arg_count[14] = 1;
oper_names[20] = "Draw";
arg_count[20] = 8;
oper_names[21] = "vDraw";
arg_count[21] = 8;
oper_names[30] = "OutputDraw";
arg_count[30] = 0;
oper_names[25] = "mx";
oper_names[26] = "my";
oper_names[50] = "cmx";
oper_names[51] = "cmx";
arg_count[25] = arg_count[26]
= arg_count[50] = arg_count[51]
= arg_count[25] = 1;
oper_names[15] = "Wait";
arg_count[15] = 2;
oper_names[11] = "Echo";
arg_count[11] = 1;
oper_names[255] = "End";
arg_count[255] = 0;
if (argc != 5) {
printf("Usage: %s graphics.bmp mask.bmp source.asm out.BPF\n",
*argv);
exit(1);
}
image = SDL_LoadBMP(argv[1]);
mask = SDL_LoadBMP(argv[2]);
if (!(out = fopen(argv[4], "w"))) {
printf("bpfasm: could not open output binary\n");
exit(1);
}
if (!(in = fopen(argv[3], "r"))) {
printf("bpfasm: could not open source code\n");
exit(1);
}
if (!image || !mask) {
printf("bpfasm: graphics loading failed\n");
exit(1);
}
if(image->w < 255 || image->h < 255
|| mask->w < 255 || mask->h < 255) {
printf("bpfasm: graphics wrong size\n");
exit(1);
}
/* write graphics data */
for (k = 0; k < 2; k++) {
for (i = 0; i < 255; i++) {
for (j = 0; j < 255; j++) {
surf = k ? mask : image;
pixel = getpixel(surf, j, i);
SDL_GetRGB(pixel, surf->format, &r, &g, &b);
fputc(r, out);
fputc(g, out);
fputc(b, out);
}
}
}
while (!feof(in)) {
fgets(line, 1024, in);
/* skip empty or comment lines */
if (*line == '\n' || *line==';' || strlen(line) < 3)
continue;
/* prune newline */
if (line[strlen(line) - 1] == '\n')
line[strlen(line) - 1] = 0;
/* stop reading at tab or semicolon */
for (i = 0; i < strlen(line); i++)
if (line[i] == ';' || line[i] == '\t') {
line[i] = 0;
break;
}
/* get opcode */
oper = strtok(line, " ");
opcode = -1;
for (i = 0; i < 255; i++)
if (oper_names[i] && !strcmp(oper_names[i], oper)) {
opcode = i;
break;
}
if (opcode == -1) {
printf("bpfasm: unknown operator '%s'\n", oper);
clean_exit(1);
}
fputc(opcode, out);
/* get args */
for (i = 0; i < arg_count[opcode]; i++) {
arg = strtok(NULL, " ");
if (!arg || !isnumstring(arg) || atoi(arg) > 255 || atoi(arg) < 0) {
printf("bpfasm: illegal data: '%s'\n", arg);
clean_exit(1);
}
fputc(atoi(arg), out);
}
}
/* final "End" opcode */
fputc(255, out);
clean_up:
fclose(out);
fclose(in);
SDL_FreeSurface(image);
SDL_FreeSurface(mask);
return exit_code;
}
void getdefaults(SWISH * sw, char *conffile, int *hasdir, int *hasindex, int hasverbose)
{
int i,
gotdir,
gotindex;
char *line = NULL;
FILE *fp;
int linenumber = 0;
int baddirective = 0;
StringList *sl;
IndexFILE *indexf = NULL;
unsigned char *StringValue = NULL;
struct swline *tmplist;
char *w0;
gotdir = gotindex = 0;
if ((fp = fopen(conffile, F_READ_TEXT)) == NULL || !isfile(conffile))
progerrno("Couldn't open the configuration file '%s': ", conffile);
if ( sw->verbose >= 2 )
printf("Parsing config file '%s'\n", conffile );
/* Init default index file */
addindexfile(sw, INDEXFILE);
indexf = sw->indexlist;
sl = NULL;
while ( !feof( fp ) )
{
/* Free previous line */
if ( line )
efree( line );
/* Read a line */
line = read_line_from_file( &linenumber, fp );
if ( sl )
freeStringList(sl);
/* Parse line */
if (!(sl = parse_line(line)))
continue;
if (!sl->n)
continue;
w0 = sl->word[0]; /* Config Direct. = 1. word */
if (w0[0] == '#')
continue; /* comment */
if (strcasecmp(w0, "IndexDir") == 0)
{
if (sl->n > 1)
{
if (!*hasdir)
{
gotdir = 1;
grabCmdOptions(sl, 1, &sw->dirlist);
}
}
else
progerr("%s: requires at least one value", w0);
continue;
}
if (strcasecmp(w0, "IncludeConfigFile") == 0)
{
if (sl->n == 2)
{
normalize_path( sl->word[1] );
getdefaults(sw, sl->word[1], hasdir, hasindex, hasverbose);
}
else
progerr("%s: requires one value", w0);
continue;
}
if (strcasecmp(w0, "NoContents") == 0)
{
if (sl->n > 1)
{
grabCmdOptions(sl, 1, &sw->nocontentslist);
}
else
progerr("%s: requires at least one value", w0);
continue;
}
if (strcasecmp(w0, "IndexFile") == 0)
{
if (!(*hasindex))
{
if (sl->n == 2)
{
gotindex = 1;
if (indexf->line)
efree(indexf->line);
indexf->line = estrdup(sl->word[1]);
normalize_path( indexf->line );
}
else
progerr("%s: requires one value", w0);
}
continue;
}
if (strcasecmp(w0, "IndexReport") == 0)
{
if (sl->n == 2)
{
if (!hasverbose)
sw->verbose = read_integer( sl->word[1], w0, 0, 4 );
}
else
progerr("%s: requires one value", w0);
continue;
}
if (strcasecmp(w0, "ParserWarnLevel") == 0)
{
if (sl->n == 2)
sw->parser_warn_level = read_integer( sl->word[1], w0, 0, 9 );
else
progerr("%s: requires one value", w0);
continue;
}
if (strcasecmp(w0, "obeyRobotsNoIndex") == 0)
{
sw->obeyRobotsNoIndex = getYesNoOrAbort(sl, 1, 1);
continue;
}
if (strcasecmp(w0, "AbsoluteLinks") == 0)
{
sw->AbsoluteLinks = getYesNoOrAbort(sl, 1, 1);
continue;
}
if (strcasecmp(w0, "MinWordLimit") == 0)
{
if (sl->n == 2)
{
indexf->header.minwordlimit = read_integer( sl->word[1], w0, 0, INT_MAX );
}
else
progerr("%s: requires one value", w0);
continue;
}
if (strcasecmp(w0, "MaxWordLimit") == 0)
{
if (sl->n == 2)
{
indexf->header.maxwordlimit = read_integer( sl->word[1], w0, 0, INT_MAX );
}
else
progerr("%s: requires one value", w0);
continue;
}
if (strcasecmp(w0, "IndexComments") == 0)
{
sw->indexComments = getYesNoOrAbort(sl, 1, 1);
continue;
}
if (strcasecmp(w0, "IgnoreNumberChars") == 0)
{
if (sl->n == 2)
{
indexf->header.numberchars = SafeStrCopy(indexf->header.numberchars, sl->word[1], &indexf->header.lennumberchars);
sortstring(indexf->header.numberchars);
makelookuptable(indexf->header.numberchars, indexf->header.numbercharslookuptable);
indexf->header.numberchars_used_flag = 1; /* Flag that it is used */
}
else
progerr("%s: requires one value (a set of characters)", w0);
continue;
}
if (strcasecmp(w0, "WordCharacters") == 0)
{
if (sl->n == 2)
{
indexf->header.wordchars = SafeStrCopy(indexf->header.wordchars, sl->word[1], &indexf->header.lenwordchars);
sortstring(indexf->header.wordchars);
makelookuptable(indexf->header.wordchars, indexf->header.wordcharslookuptable);
}
else
progerr("%s: requires one value", w0);
continue;
}
if (strcasecmp(w0, "BeginCharacters") == 0)
{
if (sl->n == 2)
{
indexf->header.beginchars = SafeStrCopy(indexf->header.beginchars, sl->word[1], &indexf->header.lenbeginchars);
sortstring(indexf->header.beginchars);
makelookuptable(indexf->header.beginchars, indexf->header.begincharslookuptable);
}
else
progerr("%s: requires one value", w0);
continue;
}
if (strcasecmp(w0, "EndCharacters") == 0)
{
if (sl->n == 2)
{
indexf->header.endchars = SafeStrCopy(indexf->header.endchars, sl->word[1], &indexf->header.lenendchars);
sortstring(indexf->header.endchars);
makelookuptable(indexf->header.endchars, indexf->header.endcharslookuptable);
}
else
progerr("%s: requires one value", w0);
continue;
}
if (strcasecmp(w0, "IgnoreLastChar") == 0)
{
if (sl->n == 2)
{
indexf->header.ignorelastchar = SafeStrCopy(indexf->header.ignorelastchar, sl->word[1], &indexf->header.lenignorelastchar);
sortstring(indexf->header.ignorelastchar);
makelookuptable(indexf->header.ignorelastchar, indexf->header.ignorelastcharlookuptable);
} /* Do nothing */
/* else progerr("%s: requires one value",w0); */
continue;
}
if (strcasecmp(w0, "IgnoreFirstChar") == 0)
{
if (sl->n == 2)
{
indexf->header.ignorefirstchar = SafeStrCopy(indexf->header.ignorefirstchar, sl->word[1], &indexf->header.lenignorefirstchar);
sortstring(indexf->header.ignorefirstchar);
makelookuptable(indexf->header.ignorefirstchar, indexf->header.ignorefirstcharlookuptable);
} /* Do nothing */
/* else progerr("%s: requires one value",w0); */
continue;
}
if (strcasecmp(w0, "ReplaceRules") == 0)
{
if (sl->n > 2)
Build_ReplaceRules( w0, sl->word, &sw->replaceRegexps );
else
progerr("%s: requires at least two values", w0);
continue;
}
if (strcasecmp(w0, "IndexName") == 0)
{
if (sl->n > 1)
{
StringValue = StringListToString(sl, 1);
indexf->header.indexn = SafeStrCopy(indexf->header.indexn, (char *)StringValue, &indexf->header.lenindexn);
efree(StringValue);
}
else
progerr("%s: requires a value", w0);
continue;
}
if (strcasecmp(w0, "IndexDescription") == 0)
{
if (sl->n > 1)
{
StringValue = StringListToString(sl, 1);
indexf->header.indexd = SafeStrCopy(indexf->header.indexd, (char *)StringValue, &indexf->header.lenindexd);
efree(StringValue);
}
else
progerr("%s: requires a value", w0);
continue;
}
if (strcasecmp(w0, "IndexPointer") == 0)
{
if (sl->n > 1)
{
StringValue = StringListToString(sl, 1);
indexf->header.indexp = SafeStrCopy(indexf->header.indexp, (char *)StringValue, &indexf->header.lenindexp);
efree(StringValue);
}
else
progerr("%s: requires a value", w0);
continue;
}
if (strcasecmp(w0, "IndexAdmin") == 0)
{
if (sl->n > 1)
{
StringValue = StringListToString(sl, 1);
indexf->header.indexa = SafeStrCopy(indexf->header.indexa, (char *)StringValue, &indexf->header.lenindexa);
efree(StringValue);
}
else
progerr("%s: requires one value", w0);
continue;
}
if (strcasecmp(w0, "UseStemming") == 0)
{
progwarn("UseStemming is deprecated. See FuzzyIndexingMode in the docs");
if ( getYesNoOrAbort(sl, 1, 1) )
fuzzy_or_die( indexf, "Stemming_en" );
continue;
}
if (strcasecmp(w0, "UseSoundex") == 0)
{
if ( getYesNoOrAbort(sl, 1, 1) )
fuzzy_or_die( indexf, "Soundex" );
continue;
}
if (strcasecmp(w0, "FuzzyIndexingMode") == 0)
{
if (sl->n != 2)
progerr("%s: requires one value", w0);
fuzzy_or_die( indexf, sl->word[1] );
continue;
}
if (strcasecmp(w0, "IgnoreTotalWordCountWhenRanking") == 0)
{
indexf->header.ignoreTotalWordCountWhenRanking = getYesNoOrAbort(sl, 1, 1);
continue;
}
if (strcasecmp(w0, "TranslateCharacters") == 0)
{
if (sl->n >= 2)
{
if (!BuildTranslateChars(indexf->header.translatecharslookuptable, (unsigned char *)sl->word[1], (unsigned char *)sl->word[2]))
{
progerr("%s: requires two values (same length) or one translation rule", w0);
}
}
continue;
}
if (strcasecmp(w0, "ExtractPath") == 0)
{
struct metaEntry *m;
char **words;
if (sl->n < 4)
progerr("%s: requires at least three values: metaname expression type and a expression/strings", w0);
if ( !( m = getMetaNameByName( &indexf->header, sl->word[1])) )
m = addMetaEntry(&indexf->header, sl->word[1], META_INDEX, 0);
words = sl->word;
words++; /* past metaname */
add_ExtractPath( w0, sw, m, words );
continue;
}
if (strcasecmp(w0, "ExtractPathDefault") == 0)
{
struct metaEntry *m;
if (sl->n != 3)
progerr("%s: requires two values: metaname default_value", w0);
if ( !( m = getMetaNameByName( &indexf->header, sl->word[1])) )
m = addMetaEntry(&indexf->header, sl->word[1], META_INDEX, 0);
if ( m->extractpath_default )
progerr("%s already defined for meta '%s' as '%s'", w0, m->metaName, m->extractpath_default );
m->extractpath_default = estrdup( sl->word[2] );
continue;
}
if (strcasecmp(w0, "MetaNames") == 0)
{
if (sl->n <= 1)
progerr("%s: requires at least one value", w0);
for (i = 1; i < sl->n; i++)
{
if ( getMetaNameByName( &indexf->header, sl->word[i]) )
progerr("%s - name '%s' is already a MetaName", w0, sl->word[i] );
addMetaEntry(&indexf->header, sl->word[i], META_INDEX, 0);
}
continue;
}
if (strcasecmp(w0, "MetaNameAlias") == 0)
{
struct metaEntry *meta_entry;
struct metaEntry *new_meta;
if (sl->n < 3)
progerr("%s: requires at least two values", w0);
/* Make sure first entry is not an alias */
/* Lookup entry, and do not follow alias */
if ( !(meta_entry = getMetaNameByNameNoAlias( &indexf->header, sl->word[1]) ) )
progerr("%s - name '%s' not a MetaName", w0, sl->word[1] );
if ( meta_entry->alias )
progerr("%s - name '%s' must not be an alias", w0, sl->word[1] );
for (i = 2; i < sl->n; i++)
{
if ( getMetaNameByNameNoAlias( &indexf->header, sl->word[i]) )
progerr("%s - name '%s' is already a MetaName or MetaNameAlias", w0, sl->word[i] );
new_meta = addMetaEntry(&indexf->header, sl->word[i], meta_entry->metaType, 0);
new_meta->alias = meta_entry->metaID;
}
continue;
}
/* Allow setting a bias on MetaNames */
if (strcasecmp(w0, "MetaNamesRank") == 0)
{
struct metaEntry *meta_entry;
int rank = 0;
if (sl->n < 3)
progerr("%s: requires only two or more values, a rank (integer) and a list of property names", w0);
rank = read_integer( sl->word[1], w0, -RANK_BIAS_RANGE, RANK_BIAS_RANGE ); // NOTE: if this is changed db.c must match
for (i = 2; i < sl->n; i++)
{
/* already exists? */
if ( (meta_entry = getMetaNameByNameNoAlias( &indexf->header, sl->word[i])) )
{
if ( meta_entry->alias )
progerr("Can't assign a rank to metaname '%s': it is an alias", meta_entry->metaName );
if ( meta_entry->rank_bias )
progwarn("Why are you redefining the rank of metaname '%s'?", meta_entry->metaName );
}
else
meta_entry = addMetaEntry(&indexf->header, sl->word[i], META_INDEX, 0);
meta_entry->rank_bias = rank;
}
continue;
}
/* Meta name to extract out <a href> links */
if (strcasecmp(w0, "HTMLLinksMetaName") == 0)
{
if (sl->n <= 1)
progerr("%s: requires one value", w0);
if ( !( sw->links_meta = getMetaNameByName( &indexf->header, sl->word[1]) ))
sw->links_meta = addMetaEntry(&indexf->header, sl->word[1], META_INDEX, 0);
continue;
}
/* What to do with IMG ATL tags? */
if (strcasecmp(w0, "IndexAltTagMetaName") == 0)
{
if (sl->n <= 1)
progerr("%s: requires one value", w0);
if ( strcasecmp( sl->word[1], "as-text" ) == 0)
{
sw->IndexAltTag = 1;
if ( sw->IndexAltTagMeta )
{
efree( sw->IndexAltTagMeta );
sw->IndexAltTagMeta = NULL;
}
}
else
{
sw->IndexAltTag = 1;
if ( sw->IndexAltTagMeta )
{
efree( sw->IndexAltTagMeta );
sw->IndexAltTagMeta = NULL;
}
sw->IndexAltTagMeta = estrdup( sl->word[1] );
}
continue;
}
/* Meta name to extract out <img src> links */
if (strcasecmp(w0, "ImageLinksMetaName") == 0)
{
if (sl->n <= 1)
progerr("%s: requires one value", w0);
if ( !( sw->images_meta = getMetaNameByName( &indexf->header, sl->word[1]) ))
sw->images_meta = addMetaEntry(&indexf->header, sl->word[1], META_INDEX, 0);
continue;
}
if (strcasecmp(w0, "PropCompressionLevel") == 0)
{
#ifdef HAVE_ZLIB
if (sl->n == 2)
{
sw->PropCompressionLevel = read_integer( sl->word[1], w0, 0, 9 );
}
else
progerr("%s: requires one value", w0);
#else
progwarn("%s: Swish not built with zlib support -- cannot compress", w0);
#endif
continue;
}
if (strcasecmp(w0, "PropertyNames") == 0)
{
if (sl->n <= 1)
progerr("%s: requires at least one value", w0);
for (i = 1; i < sl->n; i++)
{
if ( getPropNameByName( &indexf->header, sl->word[i]) )
progerr("%s - name '%s' is already a PropertyName", w0, sl->word[i] );
addMetaEntry(&indexf->header, sl->word[i], META_PROP|META_STRING|META_IGNORE_CASE, 0);
}
continue;
}
if (strcasecmp(w0, "PropertyNamesIgnoreCase") == 0)
{
struct metaEntry *m;
if (sl->n <= 1)
progerr("%s: requires at least one value", w0);
for (i = 1; i < sl->n; i++)
{
if ( !(m = getPropNameByName( &indexf->header, sl->word[i])) )
addMetaEntry(&indexf->header, sl->word[i], META_PROP|META_STRING|META_IGNORE_CASE, 0);
else
{
if ( !is_meta_string( m ) )
progerr("%s - name '%s' is not a STRING type of Property", w0, sl->word[i] );
m->metaType |= META_IGNORE_CASE;
}
}
continue;
}
if (strcasecmp(w0, "PropertyNamesCompareCase") == 0)
{
struct metaEntry *m;
if (sl->n <= 1)
progerr("%s: requires at least one value", w0);
for (i = 1; i < sl->n; i++)
{
if ( !(m = getPropNameByName( &indexf->header, sl->word[i])) )
addMetaEntry(&indexf->header, sl->word[i], META_PROP|META_STRING, 0);
else
{
if ( !is_meta_string( m ) )
progerr("%s - name '%s' is not a STRING type of Property", w0, sl->word[i] );
m->metaType &= ~META_IGNORE_CASE;
}
}
continue;
}
/* --- this is duplicating.. */
if (strcasecmp(w0, "PropertyNamesNoStripChars") == 0)
{
struct metaEntry *m;
if (sl->n <= 1)
progerr("%s: requires at least one value", w0);
for (i = 1; i < sl->n; i++)
{
if ( !(m = getPropNameByName( &indexf->header, sl->word[i])) )
addMetaEntry(&indexf->header, sl->word[i], META_PROP|META_STRING|META_IGNORE_CASE|META_NOSTRIP, 0);
else
{
if ( !is_meta_string( m ) )
progerr("%s - name '%s' is not a STRING type of Property", w0, sl->word[i] );
m->metaType |= META_NOSTRIP;
}
}
continue;
}
if (strcasecmp(w0, "PropertyNamesStripChars") == 0)
{
struct metaEntry *m;
if (sl->n <= 1)
progerr("%s: requires at least one value", w0);
for (i = 1; i < sl->n; i++)
{
if ( !(m = getPropNameByName( &indexf->header, sl->word[i])) )
addMetaEntry(&indexf->header, sl->word[i], META_PROP|META_STRING|META_IGNORE_CASE, 0);
else
{
if ( !is_meta_string( m ) )
progerr("%s - name '%s' is not a STRING type of Property", w0, sl->word[i] );
m->metaType &= ~META_NOSTRIP;
}
}
continue;
}
if (strcasecmp(w0, "PropertyNamesNumeric") == 0)
{
if (sl->n <= 1)
progerr("%s: requires at least one value", w0);
for (i = 1; i < sl->n; i++)
{
if ( getPropNameByName( &indexf->header, sl->word[i]) )
progerr("%s - name '%s' is already a PropertyName", w0, sl->word[i] );
addMetaEntry(&indexf->header, sl->word[i], META_PROP|META_NUMBER, 0);
}
continue;
}
if (strcasecmp(w0, "PropertyNamesDate") == 0)
{
if (sl->n <= 1)
progerr("%s: requires at least one value", w0);
for (i = 1; i < sl->n; i++)
{
if ( getPropNameByName( &indexf->header, sl->word[i]) )
progerr("%s - name '%s' is already a PropertyName", w0, sl->word[i] );
addMetaEntry(&indexf->header, sl->word[i], META_PROP|META_DATE, 0);
}
continue;
}
if (strcasecmp(w0, "PropertyNameAlias") == 0)
{
struct metaEntry *meta_entry;
struct metaEntry *new_meta;
if (sl->n < 3)
progerr("%s: requires at least two values", w0);
/* Make sure first entry is not an alias */
/* Lookup entry, and do not follow alias */
if ( !(meta_entry = getPropNameByNameNoAlias( &indexf->header, sl->word[1]) ) )
progerr("%s - name '%s' not a PropertyName", w0, sl->word[1] );
if ( meta_entry->alias )
progerr("%s - name '%s' must not be an alias", w0, sl->word[1] );
for (i = 2; i < sl->n; i++)
{
if ( getPropNameByNameNoAlias( &indexf->header, sl->word[i]) )
progerr("%s - name '%s' is already a PropertyName or PropertyNameAlias", w0, sl->word[i] );
new_meta = addMetaEntry(&indexf->header, sl->word[i], meta_entry->metaType, 0);
new_meta->alias = meta_entry->metaID;
}
continue;
}
/* This allows setting a limit on a property's string length */
// One question would be if this should set the length on the alias, or the real property. */
// If on the alias then you could really fine tune:
// PropertyNames description
// PropertyNameAlias description td h1 h2 h3
// PropertyNameMaxLength 5000 description
// PropertyNameMaxLength 100 td
// PropertyNameMaxLength 10 h1 h2 h3
// then the total length would be 5000, but each one would be limited, too. I find that hard to imagine
// it would be useful. So the current design is you can only assign to a non-alias.
if (strcasecmp(w0, "PropertyNamesMaxLength") == 0)
{
struct metaEntry *meta_entry;
int max_length = 0;
if (sl->n < 3)
progerr("%s: requires only two or more values, a length and a list of property names", w0);
max_length = read_integer( sl->word[1], w0, 0, INT_MAX );
for (i = 2; i < sl->n; i++)
{
/* already exists? */
if ( (meta_entry = getPropNameByNameNoAlias( &indexf->header, sl->word[i])) )
{
if ( meta_entry->alias )
progerr("Can't assign a length to property '%s': it is an alias", meta_entry->metaName );
if ( meta_entry->max_len )
progwarn("Why are you redefining the max length of property '%s'?", meta_entry->metaName );
if ( !is_meta_string( meta_entry ) )
progerr("%s - name '%s' is not a STRING type of Property", w0, sl->word[i] );
}
else
meta_entry = addMetaEntry(&indexf->header, sl->word[i], META_PROP|META_STRING, 0);
meta_entry->max_len = max_length;
}
continue;
}
/* Set the sort length */
if (strcasecmp(w0, "PropertyNamesSortKeyLength") == 0)
{
struct metaEntry *meta_entry;
int max_length = 0;
if (sl->n < 3)
progerr("%s: requires only two or more values, a length and a list of property names", w0);
max_length = read_integer( sl->word[1], w0, 1, INT_MAX );
for (i = 2; i < sl->n; i++)
{
/* already exists? */
if ( (meta_entry = getPropNameByNameNoAlias( &indexf->header, sl->word[i])) )
{
if ( meta_entry->alias )
progerr("Can't assign a length to property '%s': it is an alias", meta_entry->metaName );
if ( meta_entry->max_len )
progwarn("Why are you redefining the max sort key length of property '%s'?", meta_entry->metaName );
if ( !is_meta_string( meta_entry ) )
progerr("%s - name '%s' is not a STRING type of Property", w0, sl->word[i] );
}
else
meta_entry = addMetaEntry(&indexf->header, sl->word[i], META_PROP|META_STRING, 0);
meta_entry->sort_len = max_length;
}
continue;
}
/* Hashed word lists */
if ( !strcasecmp(w0, "IgnoreWords") || !strcasecmp(w0, "StopWords"))
{
word_hash_config( sl, &indexf->header.hashstoplist );
continue;
}
if (strcasecmp(w0, "BuzzWords") == 0) /* 2001-04-24 moseley */
{
word_hash_config( sl, &indexf->header.hashbuzzwordlist );
continue;
}
if (strcasecmp(w0, "UseWords") == 0)
{
word_hash_config( sl, &indexf->header.hashuselist );
continue;
}
/* IndexVerbose is supported for backwards compatibility */
if (strcasecmp(w0, "IndexVerbose") == 0)
{
sw->verbose = getYesNoOrAbort(sl, 1, 1);
if (sw->verbose)
sw->verbose = 3;
continue;
}
if (strcasecmp(w0, "IndexOnly") == 0)
{
if (sl->n > 1)
{
grabCmdOptions(sl, 1, &sw->suffixlist);
}
else
progerr("%s: requires at least one value", w0);
continue;
}
if (strcasecmp(w0, "IndexContents") == 0)
{
if (sl->n > 2)
{
struct IndexContents *ic = (struct IndexContents *) emalloc(sizeof(struct IndexContents));
ic->DocType = getDocTypeOrAbort(sl, 1);
ic->patt = NULL;
for (i = 2; i < sl->n; i++)
ic->patt = addswline(ic->patt, sl->word[i]);
if (sw->indexcontents)
ic->next = sw->indexcontents;
else
ic->next = NULL;
sw->indexcontents = ic;
}
else
progerr("%s: requires at least two values", w0);
continue;
}
/* $$$ this needs fixing */
if (strcasecmp(w0, "StoreDescription") == 0)
{
if (sl->n == 3 || sl->n == 4)
{
struct StoreDescription *sd = (struct StoreDescription *) emalloc(sizeof(struct StoreDescription));
sd->DocType = getDocTypeOrAbort(sl, 1);
sd->size = 0;
sd->field = NULL;
i = 2;
if (sl->word[i][0] == '<' && sl->word[i][strlen(sl->word[i]) - 1] == '>')
{
sl->word[i][strlen(sl->word[i]) - 1] = '\0';
sd->field = estrdup(sl->word[i] + 1);
i++;
}
if (i < sl->n && isnumstring( (unsigned char *)sl->word[i] ))
{
sd->size = read_integer( sl->word[i], w0, 0, INT_MAX );
}
if (sl->n == 3 && !sd->field && !sd->size)
progerr("%s: second parameter must be <fieldname> or a number", w0);
if (sl->n == 4 && sd->field && !sd->size)
progerr("%s: third parameter must be empty or a number", w0);
if (sw->storedescription)
sd->next = sw->storedescription;
else
sd->next = NULL;
sw->storedescription = sd;
/* Make sure there's a property name */
if ( !getPropNameByName( &indexf->header, AUTOPROPERTY_SUMMARY) )
addMetaEntry(&indexf->header, AUTOPROPERTY_SUMMARY, META_PROP|META_STRING, 0);
}
else
progerr("%s: requires two or three values", w0);
continue;
}
if (strcasecmp(w0, "DefaultContents") == 0)
{
if (sl->n == 2 )
{
sw->DefaultDocType = getDocTypeOrAbort(sl, 1);
}
else
progerr("%s: requires one value -- a parser type", w0);
continue;
}
if (strcasecmp(w0, "BumpPositionCounterCharacters") == 0)
{
if (sl->n > 1)
{
indexf->header.bumpposchars = SafeStrCopy(indexf->header.bumpposchars, sl->word[1], &indexf->header.lenbumpposchars);
sortstring(indexf->header.bumpposchars);
makelookuptable(indexf->header.bumpposchars, indexf->header.bumpposcharslookuptable);
}
else
progerr("%s: requires at least one value", w0);
continue;
}
/* #### Added UndefinedMetaTags as defined by Bill Moseley */
if (strcasecmp(w0, "UndefinedMetaTags") == 0)
{
get_undefined_meta_flags( w0, sl, &sw->UndefinedMetaTags );
if ( !sw->UndefinedMetaTags )
progerr("%s: possible values are error, ignore, index or auto", w0);
continue;
}
if (strcasecmp(w0, "UndefinedXMLAttributes") == 0)
{
get_undefined_meta_flags( w0, sl, &sw->UndefinedXMLAttributes );
continue;
}
if (strcasecmp(w0, "IgnoreMetaTags") == 0)
{
if (sl->n > 1)
{
grabCmdOptions(sl, 1, &sw->ignoremetalist);
/* Go lowercase */
for (tmplist = sw->ignoremetalist; tmplist; tmplist = tmplist->next)
(void)strtolower(tmplist->line);
}
else
progerr("%s: requires at least one value", w0);
continue;
}
if (strcasecmp(w0, "XMLClassAttributes") == 0)
{
if (sl->n > 1)
{
grabCmdOptions(sl, 1, &sw->XMLClassAttributes);
/* Go lowercase */
for (tmplist = sw->XMLClassAttributes; tmplist; tmplist = tmplist->next)
(void)strtolower(tmplist->line);
}
else
progerr("%s: requires at least one value", w0);
continue;
}
if (strcasecmp(w0, "DontBumpPositionOnStartTags") == 0)
{
if (sl->n > 1)
grabCmdOptions(sl, 1, &sw->dontbumpstarttagslist);
else
progerr("%s: requires at least one value", w0);
continue;
}
if (strcasecmp(w0, "DontBumpPositionOnEndTags") == 0)
{
if (sl->n > 1)
grabCmdOptions(sl, 1, &sw->dontbumpendtagslist);
else
progerr("%s: requires at least one value", w0);
continue;
}
if (strcasecmp(w0, "TruncateDocSize") == 0)
{ /* rasc 2001-03 */
if (sl->n == 2 && isnumstring( (unsigned char *)sl->word[1] ))
sw->truncateDocSize = atol(sl->word[1]);
else
progerr("%s: requires size parameter in bytes", w0);
continue;
}
if (strcasecmp(w0, "CompressPositions") == 0)
{
sw->compressPositions = getYesNoOrAbort(sl, 1, 1);
continue;
}
else if (configModule_Entities(sw, sl));
else if (configModule_Filter(sw, sl)); /* rasc */
else if (configModule_ResultOutput(sw, sl)); /* rasc */
else if (configModule_ResultSort(sw, sl)); /* jmruiz */
else if (configModule_Index(sw, sl)); /* jmruiz */
else if (configModule_Prog(sw, sl));
else if (!parseconfline(sw, sl))
{
printf("Bad directive on line #%d of file %s: %s\n", linenumber, conffile, line);
if ( ++baddirective > 30 )
progerr("Too many errors. Can not continue.");
}
}
freeStringList(sl);
fclose(fp);
if (baddirective)
exit(1);
if (gotdir && !(*hasdir))
*hasdir = 1;
if (gotindex && !(*hasindex))
*hasindex = 1;
}
