Copy of LOOPS 3.3.0

etc/manualindex

@@ -0,0 +1,43 @@
+#!/bin/sh
+# lowercase all lines without an @ symbol
+awk '$0 !~ /@/ {$0=tolower($0)} {print}' $1.idx >$1.idl
+
+# call makeindex to sort indexentries and produce an index
+# ... this *needs* manual.mst to be in place, otherwise we'll end
+# up with a LaTeX style index with \begin{index} .. \end{index}
+makeindex -l $1.idl
+
+# put hyphenation help into long commands
+echo "Hyphenating long index entries"
+echo '{a=index($0,"`");\
+    if (a==0) {print $0;}\
+    else {\
+      b=index($0,"'"'"'");\
+      if (b-a>40) {\
+	anf=substr($0,1,a);\
+	mid=substr($0,a+1,b-a-1);\
+	end=substr($0,b);\
+	b=length(mid);\
+	i=1;\
+	cap=1;\
+	mid2=substr(mid,1,i-1);\
+	while (i<=length(mid)) {\
+	  c=substr(mid,i,1);\
+	  if (c!=tolower(c)){\
+	    if (cap==0) mid2 = mid2 "\\-";\
+	    cap=1;\
+	  }\
+	  else cap=0;\
+	  mid2=mid2 c;\
+	  i=i+1;\
+	}\
+	print anf mid2 end;\
+      }\
+      else print $0;\
+    }
+  }' >mh.awk
+cp $1.ind $1.idl
+awk -f mh.awk $1.idl >$1.ind
+
+# clean up
+rm $1.idl mh.awk