Changeset 4006

Timestamp:

May 20, 2005, 12:53:49 PM (21 years ago)

Author:

jhoblitt

Message:

add [foo]Alloc src & tests

Location:

trunk/glueforge

Files:

• glueforge.in (modified) (7 diffs)
• templates/psdb/code.tt (modified) (1 diff)
• templates/psdb/tests_makefile_am.tt (modified) (1 diff)
• templates/psdb/testsuite_at.tt (modified) (1 diff)

trunk/glueforge/glueforge.in

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: glueforge.in,v 1.13 2005-05-20 03:32:11 jhoblitt Exp $
+# $Id: glueforge.in,v 1.14 2005-05-20 22:53:49 jhoblitt Exp $
 
 use strict;
@@ -70 +70 @@
         ctype   => $mdtypes->{ctype},
         mtype   => $mdtypes->{mtype},
+        test    => $mdtypes->{test},
         comment => $elem->{comment},
         value   => $elem->{value},
@@ -76 +77 @@
 
 $data{columns} = \@items;
+
 
 $output = $data{pkg_name} unless defined $output;
@@ -91 +93 @@
     'dbsetup_c.tt'          => "$output/tests/dbsetup.c",
     'dbcleanup_c.tt'        => "$output/tests/dbcleanup.c",
+    'alloc_c.tt'            => "$output/tests/alloc.c",
     'init_c.tt'             => "$output/tests/init.c",
-    'init_c.tt'             => "$output/tests/cleanup.c",
+    'cleanup_c.tt'          => "$output/tests/cleanup.c",
     'createtable_c.tt'      => "$output/tests/createtable.c",
     'droptable_c.tt'        => "$output/tests/droptable.c",
@@ -131 +134 @@
     my %ctypes = map { $_ => "ps$_" } keys %primitives;
 
+    my %ttypes = (
+        S8      => -8,
+        S16     => -16,
+        S32     => -32,
+        S64     => -64,
+        U8      => 8,
+        U16     => 16,
+        U32     => 32,
+        U64     => 64,
+        F32     => 32.32,
+        F64     => 64.64,
+    );
+
     if ( $primitives{$type} ) {
         return {
             ctype   => $ctypes{$type},
             mtype   => $mtypes{$type},
+            test    => $ttypes{$type},
         };
     } elsif ( $type =~ /STR|STRING/ ) {
@@ -140 +157 @@
             ctype   => "char*",
             mtype   => 'PS_META_STR',
+            test    => '"a string"',
         };
     } elsif ( $type =~ /BOOL/ ) {
@@ -145 +163 @@
             ctype   => "bool",
             mtype   => 'PS_META_STR',
+            test    => 'true',
         };
     } else {

trunk/glueforge/templates/psdb/code.tt

@@ -2 +2 @@
 
 #define [% namespace FILTER upper %]_TABLE_NAME "[% table_name %]"
+
+[% INCLUDE alloc.tt %]
 
 [% INCLUDE init.tt %]

trunk/glueforge/templates/psdb/tests_makefile_am.tt

@@ -51 +51 @@
 
 TESTS = \
+        alloc \
         init \
         cleanup \

trunk/glueforge/templates/psdb/testsuite_at.tt

@@ -2 +2 @@
 
 AT_INIT
+
+[% INCLUDE alloc_at.tt %]
 
 #m4_include([init.at])