This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Message-id: <20020531191802.GB23567@ool-18b93024.dyn.optonline.net>
[perl5.git] / t / lib / h2ph.h
1 /* 
2  * Test header file for h2ph
3  * 
4  * Try to test as many constructs as possible
5  * For example, the multi-line comment :)
6  */
7
8 /* And here's a single line comment :) */
9
10 /* Test #define with no indenting, over multiple lines */
11 #define SQUARE(x) \
12 ((x)*(x))
13
14 /* Test #ifndef and parameter interpretation*/
15 #ifndef ERROR
16 #define ERROR(x) fprintf(stderr, "%s\n", x[2][3][0])
17 #endif /* ERROR */
18
19 #ifndef _H2PH_H_
20 #define _H2PH_H_
21
22 /* #ident - doesn't really do anything, but I think it always gets included anyway */
23 #ident "$Revision h2ph.h,v 1.0 98/05/04 20:42:14 billy $"
24
25 /* Test #undef */
26 #undef MAX
27 #define MAX(a,b) ((a) > (b) ? (a) : (b))
28
29 /* Test #ifdef */
30 #ifdef __SOME_UNIMPORTANT_PROPERTY
31 #define MIN(a,b) ((a) < (b) ? (a) : (b))
32 #endif /* __SOME_UNIMPORTANT_PROPERTY */
33
34 /* 
35  * Test #if, #elif, #else, #endif, #warn and #error, and `!'
36  * Also test whitespace between the `#' and the command
37  */
38 #if !(defined __SOMETHING_MORE_IMPORTANT)
39 #    warn Be careful...
40 #elif !(defined __SOMETHING_REALLY_REALLY_IMPORTANT)
41 #    error "Nup, can't go on" /* ' /* stupid font-lock-mode */
42 #else /* defined __SOMETHING_MORE_IMPORTANT && defined __SOMETHING_REALLY_REALLY_IMPORTANT */
43 #    define EVERYTHING_IS_OK
44 #endif
45
46 /* Test && and || */
47 #undef WHATEVER
48 #if (!((defined __SOMETHING_TRIVIAL && defined __SOMETHING_LESS_SO)) \
49      || defined __SOMETHING_OVERPOWERING)
50 #    define WHATEVER 6
51 #elif !(defined __SOMETHING_TRIVIAL) /* defined __SOMETHING_LESS_SO */
52 #    define WHATEVER 7
53 #elif !(defined __SOMETHING_LESS_SO) /* defined __SOMETHING_TRIVIAL */
54 #    define WHATEVER 8
55 #else /* defined __SOMETHING_TRIVIAL && defined __SOMETHING_LESS_SO */
56 #    define WHATEVER 1000
57 #endif
58
59 /* 
60  * Test #include, #import and #include_next
61  * #include_next is difficult to test, it really depends on the actual
62  *  circumstances - for example, `#include_next <limits.h>' on a Linux system
63  *  with `use lib qw(/opt/perl5/lib/site_perl/i586-linux/linux);' or whatever
64  *  your equivalent is...
65  */
66 #include <sys/socket.h>
67 #import "sys/ioctl.h"
68 #include_next <sys/fcntl.h>
69
70 /* typedefs should be ignored */
71 typedef struct a_struct {
72   int typedefs_should;
73   char be_ignored;
74   long as_well;
75 } a_typedef;
76
77 /* 
78  * however, typedefs of enums and just plain enums should end up being treated
79  * like a bunch of #defines...
80  */
81
82 typedef enum _days_of_week { sun, mon, tue, wed, thu, fri, sat, Sun=0, Mon,
83                              Tue, Wed, Thu, Fri, Sat } days_of_week;
84
85 /* 
86  * Some moderate flexing of tri-graph pre substitution.
87  */
88 ??=ifndef _SOMETHING_TRIGRAPHIC
89 ??=define _SOMETHING_TRIGRAPHIC
90 ??= define SOMETHING_ELSE_TRIGRAPHIC_0 "??!"          /* | ??!|  || */
91  ??=define SOMETHING_ELSE_TRIGRAPHIC_1 "??'"          /* | ??'|  ^| */
92 ??= define SOMETHING_ELSE_TRIGRAPHIC_2 "??("          /* | ??(|  [| */
93  ??= define SOMETHING_ELSE_TRIGRAPHIC_3 "??)"         /* | ??)|  ]| */
94 ??=define SOMETHING_ELSE_TRIGRAPHIC_4  "??-0"         /* | ??-|  ~| */
95         ??= define SOMETHING_ELSE_TRIGRAPHIC_5 "??/ " /* | ??/|  \| */
96 ??= define SOMETHING_ELSE_TRIGRAPHIC_6 "??<"          /* | ??<|  {| */
97 ??=define SOMETHING_ELSE_TRIGRAPHIC_7  "??="          /* | ??=|  #| */
98 ??= define SOMETHING_ELSE_TRIGRAPHIC_8 "??>"          /* | ??>|  }| */
99         ??=endif
100
101 // test C++-style comment
102
103 #if 1
104 typdef struct empty_struct {
105 } // trailing C++-style comment should not force continuation
106 #endif
107
108 /* comments (that look like string) inside enums... */
109
110 enum {
111    /* foo;
112      can't
113    */                        
114  };
115
116 enum flimflam {
117   flim,
118    /* foo;
119      can't
120    */
121   flam                      
122  } flamflim;
123
124 #endif /* _H2PH_H_ */