From d61066fcfe7f00843c4660182ea38ba3a5e41803 Mon Sep 17 00:00:00 2001
From: Bernhard Reutner-Fischer <rep.dot.nop@gmail.com>
Date: Tue, 13 Apr 2010 16:14:14 +0200
Subject: test: add API test

part1; Needs improvement:
Think about a sensible way to map feature sets to the mandated syms.
Our LEGACY stuff maps to OB, OBXSI for example.
A "normal" config should satisfy the BASE (i.e. $foo.SUSv4.syms)

Signed-off-by: Bernhard Reutner-Fischer <rep.dot.nop@gmail.com>
---
 test/API/separate.awk | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 test/API/separate.awk

(limited to 'test/API/separate.awk')

diff --git a/test/API/separate.awk b/test/API/separate.awk
new file mode 100644
index 000000000..f7850c4f4
--- /dev/null
+++ b/test/API/separate.awk
@@ -0,0 +1,48 @@
+#!/usr/bin/awk -f
+# 
+# Usage: awk -f separate.awk foo.SUSv4.in
+# Input: http://www.opengroup.org/onlinepubs/9699919799/basedefs/unistd.h.html#tag_13_77_03_06
+# Output: foo-$CODE.SUSv4.syms, foo.SUSv4.syms
+#
+# Copyright (C) 2010 Bernhard Reutner-Fischer
+# Public domain
+
+function get_code(line)
+{
+	sub("\\]\\[.*", "", line)
+	sub("\\[", "", line)
+	sub(" ", "", line)
+	return line
+}
+BEGIN{
+	code="";# feature set; XSI, OB XSI, CX, etc
+
+}
+/\[Option Start\]/{
+	code = get_code($0)
+	next
+}
+/\[Option End\]/{ code = ""; next; }
+/.*/ {
+	if (!hdrname) {
+		split(FILENAME, fparts, ".")
+		hdrname = fparts[1]
+		stdname = fparts[2]
+		if (fparts[3] != "in") {
+			print "inputfilename may not be ok, exiting."
+			exit(1)
+		}
+	}
+	if (code) {
+		fname = hdrname "-" code "." stdname ".syms"
+	} else {
+		fname = hdrname "." stdname ".syms"
+	}
+	sub("^*", "", $0)
+	if (file[code]) {
+		print $0 >> fname
+	} else {
+		print $0 > fname
+		file[code] = 1
+	}
+}
-- 
cgit v1.2.3