-# $Source$
-# $Header$
+# $Id$
#
# This converts the file used to originally create the database
# into a program to restore it from a backup.
# This is not guaranteed to work for all data types; it may
# need to be extended.
-BEGIN { print "/* This file automatically generated */";
- print "/* Do not edit */";
- print "#include <stdio.h>";
+BEGIN {
+ print "/* This file automatically generated */";
+ print "/* Do not edit */\n";
print "EXEC SQL INCLUDE sqlca;";
- print "void parse_nl(), parse_str(), parse_sep();"
- print "/* This file automatically generated */" > "rest1.dc";
- print "/* Do not edit */" >> "rest1.dc";
- print "#include <stdio.h>" >> "rest1.dc";
- print "FILE *open_file();" >> "rest1.dc";
- print "do_restores(prefix)\n\tchar *prefix;\n{" >>"rest1.dc";
+ print "EXEC SQL WHENEVER SQLERROR DO dbmserr();";
+ print "#include <com_err.h>";
+ print "#include \"dump_db.h\"";
+ print "#include \"rest.h\"";
+
+ print "/* This file automatically generated */" > "rest1.pc";
+ print "/* Do not edit */\n" >> "rest1.pc";
+ print "#include \"dump_db.h\"" >> "rest1.pc";
+ print "#include \"rest.h\"" >> "rest1.pc";
+ print "void do_restores(char *prefix)\n{" >> "rest1.pc";
+
+ print "/* This file automatically generated */" > "bkup.h";
+ print "/* Do not edit */\n" >> "bkup.h";
}
$1=="#" { next; }
-/^create/ { printf "restore_%s(f)\nFILE *f;\n", $3;
- print "{\n\tEXEC SQL BEGIN DECLARE SECTION;";
- printf "\trestore_%s(open_file(prefix, \"%s\"));\n", $3, $3 >> "rest1.dc";
+/^create/ {
+ printf "void restore_%s(FILE *f)\n", $3;
+ print "{\n EXEC SQL BEGIN DECLARE SECTION;";
+ printf " restore_%s(open_file(prefix, \"%s\"));\n", $3, $3 >> "rest1.pc";
+ printf "void restore_%s(FILE *f);\n", $3 >> "rest.h";
+
tablename = $3;
rangename = substr(tablename, 1, 1);
count = 0;
- next; }
+ next;
+}
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]
- vtype[count]="int"
+ printf " int\tt_%s;\n", vname[count];
+ vtype[count]="int";
} else if ($2 ~ /CHAR\([0-9]*\)/) {
- t = split($2, temp, "(")
+ t = split($2, temp, "(");
if (t != 2) printf "Can't parse %s\n", $2;
- t = split(temp[2], temp2, ")")
+ 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;
+ printf " char\tt_%s[%d];\n", vname[count], temp2[1]+1;
+ if ($1 == "signature") {
+ vtype[count]="bin";
+ printf " EXEC SQL VAR t_signature IS STRING(%d);\n", temp2[1]+1;
+ } else vtype[count]="str";
vsize[count] = temp2[1]+1;
- vtype[count]="str"
} else if ($2 ~ /DATE/) {
- printf "\tchar\tt_%s[26];\n", vname[count];
- vtype[count]="str";
- vsize[count]=26;
+ printf " char\tt_%s[26];\n", vname[count];
+ vtype[count]="date";
} else printf "Unknown data type %s\n", $2;
count++;
}
-/^\);$/ {
- print "\tEXEC SQL END DECLARE SECTION;\n";
- print "\twhile(!feof(f)) {"
+/^\);$/ {
+ printf " EXEC SQL END DECLARE SECTION;\n\n int count = 0;\n";
+
+ print " while (!feof(f))\n {";
+ print " if (!(++count % 100))\n EXEC SQL COMMIT;\n";
+
for (i = 0; i < count; i++) {
- if (i != 0) print "\t\tparse_sep(f);"
+ if (i != 0) print " parse_sep(f);";
if (vtype[i] ~ /int/) {
- printf("\t\tt_%s = parse_int(f);\n", vname[i]);
- } else printf "\t\tparse_%s(f, t_%s, %d);\n", vtype[i], vname[i], vsize[i]
- if (i == 0) print "\t\tif (feof(f)) break;"
+ printf(" t_%s = parse_int(f);\n", vname[i]);
+ } else if (vtype[i] ~ /date/) {
+ printf " parse_str(f, t_%s, 26);\n", vname[i];
+ } else {
+ printf " parse_str(f, t_%s, %d);\n", vname[i], vsize[i];
+ }
+ if (i == 0) print " if (feof(f))\n break;";
}
- printf "\t\tparse_nl(f);\n"
+ printf " parse_nl(f);\n"
- printf "\t\tEXEC SQL INSERT INTO %s (\n", tablename;
+ printf " EXEC SQL INSERT INTO %s (\n", tablename;
for (i = 0; i < count; i++) {
if (i != 0) printf ",\n";
- printf "\t\t\t%s", vname[i];
+ printf " %s", vname[i];
}
- printf ")\n\t\tVALUES (\n";
+ printf ")\n VALUES (\n";
for (i = 0; i < count; i++) {
if (i != 0) printf ",\n";
- printf "\t\t\t:t_%s", vname[i];
+ if (vtype[i] ~ /date/) {
+ printf " TO_DATE(NVL(:t_%s,TO_CHAR(SYSDATE, 'DD_mon-YYYY HH24:MI:SS')), 'DD-mon-YYYY HH24:MI:SS')", vname[i];
+ } else if(vtype[i] ~ /int/) {
+ printf " :t_%s", vname[i];
+ } else {
+ printf " NVL(:t_%s,CHR(0))", vname[i];
+ }
}
- printf ");\n\t\tif (sqlca.sqlcode != 0) {\n"
- printf "\t\t\tcom_err(\"restore\", 0, \"insert failed\");\n"
- printf "\t\t\texit(2);\n\t\t}\n\t}\n"
- printf "\t(void) fclose(f);\n"
- printf "}\n"
+ printf ");\n if (sqlca.sqlcode != 0)\n {\n";
+ printf " sqlca.sqlerrm.sqlerrmc[sqlca.sqlerrm.sqlerrml] = 0;\n";
+ printf " printf(\"%%s\\n\", sqlca.sqlerrm.sqlerrmc);\n";
+ printf " com_err(\"restore\", 0, \"insert failed\");\n";
+ printf " exit(2);\n }\n }\n";
+ printf " fclose(f);\n";
+ printf " EXEC SQL COMMIT;\n";
+ printf "}\n\n";
}
-END { print "/* All done */"
- print "}" >>"rest1.dc";
+
+
+END {
+ print "/* All done */";
+ print "}" >> "rest1.pc";
}