chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ING_DB

This commit is contained in:
Oliver Lehmann 1989-12-19 11:46:08 +00:00
parent dc4c1a9442
commit 826babe59a
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
WEGA/contrib/ingres/dbs/src/redabas/cdb.bat Normal file
View File

@ -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=

12
WEGA/contrib/ingres/dbs/src/redabas/cdb.ed Normal file
View File

@ -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