-# $Source$
-# $Header$
+# $Id$
#
# This converts the file used to originally create the database
# into a program to back it up.
# This is not guaranteed to work for all data types; it may
# need to be extended.
-BEGIN {
+BEGIN {
print "/* This file automatically generated */";
print "/* Do not edit */\n";
- print "#include <stdio.h>";
print "EXEC SQL INCLUDE sqlca;";
print "EXEC SQL WHENEVER SQLERROR DO dbmserr();";
print "#include \"dump_db.h\"";
+ print "#include \"bkup.h\"";
print "#define dump_bin dump_str\n";
print "/* This file automatically generated */" > "bkup1.pc";
print "/* Do not edit */\n" >> "bkup1.pc";
- print "#include <stdio.h>" >> "bkup1.pc";
- print "FILE *open_file();" >> "bkup1.pc";
- print "do_backups(prefix)\n\tchar *prefix;\n{" >> "bkup1.pc";
+ print "#include \"dump_db.h\"" >> "bkup1.pc";
+ print "#include \"bkup.h\"" >> "bkup1.pc";
+ print "void do_backups(char *prefix)\n{" >> "bkup1.pc";
+
+ print "/* This file automatically generated */" > "bkup.h";
+ print "/* Do not edit */\n" >> "bkup.h";
}
$1=="#" { next; }
-/^create/ {
- printf "dump_%s(f)\nFILE *f;\n{\n\tEXEC SQL BEGIN DECLARE SECTION;\n", $3;
- printf "\tdump_%s(open_file(prefix, \"%s\"));\n", $3, $3 >> "bkup1.pc";
+/^create/ {
+ printf "void dump_%s(FILE *f)\n{\n EXEC SQL BEGIN DECLARE SECTION;\n", $3;
+ printf " dump_%s(open_file(prefix, \"%s\"));\n", $3, $3 >> "bkup1.pc";
+ printf "void dump_%s(FILE *f);\n", $3 >> "bkup.h";
tablename = $3;
rangename = substr(tablename, 1, 1);
}
NF>=2 {
- vname[count] = $1;
- printf "/* %s */\n", $0;
+ vname[count] = $1;
+ printf " /* %s */\n", $0;
if ($2 ~ /INTEGER/ || $2 ~ /SMALLINT/ || $2 ~ /INTEGER1/) {
- printf "\tint\tt_%s;\n", vname[count];
+ printf " char\tt_%s[39];\n", vname[count];
vtype[count]="int";
} else if ($2 ~ /CHAR\([0-9]*\)/) {
t = split($2, temp, "(");
if (t != 2) printf "Can't parse %s\n", $2;
t = split(temp[2], temp2, ")");
if (t != 2) printf "Can't parse %s\n", temp[2];
- printf "\tchar\tt_%s[%d];\n", vname[count], temp2[1]+1;
- if ($1 == "signature") {
+ printf " char\tt_%s[%d];\n", vname[count], temp2[1]+1;
+ if ($1 == "signature" || $1 == "sid") {
vtype[count]="bin";
- printf "\tEXEC SQL VAR t_signature IS STRING(%d);\n", temp2[1]+1;
+ printf " EXEC SQL VAR t_%s IS STRING(%d);\n", vname[count], temp2[1]+1;
} else {
vtype[count]="str";
}
vsize[count] = temp2[1]+1;
} else if ($2 ~ /DATE/) {
- printf "\tchar\tt_%s[26];\n", vname[count];
+ printf " char\tt_%s[26];\n", vname[count];
vtype[count]="date";
} else printf "Unknown data type %s\n", $2;
count++;
}
-/^\);$/ {
- printf "\tEXEC SQL END DECLARE SECTION;\n";
- printf "\tEXEC SQL DECLARE c_%s CURSOR FOR\n", tablename;
- printf "\t\tSELECT\n";
+/^\);$/ {
+ printf " EXEC SQL END DECLARE SECTION;\n\n";
+ printf " EXEC SQL DECLARE c_%s CURSOR FOR SELECT\n", tablename;
for (i = 0; i < count; i++) {
if (i != 0) {
print ",";
}
if(vtype[i] ~ /date/) {
- printf "\t\t\tTO_CHAR(%s, 'DD-mon-YYYY HH24:MI:SS')", vname[i];
- } else printf "\t\t\t%s", vname[i];
+ printf " TO_CHAR(%s, 'DD-mon-YYYY HH24:MI:SS')", vname[i];
+ } else if(vtype[i] ~ /int/) {
+ printf " TO_CHAR(%s)", vname[i];
+ } else printf " %s", vname[i];
}
printf " FROM %s;\n", tablename;
- printf "\tEXEC SQL OPEN c_%s;\n", tablename;
- printf "\twhile(1) {\n\t\tEXEC SQL FETCH c_%s INTO\n", tablename;
+ printf " EXEC SQL OPEN c_%s;\n", tablename;
+ printf " while (1)\n {\n EXEC SQL FETCH c_%s INTO\n", tablename;
for (i = 0; i < count; i++) {
if (i != 0) printf ",\n";
- printf "\t\t\t:t_%s", vname[i];
+ printf " :t_%s", vname[i];
}
printf ";\n";
- printf "\t\tif(sqlca.sqlcode != 0) break;\n";
+ printf " if (sqlca.sqlcode != 0)\n break;\n";
for (i = 0; i < count; i++) {
- if (i != 0) print "\t\tdump_sep(f);";
- if (vtype[i] ~ /str/ || vtype[i] ~ /date/) {
- printf "\t\tdump_str(f, strtrim(t_%s));\n", vname[i];
+ if (i != 0) print " dump_sep(f);";
+ if (vtype[i] ~ /str/ || vtype[i] ~ /date/ || vtype[i] ~ /int/) {
+ printf " dump_str(f, endtrim(t_%s));\n", vname[i];
} else {
- printf "\t\tdump_%s(f, t_%s);\n", vtype[i], vname[i];
+ printf " dump_%s(f, t_%s);\n", vtype[i], vname[i];
}
}
- printf "\t\tdump_nl(f);\n";
- printf "\t}\n";
- printf "\tEXEC SQL CLOSE c_%s;\n", tablename;
- printf "\tsafe_close(f);\n";
+ printf " dump_nl(f);\n";
+ printf " }\n";
+ printf " EXEC SQL CLOSE c_%s;\n", tablename;
+ printf " safe_close(f);\n";
printf "}\n\n";
}