You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdelibs/tdeprint/driverparse.c

462 lines
9.8 KiB

/*
* This file is part of the KDE libraries
* Copyright (c) 2001 Michael Goffioul <tdeprint@swing.be>
* Copyright (c) 2014 Timothy Pearson <kb9vqf@pearsoncomputing.net>
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License version 2 as published by the Free Software Foundation.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public License
* along with this library; see the file COPYING.LIB. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
**/
#include "driverparse.h"
#include <string.h>
#include <dirent.h>
#include <ctype.h>
#include <stdlib.h>
#include <sys/stat.h>
#include <dlfcn.h>
#include <unistd.h>
char **files = NULL;
char **fileorigins = NULL;
int nfiles = 0, maxfiles = 0;
int nhandlers = 0, maxhandlers = 0;
int nlibs = 0, maxlibs = 0;
typedef struct
{
void (*init)(const char*);
int (*parse)(const char*, const char*, FILE*);
char *name;
int namelen;
} handler;
handler **handlers = NULL;
void **libs = NULL;
void initHandlers(void)
{
maxhandlers = 10;
handlers = (handler**)malloc(sizeof(handler*) * maxhandlers);
}
void freeHandlers(void)
{
int i;
for (i=0; i<nhandlers; i++)
{
free(handlers[i]->name);
free(handlers[i]);
}
free(handlers);
}
void registerHandler(const char *name, void(*initf)(const char*), int(*parsef)(const char*, const char*, FILE*))
{
handler *h = (handler*)malloc(sizeof(handler));
h->init = initf;
h->parse = parsef;
h->name = strdup(name);
h->namelen = strlen(h->name);
if (maxhandlers == 0)
initHandlers();
if (nhandlers == maxhandlers)
{
maxhandlers += 10;
handlers = (handler**)realloc(handlers, sizeof(handler*) * maxhandlers);
}
handlers[nhandlers++] = h;
}
void addLib(const char *filename)
{
void *handle = dlopen(filename, RTLD_LAZY);
if (handle)
{
void(*f)(void);
if (nlibs == maxlibs)
{
maxlibs += 5;
libs = (void**)realloc(libs, sizeof(void*) * maxlibs);
}
libs[nlibs++] = handle;
f = dlsym(handle, "initialize");
if (f)
{
(*f)();
}
}
}
void freeLibs(void)
{
int i;
for (i=0; i<maxlibs; i++)
dlclose(libs[i]);
free(libs);
}
void initFiles(void)
{
maxfiles = 100;
files = (char**)malloc(sizeof(char*) * maxfiles);
fileorigins = (char**)malloc(sizeof(char*) * maxfiles);
}
void freeFiles(void)
{
int i;
for (i=0; i<nfiles; i++)
free(files[i]);
free(fileorigins[i]);
free(files);
free(fileorigins);
}
void checkSize(void)
{
if (nfiles == maxfiles)
{
maxfiles += 100;
files = (char**)realloc(files, sizeof(char*) * maxfiles);
fileorigins = (char**)realloc(fileorigins, sizeof(char*) * maxfiles);
}
}
void addFile(const char *filename, const char *origin)
{
if (maxfiles == 0)
initFiles();
checkSize();
files[nfiles] = strdup(filename);
fileorigins[nfiles] = strdup(origin);
nfiles++;
}
void nextTag(FILE *f, char *tag, int len)
{
int p = 0;
int c;
while (!feof(f) && fgetc(f) != '<') ;
while (!feof(f) && p < (len-1) && (c = fgetc(f)) != '>')
tag[p++] = c;
tag[p] = 0;
}
void readValue(FILE *f, char *value, int len)
{
char c;
int p = 0;
while (!feof(f) && p < (len-1) && (c = fgetc(f)) != '<')
{
if (isspace(c))
c = ' ';
value[p++] = c;
}
value[p] = 0;
}
void readComment(FILE *f, char *comment, int len)
{
char tag[32] = {0};
do nextTag(f, tag, 32);
while (tag[0] && strcmp(tag, "en") != 0 && strcmp(tag, "/comments") != 0);
if (strcmp(tag, "en") == 0)
readValue(f, comment, len);
}
int getMaticPrinterInfos(const char *base, const char *id, char *make, char *model, char *recomm, char *comment, char *pnpmake, char *pnpmodel)
{
char filePath[256];
FILE *xmlFile;
char tag[32] = {0};
int n = 0;
int in_autodetect = 0;
snprintf(filePath, 256, "%s/%s.xml", base, id);
if ( access( filePath, F_OK ) != 0 )
{
/* file doesn't seem to exists, see if Foomatic ID translation file can help */
const char *c;
char ID1[ 256 ], ID2[ 256 ];
int found = 0;
/* Locate the actual ID part in the given "id" argument whose format is "printer/<ID>" */
c = id;
while ( *c && *c != '/' )
c++;
c++;
/* Translation file is usually /usr/share/foomatic/db/oldprinterids */
snprintf( filePath, 256, "%s/../oldprinterids", base );
if ( ( xmlFile = fopen( filePath, "r" ) ) == NULL )
return 0;
/* Look for possible translated ID */
while ( !feof( xmlFile ) )
{
if ( fscanf( xmlFile, "%256s %256s", ID1, ID2 ) == 2 )
{
if ( strcmp( c, ID1 ) == 0 )
{
snprintf( filePath, 256, "%s/printer/%s.xml", base, ID2 );
found = 1;
break;
}
}
else
break;
}
fclose( xmlFile );
if ( !found )
return 0;
}
xmlFile = fopen(filePath, "r");
if (xmlFile == NULL)
return 0;
while (!feof(xmlFile) && n < 6)
{
tag[0] = 0;
nextTag(xmlFile, tag, 32);
if (tag[0])
{
char *c;
if ( strcmp( tag, "autodetect" ) == 0 )
{
in_autodetect = 1;
continue;
}
else if ( strcmp( tag, "/autodetect" ) == 0 )
{
in_autodetect = 0;
continue;
}
else if (!make[0] && strcmp(tag, "make") == 0)
c = make;
else if (strcmp(tag, "model") == 0)
{
if ( in_autodetect && !pnpmodel[ 0 ] )
c = pnpmodel;
else if ( !in_autodetect && !model[ 0 ] )
c = model;
else
continue;
}
else if ( !pnpmake[0] && in_autodetect && strcmp( tag, "manufacturer" ) == 0 )
c = pnpmake;
else if (!recomm[0] && strcmp(tag, "driver") == 0)
c = recomm;
else if (comment && !comment[0] && strcmp(tag, "comments") == 0)
{
readComment(xmlFile, comment, 4096);
n++;
continue;
}
else
continue;
n++;
readValue(xmlFile, c, 64);
}
}
fclose(xmlFile);
return 1;
}
int parseMaticFile(const char *driver, const char *origin, FILE *output)
{
FILE *drFile;
char name[32] = {0},
make[64] = {0},
model[64] = {0},
tag[32] = {0},
recomm[64] = {0},
comment[4096] = {0},
comment2[4096] = {0},
pnpmake[64] = {0},
pnpmodel[64] = {0};
char id[128];
char path[256], *c;
drFile = fopen(driver, "r");
if (drFile == NULL)
return 0;
strncpy(path, driver, 255);
path[ 255 ] = '\0';
if ((c = strstr(path, "/driver/")) != NULL)
*c = 0;
c = comment;
while (!feof(drFile))
{
tag[0] = 0;
nextTag(drFile, tag, 32);
if (tag[0])
{
if (strcmp(tag, "name") == 0)
readValue(drFile, name, 32);
else if (strcmp(tag, "comments") == 0)
readComment(drFile, c, 4096);
else if (strcmp(tag, "printers") == 0)
c = comment2;
else if (strcmp(tag, "printer") == 0)
{
id[0] = 0;
comment2[0] = 0;
}
else if (strcmp(tag, "id") == 0)
readValue(drFile, id, 128);
else if (strcmp(tag, "/printer") == 0 && id[0])
{
fprintf(output, "FILE=foomatic/%s/%s\n", id+8, name);
make[0] = 0;
model[0] = 0;
recomm[0] = 0;
pnpmake[0] = 0;
pnpmodel[0] = 0;
getMaticPrinterInfos(path, id, make, model, recomm, NULL, pnpmake, pnpmodel);
fprintf(output, "MANUFACTURER=%s\n", make);
fprintf(output, "MODELNAME=%s\n", model);
fprintf(output, "MODEL=%s\n", model);
fprintf(output, "DESCRIPTION=%s %s (Foomatic + %s)\n", make, model, name);
if (recomm[0] && strcmp(name, recomm) == 0)
fprintf(output, "RECOMMANDED=yes\n");
if (comment[0] || comment2[0])
{
fprintf(output, "DRIVERCOMMENT=");
if (comment2[0])
{
fprintf(output, "&lt;h3&gt;Printer note&lt;/h3&gt;%s", comment2);
}
if (comment[0])
fprintf(output, "&lt;h3&gt;General driver note&lt;/h3&gt;%s", comment);
fprintf(output, "\n");
}
if ( pnpmake[0] )
fprintf( output, "PNPMANUFACTURER=%s\n", pnpmake );
if ( pnpmodel[0] )
fprintf( output, "PNPMODEL=%s\n", pnpmodel );
fprintf(output, "\n");
}
else if (strcmp(tag, "/printers") == 0)
break;
}
}
fclose(drFile);
return 1;
}
void initMatic(const char *base)
{
char drPath[256];
char drFile[256];
DIR *foodir;
struct dirent *d;
struct stat st;
if (strstr(base, "foomatic") == NULL)
return;
snprintf(drPath, 256, "%s/driver", base);
foodir = opendir(drPath);
if (foodir == NULL)
return;
while ((d = readdir(foodir)) != NULL)
{
snprintf(drFile, 256, "foomatic:%s/%s", drPath, d->d_name);
if (stat(drFile+9, &st) != 0)
continue;
else if (!S_ISREG(st.st_mode))
continue;
addFile(drFile, "");
}
closedir(foodir);
}
void initFoomatic(void)
{
registerHandler("foomatic:", initMatic, parseMaticFile);
}
int execute(int argc, char *argv[])
{
FILE *dbFile;
int i;
char *c, *d;
/* open output driver DB file */
if (argc < 2 || argc > 3)
{
fprintf(stderr, "usage: make_driver_db <db_directory> [output_filename]\n");
return -1;
}
if (argc == 3)
{
dbFile = fopen(argv[2], "w");
if (dbFile == NULL)
{
fprintf(stderr, "unable to open DB file for writing\n");
return -1;
}
}
else
dbFile = stdout;
/* init parsing */
c = argv[1];
do
{
d = strchr(c, ':');
if (d != NULL)
*d = 0;
if (strncmp(c, "module:", 7) == 0)
{
addLib(c+7);
}
else
{
for (i=0; i<nhandlers; i++)
{
(*(handlers[i]->init))(c);
}
}
if (d != NULL)
c = d+1;
} while (d && *c);
/* do actual parsing */
fprintf(stdout, "%d\n", nfiles);
fflush(stdout);
for (i=0; i<nfiles; i++)
{
int hi;
for (hi=0; hi<nhandlers; hi++)
if (strncmp(files[i], handlers[hi]->name, handlers[hi]->namelen) == 0)
{
handlers[hi]->parse(files[i]+handlers[hi]->namelen, fileorigins[i], dbFile);
break;
}
fprintf(stdout, "%d\n", i);
fflush(stdout);
}
/* free everything */
freeFiles();
freeHandlers();
freeLibs();
if (dbFile != stdout)
fclose(dbFile);
return 0;
}