#$@%#$%!

Ngiler SH3LL 360
: / lib64 / perl5 / vendor_perl / Filter /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	162.0.209.101
System	Linux premium169.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
User	luxeelil
PHP Version	8.0.30
Software	LiteSpeed
Doc root	Writable

Edit File : cpp.pm \| Size : 2.13 KB
package Filter::cpp; use Filter::Util::Exec ; use Config ; use strict; use warnings; our $VERSION = '1.58' ; my $cpp; my $sep; if ($^O eq 'MSWin32') { $cpp = 'cpp.exe' ; $sep = ';'; } else { ($cpp) = $Config{cppstdin} =~ /^(\S+)/; $sep = ':'; } if (! $cpp) { require Carp; Carp::croak ("Cannot find cpp\n"); } # Check if cpp is installed if ( ! -x $cpp) { my $foundCPP = 0 ; foreach my $dir (split($sep, $ENV{PATH}), '') { if (-x "$dir/$cpp") { $foundCPP = 1; last ; } } if (! $foundCPP) { require Carp; Carp::croak("Cannot find cpp\n"); } } sub import { my($self, @args) = @_ ; if ($^O eq 'MSWin32') { Filter::Util::Exec::filter_add ($self, 'cmd', '/c', "cpp.exe 2>nul") ; } else { Filter::Util::Exec::filter_add ($self, 'sh', '-c', "$Config{'cppstdin'} $Config{'cppminus'} 2>/dev/null") ; } } 1 ; __END__ =head1 NAME Filter::cpp - cpp source filter =head1 SYNOPSIS use Filter::cpp ; =head1 DESCRIPTION This source filter pipes the current source file through the C pre-processor (cpp) if it is available. As with all source filters its scope is limited to the current source file only. Every file you want to be processed by the filter must have a use Filter::cpp ; near the top. Here is an example script which uses the filter: use Filter::cpp ; #define FRED 1 $a = 2 + FRED ; print "a = $a\n" ; #ifdef FRED print "Hello FRED\n" ; #else print "Where is FRED\n" ; #endif And here is what it will output: a = 3 Hello FRED This example below, provided by Michael G Schwern, shows a clever way to get Perl to use a C pre-processor macro when the Filter::cpp module is available, or to use a Perl sub when it is not. # use Filter::cpp if we can. BEGIN { eval 'use Filter::cpp' } sub PRINT { my($string) = shift; #define PRINT($string) \ (print $string."\n") } PRINT("Mu"); Look at Michael's Tie::VecArray module for a practical use. =head1 AUTHOR Paul Marquess =head1 DATE 11th December 1995. =cut Back

Edit File : cpp.pm | Size : 2.13 KB

package Filter::cpp;
 
use Filter::Util::Exec ;
use Config ;
use strict;
use warnings;

our $VERSION = '1.58' ;

my $cpp;
my $sep;
if ($^O eq 'MSWin32') {
    $cpp = 'cpp.exe' ;
    $sep = ';';
}
else {
    ($cpp) = $Config{cppstdin} =~ /^(\S+)/;
    $sep = ':';
}

if (! $cpp) {
    require Carp;
    Carp::croak ("Cannot find cpp\n");
}

# Check if cpp is installed
if ( ! -x $cpp) {
    my $foundCPP = 0 ;
    foreach my $dir (split($sep, $ENV{PATH}), '')
    {
        if (-x "$dir/$cpp")
        {
            $foundCPP = 1;
            last ;
        }
    }

if (! $foundCPP) {
        require Carp;
        Carp::croak("Cannot find cpp\n");
    }
}

sub import 
{ 
    my($self, @args) = @_ ;

if ($^O eq 'MSWin32') {
        Filter::Util::Exec::filter_add ($self, 'cmd', '/c', 
		"cpp.exe 2>nul") ;
    }
    else {
        Filter::Util::Exec::filter_add ($self, 'sh', '-c', 
		"$Config{'cppstdin'} $Config{'cppminus'} 2>/dev/null") ;
    }
}

1 ;
__END__

=head1 NAME

Filter::cpp - cpp source filter

=head1 SYNOPSIS

use Filter::cpp ;

=head1 DESCRIPTION

This source filter pipes the current source file through the C
pre-processor (cpp) if it is available.

As with all source filters its scope is limited to the current source
file only. Every file you want to be processed by the filter must have a

use Filter::cpp ;

near the top.

Here is an example script which uses the filter:

use Filter::cpp ;

#define FRED 1
    $a = 2 + FRED ;
    print "a = $a\n" ;
    #ifdef FRED
    print "Hello FRED\n" ;
    #else
    print "Where is FRED\n" ;
    #endif

And here is what it will output:

a = 3
    Hello FRED

This example below, provided by Michael G Schwern, shows a clever way
to get Perl to use a C pre-processor macro when the Filter::cpp module
is available, or to use a Perl sub when it is not.

# use Filter::cpp if we can.
    BEGIN { eval 'use Filter::cpp' }

sub PRINT {
        my($string) = shift;

#define PRINT($string) \
        (print $string."\n")
    }
     
    PRINT("Mu");

Look at Michael's Tie::VecArray module for a practical use.

=head1 AUTHOR

Paul Marquess

=head1 DATE

11th December 1995.

=cut

Back