Where Online Learning is simpler!

The C and C++ Include Header Files

/usr/include/apache2/modperl_perl_global.h


$ cat -n /usr/include/apache2/modperl_perl_global.h

     1	/* Licensed to the Apache Software Foundation (ASF) under one or more
     2	 * contributor license agreements.  See the NOTICE file distributed with
     3	 * this work for additional information regarding copyright ownership.
     4	 * The ASF licenses this file to You under the Apache License, Version 2.0
     5	 * (the "License"); you may not use this file except in compliance with
     6	 * the License.  You may obtain a copy of the License at
     7	 *
     8	 *     http://www.apache.org/licenses/LICENSE-2.0
     9	 *
    10	 * Unless required by applicable law or agreed to in writing, software
    11	 * distributed under the License is distributed on an "AS IS" BASIS,
    12	 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
    13	 * See the License for the specific language governing permissions and
    14	 * limitations under the License.
    15	 */
    16	
    17	#ifndef MODPERL_PERL_GLOBAL_H
    18	#define MODPERL_PERL_GLOBAL_H
    19	
    20	#define MP_MODGLOBAL_FETCH(gkey)                                        \
    21	    hv_fetch_he(PL_modglobal, (char *)gkey->val, gkey->len, gkey->hash)
    22	
    23	#define MP_MODGLOBAL_STORE_HV(gkey)                                     \
    24	    (HV*)*hv_store(PL_modglobal, gkey->val, gkey->len,                  \
    25	                   (SV*)newHV(), gkey->hash)
    26	
    27	typedef struct {
    28	    const char *name;
    29	    const char *val;
    30	    I32 len;
    31	    U32 hash;
    32	} modperl_modglobal_key_t;
    33	
    34	typedef enum {
    35	    MP_MODGLOBAL_END
    36	} modperl_modglobal_key_e;
    37	
    38	typedef struct {
    39	    AV **av;
    40	    modperl_modglobal_key_e key;
    41	} modperl_perl_global_avcv_t;
    42	
    43	typedef struct {
    44	    GV *gv;
    45	    AV *tmpav;
    46	    AV *origav;
    47	} modperl_perl_global_gvav_t;
    48	
    49	typedef struct {
    50	    GV *gv;
    51	    HV *tmphv;
    52	    HV *orighv;
    53	} modperl_perl_global_gvhv_t;
    54	
    55	typedef struct {
    56	    GV *gv;
    57	    char flags;
    58	} modperl_perl_global_gvio_t;
    59	
    60	typedef struct {
    61	    SV **sv;
    62	    char pv[256]; /* XXX: only need enough for $/ at the moment */
    63	    I32 cur;
    64	} modperl_perl_global_svpv_t;
    65	
    66	typedef struct {
    67	    modperl_perl_global_avcv_t end;
    68	    modperl_perl_global_gvhv_t env;
    69	    modperl_perl_global_gvav_t inc;
    70	    modperl_perl_global_gvio_t defout;
    71	    modperl_perl_global_svpv_t rs;
    72	} modperl_perl_globals_t;
    73	
    74	void modperl_modglobal_hash_keys(pTHX);
    75	
    76	modperl_modglobal_key_t *modperl_modglobal_lookup(pTHX_ const char *name);
    77	
    78	void modperl_perl_global_request_save(pTHX_ request_rec *r);
    79	
    80	void modperl_perl_global_request_restore(pTHX_ request_rec *r);
    81	
    82	void modperl_perl_global_avcv_register(pTHX_ modperl_modglobal_key_t *gkey,
    83	                                       const char *package, I32 packlen);
    84	
    85	void modperl_perl_global_avcv_call(pTHX_ modperl_modglobal_key_t *gkey,
    86	                                   const char *package, I32 packlen);
    87	
    88	void modperl_perl_global_avcv_clear(pTHX_ modperl_modglobal_key_t *gkey,
    89	                                    const char *package, I32 packlen);
    90	
    91	#endif
    92	
    93	/*
    94	 * Local Variables:
    95	 * c-basic-offset: 4
    96	 * indent-tabs-mode: nil
    97	 * End:
    98	 */