NAME

C::Include - Package to easy operate with binary data via describing they like C/C++ structs.

CLASSES AND PACKAGES

C::Include         - Header file base parser class
C::Include::Struct - Struct wraper class

USAGE

use C::Include;

POSSIBILITY

- skip comments;

- valid preprocessor commands: define, ifdef, ifndef, endif, else;

- supported bitset and enclosed structs, enums;

- The compiled data may be cached in the external file and at repeated call not compiled
  any more, that will speed up operation.8);

- may be defined and redefined type substitutions via #define
  (Ex: #define WORD word );

- predefined standart types:
    char
    unsigned char
    short
    unsigned short
    int
    unsigned int
    long
    unsigned long
    long long
    unsigned long long
    float
    double
    pointer
    null
    neganull
    bit
    short int
    long int
    long long int
    unsigned
    unsigned long int
    unsigned short int
    unsigned long long int
    byte
    dword
    string  (null padded)
    sstring (space padded)
    zstring (null terminated, null padded)

- predefined standart type aliases:
    'short int'              => 'short'
    'long int'               => 'long'
    'long long int'          => 'long long'
    'unsigned'               => 'unsigned long'
    'unsigned long int'      => 'unsigned long'
    'unsigned short int'     => 'unsigned short'
    'unsigned long long int' => 'unsigned long long'
    'byte'                   => 'unsigned char'
    'word'                   => 'unsigned short'
    'dword'                  => 'unsigned long'

CLASS C::Include

This class is a header file parser

FUNCTIONS

new - New object constructor
sizeof - Return length of type in bytes
make_struct - Return instance of struct wrapper object C::Include::Struct
defined - Return TRUE if parameter is described in header
INC - Return REF to alternative constructed instance C::Include

REFERENCE

new ( params )

As params there should be pairs (-name, value). If the name of the param is absent - then it is accepted as 'source'.

Current version support two params types: -src and -cache.

-src param describe header file. May be \*FILEHANDLE or 'path/to/file.h'.

-cache say, that was cached the compiled header file. If the value of this parameter is absent and -src the parameter describes path to the file, the cache the file, will be created as 'Path/to/file.ph'. Pay attention that, while the value of this parameter is absent and -src the parameter is \*FILEHANDLE, the cache the file will not be created.

Examples of usage:
  
   # Creating object from external header file
   my $include = new C::Include( -src, '/usr/src/include.h' );
   my $include = new C::Include( '/usr/src/include.h' );
   my $include = new C::Include( '/usr/src/include.h', -cache );
   my $include = new C::Include( '/usr/src/include.h', -cache, '/tmp/cache.ph' );

   # Create object from embended header file in Perl
   # script after __DATE__ directive
   my $include = new C::Include( \*main::DATA );
   my $include = new C::Include( \*main::DATA, -cache, '/tmp/cache.ph' );

   # Alternative constructor call 
   use C::Include qw(/usr/src/include.h -cache);

sizeof

Return length of type in bytes.

Examples of usage:

   my $size_of_int = $include->sizeof(int);
   my $size_of_struct = $include->sizeof(HEADER_STRUCT);

make_struct ( 'struct name' )

Returns a copy of the object C::Include::Struct - wrapper of structure.

Examples of usage:

   # Create wraper class for struct described in $include as 'HEADER_STRUCT'.
   my $header = $include->make_struct( 'HEADER_STRUCT' );

INC( [module_name] )

Return REF to alternative constructed instance C::Include in module "module_name". If "module_name" param not defined, then - current call module name;

Note: There should be only one created instance of C::Include for each calling unit module.

Examples of usage:

   package My::Cfg;

   # Alternative constructor call 
   use C::Include qw(/usr/src/include.h -cache);

   # Create wraper class for struct described in /usr/src/include.h
   # as 'HEADER_STRUCT'.
   my $header = INC->make_struct( 'HEADER_STRUCT' );

in other scripts may be called instance of C::Include created in package My::Cfg as

   use C::Include;
   my $header = INC('My::Cfg')->make_struct( 'HEADER_STRUCT' );

CLASS C::Include::Struct

This class is a struct wrapper.

FUNCTIONS

pack - Pack struct fields to binary and, if need, save it to file.
unpack - Unpack binary data and fill with they self fields.
size - Return length of struct in bytes.

REFERENCE

pack ( [\*FILEHANDLE] )

Pack struct fields to binary and, if need, save it to file.

As param may be REF to FILEHANDLE. If FILEHANDLE exists then packed binary data will be saved to this file.

Function return resulted binary data as scalar.

Examples of usage:

   $header_struct->pack( \*OUT_FILE );

   my data =  $header_struct->pack();

unpack

unpack( data )
unpack( \*FILEHANDLE, [offset, [size]] )

To unpack the binary informations, and to fill by them in the fields.

If first param is scalar, then it is binary data to unpacking. Otherwise if first param is \*FILEHANDLE, then input binary data will be reader from this file. If 'size' param not defined then from file will be readed same counte of bytes as struct length. Param 'offset' describe count of bytes to skip before reading binary data. Default offset equal 0;

Examples of usage:

   $header_struct->unpack( $binary_data );
   $header_struct->unpack( \*CFG );
   $header_struct->unpack( \*CFG, 10, $header_struct->size );

size

Return length of struct in bytes.

Examples of usage:

   # 8)
   print 'Size of struct HEADER_STRUCT: ', $header_struct->size(), ' bytes';

EXAMPLE

  use C::Include;

  # Create instance of object and cache it to 'data/database.ph'
  # If 'data/database.ph' exists then only read compiled data from they.
  my $include = new C::Include( 'data/database.h', -cache )
      or die "Can't read include: $!";

  my $cfg = $include->make_struct('CONFIG')
      or die "Can't create instance of CONFIG: $!";

  # Open binary file 
  open CFG, 'database.cfg';

  # Read from CFG length of struct wraped by $cfg and fill self fields
  $cfg->unpack( \*CFG );

  close CFG;

FAQ

* Q: Where I may see module tested header file?
  A: Tested header file on which this package it
     tested included in distribudion as 'test.h'

* Q: Why module work not correct?
  A: Probably in your computer the old version required(demanded) Storable.pm
     with an error is installed.

INTERNAL REMARKS

1. For all field definitions with type array of chars will be produced one string field:

struct file{
  char path[__MAXPATH];   // first string field
  char name[12];          // second string field
}

If you want to create array of bytes for definitions as array of chars, you must change type, for example, to 'byte':

struct array{
  char path[__MAXPATH];   // first string field
  byte flags[12];         // second field as array of unsigned chars
}

or 

#define BYTE char
struct array{
  char path[__MAXPATH];   // first string field
  BYTE flags[12];         // second field as array of signed chars
}

2. All properties of C::Include::Struct object be in element with key {''}. Do not delete and do not change them!:

delete $header_struct->{''};

3. You can describe in headers exclusive definitions like compiller sensivity

Example:

   #ifdef __WATCOM_C__
       // some definitions
   #endif

   // __PERL__ is predefined in package default
   // and processed correctly
   #ifdef __PERL__  
       #define skiptype neganull
   #endif

4. For optimizing memory usage and speed for pack/unpack machanizm:

in this sample code:

  1   typedef struct HEADER{
  2       word revision;
  3       byte reserved[1024];  // in wraper object will be allocated
  4   };                        // array with 1024 elements and take CPU
                                // to process in every pack/unpack operation
line 3. best replace to 

  char reserved[1024];      // will be created one string element
                            // with length 1024
or 

  #ifndef __PERL__
  #define nullbyte byte
  #endif
  nullbyte reserved[1024];  // this 1024 bytes will be skiped
                            // in operations pack/unpack and
                            // not allocated in wraper object
                            // as element

5. Note, that the current version processes of the preprocessor commands only once, before parsing of the main code!

In this code:

  #define __MAXPATH 56
  struct file{
    char path[__MAXPATH];
    char name[12];
  }
  #define __MAXPATH 127

Length of a field file.path will be, equal 127 bytes!

6. All defined values via '#define' and 'enum' are availablis:

my $include = new C::Include( 'data/database.h', -cache )
    or die "Can't read include: $!";

print $include->{__MAXPATH};

7. All copies of the predetermined structures also are availablis:

struct FILE{
  char path[__MAXPATH];
  char name[12];
}root, files[100];

$\ = "\n";
print $include->{root}{name};
print $include->{files}[$_]{name} for 0..99;

8. For parsing progress indicating, need switch a flag 'TEST' to '1':

use C::Include;
$C::Include::TEST = 1;

my $include = new C::Include( 'data/database.h', -cache )

AUTHOR

Albert N. MICHEEV
email: Albert@f80.n5049.z2.fidonet.org
fido:  2:5049/80

COPYRIGHT

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AVAILABILITY

The latest version of this library is likely to be available from:

http://www.perl.com/CPAN

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

NAME

CLASSES AND PACKAGES

USAGE

POSSIBILITY

CLASS C::Include

FUNCTIONS

REFERENCE

CLASS C::Include::Struct

FUNCTIONS

REFERENCE

EXAMPLE

FAQ

INTERNAL REMARKS

AUTHOR

COPYRIGHT

AVAILABILITY

SEE ALSO

Module Install Instructions