Login | Register For Free | Help
Search for: (Advanced)

Mailing List Archive: Perl: porters

Re: Todo List for 5.002-alpha release?

 

 

Perl porters RSS feed   Index | Next | Previous | View Threaded


doughera at lafcol

Aug 8, 1995, 11:55 AM

Post #1 of 1 (550 views)
Permalink
Re: Todo List for 5.002-alpha release?

On Mon, 7 Aug 1995, Larry Wall wrote:

> I might just be able to put out a 5.001n tomorrow night, but no promises.

Ambitious, huh? Anyway, do you want the newest Configure? I've
appended the patches below. It's got
the beginnings of OS/2 support,
a Linux signals fix,
some compile line ldflags reordering (for Digital UNIX),
some fixes for svr2 selecttype, and
some stylistic changes by Raphael.

There's not too much, but the Linux fix might be worth adding. Then
again, you're probably juggling too much else as it is, so it might not
be worth it after all:-)

I've tested this (as usual) on Interactive and SunOS, and it works. There
are no corresponding changes to config_h.SH.

Oh -- and don't forget to run
make regen_headers (or whatever I called it) so that all .h files
are up-to-date (and have up-to-date timestamps).

Hope this helps,

Andy Dougherty doughera [at] lafcol


Index: Configure
Prereq: 3.0.1.7
*** perl5.001m/Configure Thu Jun 22 11:03:49 1995
--- perl5.001n/Configure Tue Jul 25 15:36:02 1995
***************
*** 18,26 ****
# archive site. Check with Archie if you don't know where that can be.)
#

#

cat >/tmp/c1$$ <<EOF
ARGGGHHHH!!!!!
--- 18,26 ----
# archive site. Check with Archie if you don't know where that can be.)
#

#
! # Generated on Tue Jul 25 15:32:20 EDT 1995 [metaconfig 3.0 PL58]

cat >/tmp/c1$$ <<EOF
ARGGGHHHH!!!!!
***************
*** 55,60 ****
--- 55,68 ----
;;
esac

+ : Proper PATH separator
+ p_=:
+ : On OS/2 this directory should exist if this is not floppy only system :-]
+ if test -d c:/.; then
+ p_=\;
+ PATH=`cmd /c "echo %PATH%" | tr '\\\\' / `
+ OS2_SHELL=`cmd /c "echo %OS2_SHELL%" | tr '\\\\' / | tr '[A-Z]' '[a-z]'`
+ fi

: Proper PATH setting
paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
***************
*** 68,80 ****

for p in $paths
do
! case ":$PATH:" in
! *:$p:*) ;;
! *) test -d $p && PATH=$PATH:$p ;;
esac
done

! PATH=.:$PATH
export PATH

: Sanity checks
--- 76,88 ----

for p in $paths
do
! case "$p_$PATH$p_" in
! *$p_$p$p_*) ;;
! *) test -d $p && PATH=$PATH$p_$p ;;
esac
done

! PATH=.$p_$PATH
export PATH

: Sanity checks
***************
*** 105,111 ****

: Configure runs within the UU subdirectory
test -d UU || mkdir UU
! cd UU && rm -f *

dynamic_ext=''
extensions=''
--- 113,119 ----

