1 /* dynl-vms.c - dynamic linking for VMS, not yet ported
3 * Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2, or (at your option)
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
15 * You should have received a copy of the GNU General Public License
16 * along with this software; see the file COPYING. If not, write to
17 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
18 * Boston, MA 02111-1307 USA
20 * As a special exception, the Free Software Foundation gives permission
21 * for additional uses of the text contained in its release of GUILE.
23 * The exception is that, if you link the GUILE library with other files
24 * to produce an executable, this does not by itself cause the
25 * resulting executable to be covered by the GNU General Public License.
26 * Your use of that executable is in no way restricted on account of
27 * linking the GUILE library code into it.
29 * This exception does not however invalidate any other reasons why
30 * the executable file might be covered by the GNU General Public License.
32 * This exception applies only to the code released by the
33 * Free Software Foundation under the name GUILE. If you copy
34 * code from other Free Software Foundation releases into a copy of
35 * GUILE, as the General Public License permits, the exception does
36 * not apply to the code that you add in this way. To avoid misleading
37 * anyone as to the status of such modified files, you must delete
38 * this exception notice from them.
40 * If you write modifications of your own for GUILE, it is your choice
41 * whether to permit this exception to apply to your modifications.
42 * If you do not wish that, delete this exception notice. */
44 /* "dynl.c" dynamically link&load object files.
46 (Not yet) modified for libguile by Marius Vollmer */
48 /* We should try to implement dynamic-link/dynamic-call for VMS,
53 /* This permits dynamic linking. For example, the procedure of 0 arguments
54 from a file could be the initialization procedure.
55 (vms:dynamic-link-call "MYDISK:[MYDIR].EXE" "foo" "INIT_FOO")
56 The first argument specifies the directory where the file specified
57 by the second argument resides. The current directory would be
59 The second argument cannot contain any punctuation.
60 The third argument probably needs to be uppercased to mimic the VMS linker.
67 struct dsc$descriptor
*descriptorize(x
, buff
)
68 struct dsc$descriptor
*x
;
70 {(*x
).dsc$w_length
= LENGTH(buff
);
71 (*x
).dsc$a_pointer
= CHARS(buff
);
72 (*x
).dsc$b_class
= DSC$K_CLASS_S
;
73 (*x
).dsc$b_dtype
= DSC$K_DTYPE_T
;
76 static char s_dynl
[] = "vms:dynamic-link-call";
77 SCM
dynl(dir
, symbol
, fname
)
78 SCM dir
, symbol
, fname
;
80 struct dsc$descriptor fnamed
, symbold
, dird
;
83 ASSERT(IMP(dir
) || STRINGP(dir
), dir
, ARG1
, s_dynl
);
84 ASSERT(NIMP(fname
) && STRINGP(fname
), fname
, ARG2
, s_dynl
);
85 ASSERT(NIMP(symbol
) && STRINGP(symbol
), symbol
, ARG3
, s_dynl
);
86 descriptorize(&fnamed
, fname
);
87 descriptorize(&symbold
, symbol
);
89 retval
= lib$
find_image_symbol(&fnamed
, &symbold
, &fcn
,
90 IMP(dir
) ? 0 : descriptorize(&dird
, dir
));
91 if (SS$_NORMAL
!= retval
) {
92 /* wta(MAKINUM(retval), "vms error", s_dynl); */
97 /* *loc_loadpath = dir; */
99 /* *loc_loadpath = oloadpath; */
105 make_subr(s_dynl
, tc7_subr_3
, dynl
);