develooper Front page | perl.perl5.porters | Postings from May 2002

[PATCH: perl@16826] small updates to DCL portions of perl kit

Thread Next
From:
PPrymmer
Date:
May 28, 2002 15:35
Subject:
[PATCH: perl@16826] small updates to DCL portions of perl kit
Message ID:
OF23EAAE54.E5DCAD53-ON85256BC7.007B1EA5@55.25.11
Greetings,

The enclosed patch tweaks configure.com and vms/genopt.com
a bit to yield better syntax checking with Charlie Hammond's
dcl_check.com V2.1.  The substantive changes include:
altering the record format of the generated perl_setup.com
file to be STMLF, rather than defaulting to VFC) this was done
to appease ported editors like vile or emacs), as well as
adding i_db and the db_version_* things to config.sh (values
were chosen to match a Solaris build that also did not have
Berkeley db, db.h etc.  I'd be happy to modify should anyone
port Berkeley Db to VMS :-)

This by the way grew out of an attempt made last
week to see if the only known workoround to the
gethostby{name,addr}() calls in DEC C with a
Multinet stack could be made to return "better"
hostent structs.  While that experiment did make the
lib/Net/hostent.t test pass it also made 4 other tests
fail (ones that had been passing before).  Add to that
some doubt about the viability of the approach, as
expressed by someone who works for the ISV that
now maintains Multinet and it would seem unwise to try
to add it to perl in time for 5.8.0.  Hence the "Socket nit"
mentioned in the Todo ought to be "bug in vendor supplied
tcp/ip stack - see vmsperl list for details", with maybe a
doc patch to README.vms warning of the problem
(something not herein enclosed).

At any rate here are the good bits of that:

diff -ru perl_16826/configure.com perl/configure.com
--- perl_16826/configure.com  Thu May 23 18:27:54 2002
+++ perl/configure.com  Tue May 28 17:59:00 2002
@@ -460,7 +460,7 @@
 $     THEN
 $       CREATE/DIRECTORY [.UU]
 $     ELSE
-$       IF ( F$SEARCH("[.UU]*.*").NES."" ) THEN DELETE/NOLOG [.UU]*.*;*
+$       IF ( F$SEARCH("[.UU]*.*").NES."" ) THEN DELETE/NOLOG/NOCONFIRM [.UU]*.*;*
 $     ENDIF
 $!: Configure runs within the UU subdirectory
 $     SET DEFAULT [.UU]
@@ -586,7 +586,7 @@
 $     ENDIF
 $   ELSE
 $     echo4 "Looks good..."
-$     DELETE/NOLOG MISSING.;
+$     DELETE/NOLOG/NOCONFIRM MISSING.;
 $   ENDIF ! (miss_list .NES. "")
 $ ENDIF   ! (manifestfound .EQS. "") ELSE
 $!
@@ -2154,8 +2154,7 @@
 $ ELSE
 $   Has_socketshr     = "F"
 $ ENDIF
-$ IF (ccname .EQS. "DEC" .AND. Dec_C_Version .GE. 50200000) .OR. -
-     (ccname .EQS. "CXX")
+$ IF (ccname .EQS. "DEC" .AND. Dec_C_Version .GE. 50200000) .OR. (ccname .EQS. "CXX")
 $ THEN
 $   Has_Dec_C_Sockets = "T"
 $   echo ""
@@ -2172,9 +2171,9 @@
 $   IF Has_Dec_C_Sockets
 $   THEN
 $     dflt = "DECC"
-$   else
+$   ELSE
 $     dflt = "SOCKETSHR"
-$   endif
+$   ENDIF
 $   rp = "Choose socket stack (NONE"
 $   IF Has_socketshr THEN rp = rp + ",SOCKETSHR"
 $   IF Has_Dec_C_Sockets THEN rp = rp + ",DECC"
@@ -2183,8 +2182,8 @@
 $   Has_Dec_C_Sockets = "F"
 $   Has_socketshr = "F"
 $   ans = F$EDIT(ans,"TRIM,COMPRESS,LOWERCASE")