: Configure runs within the UU subdirectory
test -d UU || mkdir UU
! cd UU && rm -f ./*

dynamic_ext=''
extensions=''
***************
*** 818,824 ****
esac
shift
;;
! -V) echo "$me generated by metaconfig 3.0 PL55." >&2
exit 0;;
--) break;;
-*) echo "$me: unknown option $1" >&2; shift; error=true;;
--- 826,832 ----
esac
shift
;;
! -V) echo "$me generated by metaconfig 3.0 PL58." >&2
exit 0;;
--) break;;
-*) echo "$me: unknown option $1" >&2; shift; error=true;;
***************
*** 1314,1320 ****
test
uname
"
! pth=`echo $PATH | sed -e 's/:/ /g'`
pth="$pth /lib /usr/lib"
for file in $loclist; do
xxx=`./loc $file $file $pth`
--- 1322,1328 ----
test
uname
"
! pth=`echo $PATH | sed -e "s/$p_/ /g"`
pth="$pth /lib /usr/lib"
for file in $loclist; do
xxx=`./loc $file $file $pth`
***************
*** 1324,1329 ****
--- 1332,1340 ----
/*)
echo $file is in $xxx.
;;
+ ?:[\\/]*)
+ echo $file is in $xxx.
+ ;;
*)
echo "I don't know where $file is. I hope it's in everyone's PATH."
;;
***************
*** 1340,1345 ****
--- 1351,1359 ----
/*)
echo $file is in $xxx.
;;
+ ?:[\\/]*)
+ echo $file is in $xxx.
+ ;;
*)
echo "I don't see $file out there, $say."
say=either
***************
*** 1679,1684 ****
--- 1693,1702 ----
osname=news_os
fi
$rm -f ../UU/kernel.what
+ elif test -d c:/.; then
+ set X $myuname
+ osname=os2
+ osvers="$5"
fi
fi

***************
*** 2926,2931 ****
--- 2944,2955 ----
*"-l$thislib "*);;
*) dflt="$dflt -l$thislib";;
esac
+ elif xxx=`./loc $thislib.a X $libpth`; $test -f "$xxx"; then
+ echo "Found -l$thislib."
+ case " $dflt " in
+ *"-l$thislib "*);;
+ *) dflt="$dflt -l$thislib";;
+ esac
elif xxx=`./loc lib${thislib}_s.a X $libpth`; $test -f "$xxx"; then
echo "Found -l${thislib}_s."
case " $dflt " in
***************
*** 3218,3223 ****
--- 3242,3251 ----
eval $xscan;\
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
eval $xrun
+ elif com="$sed -n -e 's/^[-0-9a-f ]*_\(.*\)=.*/\1/p'";\
+ eval $xscan;\
+ $contains '^fprintf$' libc.list >/dev/null 2>&1; then
+ eval $xrun
else
nm -p $* 2>/dev/null >libc.tmp
$grep fprintf libc.tmp > libc.ptf
***************
*** 3268,3274 ****
csym='tlook=$1;
case "$3" in
-v) tf=libc.tmp; tc=""; tdc="";;
! -a) tf=libc.tmp; tc="[0]"; tdc=[];;
*) tlook="^$1\$"; tf=libc.list; tc="()"; tdc="()";;
esac;
tx=yes;
--- 3296,3302 ----
csym='tlook=$1;
case "$3" in
-v) tf=libc.tmp; tc=""; tdc="";;
! -a) tf=libc.tmp; tc="[0]"; tdc="[]";;
*) tlook="^$1\$"; tf=libc.list; tc="()"; tdc="()";;
esac;
tx=yes;
***************
*** 3286,3292 ****
fi;;
*)
echo "main() { extern short $1$tdc; printf(\"%hd\", $1$tc); }" > t.c;
! if $cc $ccflags -o t t.c $ldflags $libs >/dev/null 2>&1;
then tval=true;
else tval=false;
fi;
--- 3314,3320 ----
fi;;
*)
echo "main() { extern short $1$tdc; printf(\"%hd\", $1$tc); }" > t.c;
! if $cc $ccflags $ldflags -o t t.c $libs >/dev/null 2>&1;
then tval=true;
else tval=false;
fi;
***************
*** 3341,3350 ****
esac'

: see if gconvert exists
- : On some SVR4 systems, gconvert is present but can not be used
- : because it requires some other unavailable functions.
- : Therefore, do not use the nm extraction, but use a real compile
- : and link test instead.
xxx_runnm="$runnm"
runnm=false
set gconvert d_gconvert
--- 3369,3374 ----
***************
*** 3775,3781 ****
exit(0);
}
EOP
! if $cc $ccflags -o set set.c $ldflags $libs >/dev/null 2>&1; then
./set 2>/dev/null
case $? in
0) echo "You have to use setpgrp() instead of setpgrp(pid, pgrp)." >&4
--- 3799,3805 ----
exit(0);
}
EOP
! if $cc $ccflags $ldflags -o set set.c $libs >/dev/null 2>&1; then
./set 2>/dev/null
case $? in
0) echo "You have to use setpgrp() instead of setpgrp(pid, pgrp)." >&4
***************
*** 4253,4261 ****
$rm -f try.c

