From 826babe59aa5f0987d70c25102776fe63a3fb781 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Tue, 19 Dec 1989 11:46:08 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/src/redabas/cdb.bat | 15 +++++++++++++++
 WEGA/contrib/ingres/dbs/src/redabas/cdb.ed  | 12 ++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/src/redabas/cdb.bat
 create mode 100644 WEGA/contrib/ingres/dbs/src/redabas/cdb.ed

diff --git a/WEGA/contrib/ingres/dbs/src/redabas/cdb.bat b/WEGA/contrib/ingres/dbs/src/redabas/cdb.bat
new file mode 100644
index 0000000..5616e76
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/redabas/cdb.bat
@@ -0,0 +1,15 @@
+@echo %ECHO%
+if %1.==. goto usage
+if %2.==. goto usage
+if %3.==. set $DBP=0
+goto ok
+:usage
+echo usage: cdb db dbi pathno
+goto ende
+:ok
+copy %2 .\%1$.bat > nul
+ed - .\%1$.bat < %INDP%\files\cdb.ed > nul
+call .\%1$.bat %1 %$DBP%
+rm .\%1$.bat
+:ende
+set $DBP=
diff --git a/WEGA/contrib/ingres/dbs/src/redabas/cdb.ed b/WEGA/contrib/ingres/dbs/src/redabas/cdb.ed
new file mode 100644
index 0000000..76ee88b
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/redabas/cdb.ed
@@ -0,0 +1,12 @@
+v/^[TD]/d
+g/^T/s//destroyr %1/
+g/destroy\(.*\)/s//&\
+ create\1/
+g/^D/-s/$/	\\/
+g/^D	* *[0-9][0-9]*/s///
+g/\\/s///
+2,$j
+g/[	 ][	 ]*/s// /g
+s/$/ %2/
+w
+
\ No newline at end of file