76 lines
2.1 KiB
Modula-2
76 lines
2.1 KiB
Modula-2
This file is inlib.def, from which is created inlib.c.
|
|
It implements the Apollo-specific builtin "inlib" in Bash.
|
|
|
|
Copyright (C) 1987, 1989, 1991 Free Software Foundation, Inc.
|
|
|
|
This file is part of GNU Bash, the Bourne Again SHell.
|
|
|
|
Bash is free software; you can redistribute it and/or modify it under
|
|
the terms of the GNU General Public License as published by the Free
|
|
Software Foundation; either version 1, or (at your option) any later
|
|
version.
|
|
|
|
Bash 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 General Public License
|
|
for more details.
|
|
|
|
You should have received a copy of the GNU General Public License along
|
|
with Bash; see the file COPYING. If not, write to the Free Software
|
|
Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
$PRODUCES inlib.c
|
|
#include <config.h>
|
|
|
|
#include <stdio.h>
|
|
#include "../shell.h"
|
|
|
|
$BUILTIN inlib
|
|
$FUNCTION inlib_builtin
|
|
$DEPENDS_ON apollo
|
|
$SHORT_DOC inlib pathname [pathname...]
|
|
Install a user-supplied library specified by pathname in the current
|
|
shell process. The library is used to resolve external references
|
|
in programs and libraries loaded after its installation. Note
|
|
that the library is not loaded into the address space unless it is
|
|
needed to resolve an external reference. The list of inlibed
|
|
libraries is passed to all children of the current shell.
|
|
$END
|
|
|
|
#if defined (apollo)
|
|
|
|
#include <apollo/base.h>
|
|
#include <apollo/loader.h>
|
|
|
|
inlib_builtin (list)
|
|
WORD_LIST *list;
|
|
{
|
|
status_$t status;
|
|
int return_value;
|
|
short len;
|
|
|
|
if (!list)
|
|
{
|
|
builtin_error ("usage: inlib pathname [pathname...]");
|
|
return (EX_USAGE);
|
|
}
|
|
|
|
return_value = EXECUTION_SUCCESS;
|
|
|
|
while (list)
|
|
{
|
|
len = (short)strlen (list->word->word);
|
|
loader_$inlib (list->word->word, len, &status);
|
|
|
|
if (status.all != status_$ok)
|
|
{
|
|
builtin_error ("inlib failed for %s", list->word->word);
|
|
return_value = EXECUTION_FAILURE;
|
|
}
|
|
|
|
list = list->next;
|
|
}
|
|
|
|
return (return_value);
|
|
}
|
|
#endif /* apollo */
|