/ 
TCC-0.01
/ C::TinyCompiler::Perl::Croak

NAME

C::TinyCompiler::Perl::Croak - A light-weight interface to Perl's croak and warn

SYNOPSIS

use C::TinyCompiler;

# Declare the compiler context with the AV bindings:
my $context= C::TinyCompiler->new(packages => '::Perl::Croak');

# Create a rather antisocial function:
$context->code('Body') = q{
    void dont_call(void) {
        croak("I told you not to call!");
    }
};

# Compile and call:
$context->compile;
eval {
    $context->call_function('dont_call');
    1
} or do {
    print "Got error $@\n";
};

DESCRIPTION

This module provides Perl's C interface to both the traditional and variadic forms of warn and croak. These allow you to write defensive C code without needing the full Perl C api to do it.

Like other C::TinyCompiler packages, you never use this module directly. Rather, you add it to your compiler context in the constructor or with the function "apply_packages" in C::TinyCompiler.

You can find documentation for these functions at perlapi. However, the discussion of the variadic forms of is not terribly illuminating, so I provide a few examples below.

  • void croak(const char *pat, ...)

    Provides printf-style croaking that integrates with Perl's die and other error handling. For example:

    ...
/* Allocate 10 elements */
int n_elements = 10;
double * my_array = malloc(n_elements * sizeof(double));
if (my_array == 0) {
    /* Clean up anything else */
    ...
    /* Croak with error message */
    croak("Unable to allocate double array with %d elements", n_elements);
}
/* otherwise continue */

    Since this uses Perl's error handling, this croak can be captured in your Perl code with an eval block.

    The croak performs a lngjmp, so you will never get control back. That means that if you allocated some memory dynamically, you must clean up that memory before croaking or it will leak.

  • void warn(const char *pat, ...);

    Provides printf-style warning that integrates with Perl's warn function:

    ...
if (my_intput < 0) {
    warn("Input was negative (%f) but it must be strictly positive; using zero", my_input);
    my_input = 0.0;
}

  • void vcroak(const char *pat, va_list *args);

    A variadic version of croak. This is useful when you create your own variadic function. For example, if you want to create your own croak that cleans up memory for you, you could try something like this:

    void my_croak (void ** to_free, int N_to_free, const char * pat, ...) {
    /* Free any allocated memory */
    while (N_to_free > 0) free(to_free[--N_to_free]);
    
    /* Now throw the croak */
    va_list args;
    vcroak(pat, &args);
}

...

void my_func (int arg1, int arg2) {
    void * my_arrays [10];
    /* Set them all to zero */
    int i;
    for (i = 0; i < 10; my_arrays[i++] = 0);
    
    ... allocate some memory, add the pointers to to_free ...
    
    if (foo > upper_limit) {
        my_croak(my_arrays, 10, "Trouble! foo (%f) is greater than the upper limit (%f)!"
            , foo, upper_limit);
    }
}

    (Note that C::TinyCompiler::StretchyBuffers is probably the easiest way to handle such a dynamic list of arrays that need to be freed.)

    Just to be crystal clear, if you use this to wrap your variadic function, you must obtain your va_list like so:

    void my_croak(char * pat, ...) {
    ...
    
    va_list args;
    vcroak(pat, &args);
}

  • void vwarn(const char *pat, va_list *args);

    A variadic version of warn. See the discussion on vcroak above.

AUTHOR

David Mertens, <dcmertens.perl at gmail.com>

BUGS

Please report any bugs or feature requests at the project's main github page: http://github.com/run4flat/perl-TCC/issues.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc C::TinyCompiler::Perl::Croak

You can also look for information at:

LICENSE AND COPYRIGHT

Code copyright 2011-2012 Northwestern University. Documentation copyright 2011-2013 David Mertens.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.