1 files changed, 50 insertions, 0 deletions
diff --git a/ipl/procs/weavgenr.icn b/ipl/procs/weavgenr.icn
new file mode 100644
index 0000000..d5f888b
--- /dev/null
+++ b/ipl/procs/weavgenr.icn
@@ -0,0 +1,50 @@
+############################################################################
+#
+#	File:     weavgenr.icn
+#
+#	Subject:  Links to procedures related to sequence drafting
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     August 3, 2000
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#  AD HOC
+#
+############################################################################
+#
+#  Links:  random
+#
+############################################################################
+
+link random
+
+procedure shaftmap(s)			#: produce shaft map for characters
+   local j, map_table
+
+   map_table := table()
+
+   j := 0
+
+   every /map_table[!s] := (j +:= 1)
+
+   return map_table
+
+end
+
+procedure genshafts(s, tbl)		#: generate shafts for string mapping
+
+   suspend tbl[!s]
+
+end
+
+procedure genmapshafts(s1, s2)		#: map string and generate shafts
+
+   suspend genshafts(s1, shaftmap(s2))
+
+end