--- parser3/src/classes/Attic/classes.awk	2001/04/28 15:47:02	1.2
+++ parser3/src/classes/Attic/classes.awk	2003/07/24 11:31:19	1.7
@@ -1,13 +1,12 @@
 #	Parser: classes.inc generator
 #
 #	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-#
 #	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 #
-#	$Id: classes.awk,v 1.2 2001/04/28 15:47:02 paf Exp $
+#	$Id: classes.awk,v 1.7 2003/07/24 11:31:19 paf Exp $
 
-/\.C/ && !/(op|classes)\.C/ {
-	$s=$0
-	$c=sprintf("M%s%s", toupper(substr($s,0,1)),substr($s,2,length($s)-3))
-	printf "extern Methoded *%s_create(Pool& pool);  *this+=%s_create(pool());\n", $c,$c
+/\.C$/ && !/(op|classes|ident)/ {
+	s=$0
+	c=substr(s,1,length(s)-2)
+	printf "extern Methoded* %s_class;  extern Methoded* %s_base_class;  if(%s_class) *this+=%s_class; if(%s_base_class) *this+=%s_base_class;\n", c,c,c,c,c,c
 }