1N/A# The contents of this file are subject to the terms of the 1N/A# Common Development and Distribution License, Version 1.0 only 1N/A# (the "License"). You may not use this file except in compliance 1N/A# See the License for the specific language governing permissions 1N/A# and limitations under the License. 1N/A# When distributing Covered Code, include this CDDL HEADER in each 1N/A# If applicable, add the following below this CDDL HEADER, with the 1N/A# fields enclosed by brackets "[]" replaced with your own identifying 1N/A# information: Portions Copyright [yyyy] [name of copyright owner] 1N/A '5601_t' => [
'ksc5601.ucm'],
1N/A my $t =
sprintf (
"%s_%02d_t",
substr($
ucm,
0,
2), $
seq++);
1N/A # OS 390 winges about line numbers > 64K ??? 1N/A # Add the table O_FILES 1N/A $
self->{
'O_FILES'} = [
sort keys %o];
1N/A # Do NOT add $table.h etc. to H_FILES unless we own up as to how they 1N/A $
self->{
'XS'} = {
"$name.xs" =>
"$name.c" };
1N/A open(
XS,
">$name.xs") ||
die "Cannot open $name.xs:$!";
1N/A print XS qq[
#include "${table}.h"\n]; 1N/A print XS qq[
#include "${table}.exh"\n]; 1N/A return "# Built $name.xs\n\n";
1N/A my $
str =
"# $name\$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs\n";
1N/A $
str .=
"$name.c : $name.xs ";
1N/A $
str .=
"$name\$(OBJ_EXT) : $name.c\n\n";
1N/A ||
die "Could not open $table.fnm: $!";