: see if dlerror exists
- : On NetBSD and FreeBSD, dlerror might be available, but it is in
- : /usr/lib/crt0.o, not in any of the libraries. Therefore, do not
- : use the nm extraction, but use a real compile and link test instead.
xxx_runnm="$runnm"
runnm=false
set dlerror d_dlerror
--- 4277,4282 ----
***************
*** 4267,4275 ****
eval $inhdr

: see if dlopen exists
- : On NetBSD and FreeBSD, dlopen is available, but it is in
- : /usr/lib/crt0.o, not in any of the libraries. Therefore, do not
- : use the nm extraction, but use a real compile and link test instead.
xxx_runnm="$runnm"
runnm=false
set dlopen d_dlopen
--- 4288,4293 ----
***************
*** 5304,5310 ****
exit(0);
}
EOCP
! if $cc foo.c -o safebcpy $ccflags $ldflags $libs >/dev/null 2>&1 ; then
if ./safebcpy 2>/dev/null; then
echo "Yes, it can."
val="$define"
--- 5322,5328 ----
exit(0);
}
EOCP
! if $cc $ccflags $ldflags foo.c -o safebcpy $libs >/dev/null 2>&1; then
if ./safebcpy 2>/dev/null; then
echo "Yes, it can."
val="$define"
***************
*** 5352,5358 ****
exit(0);
}
EOCP
! if $cc foo.c -o safemcpy $ccflags $ldflags $libs >/dev/null 2>&1 ; then
if ./safemcpy 2>/dev/null; then
echo "Yes, it can."
val="$define"
--- 5370,5376 ----
exit(0);
}
EOCP
! if $cc $ccflags $ldflags foo.c -o safemcpy $libs >/dev/null 2>&1; then
if ./safemcpy 2>/dev/null; then
echo "Yes, it can."
val="$define"
***************
*** 5645,5659 ****
'') stdio_ptr='((fp)->_IO_read_ptr)'
ptr_lval=$define
;;
! *) ptr_lval=$d_stdio_ptr_lval
! ;;
esac
case "$stdio_cnt" in
'') stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)'
cnt_lval=$undef
;;
! *) cnt_lval=$d_stdio_cnt_lval
! ;;
esac
case "$stdio_base" in
'') stdio_base='((fp)->_IO_read_base)';;
--- 5663,5675 ----
'') stdio_ptr='((fp)->_IO_read_ptr)'
ptr_lval=$define
;;
! *) ptr_lval=$d_stdio_ptr_lval;;
esac
case "$stdio_cnt" in
'') stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)'
cnt_lval=$undef
;;
! *) cnt_lval=$d_stdio_cnt_lval;;
esac
case "$stdio_base" in
'') stdio_base='((fp)->_IO_read_base)';;
***************
*** 5666,5680 ****
'') stdio_ptr='((fp)->_ptr)'
ptr_lval=$define
;;
! *) ptr_lval=$d_stdio_ptr_lval
! ;;
esac
case "$stdio_cnt" in
'') stdio_cnt='((fp)->_cnt)'
cnt_lval=$define
;;
! *) cnt_lval=$d_stdio_cnt_lval
! ;;
esac
case "$stdio_base" in
'') stdio_base='((fp)->_base)';;
--- 5682,5694 ----
'') stdio_ptr='((fp)->_ptr)'
ptr_lval=$define
;;
! *) ptr_lval=$d_stdio_ptr_lval;;
esac
case "$stdio_cnt" in
'') stdio_cnt='((fp)->_cnt)'
cnt_lval=$define
;;
! *) cnt_lval=$d_stdio_cnt_lval;;
esac
case "$stdio_base" in
'') stdio_base='((fp)->_base)';;
***************
*** 5715,5722 ****
set d_stdstdio
eval $setvar

