dslinux/user/perl/os2/OS2/Process MANIFEST Makefile.PL Process.pm Process.xs
cayenne
dslinux_cayenne at user.in-berlin.de
Mon Dec 4 18:01:25 CET 2006
Update of /cvsroot/dslinux/dslinux/user/perl/os2/OS2/Process
In directory antilope:/tmp/cvs-serv17422/os2/OS2/Process
Added Files:
MANIFEST Makefile.PL Process.pm Process.xs
Log Message:
Adding fresh perl source to HEAD to branch from
--- NEW FILE: Process.xs ---
#include <process.h>
#define INCL_DOS
#define INCL_DOSERRORS
#define INCL_DOSNLS
#define INCL_WINSWITCHLIST
#define INCL_WINWINDOWMGR
#define INCL_WININPUT
#define INCL_VIO
#define INCL_KBD
#define INCL_WINCLIPBOARD
#define INCL_WINATOM
#include <os2.h>
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
static unsigned long
constant(char *name, int arg)
[...1703 lines suppressed...]
unsigned long
ulMPFROMSHORT(unsigned short i)
unsigned long
ulMPVOID()
unsigned long
ulMPFROMCHAR(unsigned char i)
unsigned long
ulMPFROM2SHORT(unsigned short x1, unsigned short x2)
PROTOTYPE: DISABLE
unsigned long
ulMPFROMSH2CH(unsigned short s, unsigned char c1, unsigned char c2)
PROTOTYPE: DISABLE
unsigned long
ulMPFROMLONG(unsigned long x)
--- NEW FILE: Process.pm ---
package OS2::localMorphPM;
# use strict;
sub new {
my ($c,$f) = @_;
OS2::MorphPM($f);
# print STDERR ">>>>>\n";
bless [$f], $c
}
sub DESTROY {
# print STDERR "<<<<<\n";
OS2::UnMorphPM(shift->[0])
}
package OS2::Process;
BEGIN {
require Exporter;
require XSLoader;
[...1594 lines suppressed...]
TBM_* Title bar messages?
CF_* Clipboard formats
CFI_* Clipboard storage type
FID_* ids of subwindows of frames
=head1 BUGS
whether a given API dies or returns FALSE/empty-list on error may be
confusing. This may change in the future.
=head1 AUTHOR
Andreas Kaiser <ak at ananke.s.bawue.de>,
Ilya Zakharevich <ilya at math.ohio-state.edu>.
=head1 SEE ALSO
C<spawn*>() system calls, L<OS2::Proc> and L<OS2::WinObject> modules.
=cut
--- NEW FILE: Makefile.PL ---
use ExtUtils::MakeMaker;
create_constants(); # Make a module
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'OS2::Process',
VERSION_FROM=> 'Process.pm',
MAN3PODS => {}, # Pods will be built by installman.
'LIBS' => [''], # e.g., '-lm'
'DEFINE' => '', # e.g., '-DHAVE_SOMETHING'
'INC' => '', # e.g., '-I/usr/include/other'
IMPORTS => { _16_DosSmSetTitle => 'sesmgr.DOSSMSETTITLE',
# _16_Win16SetTitle => 'pmshapi.93',
},
);
sub create_constants {
return if -d 'Process_constants';
my $src_dir;
my @try = qw(.. ../.. ../../.. ../../../..);
for (@try) {
$src_dir = $_, last if -d "$_/utils" and -r "$_/utils/h2xs";
}
warn("Can't find \$PERL_SRC/utils/h2xs in @try, falling back to no constants"),
return unless defined $src_dir;
# Can't name it *::Constants, otherwise constants.xs would overwrite it...
# This produces warnings from PSZ-conversion on WS_* constants.
system $^X, "-I$src_dir/lib", "$src_dir/utils/h2xs", '-fn', 'OS2::Process::Const',
'--skip-exporter', '--skip-autoloader', # too large memory overhead
'--skip-strict', '--skip-warnings', # likewise
'--skip-ppport', # will not work without dynaloading.
# Most useful for OS2::Process:
'-M^(HWND|WM|SC|SWP|WC|PROG|QW|EDI|WS|QWS|QWP|QWL|FF|FI|LS|FS|FCF|BS|MS|TBM|CF|CFI|FID|MB|MBID|CF|CFI|SPTR)_',
'-F', '-DINCL_NLS -DINCL_BASE -DINCL_PM', # Define more symbols
'os2emx.h' # EMX version of OS/2 API
and warn("Can't build module with contants, falling back to no constants"),
return;
rename 'OS2/Process/Const', 'Process_constants'
or warn("Error renaming module, falling back to no constants: $!"),
return;
return 1;
}
--- NEW FILE: MANIFEST ---
MANIFEST
Makefile.PL
Process.pm
Process.xs
t/os2_process.t
t/os2_process_kid.t
t/os2_process_text.t
More information about the dslinux-commit
mailing list