Building a shared library is indeed the solution for SVR4. I made the
following little modification in the Makefile:
-----------------------------------------------------
$(VM): main.o $(OBJS) $(AIX_P)
ld -G -o libscsh.so $(OBJS)
$(CC) $(LDFLAGS) -o $@ main.o -L. -lscsh $(LIBS)
-----------------------------------------------------
Now dlsym() finds all necessary symbols.
Then, I stumbled over the next problem. Nearly at the end of the build
process I get the following error.
-----------------------------------------------------
Writing scsh/scsh.image
#t
Error: exception
(find-all-symbols)
make: *** [scsh/scsh.image] Error 1
Compilation exited abnormally with code 2 at Tue Jan 17 13:22:04
-----------------------------------------------------
During the build process I noticed some additional glitches.
1. The routine 'regerror() is defined twice, in rescm.c in line 17 and
in scsh/regexp/regerror.c. Which one is the correct??
2. The message 'Undefined: (cig-aux)' is printed two times. Below is
a extract from the compilation log. Some time later the message is
printed again (not shown).
(echo ",batch"; \
echo ",flush"; \
echo ",flush maps source names files table"; \
echo ",translate =scheme48/ ./"; \
echo ",config ,load cig/cig.scm"; \
echo ",config ,load cig/libcig.scm"; \
echo ",load-package cig-standalone"; \
echo ",flush"; echo ",flush maps source names files table"; \
echo ",in cig-standalone"; \
echo ",translate =scheme48/ /usr/local/lib/scsh/"; \
echo ",build cig-standalone-toplevel /tmp/cig") \
| ./scshvm -i ./scheme48.image
Welcome to Scheme 48 0.36 (made by fgth on Tue Jan 17 13:03:43 MET 1995).
Copyright (c) 1993, 1994 by Richard Kelsey and Jonathan Rees.
Please report bugs to scheme-48-bugs@martigny.ai.mit.edu.
Type ,? (comma question-mark) for help.
> Will exit on errors
Flushing location names and tabulated debug info
cig/cig.scm ....
Undefined: (cig-aux)
cig/libcig.scm .
[cig-standalone
--
MfG/Regards
/==== Siemens Nixdorf Informationssysteme AG
/ Ridderbusch / , Abt.: SU MR PD 254
/ /./ Heinz Nixdorf Ring
/=== /,== ,===/ /,==, // 33106 Paderborn, Germany
/ // / / // / / \ Tel.: (49) 05251-8-15211
/ / `==/\ / / / \ NERV:ridderbusch.pad
Email: ridderbusch.pad@sni.de
|