Index: work/alien_formats/eagle/polycheck.sh
===================================================================
--- work/alien_formats/eagle/polycheck.sh	(nonexistent)
+++ work/alien_formats/eagle/polycheck.sh	(revision 21670)
@@ -0,0 +1,25 @@
+#!/bin/sh
+
+# check if a poly dump contains line segments ending at the beginning of
+# the next segment, forming a closed loop
+
+awk '
+/^-------------- Begin Polygon --------------/ {
+	getline first
+	next
+}
+
+(first != "") {
+	curr=$0
+	getline second
+	if (second ~ "^----") {
+		if ($0 != first)
+			print "Error in close at", NR, $0, first
+		first=""
+	}
+	else if ($0 != second)
+		print "Error in pairing at", NR, $0, second
+}
+
+
+'
\ No newline at end of file

Property changes on: work/alien_formats/eagle/polycheck.sh
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property