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, 675 Mass Ave, Cambridge, MA 02139, USA.
19 * As a special exception, the Free Software Foundation gives permission
20 * for additional uses of the text contained in its release of GUILE.
22 * The exception is that, if you link the GUILE library with other files
23 * to produce an executable, this does not by itself cause the
24 * resulting executable to be covered by the GNU General Public License.
25 * Your use of that executable is in no way restricted on account of
26 * linking the GUILE library code into it.
28 * This exception does not however invalidate any other reasons why
29 * the executable file might be covered by the GNU General Public License.
31 * This exception applies only to the code released by the
32 * Free Software Foundation under the name GUILE. If you copy
33 * code from other Free Software Foundation releases into a copy of
34 * GUILE, as the General Public License permits, the exception does
35 * not apply to the code that you add in this way. To avoid misleading
36 * anyone as to the status of such modified files, you must delete
37 * this exception notice from them.
39 * If you write modifications of your own for GUILE, it is your choice
40 * whether to permit this exception to apply to your modifications.
41 * 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
);