From 6aa0e0017d7d0cddc006da885946934b06949a91 Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Fri, 14 Oct 2011 04:55:05 +0200
Subject: include libslang-1.4.9 and automatically build it and link
 erlang-slang against it

few (erlang) people will still have libslang-1.4.9 installed or spend time
to get it to link against the driver
---
 libslang/slsh/scripts/htmlstrip | 48 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100755 libslang/slsh/scripts/htmlstrip

(limited to 'libslang/slsh/scripts/htmlstrip')

diff --git a/libslang/slsh/scripts/htmlstrip b/libslang/slsh/scripts/htmlstrip
new file mode 100755
index 0000000..c6a6b36
--- /dev/null
+++ b/libslang/slsh/scripts/htmlstrip
@@ -0,0 +1,48 @@
+#! /usr/bin/env slsh
+% -*- mode: slang -*-
+%_debug_info = 1;
+
+% This file strips HTML tags from one or more html files and write the result
+% to stdout.  It is very simple minded.
+
+define process_file (file)
+{
+   variable fp, l;
+
+   if (file != NULL)
+     {
+	fp = fopen (file, "r");
+	if (fp == NULL)
+	  {
+	     () = fputs (sprintf ("Unable to open %s\n", file), stderr);
+	     return;
+	  }
+     }
+   else fp = stdin;
+
+   foreach (fp)
+     {
+	l = ();
+
+	l = strtrim (str_uncomment_string (l, "<", ">"));
+	!if (strlen (l))
+	  continue;
+
+	() = fputs (l, stdout);
+	() = fputs ("\n", stdout);
+     }
+}
+
+if (__argc == 1)
+{
+   if (isatty (stdin))
+     {
+	() = fprintf (stderr, "Usage: %s [files...]\n", __argv[0]);
+	exit (1);
+     }
+   process_file (NULL);
+   exit (0);
+}
+
+foreach (__argv[[1:]]) process_file ();
+exit (0);
-- 
cgit v1.2.3