-$   IF ans.eqs."decc" then Has_Dec_C_Sockets = "T"
-$   IF ans.eqs."socketshr" then Has_socketshr = "T"
+$   IF ans.eqs."decc" THEN Has_Dec_C_Sockets = "T"
+$   IF ans.eqs."socketshr" THEN Has_socketshr = "T"
 $ ENDIF
 $!
 $!
@@ -2669,7 +2668,7 @@
 $   ENDIF
 $ ENDIF
 $!
-$ DELETE/NOLOG Makefile.;
+$ DELETE/NOLOG/NOCONFIRM Makefile.;
 $ GOTO Beyond_open
 $Open_error:
 $ TYPE SYS$INPUT:
@@ -5460,6 +5459,9 @@
 $ WC "d_writev='undef'"
 $ WC "db_hashtype=' '"
 $ WC "db_prefixtype=' '"
+$ WC "db_version_major='" + "'"
+$ WC "db_version_minor='" + "'"
+$ WC "db_version_patch='" + "'"
 $ WC "dbgprefix='" + dbgprefix + "'"
 $ WC "defvoidused='15'"
 $ WC "devtype='" + devtype + "'"
@@ -5511,6 +5513,7 @@
 $ WC "i8type='" + i8type + "'"
 $ WC "i_arpainet='undef'"
 $ WC "i_crypt='undef'"
+$ WC "i_db='undef'"
 $ WC "i_dbm='undef'"
 $ WC "i_dirent='" + i_dirent + "'"
 $ WC "i_dlfcn='undef'"
@@ -5908,7 +5911,7 @@
 $ WC "srandom_r_proto='0'"
 $ WC "strerror_r_proto='0'"
 $ WC "tmpnam_r_proto='0'"
-$ WC "ttyname_r_proto='0'
+$ WC "ttyname_r_proto='0'"
 $!
 $! ##END WRITE NEW CONSTANTS HERE##
 $!
@@ -6025,9 +6028,9 @@
 $ ! Concatenate them together
 $ copy [-]config.local,[-]config.main [-]config.h
 $! Clean up
-$ DELETE/NOLOG [-]CONFIG.MAIN;*
-$ DELETE/NOLOG [-]CONFIG.LOCAL;*
-$ DELETE/NOLOG [-]CONFIG.FDL;*
+$ DELETE/NOLOG/NOCONFIRM [-]CONFIG.MAIN;*
+$ DELETE/NOLOG/NOCONFIRM [-]CONFIG.LOCAL;*
+$ DELETE/NOLOG/NOCONFIRM [-]CONFIG.FDL;*
 $!
 $ IF ccname .EQS. "DEC"
 $ THEN
@@ -6283,7 +6286,18 @@
 $ echo ""
 $ echo4 "The perl_setup.com file is now being written..."
 $ file_2_find = "[-]perl_setup.com"
-$ OPEN/WRITE CONFIG 'file_2_find'
+$!
+$! Folks are likely to want to edit perl_setup.com.
+$! STMLF RFM plays nicer with ported editors than does VFC.
+$!
+$ CREATE [-]CONFIG.FDL
+$ DECK
+RECORD
+  FORMAT STREAM_LF
+$ EOD
+$ CREATE /FDL=[-]CONFIG.FDL 'file_2_find'
+$ OPEN/APPEND CONFIG 'file_2_find'
+$ DELETE/NOLOG/NOCONFIRM [-]CONFIG.FDL;
 $ WRITE CONFIG "$!"
 $ WRITE CONFIG "$! Perl_Setup.com    ''cf_time'"
 $ IF cf_email.NES.perladmin
diff -ru perl_16826/vms/genopt.com perl/vms/genopt.com
--- perl_16826/vms/genopt.com Tue May 21 19:23:02 2002
+++ perl/vms/genopt.com Tue May 28 16:40:48 2002
@@ -2,7 +2,7 @@
 $! p1 is filename and mode to open file (filename/write or filename/append)
 $! p2 is delimiter separating elements of list in p3
 $! p3 is list of items to be written, one per line, into options file
-$
+$!
 $ open file 'p1'
 $ element=0
 $loop:
@@ -30,7 +30,7 @@
 $ if y .nes. "" then write file y
 $ element=element+1
 $ goto loop
-$
+$!
 $out:
 $ close file
 $ exit
End of Patch.

Peter Prymmer



Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About