3. Extract the Makefile by running "perl Makefile.PL".
! 4. Run "make".
! 5. If everything builds OK, run "make test" to perform rudimentary
! tests.
a) IMPORTANT: If you have problems running the test, particularly if
you get an "Illegal Instruction" or "Bus Error" message, then you
--- 50,59 ----
3. Extract the Makefile by running "perl Makefile.PL".
! 4. Run "make". HLI/Makefile.PL uses cppstdin, which perl installs.
! If you don't have it, try "cc -E" or "/usr/lib/cpp" instead.
! 5. Run "make patchperl" (or "make patchsolaris" for Solaris)
a) IMPORTANT: If you have problems running the test, particularly if
you get an "Illegal Instruction" or "Bus Error" message, then you
***************
*** 67,73 ****
SOLARIS: "Error" does not have a "_" in front of it. You will have
to run "make patchsolaris".
! 6. To install everything into production, you may run "make install".
MAKEFILE DEFINES
--- 67,76 ----
SOLARIS: "Error" does not have a "_" in front of it. You will have
to run "make patchsolaris".
! 6. If everything builds OK, run "make test" to perform rudimentary
! tests.
!
! 7. To install everything into production, you may run "make install".
MAKEFILE DEFINES
*** ../Fame-2.0b/fame.test Tue May 7 10:12:33 1996
--- fame.test Tue May 20 17:24:19 1997
***************
*** 1,6 ****
--- 1,7 ----
#!../../perl
# FT 9/22/95
+
use Fame;
# change packages to avoid having to write long package names
***************
*** 8,13 ****
--- 9,38 ----
package Fame::HLI;
+ use Config;
+ # print "p=",$Config{perlpath}, "\n";
+
+ if (-M "patch.log" > -M $Config{perlpath}) {
+ print "Warning: You may have rebuilt the PERL executable\n";
+ print " since the last time you patched it.\n";
+ print "$Config{perlpath} is ", -M $Config{perlpath}, " days old\n";
+ print "patch.log is ", -M "patch.log", " days old\n";
+ $patch=1;
+ }
+ if (! -f "patch.log") {
+ print "Warning: You have not patched the PERL executable.\n";
+ $patch=1;
+ }
+ if ($patch) {
+ print "If you continue you may get a segmentation fault.\n";
+ print "See the README file for patching instructions.\n";
+ print "Do you wish to continue? ";
+ $y = <STDIN>;
+ if ($y !~ /^[Yy]/) {
+ die "Run 'make patchperl' or 'make patchsolaris'\n";
+ }
+ }
+
# unbuffered output
$|=1;
***************
*** 25,31 ****
# create a new object
$name="T1";
! &cfmnwob($status,$k,$name,&HSERIE,&HDAILY,
&HNUMRC,&HBSDAY,&HOBBEG);
# get the objects information
--- 50,56 ----
# create a new object
$name="T1";
! &cfmnwob($stat,$k,$name,&HSERIE,&HDAILY,
&HNUMRC,&HBSDAY,&HOBBEG);
# get the objects information
***************
*** 38,49 ****
print "HLILIB extensions not loaded\n" if $@;
# test dates
! &cfmddat($status,&HDAILY,$date,1993,5,2);
! die "DATE FAILED date prob 1" if $status != &HSUCC;
! &cfmdatd($status,&HDAILY,$date,$y,$m,$d);
! die "DATE FAILED date prob 2" if $status != &HSUCC;
! &cfmddat($status,&HDAILY,$date2,$y,$m,$d);
! die "DATE FAILED date prob 3" if $status != &HSUCC;
die "DATE FAILED date prob 4" if $date2!=$date;
print "DATE OK\n";
--- 63,74 ----
print "HLILIB extensions not loaded\n" if $@;
# test dates
! &cfmddat($stat,&HDAILY,$date,1993,5,2);
! die "DATE FAILED date prob 1" if $stat != &HSUCC;
! &cfmdatd($stat,&HDAILY,$date,$y,$m,$d);
! die "DATE FAILED date prob 2" if $stat != &HSUCC;
! &cfmddat($stat,&HDAILY,$date2,$y,$m,$d);
! die "DATE FAILED date prob 3" if $stat != &HSUCC;
die "DATE FAILED date prob 4" if $date2!=$date;
print "DATE OK\n";
