From 214203349309e4e3f158eb773d498a4312ded43c Mon Sep 17 00:00:00 2001 From: Lev Walkin Date: Sun, 7 Apr 2013 04:14:36 -0700 Subject: removed useless clyx2asn1 conversion --- examples/Makefile.am | 2 +- examples/Makefile.in | 2 +- examples/README | 2 -- examples/clyx2asn1.pl | 51 --------------------------------------------------- 4 files changed, 2 insertions(+), 55 deletions(-) delete mode 100755 examples/clyx2asn1.pl diff --git a/examples/Makefile.am b/examples/Makefile.am index 0d832eee..c23d3971 100644 --- a/examples/Makefile.am +++ b/examples/Makefile.am @@ -1,5 +1,5 @@ -dist_bin_SCRIPTS = crfc2asn1.pl clyx2asn1.pl +dist_bin_SCRIPTS = crfc2asn1.pl ASN1_SOURCE_1 = rfc3280.txt ASN1_FILES_1 = \ diff --git a/examples/Makefile.in b/examples/Makefile.in index 74d80b38..8856b62f 100644 --- a/examples/Makefile.in +++ b/examples/Makefile.in @@ -189,7 +189,7 @@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ -dist_bin_SCRIPTS = crfc2asn1.pl clyx2asn1.pl +dist_bin_SCRIPTS = crfc2asn1.pl ASN1_SOURCE_1 = rfc3280.txt ASN1_FILES_1 = \ rfc3280-PKIX1Explicit88.asn1 \ diff --git a/examples/README b/examples/README index db59bf58..9c8b5031 100644 --- a/examples/README +++ b/examples/README @@ -25,8 +25,6 @@ This directory contains a few examples. UserPlane Location Protocol decoder. Before trying to compile, read the README file in that directory. -The clyx2asn1.pl script can be used to extract ASN.1 data from LyX editor files. - The crfc2asn1.pl script can be used to extract ASN.1 data from RFC texts. For instance, it is used to extract X.509, MEGACO, and LDAPv3 ASN.1 modules from the corresponding RFC texts (rfc3280.txt, rfc3525.txt, rfc4211.txt). 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 ...\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() { - 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; -- cgit v1.2.3