12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 |
- /*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- *
- * Author: Ceriel J.H. Jacobs
- */
- /* L I B R A R Y */
- /* $Header$ */
- #include <em_path.h>
- #include <alloc.h>
- #include "main.h"
- #ifdef OTHER_HOME
- #undef EM_DIR
- #define EM_DIR OTHER_HOME
- #endif
- static char lib_dir[128] = EM_DIR;
- static struct liblist {
- int libno;
- struct liblist *libnext;
- } *lblist;
- int
- is_library_dir(d)
- char *d;
- {
- /* Check if directory d is a directory containing
- "system" definition modules. Return 1 if it is, 0 otherwise.
- */
- register struct liblist *p = lblist;
- while (p) {
- if (! strcmp(DEFPATH[p->libno], d)) return 1;
- p = p->libnext;
- }
- return 0;
- }
- init_lib()
- {
- extern char *strcat();
- strcat(lib_dir, "/");
- strcat(lib_dir, DEF_DIR);
- AddLibDir(lib_dir);
- }
- set_libdir(n)
- {
- register struct liblist *p =
- (struct liblist *) Malloc(sizeof(struct liblist));
- p->libnext = lblist;
- p->libno = n;
- lblist = p;
- }
|