1 files changed, 96 insertions, 0 deletions
diff --git a/tutorials/sndkit/morse/charlist.h b/tutorials/sndkit/morse/charlist.h
new file mode 100644
index 0000000..053aaae
--- /dev/null
+++ b/tutorials/sndkit/morse/charlist.h
@@ -0,0 +1,96 @@
+#ifndef CHARLIST_H
+#define CHARLIST_H
+
+#define INT_LETTERS 1
+
+static const char Chars[] =
+#ifdef INT_LETTERS
+  "abcdefghijklmnopqrstuvwxyz0123456789?.,:åäöü£)/=";
+#else
+  "abcdefghijklmnopqrstuvwxyz0123456789?.,:)/=";
+#endif
+
+static const char *Codes[] =
+  { ".-", "-...", "-.-.", "-..", ".", "..-.", "--.",
+  "....", "..", ".---", "-.-", ".-..", "--", "-.", "---",
+  ".--.", "--.-", ".-.", "...", "-", "..-", "...-",
+  ".--", "-..-", "-.--", "--..",	/* A..Z */
+
+  "-----", ".----", "..---", "...--", "....-",
+  ".....", "-....", "--...", "---..", "----.",	/* 0..9 */
+
+  "..--..", ".-.-.-", "--..--", "---...",	/*  ?|.,: */
+
+#ifdef INT_LETTERS
+  ".--.-", ".-.-", "---.", "..--",	/* International letters */
+#endif
+  "........",			/* Error */
+  "-.--.-",			/* () */
+  "-..-.",			/* / */
+  "-...-"			/* = */
+};
+
+static int
+parse_charlist (char *ch)
+{
+  int prev = 0, i, j;
+
+  if (strcmp (ch, "-1") == 0)
+    return parse_charlist ("aeost");
+  if (strcmp (ch, "-2") == 0)
+    return parse_charlist ("hilnr");
+  if (strcmp (ch, "-3") == 0)
+    return parse_charlist ("cfgu");
+  if (strcmp (ch, "-4") == 0)
+    return parse_charlist ("dkmp");
+  if (strcmp (ch, "-5") == 0)
+    return parse_charlist ("bqvy");
+  if (strcmp (ch, "-6") == 0)
+    return parse_charlist ("jvxz");
+#ifdef INT_LETTERS
+  if (strcmp (ch, "-7") == 0)
+    return parse_charlist ("äöå");
+#endif
+  if (strcmp (ch, "-8") == 0)
+    return parse_charlist ("50146");
+  if (strcmp (ch, "-9") == 0)
+    return parse_charlist ("27389");
+  if (strcmp (ch, "-10") == 0)
+    return parse_charlist ("/=?");
+  if (strcmp (ch, "-11") == 0)
+    return parse_charlist (").,-");
+#ifdef INT_LETTERS
+  if (strcmp (ch, "-a") == 0)	/* Finnish CWH module */
+    return parse_charlist ("a-zåäö0-9/=?");
+  if (strcmp (ch, "-d") == 0)	/* Some very difficult characters */
+    return parse_charlist ("1j/l4bh569ö");
+#endif
+
+  for (i = 0; i < strlen (ch); i++)
+    if (ch[i] == '-')
+      {
+	prev = -prev;
+      }
+    else
+      {
+	if (prev > 0)
+	  {
+	    for (j = prev; j <= ch[i]; j++)
+	      {
+		randomlist[nrandom++] = j;
+		randomlist[nrandom] = 0;
+	      }
+	  }
+	else
+	  {
+	    randomlist[nrandom++] = ch[i];
+	    randomlist[nrandom] = 0;
+	  }
+
+	prev = -((unsigned char) ch[i] + 1);
+      }
+
+  return 0;
+}
+
+#endif