perl_mlb

 view release on metacpan or  search on metacpan

os2/Config.pm  view on Meta::CPAN

## do not forget to propagate your changes by running "Configure -der". You may
## instead choose to run each of the .SH files by yourself, or "Configure -S".
##
#
## Package name      : perl5
## Source directory  : .
## Configuration time: Sat Nov  8 12:23:19 PST 2003
## Configured by     : vera
## Target system     : os2 ia-ia 2 2.30 i386 
#
## Configure command line arguments.
#PERL_PATCHLEVEL=
## Variables propagated from previous config.sh file.

our $summary : unique = <<'!END!';
Summary of my $package (revision $baserev $version_patchlevel_string) configuration:
  Platform:
    osname=$osname, osvers=$osvers, archname=$archname
    uname='$myuname'
    config_args='$config_args'
    hint=$hint, useposix=$useposix, d_sigaction=$d_sigaction
    usethreads=$usethreads use5005threads=$use5005threads useithreads=$useithreads usemultiplicity=$usemultiplicity
    useperlio=$useperlio d_sfio=$d_sfio uselargefiles=$uselargefiles usesocks=$usesocks
    use64bitint=$use64bitint use64bitall=$use64bitall uselongdouble=$uselongdouble
    usemymalloc=$usemymalloc, bincompat5005=undef
  Compiler:
    cc='$cc', ccflags ='$ccflags',
    optimize='$optimize',
    cppflags='$cppflags'
    ccversion='$ccversion', gccversion='$gccversion', gccosandvers='$gccosandvers'
    intsize=$intsize, longsize=$longsize, ptrsize=$ptrsize, doublesize=$doublesize, byteorder=$byteorder
    d_longlong=$d_longlong, longlongsize=$longlongsize, d_longdbl=$d_longdbl, longdblsize=$longdblsize
    ivtype='$ivtype', ivsize=$ivsize, nvtype='$nvtype', nvsize=$nvsize, Off_t='$lseektype', lseeksize=$lseeksize
    alignbytes=$alignbytes, prototype=$prototype
  Linker and Libraries:
    ld='$ld', ldflags ='$ldflags'
    libpth=$libpth
    libs=$libs
    perllibs=$perllibs
    libc=$libc, so=$so, useshrplib=$useshrplib, libperl=$libperl
    gnulibc_version='$gnulibc_version'
  Dynamic Linking:
    dlsrc=$dlsrc, dlext=$dlext, d_dlsymun=$d_dlsymun, ccdlflags='$ccdlflags'
    cccdlflags='$cccdlflags', lddlflags='$lddlflags'

!END!
my $summary_expanded = 0;

sub myconfig {
    return $summary if $summary_expanded;
    $summary =~ s{\$(\w+)}
		 { my $c = $Config{$1}; defined($c) ? $c : 'undef' }ge;
    $summary_expanded = 1;
    $summary;
}

our $Config_SH : unique = <<'!END!';
archlibexp='i:/perllib/lib/5.8.2/os2'
archname='os2'
cc='gcc'
ccflags='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=60'
cppflags='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=60'
dlsrc='dl_dlopen.xs'
dynamic_ext='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 OS2/ExtAttr OS2/PrfDB OS2/Process OS2/REXX Opcode POSIX PerlIO/encoding PerlIO/scalar Pe...
installarchlib='i:/perllib/lib/5.8.2/os2'
installprivlib='i:/perllib/lib/5.8.2'
libpth='i:/emx.add/lib i:/emx/lib i:/emx.f77/lib D:/DEVTOOLS/OPENGL/LIB I:/JAVA11/LIB i:/emx/lib/mt'
libs='-lsocket -lm -lbsd -lcrypt'
osname='os2'
osvers='2.30'
prefix='i:/perllib'
privlibexp='i:/perllib/lib/5.8.2'
sharpbang='#!'
shsharp='true'
so='dll'
startsh='#!i:/BIN/sh.exe'
static_ext=' '
Author=''
CONFIG='true'
Date='$Date'
EXECSHELL='sh'
Header=''
Id='$Id'
Locker=''
Log='$Log'
Mcc='Mcc'
PATCHLEVEL='8'
PERL_API_REVISION='5'
PERL_API_SUBVERSION='0'
PERL_API_VERSION='8'
PERL_CONFIG_SH='true'
PERL_REVISION='5'
PERL_SUBVERSION='2'
PERL_VERSION='8'
RCSfile='$RCSfile'
Revision='$Revision'
SUBVERSION='2'
Source=''
State=''
_a='.lib'
_exe='.exe'
_o='.obj'
afs='false'
afsroot='/afs'
alignbytes='4'
ansi2knr=''
aout_ar='ar'
aout_archobjs='os2.o dl_os2.o'
aout_ccflags='-DDOSISH -DPERL_IS_AOUT -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=60 -D__ST_MT_ERRNO__'
aout_cppflags='-DDOSISH -DPERL_IS_AOUT -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=60 -D__ST_MT_ERRNO__'
aout_d_fork='define'
aout_d_shrplib='undef'
aout_extra_static_ext='OS2::DLL'
aout_lddlflags='-Zdll -s'
aout_ldflags='-Zexe -Zsmall-conv -Zstack 16000 -D__ST_MT_ERRNO__'
aout_lib_ext='.a'
aout_obj_ext='.o'
aout_plibext='.a'
aout_use_clib='c'
aout_usedl='undef'
aout_useshrplib='false'
aphostname='i:/emx.add/BIN/hostname'
api_revision='5'
api_subversion='0'
api_version='8'
api_versionstring='5.8.0'
ar='emxomfar'
archlib='i:/perllib/lib/5.8.2/os2'
archname64=''
archobjs='os2.obj dl_os2.obj'
asctime_r_proto='0'
awk='awk'
baserev='5.0'
bash=''
bin='i:/perllib/bin'
binexp='i:/perllib/bin'
bison='bison'
byacc='byacc'
byteorder='1234'
c='\c'
castflags='0'
cat='cat'
cccdlflags='-Zdll'
ccdlflags=' '
ccflags_uselargefiles=''
ccname='gcc'
ccsymbols='__32BIT__=1 __EMX__=1 __GNUC_MINOR__=8 __i386=1 __i386__=1 cpu=i386 machine=i386 system=emx system=unix'
ccversion=''
cf_by='vera'
cf_email='vera@ia-ia.nonet'
cf_time='Sat Nov  8 12:23:19 PST 2003'
charsize='1'
chgrp=''
chmod='chmod'
chown=''
clocktype='clock_t'
comm='comm'
compress=''
config_arg0='Configure'
config_arg1='-des'
config_arg2='-D'
config_arg3='prefix=i:/perllib'
config_argc='3'
config_args='-des -D prefix=i:/perllib'
contains='grep'
cp='cp'
cpio=''
cpp='cpp'
cpp_stuff='42'
cppccsymbols='__GNUC__=2 i386=1'

