CPAN::Groonga

oryFree( void *ptr ); 

/* ~~ */

extern GFLEXTERN const char * GFLAPI gflGetVersion( void ); 

extern GFLEXTERN const char * GFLAPI gflGetVersionOfLibformat( void ); 

/* ~~ */

extern GFLEXTERN GFL_

 void GFLAPI gflLibraryExit( void ); 

extern GFLEXTERN void GFLAPI gflEnableLZW( GFL_BOOL ); 

/* ~~ */

extern GFLEXTERN GFL_INT32 GFLAPI gflGetNumberOfFormat( void ); 

extern GFLEXTERN GFL_INT32 G

ERROR GFLAPI gflGetFormatInformationByIndex( GFL_INT32 index, GFL_FORMAT_INFORMATION *info ); 

/* ~~ */

extern GFLEXTERN const char * GFLAPI gflGetErrorString( GFL_ERROR error ); 

extern GFLEXTERN 

heir replacements are:

    ~~a~~		$c->{'a'}
    ~~b~~		$c->{'b'}
    ~~a->b~~		$c->{'a'}->{'b'}
    ~~a->e~~		$c->{'a'}->{'e'}
    ~~a->1~~		$c->{'a'}->[1]
    ~~a->1->b~~         $c->{'a'}->[1]->{'b

idea is obvious. Real world examples might be:

    my $config_file = "~~etc_dir~~/configuration";
    my $VERSION = "~~version~~";

Preprocessor variables need not be scalar values: If a variable con

tern being
replaced, for example, if C<$ppp->{'config'}->{'bar'}> has the value
C<\&foo>, then C<~~bar~~> will be replaced with the result of

    foo($ppp, "bar");

Arguments are not yet supported.

me, $value) = @_;

	die "Rule->given() takes 2 arguments" if(scalar(@_) != 3);
	die "Rule->given() argument 1 (NAME) is undefined" if(!defined($name));
	die "Rule->given() argument 2 (VALUE) is undefi

 )

Returns the name of the rule.

=item state( )

Returns the current state of the rule.

=item given( NAME, VALUE )

The NAME / VALUE attribute pair is checked against the rule's conditions to see i

lied.

=item Rule->given() takes 2 arguments

When the method is called it requires two arguments. This message is given if more or less arguments were supplied.

=item Rule->given() argument 1 (NAME)

new_template( $file, ... )

creates a new template wrapper of the appropriate type for the $file given
(if C<template_directory> is set, it is treated as the root directory).
passes all other argument

uses a colon (":").

=item *

C<$error = MakeDir($dir);>

This function recursively creates the given (absolute)
path (note that the path is normalized using the
"Normalize()" function above before b

EY, ELEMENT) pair to the end of the list.

=item insert_at (POSITION, KEY, ELEMENT)

Inserts the given (KEY, ELEMENT) pair at the given position in list. POSITION 
is usually returned by a previous fi

>>>>>>>: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                      

ormat TRACE =
|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracerulename, '|', $tracemsg
| ~~       |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
	    $tracemsg
.

select TRACE;
$| = 1;

open (TRAC

                        |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $tracerulename, '|',				   $tracecontext
| ~~       |                                      |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
						   $tracecontext

level_args(1);
    if ((!@their_args) or ref $their_args[0] ne "CODE") {
        croak "no block given (LocalJumpError)";
    }
    my @stuff = (@_||$_);
    $their_args[0]->(@stuff) 
        unless $

l", "~~nodbd_driver~~/t/lib.pl") {
    if (-f $file) {
	do $file;
	last;
    }
}
if (!$mdriver || ($mdriver ne "mSQL" && $mdriver ne "mSQL1")) {
    print "1..0\n"; exit 0;
}
$| = 1;
eval "use ~~nodbd

_driver~~";
my $db = ~~nodbd_driver~~->connect("~~test_host~~", "~~test_db~~");
if ($db->getserverinfo lt 2) {
    print "1..0\n";
    exit;
}
print "1..37\n";

print "ok 1\n";

{
    my($q,$what,@t,$

i,$j);
    my $db = ~~nodbd_driver~~->connect("~~test_host~~","~~test_db~~");
    $t[0] = create(
		   $db,
		   "TABLE00",
		   "( id char(4) not null, longish text(30) )");
    $t[1] = create(
		   

e 0 - 59 will be ignored
and a warning (carp) will be written to the terminal.
If no 'times' are given (no parameters), then the internally
stored list of 'times' will be cleared.
Returns the newly st

 sent to STDOUT. 
	                Using "2", even more verbose information is 
	                given (all queries printed before execution);
	                Level "3" will also show details about s

 sent to STDOUT. 
	                Using "2", even more verbose information is 
	                given (all queries printed before execution);
	                Level "3" will also show details about s

ly code is given, the search
is restricted to devices of that family type. If a serial number is given
(which must be a 12 character string), then the bus is searched for that one
particular device (f

 of the same type as the original"
            unless ref $dest eq ref $src;
        
        given(ref $dest) {
            when('SCALAR') {
                tie($$dest, 'Variable::Alias::Scalar'

, it is useful
# to combine both the form and the script in one place.  If no parameters
# are given (i.e., ReadParse returns FALSE), then a form could be output.

# If a reference to a hash is gi

  or moved eleehwhere.  Likewise, unless an alternate tablespace other than
  THE TABLESPACE is given (or if the named alternate tablespace does not
  exist), then the empty partition segments will a

            $curtest->{percent},
                                              $curtest->{canon}
}
~~                                            ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                     

value			Display
(xxx)bxxx-xxxx		2169910551		(216) 991-0551
xxx-xx-xxxx   		123456789 		123-45-6789
~~xx~xx       		ABCDEFGHIJ		CDFG

=back

=over

=item numerical

The following table list the numeric

RMATTING>).  Subroutine
references may also be included in the dictionary; in their
simple form, given ( subref => \&myfunction ), %subref% in
the template will be evaluated to whatever is returned fr

.
Thus if I<where> is B<se> then the lower-right corner of
I<$slave>'s border will appear at the given (x,y) location
in the master.
The anchor position defaults to B<nw>.

=item B<-width> => I<size>