perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: modperl-2.0/xs/tables/current/APR FunctionTable.pm
Date Wed, 23 Jun 2004 03:30:15 GMT
randyk      2004/06/22 20:30:15

  Modified:    lib/ModPerl WrapXS.pm MapUtil.pm
  Added:       xs/tables/current/APR FunctionTable.pm
  Log:
  add xs/tables/current/APR/FunctionTable.pm, which contains the subset
  of functions appearing in ModPerl::FunctionTable used to build
  APR.so. Eventually this file will be autogenerated by Apache::ParseSource.
  Also generate a def/exp file from these functions at build time,
  used to create libraries on Win32/AIX.
  
  Revision  Changes    Path
  1.76      +1 -0      modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.75
  retrieving revision 1.76
  diff -u -r1.75 -r1.76
  --- WrapXS.pm	22 Jun 2004 22:44:14 -0000	1.75
  +++ WrapXS.pm	23 Jun 2004 03:30:15 -0000	1.76
  @@ -1195,6 +1195,7 @@
       my %files = (
           modperl => $ModPerl::FunctionTable,
           apache  => $Apache::FunctionTable,
  +        apr     => $APR::FunctionTable,
       );
   
       my $header = \&{"export_file_header_$ext"};
  
  
  
  1.7       +3 -1      modperl-2.0/lib/ModPerl/MapUtil.pm
  
  Index: MapUtil.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/MapUtil.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- MapUtil.pm	28 May 2004 01:35:15 -0000	1.6
  +++ MapUtil.pm	23 Jun 2004 03:30:15 -0000	1.7
  @@ -42,7 +42,9 @@
       push @INC, "xs/tables/current";
       require Apache::FunctionTable;
       require ModPerl::FunctionTable;
  -    @$function_table = (@$Apache::FunctionTable, @$ModPerl::FunctionTable);
  +    require APR::FunctionTable;
  +    @$function_table = (@$Apache::FunctionTable, @$ModPerl::FunctionTable,
  +                        @$APR::FunctionTable);
       $function_table;
   }
   
  
  
  
  1.1                  modperl-2.0/xs/tables/current/APR/FunctionTable.pm
  
  Index: FunctionTable.pm
  ===================================================================
  package APR::FunctionTable;
  
  # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  # ! WARNING: this file was manually generated on
  # !          Tue Jun 22 22:00:00 2004
  # !          It contains a subset of functions appearing in
  # !          ModPerl::FunctionTable used to build APR.so
  # !          Eventually this will be autogenerated by
  # !          Apache::ParseSource
  # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  
  $APR::FunctionTable = [
    {
      'return_type' => 'void',
      'name' => 'modperl_trace',
      'args' => [
        {
          'type' => 'const char *',
          'name' => 'func'
        },
        {
          'type' => 'const char *',
          'name' => 'fmt'
        },
        {
          'type' => '...',
          'name' => 'arg2'
        }
      ]
    },
    {
      'return_type' => 'void',
      'name' => 'modperl_trace_level_set',
      'args' => [
        {
          'type' => 'apr_file_t *',
          'name' => 'logfile'
        },
        {
          'type' => 'const char *',
          'name' => 'level'
        }
      ]
    },
    {
      'return_type' => 'void',
      'name' => 'modperl_trace_logfile_set',
      'args' => [
        {
          'type' => 'apr_file_t *',
          'name' => 'logfile_new'
        }
      ]
    },
    {
      'return_type' => 'unsigned long',
      'name' => 'modperl_debug_level',
      'args' => []
    },
    {
      'return_type' => 'SV *',
      'name' => 'modperl_hash_tie',
      'attr' => [
        '__inline__'
      ],
      'args' => [
        {
          'type' => 'PerlInterpreter *',
          'name' => 'my_perl'
        },
        {
          'type' => 'const char *',
          'name' => 'classname'
        },
        {
          'type' => 'SV *',
          'name' => 'tsv'
        },
        {
          'type' => 'void *',
          'name' => 'p'
        }
      ]
    },
    {
      'return_type' => 'void *',
      'name' => 'modperl_hash_tied_object',
      'attr' => [
        '__inline__'
      ],
      'args' => [
        {
          'type' => 'PerlInterpreter *',
          'name' => 'my_perl'
        },
        {
          'type' => 'const char *',
          'name' => 'classname'
        },
        {
          'type' => 'SV *',
          'name' => 'tsv'
        }
      ]
    },
    {
      'return_type' => 'SV *',
      'name' => 'modperl_perl_sv_setref_uv',
      'attr' => [
        '__inline__'
      ],
      'args' => [
        {
          'type' => 'PerlInterpreter *',
          'name' => 'my_perl'
        },
        {
          'type' => 'SV *',
          'name' => 'rv'
        },
        {
          'type' => 'const char *',
          'name' => 'classname'
        },
        {
          'type' => 'UV',
          'name' => 'uv'
        }
      ]
    },
    {
      'return_type' => 'modperl_uri_t *',
      'name' => 'modperl_uri_new',
      'attr' => [
        '__inline__'
      ],
      'args' => [
        {
          'type' => 'apr_pool_t *',
          'name' => 'p'
        }
      ]
    },
    {
      'return_type' => 'SV *',
      'name' => 'modperl_perl_gensym',
      'args' => [
        {
          'type' => 'PerlInterpreter *',
          'name' => 'my_perl'
        },
        {
          'type' => 'char *',
          'name' => 'pack'
        }
      ]
    },
    {
      'return_type' => 'char *',
      'name' => 'modperl_error_strerror',
      'args' => [
        {
          'type' => 'PerlInterpreter *',
          'name' => 'my_perl'
        },
        {
          'type' => 'apr_status_t',
          'name' => 'rc'
        }
      ]
    },
    {
      'return_type' => 'void',
      'name' => 'modperl_croak',
      'args' => [
        {
          'type' => 'PerlInterpreter *',
          'name' => 'my_perl'
        },
        {
          'type' => 'apr_status_t',
          'name' => 'rc'
        },
        {
          'type' => 'const char*',
          'name' => 'func'
        }
      ]
    },
    {
      'return_type' => 'apr_status_t',
      'name' => 'modperl_interp_unselect',
      'args' => [
        {
          'type' => 'void *',
          'name' => 'data'
        }
      ]
    },
    {
      'return_type' => 'apr_bucket *',
      'name' => 'modperl_bucket_sv_create',
      'args' => [
        {
          'type' => 'PerlInterpreter *',
          'name' => 'my_perl'
        },
        {
          'type' => 'SV *',
          'name' => 'sv'
        },
        {
          'type' => 'apr_off_t',
          'name' => 'offset'
        },
        {
          'type' => 'apr_size_t',
          'name' => 'len'
        }
      ]
    },
  ];
  
  1;
  
  
  

Mime
View raw message