! : Can _ptr be used as an lvalue. Only makes sense if we
! : have a known stdio implementation.
case "$d_stdstdio$ptr_lval" in
$define$define) val=$define ;;
*) val=$undef ;;
--- 5729,5735 ----
set d_stdstdio
eval $setvar

! : Can _ptr be used as an lvalue?
case "$d_stdstdio$ptr_lval" in
$define$define) val=$define ;;
*) val=$undef ;;
***************
*** 5724,5732 ****
set d_stdio_ptr_lval
eval $setvar

!
! : Can _cnt be used as an lvalue. Only makes sense if we
! : have a known stdio implementation.
case "$d_stdstdio$cnt_lval" in
$define$define) val=$define ;;
*) val=$undef ;;
--- 5737,5743 ----
set d_stdio_ptr_lval
eval $setvar

case "$d_stdstdio$cnt_lval" in
$define$define) val=$define ;;
*) val=$undef ;;
***************
*** 5734,5740 ****
set d_stdio_cnt_lval
eval $setvar

-
: see if _base is also standard
val="$undef"
case "$d_stdstdio" in
--- 5745,5750 ----
***************
*** 5877,5888 ****
done;
$cppstdin $cppflags $cppminus < temp.c >temp.E 2>/dev/null;
if $contains $type temp.E >/dev/null 2>&1; then
! eval "$var=$type";
else
! eval "$var=$def";
fi;
$rm -f temp.?;;
! *) eval "$var=$varval";;
esac'

: see if this is a sys/times.h system
--- 5887,5898 ----
done;
$cppstdin $cppflags $cppminus < temp.c >temp.E 2>/dev/null;
if $contains $type temp.E >/dev/null 2>&1; then
! eval "$var=\$type";
else
! eval "$var=\$def";
fi;
$rm -f temp.?;;
! *) eval "$var=\$varval";;
esac'

: see if this is a sys/times.h system
***************
*** 7419,7425 ****
fi
$rm -f try.[co]
;;
! *) selecttype = 'int *'
;;
esac

--- 7429,7435 ----
fi
$rm -f try.[co]
;;
! *) selecttype='int *'
;;
esac

***************
*** 7429,7435 ****
'')
echo "Generating a list of signal names..." >&4
xxx=`./findhdr signal.h`" "`./findhdr sys/signal.h`
! xxx="$xxx "`./findhdr linux/signal.h`
set X `cat $xxx 2>&1 | $awk '
$1 ~ /^#define$/ && $2 ~ /^SIG[A-Z0-9]*$/ && $3 ~ /^[1-9][0-9]*$/ {
sig[$3] = substr($2,4,20)
--- 7439,7445 ----
'')
echo "Generating a list of signal names..." >&4
xxx=`./findhdr signal.h`" "`./findhdr sys/signal.h`
! xxx="$xxx "`./findhdr linux/signal.h`" "`./findhdr asm/signal.h`
set X `cat $xxx 2>&1 | $awk '
$1 ~ /^#define$/ && $2 ~ /^SIG[A-Z0-9]*$/ && $3 ~ /^[1-9][0-9]*$/ {
sig[$3] = substr($2,4,20)
***************
*** 7583,7589 ****
set sys/file.h val
eval $inhdr

! : do we need to #include <sys/file.h> ?
case "$val" in
"$define")
echo " "
--- 7593,7599 ----
set sys/file.h val
eval $inhdr

! : do we need to include sys/file.h ?
case "$val" in
"$define")
echo " "


End of patch.

Perl porters RSS feed   Index | Next | Previous | View Threaded
 
 


Interested in having your list archived? Contact Gossamer Threads
 
  Web Applications & Managed Hosting Powered by Gossamer Threads Inc.