From 9e7607ba9b8a16fed275dc85fddf4e71c97802d9 Mon Sep 17 00:00:00 2001
From: Peter Wu <lekensteyn@gmail.com>
Date: Mon, 16 Sep 2013 15:10:05 +0200
Subject: Add tools to map a number to name (and vice versa)

---
 number-to-name.awk | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 number-to-name.awk

(limited to 'number-to-name.awk')

diff --git a/number-to-name.awk b/number-to-name.awk
new file mode 100755
index 0000000..8c499be
--- /dev/null
+++ b/number-to-name.awk
@@ -0,0 +1,25 @@
+#!/usr/bin/awk -f
+# Tries to map a number to name (or a question mark if not found)
+# Author: Peter Wu <lekensteyn@gmail.com>
+
+BEGIN {
+	if (!cmd) cmd = "openssl ciphers -V";
+
+	while ((cmd | getline) > 0) {
+		if ( split($0, a, / +- +|[, ]+/)) {
+			num = strtonum(a[2]) * 256 + strtonum(a[3]);
+			name = a[4];
+			number_to_name[num] = name;
+		}
+	}
+}
+{
+	for (i = 1; i <= NF; i++) {
+		if ($i ~ /^[0-9]+$/) {
+			name = number_to_name[$i];
+			if (!name) name = "?";
+			$i = $i " " name;
+		}
+	}
+	print;
+}
-- 
cgit v1.2.1