Blame PPPort_xs.PL

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__