1 files changed, 47 insertions, 0 deletions
diff --git a/ipl/gpacks/weaving/weaveseq.icn b/ipl/gpacks/weaving/weaveseq.icn
new file mode 100644
index 0000000..c1f899e
--- /dev/null
+++ b/ipl/gpacks/weaving/weaveseq.icn
@@ -0,0 +1,47 @@
+############################################################################
+#
+#	File:     weaveseq.icn
+#
+#	Subject:  Procedures for sequence drafting
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     May 19, 1999
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#  AD HOC
+#
+############################################################################
+#
+#  Links: seqfncs, curves, math, random
+#
+############################################################################
+
+link curves
+link math
+link random
+link seqfncs
+
+procedure apos(c)		#: character position relative to "a"
+
+   return ord(c) - ord("a")	# may be negative ...
+
+end
+
+procedure code_name(s)
+
+   s := map(s)
+
+   s ? {
+      while upto(&lcase) do {
+         i := apos(move(1))
+         suspend i
+         }
+      }
+
+end