Index: trunk/pcblib/parametric/acy
===================================================================
--- trunk/pcblib/parametric/acy	(revision 383)
+++ trunk/pcblib/parametric/acy	(revision 384)
@@ -16,5 +16,5 @@
 
 #@@include common.awk
 
-awk -f `dirname $0`/common.awk -f `dirname $0`/acy.awk -v "args=$*"
+awk -f `dirname $0`/common.awk -f `dirname $0`/acy.awk -v "args=$*" -v gen=`basename $0`
 
Index: trunk/pcblib/parametric/acy.awk
===================================================================
--- trunk/pcblib/parametric/acy.awk	(revision 383)
+++ trunk/pcblib/parametric/acy.awk	(revision 384)
@@ -27,7 +27,7 @@
 
 	offs_x = +spacing/2
 
-	element_begin("acy" P["spacing"], "R1", "acy" P["spacing"]    ,0,0, spacing/2-spacing/5,-mil(20))
+	element_begin("", "R1", "acy" P["spacing"]    ,0,0, spacing/2-spacing/5,-mil(20))
 
 	element_pin(-spacing/2, 0, 1)
 	element_pin(+spacing/2, 0, 2)
Index: trunk/pcblib/parametric/alf
===================================================================
--- trunk/pcblib/parametric/alf	(revision 383)
+++ trunk/pcblib/parametric/alf	(revision 384)
@@ -15,5 +15,5 @@
 
 #@@include common.awk
 
-awk -f `dirname $0`/common.awk -f `dirname $0`/alf.awk -v "args=$*"
+awk -f `dirname $0`/common.awk -f `dirname $0`/alf.awk -v "args=$*" -v gen=`basename $0`
 
Index: trunk/pcblib/parametric/alf.awk
===================================================================
--- trunk/pcblib/parametric/alf.awk	(revision 383)
+++ trunk/pcblib/parametric/alf.awk	(revision 384)
@@ -11,7 +11,7 @@
 
 	offs_x = +spacing/2
 
-	element_begin("acy" P["spacing"], "D1", "acy" P["spacing"]    ,0,0, 2.2*spacing/3,-mil(50))
+	element_begin("", "D1", "acy" P["spacing"]    ,0,0, 2.2*spacing/3,-mil(50))
 
 	element_pin(-spacing/2, 0, 1)
 	element_pin(+spacing/2, 0, 2)
