From 5c866bf66cae52b63766f1311ab2d9fdc71da571 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Wed, 11 Aug 1993 16:44:25 +0000
Subject: [PATCH] allow more flexable syntax

---
 src/db/atdb_lex.l  |  1 -
 src/db/atdb_yacc.y | 10 ++++++++++
 src/db/dbta.c      |  7 +++++--
 3 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/src/db/atdb_lex.l b/src/db/atdb_lex.l
index 0adf4a0c7..0de9a3951 100644
--- a/src/db/atdb_lex.l
+++ b/src/db/atdb_lex.l
@@ -22,7 +22,6 @@ yyreset()
 ^"PV:"		{ return(PV); }
 "Type:" 	{ return(TYPE); }
 		{ return(CLOSE); }
-\n		{ line_num++; return(CLOSE); }
 "$$end"		{ return(CLOSE); }
 
 {d}+		{ yylval.Str=(char *)malloc(strlen(yytext)+1);
diff --git a/src/db/atdb_yacc.y b/src/db/atdb_yacc.y
index 71ab1af9d..8c7aa7b9f 100644
--- a/src/db/atdb_yacc.y
+++ b/src/db/atdb_yacc.y
@@ -71,6 +71,16 @@ header: PV WORD TYPE WORD WORD
 	if(status) printMessage("dbCreateRecord");
 }
 
+header: PV WORD TYPE WORD 
+{
+	strcpy(rectype,$4);
+	strcpy(recname,$2);
+	status = dbFindRecdes(pdbentry,rectype);
+	if(status) printMessage("dbFindRecdes");
+	status = dbCreateRecord(pdbentry,recname);
+	if(status) printMessage("dbCreateRecord");
+}
+
 fields: field
 	| fields field
 	;
diff --git a/src/db/dbta.c b/src/db/dbta.c
index 7f9f34932..008d6f4b5 100644
--- a/src/db/dbta.c
+++ b/src/db/dbta.c
@@ -96,7 +96,7 @@ char **argv;
 	while(!status) {
 	    int generate_nl;
 
-	    printf("\nPV: %s     Type: %s (atdb)",dbGetRecordName(pdbentry),rectype);
+	    printf("\nPV: %s     Type: %s",dbGetRecordName(pdbentry),rectype);
 	    printf("\n");
 	    generate_nl=FALSE;
 	    status = dbFirstFielddes(pdbentry,TRUE);
@@ -114,7 +114,10 @@ char **argv;
 		}
 		status=dbNextFielddes(pdbentry,TRUE);
 	    }
-	    printf("\f\n");
+	    if(oldshortform)
+	    	printf("\f\n");
+	    else
+		printf("\n$$end\n");
 	    status = dbNextRecord(pdbentry);
 	}
 	status = dbNextRecdes(pdbentry);