undo broken deletion

[trains.git] / spice / snarf-diodes.pl

diff --git a/spice/snarf-diodes.pl b/spice/snarf-diodes.pl
new file mode 100755 (executable)
index 0000000..bbce21c
--- /dev/null
+++ b/spice/snarf-diodes.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -n
+# This script snarfs the BZX84C models from
+#  http://www.diodes.com/spicemodels/index.php?language=en
+# which is checked in here as diodes.com-spice.txt, and turns
+# them into what is now known here as bzx55.mod.
+#
+# Justification: Farnell catalogue claims that the BZX84C (SMD)
+# are equivalents for the `popular' BZX55.
+
+BEGIN { print "*BZX55 - GENERATED FILE DO NOT EDIT*\n" or die $! }
+s/\r?\n/\n/;
+next unless m/^\*SRC=BZX84C\d+V?\d+\;/..m/.ENDS/;
+s/^(\.subckt)\sdi_bzx84(c\w*)\s/$1 bzx55\-\L$2 /i;
+print or die $!;