->Here are the versions:
kite_rsa$ perl -v
This is perl, v5.6.0 built for VMS_AXP
kite_rsa$ cc /ver
DEC C V5.6-003 on OpenVMS Alpha V7.2-1
-> Create a "skeletal extension":
kite_rsa$ h2xs -A -n Mytest
Writing mytest/mytest.pm
Writing mytest/mytest.xs
Writing mytest/Makefile.PL
Writing mytest/test.pl
Writing mytest/Changes
Writing mytest/MANIFEST
kite_rsa$ set def [.mytest]
->edited mytest.xs and added at the bottom (while noticing that this
mytest.xs contained more routines than the others):
void
hello()
CODE:
printf("Hello, World!\n");
-> Make the usual incantations:
kite_rsa$ perl makefile.pl
Checking if your kit is complete...
Looks good
Writing Descrip.MMS for mytest
kite_rsa$ mmk
perl "-Iperl_root:[lib]" "-MExtUtils::Install" -e "pm_to_blib({split('
',<STDIN>)},'[.blib.lib.auto]')" <.MM_tmp
cp mytest.pm [.blib.lib]mytest.pm
AutoSplitting blib/lib/mytest.pm (blib/lib/auto/mytest)
perl "-Iperl_root:[lib.VMS_AXP.5_6_0]" "-Iperl_root:[lib]" -e "use
ExtUtils::Mksymlists;" -e "Mksymlists('NAME' => 'mytest', '
DL_FUNCS' => { }, 'DL_VARS' => [], 'FUNCLIST' => [])"
perl -e "print ""[.blib.arch.auto.mytest]mytest.olb/Include=mytest\n
[.blib.arch.auto.mytest]mytest.olb/Library\n"";" >>MYTEST.OPT
perl -e "print qq{PerlShr/Share\n}" >>MYTEST.OPT
Copy/NoConfirm MYTEST.OPT [.BLIB.ARCH.AUTO.MYTEST]MYTEST.OPT
perl "-Iperl_root:[lib.VMS_AXP.5_6_0]" "-Iperl_root:[lib]"
perl_root:[lib.ExtUtils]xsubpp -typemap perl_root:[lib.ExtUtils]typemap
MYTEST.xs >MYTEST.c
Please specify prototyping behavior for mytest.xs (see perlxs manual)
CC/DECC /Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/NoList/Define
=("VERSION=""0.01""","XS_VERSION=""0.01""")/Include=(perl
_root:[lib.VMS_AXP.5_6_0.CORE])/Optimize MYTEST.c
If F$Search("[.BLIB.ARCH.AUTO.MYTEST]MYTEST.OLB").eqs."" Then
Library/Object/Create [.BLIB.ARCH.AUTO.MYTEST]MYTEST.OLB
Library/Object/Replace [.BLIB.ARCH.AUTO.MYTEST]MYTEST.OLB MYTEST.OBJ
%CREATE-I-EXISTS, [.BLIB.ARCH.AUTO.MYTEST] already exists
If F$TrnLNm("PerlShr").eqs."" Then Define/NoLog/User PerlShr
Sys$Share:PerlShr.exe
Link /NoTrace/NoMap /Shareable=[.BLIB.ARCH.AUTO.MYTEST]MYTEST.EXE
mytest.opt/Option,perl_root:[lib.VMS_AXP.5_6_0.CORE]perlshr_attr.o
pt/Option
Running mkbootstrap for mytest ()
Copy/NoConfirm mytest.bs [.blib.arch.auto.mytest]mytest.bs
-> Create a file called hello.pl that looks like this:
kite_rsa$ type hello.pl
use ExtUtils::testlib;
use Mytest;
Mytest::hello();
-> Invoke it:
kite_rsa$ perl hello.pl
Undefined subroutine &Mytest::hello called at hello.pl line 4.
%RMS-F-DIR, error in directory name
--
Paul Simons ([EMAIL PROTECTED])
Bellevue, WA
ALSTOM's T&D Energy Automation & Information Business
CONFIDENTIALITY: This e-mail and any attachments are confidential and may
be privileged.
If you are not a named recipient, please notify the sender immediately and
do not disclose the
contents to another person, use it for any purpose or store or copy the
information in any medium.
"Martin
Vorlaender" To: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED] cc: <[EMAIL PROTECTED]>
e> Subject: RE: Creating extensions on
VMS
11/20/2002 23:20
[EMAIL PROTECTED] wrote:
> Well, I find that it is time to create an extension. So I pulled out
> the dromedary and followed the steps under the "Creating Extensions"
> section. They worked great under Tru64 unix and Debian GNU/Linux. This
> is the result on VMS:
>
> kite_rsa$ perl hello.pl
> Undefined subroutine &Mytest::hello called at hello.pl line 4.
> %RMS-F-DIR, error in directory name
>
> I'm looking to see if this is a known issue, or (gasp) just my problem,
> before I send all kinds of diagnostics.
%VMSPERL-F-INSFINF, insufficient information provided
What version of VMS? Perl?
If it's an XS extension:
Which C compiler?
How do you build it?
As I (and probably lots of others) won't pull out the Camel
and try figure out the steps you followed:
How do you declare your extension for Perl?
Call it?
Questions over questions...
cu,
Martin
--
| Martin Vorlaender VMS/WNT programmer
Unix is user friendly. | work: [EMAIL PROTECTED]
It's just selective about | http://www.pdv-systeme.de/users/martinv/
who his friends are. | home: [EMAIL PROTECTED]
