|
Packit |
7d6a7d |
################################################################################
|
|
Packit |
7d6a7d |
#
|
|
Packit |
7d6a7d |
# PPPort_xs.PL -- generate RealPPPort.xs
|
|
Packit |
7d6a7d |
#
|
|
Packit |
7d6a7d |
################################################################################
|
|
Packit |
7d6a7d |
#
|
|
Packit |
7d6a7d |
# Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
|
|
Packit |
7d6a7d |
# Version 2.x, Copyright (C) 2001, Paul Marquess.
|
|
Packit |
7d6a7d |
# Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
|
|
Packit |
7d6a7d |
#
|
|
Packit |
7d6a7d |
# This program is free software; you can redistribute it and/or
|
|
Packit |
7d6a7d |
# modify it under the same terms as Perl itself.
|
|
Packit |
7d6a7d |
#
|
|
Packit |
7d6a7d |
################################################################################
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
use strict;
|
|
Packit |
7d6a7d |
$^W = 1;
|
|
Packit |
7d6a7d |
require "./parts/ppptools.pl";
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
my %SECTION = (
|
|
Packit |
7d6a7d |
xshead => { code => '', header => "/* ---- code from __FILE__ ---- */" },
|
|
Packit |
7d6a7d |
xsinit => { code => '', header => "/* ---- code from __FILE__ ---- */" },
|
|
Packit |
7d6a7d |
xsmisc => { code => '', header => "/* ---- code from __FILE__ ---- */" },
|
|
Packit |
7d6a7d |
xsboot => { code => '', header => "/* ---- code from __FILE__ ---- */", indent => "\t" },
|
|
Packit |
7d6a7d |
xsubs => { code => '', header => <
|
|
Packit |
7d6a7d |
##----------------------------------------------------------------------
|
|
Packit |
7d6a7d |
## XSUBs for testing the implementation in __FILE__
|
|
Packit |
7d6a7d |
##----------------------------------------------------------------------
|
|
Packit |
7d6a7d |
ENDHEADER
|
|
Packit |
7d6a7d |
);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
if (not exists $ENV{PERL_NO_GET_CONTEXT} or $ENV{PERL_NO_GET_CONTEXT}) {
|
|
Packit |
7d6a7d |
$SECTION{xshead}{code} .= <
|
|
Packit |
7d6a7d |
#define PERL_NO_GET_CONTEXT
|
|
Packit |
7d6a7d |
END
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
my $file;
|
|
Packit |
7d6a7d |
my $sec;
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
for $file (all_files_in_dir('parts/inc')) {
|
|
Packit |
7d6a7d |
my $spec = parse_partspec($file);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
my $msg = 0;
|
|
Packit |
7d6a7d |
for $sec (keys %SECTION) {
|
|
Packit |
7d6a7d |
if (exists $spec->{$sec}) {
|
|
Packit |
7d6a7d |
$msg++ or print "adding XS code from $file\n";
|
|
Packit |
7d6a7d |
if (exists $SECTION{$sec}{header}) {
|
|
Packit |
7d6a7d |
my $header = $SECTION{$sec}{header};
|
|
Packit |
7d6a7d |
$header =~ s/__FILE__/$file/g;
|
|
Packit |
7d6a7d |
$SECTION{$sec}{code} .= $header . "\n";
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
$SECTION{$sec}{code} .= $spec->{$sec} . "\n";
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
my $data = do { local $/; <DATA> };
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
for $sec (keys %SECTION) {
|
|
Packit |
7d6a7d |
my $code = $SECTION{$sec}{code};
|
|
Packit |
7d6a7d |
if (exists $SECTION{$sec}{indent}) {
|
|
Packit |
7d6a7d |
$code =~ s/^/$SECTION{$sec}{indent}/gm;
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
$code =~ s/[\r\n]+$//;
|
|
Packit |
7d6a7d |
$data =~ s/^__\U$sec\E__$/$code/m;
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
open FH, ">RealPPPort.xs" or die "RealPPPort.xs: $!\n";
|
|
Packit |
7d6a7d |
print FH $data;
|
|
Packit |
7d6a7d |
close FH;
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
exit 0;
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
__DATA__
|
|
Packit |
7d6a7d |
/*******************************************************************************
|
|
Packit |
7d6a7d |
*
|
|
Packit |
7d6a7d |
* !!!!! Do NOT edit this file directly! -- Edit PPPort_xs.PL instead. !!!!!
|
|
Packit |
7d6a7d |
*
|
|
Packit |
7d6a7d |
* This file was automatically generated from the definition files in the
|
|
Packit |
7d6a7d |
* parts/inc/ subdirectory by PPPort_xs.PL. To learn more about how all this
|
|
Packit |
7d6a7d |
* works, please read the F<HACKERS> file that came with this distribution.
|
|
Packit |
7d6a7d |
*
|
|
Packit |
7d6a7d |
********************************************************************************
|
|
Packit |
7d6a7d |
*
|
|
Packit |
7d6a7d |
* Perl/Pollution/Portability
|
|
Packit |
7d6a7d |
*
|
|
Packit |
7d6a7d |
********************************************************************************
|
|
Packit |
7d6a7d |
*
|
|
Packit |
7d6a7d |
* Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
|
|
Packit |
7d6a7d |
* Version 2.x, Copyright (C) 2001, Paul Marquess.
|
|
Packit |
7d6a7d |
* Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
|
|
Packit |
7d6a7d |
*
|
|
Packit |
7d6a7d |
* This program is free software; you can redistribute it and/or
|
|
Packit |
7d6a7d |
* modify it under the same terms as Perl itself.
|
|
Packit |
7d6a7d |
*
|
|
Packit |
7d6a7d |
*******************************************************************************/
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
/* ========== BEGIN XSHEAD ================================================== */
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
__XSHEAD__
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
/* =========== END XSHEAD =================================================== */
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
#include "EXTERN.h"
|
|
Packit |
7d6a7d |
#include "perl.h"
|
|
Packit |
7d6a7d |
#include "XSUB.h"
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
/* ========== BEGIN XSINIT ================================================== */
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
__XSINIT__
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
/* =========== END XSINIT =================================================== */
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
#include "ppport.h"
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
/* ========== BEGIN XSMISC ================================================== */
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
__XSMISC__
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
/* =========== END XSMISC =================================================== */
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
MODULE = Devel::PPPort PACKAGE = Devel::PPPort
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
BOOT:
|
|
Packit |
7d6a7d |
__XSBOOT__
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
__XSUBS__
|