1 files changed, 0 insertions, 51 deletions
diff --git a/examples/clyx2asn1.pl b/examples/clyx2asn1.pl
deleted file mode 100755
index c1a26478..00000000
--- a/examples/clyx2asn1.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/usr/bin/env perl
-
-#
-# $Id$
-# $Author$
-#
-# Simple tool to extract known ASN.1 modules from the stream of LyX data.
-#
-
-if($#ARGV == -1) {
-	print STDERR "Extract known modules from LyX data\n";
-	print STDERR "Usage: cat *.lyx | $0 <ASN-Module-Name> ...\n";
-	exit 64;
-}
-
-# Convert arguments into a hash for quicker search.
-for(my $i; $i <= $#ARGV; $i++) {
-	$modules{$ARGV[$i]} = $ARGV[$i].".asn1";
-}
-
-# Process incoming stream in search for ASN.1 modules.
-while(<STDIN>) {
-	chop;
-	if($inmodule) {
-		next if(/^$/);
-		if(/^\\layout /) {
-			print O "\n";
-			next;
-		}
-		if(/^\\begin_inset Quotes/) {
-			print O '"';
-			next;
-		}
-		next if(/^\\/);
-		print O;
-		if(/^END$/) {
-			$inmodule = 0;
-			print O "\n";
-		}
-	} else {
-		/^([A-Za-z0-9-]+)(\s*{.*)?$/;
-		next unless $modules{$1};
-		open(O, '> '.$modules{$1});
-		print O;
-		$inmodule = 1;
-		delete $modules{$1};
-	}
-}
-
-# Make sure noone's missing.
-die "Modules not found: " . join(", ", keys %modules) . "\n" if keys %modules;