Changeset 3733 for trunk/glueforge/glueforge.in
- Timestamp:
- Apr 20, 2005, 5:29:20 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/glueforge/glueforge.in (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/glueforge/glueforge.in
r3724 r3733 3 3 # Copyright (C) 2005 Joshua Hoblitt 4 4 # 5 # $Id: glueforge.in,v 1. 5 2005-04-21 02:07:18jhoblitt Exp $5 # $Id: glueforge.in,v 1.6 2005-04-21 03:29:20 jhoblitt Exp $ 6 6 7 7 use strict; … … 77 77 $data{columns} = \@items; 78 78 79 $output = $data{lib_name} unless defined $output; 80 79 81 my %tt = ( 80 'autogen_sh.tt' => "$output/autogen.sh", 81 'configure_ac.tt' => "$output/configure.ac", 82 'top_makefile_am.tt'=> "$output/Makefile.am", 83 'src_makefile_am.tt'=> "$output/src/Makefile.am", 84 'header.tt' => "$output/src/$data{file_name}.h", 85 'code.tt' => "$output/src/$data{file_name}.c", 82 'autogen_sh.tt' => "$output/autogen.sh", 83 'configure_ac.tt' => "$output/configure.ac", 84 'pkgconfig_pc_in.tt' => "$output/$data{lib_name}.pc.in", 85 'top_makefile_am.tt' => "$output/Makefile.am", 86 'src_makefile_am.tt' => "$output/src/Makefile.am", 87 'header.tt' => "$output/src/$data{file_name}.h", 88 'code.tt' => "$output/src/$data{file_name}.c", 86 89 ); 87 90 88 91 my $mangler = Template->new({ INCLUDE_PATH => $template }); 89 92 90 if ( $output ) { 91 foreach my $t ( keys %tt ) { 92 $mangler->process( $t, \%data, $tt{$t}) 93 or die $mangler->error; 94 } 95 } else { 96 foreach my $t ( keys %tt ) { 97 $mangler->process( $t, \%data ) 98 or die $mangler->error; 99 } 93 foreach my $t ( keys %tt ) { 94 $mangler->process( $t, \%data, $tt{$t}) 95 or die $mangler->error; 100 96 } 101 97
Note:
See TracChangeset
for help on using the changeset viewer.