os2/Config.pm  view on Meta::CPAN

    return(index($Config_SH, "\n$_[1]='") != -1 or
           substr($Config_SH, 0, length($_[1])+2) eq "$_[1]='" or
           index($Config_SH, "\n$_[1]=\"") != -1 or
           substr($Config_SH, 0, length($_[1])+2) eq "$_[1]=\"" or
           $_[1] =~ /^(?:(?:cc|ld)flags|libs(?:wanted)?)_nolargefiles$/
          );
}

sub STORE  { die "\%Config::Config is read-only\n" }
*DELETE = \&STORE;
*CLEAR  = \&STORE;


sub config_sh {
    $Config_SH
}

sub config_re {
    my $re = shift;
    return map { chomp; $_ } grep /^$re=/, split /^/, $Config_SH;
}

sub config_vars {
    foreach (@_) {
	if (/\W/) {
	    my @matches = config_re($_);
	    print map "$_\n", @matches ? @matches : "$_: not found";
	} else {
	    my $v = (exists $Config{$_}) ? $Config{$_} : 'UNKNOWN';
	    $v = 'undef' unless defined $v;
	    print "$_='$v';\n";
	}
    }
}

my %preconfig;
if ($OS2::is_aout) {
    my ($value, $v) = $Config_SH =~ m/^used_aout='(.*)'\s*$/m;
    for (split ' ', $value) {
        ($v) = $Config_SH =~ m/^aout_$_='(.*)'\s*$/m;
        $preconfig{$_} = $v eq 'undef' ? undef : $v;
    }
}
$preconfig{d_fork} = undef unless $OS2::can_fork; # Some funny cases can't
sub TIEHASH { bless {%preconfig} }
$preconfig{dll_name} = 'perl312F';

# avoid Config..Exporter..UNIVERSAL search for DESTROY then AUTOLOAD
sub DESTROY { }

my $i = 0;
foreach my $c (4,3,2) { $i |= ord($c); $i <<= 8 }
$i |= ord(1);
my $value = join('', unpack('aaaa', pack('L!', $i)));


tie %Config, 'Config', {
    'archlibexp' => 'i:/perllib/lib/5.8.2/os2',
    'archname' => 'os2',
    'cc' => 'gcc',
    'ccflags' => '-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=60',
    'cppflags' => '-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=60',
    'dlsrc' => 'dl_dlopen.xs',
    'dynamic_ext' => 'B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 OS2/ExtAttr OS2/PrfDB OS2/Process OS2/REXX Opcode POSIX PerlIO/encoding PerlIO/...
    'installarchlib' => 'i:/perllib/lib/5.8.2/os2',
    'installprivlib' => 'i:/perllib/lib/5.8.2',
    'libpth' => 'i:/emx.add/lib i:/emx/lib i:/emx.f77/lib D:/DEVTOOLS/OPENGL/LIB I:/JAVA11/LIB i:/emx/lib/mt',
    'libs' => '-lsocket -lm -lbsd -lcrypt',
    'osname' => 'os2',
    'osvers' => '2.30',
    'prefix' => 'i:/perllib',
    'privlibexp' => 'i:/perllib/lib/5.8.2',
    'sharpbang' => '#!',
    'shsharp' => 'true',
    'so' => 'dll',
    'startsh' => '#!i:/BIN/sh.exe',
    'static_ext' => ' ',
    byteorder => $value,

};

1;



( run in 0.514 second using v1.01-cache-2.11-cpan-71847e10f99 )