Newer
Older
#include <symLib.h>
#include <sysSymTbl.h>
#include <shellLib.h>
#include <usrLib.h>
#include <taskLib.h>
#include <stat.h>
#include <stdio.h>
#include <string.h>
int dbLoadDatabase(char *filename, char *path, char *substitutions);
int require(char* lib, char* version)
{
char libname[256];
char dbdname[256];
char symbol[256];
char** path;
char* loaded;
SYM_TYPE type;
if (symFindByName(sysSymTbl, "LIB", (char**)&path, &type) != OK)
{
static char* here = ".";
path = &here;
}
if (!lib)
{
printf("Usage: require \"<libname>\" [, \"<version>\"]\n");
printf("Loads <libname>Lib[-<version>] and dbd/<libname>[-<version>].dbd\n");
printf("Directory is LIB = %s\n", *path);
return ERROR;
}
sprintf(symbol, "_%sLibRelease", lib);
if (version)
{
sprintf(libname, "%s/%sLib-%s", *path, lib, version);
sprintf(dbdname, "%s/dbd/%s-%s.dbd", *path, lib, version);
}
else
{
sprintf(libname, "%s/%sLib", *path, lib);
sprintf(dbdname, "%s/dbd/%s.dbd", *path, lib);
}
if (symFindByName(sysSymTbl, symbol, &loaded, &type) != OK)
{
/* Load library and dbd file of requested version */
if (ld(0, 0, libname) == NULL)
{
printf ("Aborting startup stript.\n");
shellScriptAbort();
symFindByName(sysSymTbl, symbol, &loaded, &type);
printf("%sLib-%s loaded\n", lib, loaded);
if (stat(dbdname, &filestat) != ERROR)
/* If file exists */
if (dbLoadDatabase(dbdname, NULL, NULL) != OK)
{
taskDelay(sysClkRateGet());
printf ("Aborting startup stript.\n");
shellScriptAbort();
return ERROR;
}
printf("dbd/%s-%s.dbd loaded\n", lib, loaded);
}
return OK;
}
else
{
/* Library already loaded. Check Version. */
if (version && strcmp(loaded, version) != 0)
{
int lmajor, lminor, lpatch, lmatches;
int major, minor, patch, matches;
lmatches = sscanf(loaded, "%d.%d.%d", &lmajor, &lminor, &lpatch);
matches = sscanf(version, "%d.%d.%d", &major, &minor, &patch);
if (matches == 0 || lmatches == 0 /* non-numerical version*/
|| major != lmajor
|| (matches >= 2 && minor != lminor)
|| (matches > 2 && patch != lpatch))
{
printf("Conflict between requested %s\n"
"and already loaded version %s.\n"
"Aborting startup stript.\n",