Index: trunk/pcblib/parametric/common.awk
===================================================================
--- trunk/pcblib/parametric/common.awk	(revision 383)
+++ trunk/pcblib/parametric/common.awk	(revision 384)
@@ -73,6 +73,11 @@
 # generate an element header line; any argument may be empty
 function element_begin(desc, name, value, cent_x, cent_y, text_x, text_y, text_dir, text_scale)
 {
+	if (desc == "") {
+		desc = gen "(" args ")"
+		gsub("[\r\n\t ]*[?][^,]*,[\r\n\t ]*", "", desc)
+		gsub("[\r\n\t]", " ", desc)
+	}
 	print "Element[" q q, q desc q, q name q, q value q, 
 	int(either(cent_x, 0)), int(either(cent_y, 0)),
 	int(either(text_x, 0)), int(either(text_y, 0)),
Index: trunk/pcblib/parametric/connector
===================================================================
--- trunk/pcblib/parametric/connector	(revision 383)
+++ trunk/pcblib/parametric/connector	(revision 384)
@@ -19,5 +19,5 @@
 
 #@@include common.awk
 
-awk -f `dirname $0`/common.awk -f `dirname $0`/connector.awk -v "args=$*"
+awk -f `dirname $0`/common.awk -f `dirname $0`/connector.awk -v "args=$*" -v gen=`basename $0`
 
Index: trunk/pcblib/parametric/connector.awk
===================================================================
--- trunk/pcblib/parametric/connector.awk	(revision 383)
+++ trunk/pcblib/parametric/connector.awk	(revision 384)
@@ -23,7 +23,7 @@
 	if ((eshift != "x") && (eshift != "y") && (eshift != ""))
 		error("eshift must be x or y (got: ", eshift ")");
 
-	element_begin(P["spacing"] " mil connector", "CONN1", P["nx"] "*" P["ny"]    ,0,0, 0, -step)
+	element_begin("", "CONN1", P["nx"] "*" P["ny"]    ,0,0, 0, -step)
 
 	for(x = 0; x < P["nx"]; x++) {
 		if ((eshift == "x") && ((x % 2) == 1))
Index: trunk/pcblib/parametric/dip
===================================================================
--- trunk/pcblib/parametric/dip	(revision 383)
+++ trunk/pcblib/parametric/dip	(revision 384)
@@ -13,5 +13,5 @@
 
 #@@include common.awk
 
-awk -f `dirname $0`/common.awk -f `dirname $0`/dip.awk -v "args=$*"
+awk -f `dirname $0`/common.awk -f `dirname $0`/dip.awk -v "args=$*" -v gen=`basename $0`
 
Index: trunk/pcblib/parametric/dip.awk
===================================================================
--- trunk/pcblib/parametric/dip.awk	(revision 383)
+++ trunk/pcblib/parametric/dip.awk	(revision 384)
@@ -9,7 +9,7 @@
 
 	spacing=parse_dim(P["spacing"])
 
-	element_begin(P["n"] "*" P["spacing"] " DIP socket", "U1", P["n"] "*" P["spacing"]    ,0,0, 0, mil(-100))
+	element_begin("", "U1", P["n"] "*" P["spacing"]    ,0,0, 0, mil(-100))
 
 	half = mil(50)
 
Index: trunk/pcblib/parametric/msop
===================================================================
--- trunk/pcblib/parametric/msop	(revision 383)
+++ trunk/pcblib/parametric/msop	(revision 384)
@@ -25,5 +25,5 @@
 ?pad_thickness=0.45mm
 '
 
-awk -f `dirname $0`/common.awk -f `dirname $0`/so.awk -v "args=$defaults,$*"
+awk -f `dirname $0`/common.awk -f `dirname $0`/so.awk -v "args=$defaults,$*" -v gen=`basename $0`
 
Index: trunk/pcblib/parametric/rcy
===================================================================
--- trunk/pcblib/parametric/rcy	(revision 383)
+++ trunk/pcblib/parametric/rcy	(revision 384)
@@ -13,5 +13,5 @@
 
 #@@include common.awk
 
-awk -f `dirname $0`/common.awk -f `dirname $0`/rcy.awk -v "args=$*"
+awk -f `dirname $0`/common.awk -f `dirname $0`/rcy.awk -v "args=$*" -v gen=`basename $0`
 
Index: trunk/pcblib/parametric/rcy.awk
===================================================================
--- trunk/pcblib/parametric/rcy.awk	(revision 383)
+++ trunk/pcblib/parametric/rcy.awk	(revision 384)
@@ -24,7 +24,7 @@
 
 	offs_x = +spacing/2
 
-	element_begin("acy" P["spacing"], "C1", "acy" P["spacing"]    ,0,0, spacing/2-spacing/5,-mil(20))
+	element_begin("", "C1", "acy" P["spacing"]    ,0,0, spacing/2-spacing/5,-mil(20))
 
 	element_pin(-spacing/2, 0, 1)
 	element_pin(+spacing/2, 0, 2)
Index: trunk/pcblib/parametric/so
===================================================================
--- trunk/pcblib/parametric/so	(revision 383)
+++ trunk/pcblib/parametric/so	(revision 384)
@@ -16,5 +16,5 @@
 
 #@@include common.awk
 
-awk -f `dirname $0`/common.awk -f `dirname $0`/so.awk -v "args=$*"
+awk -f `dirname $0`/common.awk -f `dirname $0`/so.awk -v "args=$*" -v gen=`basename $0`
 
Index: trunk/pcblib/parametric/so.awk
===================================================================
--- trunk/pcblib/parametric/so.awk	(revision 383)
+++ trunk/pcblib/parametric/so.awk	(revision 384)
@@ -19,7 +19,7 @@
 	offs_x = -(row_spacing/2)
 	offs_y = -int((P["n"]/4-0.5) * pad_spacing)
 
-	element_begin(P["n"] "*" P["row_spacing"] " SO", "U1", P["n"] "*" P["row_spacing"]    ,0,0, 0, mil(-100))
+	element_begin("", "U1", P["n"] "*" P["row_spacing"]    ,0,0, 0, mil(-100))
 
 	for(n = 1; n <= P["n"]/2; n++) {
 		y = (n-1) * pad_spacing
Index: trunk/pcblib/parametric/ssop
===================================================================
--- trunk/pcblib/parametric/ssop	(revision 383)
+++ trunk/pcblib/parametric/ssop	(revision 384)
@@ -24,5 +24,5 @@
 ?pad_thickness=0.45mm
 '
 
-awk -f `dirname $0`/common.awk -f `dirname $0`/so.awk -v "args=$defaults,$*"
+awk -f `dirname $0`/common.awk -f `dirname $0`/so.awk -v "args=$defaults,$*" -v gen=`basename $0`
 
Index: trunk/pcblib/parametric/tssop
===================================================================
--- trunk/pcblib/parametric/tssop	(revision 383)
+++ trunk/pcblib/parametric/tssop	(revision 384)
@@ -25,5 +25,5 @@
 ?pad_thickness=0.45mm
 '
 
-awk -f `dirname $0`/common.awk -f `dirname $0`/so.awk -v "args=$defaults,$*"
+awk -f `dirname $0`/common.awk -f `dirname $0`/so.awk -v "args=$defaults,$*" -v gen=`basename $0`