~ubuntu-branches/debian/sid/eperl/sid

« back to all changes in this revision

Viewing changes to eperl_perl5.h

  • Committer: Bazaar Package Importer
  • Author(s): Denis Barbier
  • Date: 2001-12-18 20:40:24 UTC
  • Revision ID: james.westby@ubuntu.com-20011218204024-kas01yyh4uj98q11
Tags: upstream-2.2.14
ImportĀ upstreamĀ versionĀ 2.2.14

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
/*
 
2
**        ____           _ 
 
3
**    ___|  _ \ ___ _ __| |
 
4
**   / _ \ |_) / _ \ '__| |
 
5
**  |  __/  __/  __/ |  | |
 
6
**   \___|_|   \___|_|  |_|
 
7
** 
 
8
**  ePerl -- Embedded Perl 5 Language
 
9
**
 
10
**  ePerl interprets an ASCII file bristled with Perl 5 program statements
 
11
**  by evaluating the Perl 5 code while passing through the plain ASCII
 
12
**  data. It can operate both as a standard Unix filter for general file
 
13
**  generation tasks and as a powerful Webserver scripting language for
 
14
**  dynamic HTML page programming. 
 
15
**
 
16
**  ======================================================================
 
17
**
 
18
**  Copyright (c) 1996,1997,1998 Ralf S. Engelschall <rse@engelschall.com>
 
19
**
 
20
**  This program is free software; it may be redistributed and/or modified
 
21
**  only under the terms of either the Artistic License or the GNU General
 
22
**  Public License, which may be found in the ePerl source distribution.
 
23
**  Look at the files ARTISTIC and COPYING or run ``eperl -l'' to receive
 
24
**  a built-in copy of both license files.
 
25
**
 
26
**  This program is distributed in the hope that it will be useful, but
 
27
**  WITHOUT ANY WARRANTY; without even the implied warranty of
 
28
**  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either the
 
29
**  Artistic License or the GNU General Public License for more details.
 
30
**
 
31
**  ======================================================================
 
32
**
 
33
**  eperl_perl5.h -- Perl 5 header file mangling
 
34
*/
 
35
#ifndef EPERL_PERL5_H
 
36
#define EPERL_PERL5_H 1
 
37
 
 
38
 
 
39
/*  first include the standard Perl 
 
40
    includes designed for embedding   */
 
41
#include <EXTERN.h>
 
42
#include <perl.h>                 
 
43
 
 
44
 
 
45
/*  try to adjust for PerlIO handling  */
 
46
#ifdef USE_PERLIO
 
47
#undef  fwrite
 
48
#define fwrite(buf,size,count,f) PerlIO_write(f,buf,size*count)
 
49
#endif
 
50
 
 
51
 
 
52
/*  define the I/O type string for verbosity */
 
53
#ifdef USE_PERLIO
 
54
#ifdef USE_SFIO
 
55
#define PERL_IO_LAYER_ID "PerlIO/SfIO"
 
56
#else
 
57
#define PERL_IO_LAYER_ID "PerlIO/StdIO"
 
58
#endif
 
59
#else
 
60
#define PERL_IO_LAYER_ID "Raw/StdIO"
 
61
#endif
 
62
 
 
63
 
 
64
#endif /* EPERL_PERL5_H */
 
65
/*EOF*/