X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/1ba83484ee5bb486da9aa958576de4bc29ef0c1d..34e4f738bcba58e6d8c4cabbb0b3232a65b42a9d:/p-gentab.sh

diff --git a/p-gentab.sh b/p-gentab.sh
new file mode 100755
index 0000000..210073b
--- /dev/null
+++ b/p-gentab.sh
@@ -0,0 +1,90 @@
+#! /bin/sh
+
+set -e
+
+cat <<EOF
+/* -*-c-*-
+ *
+ * Table of standard prime subgroups [generated]
+ */
+
+#include "ptab.h"
+
+#define N(x) (sizeof(x)/sizeof(*x))
+#define MP(x) { x, x + N(x), N(x), 0, MP_CONST, 0 }
+
+/*----- Prime data --------------------------------------------------------*/
+
+EOF
+
+names=""
+while read t n; do
+
+  case $t in
+    group) ;;
+    alias) names="$names $n=$f" continue;;
+    \#* | "") continue;;
+    *) echo >&2 "$0: unknown keyword $t"; exit 1;;
+  esac
+
+  names="$names $n=$n"
+  cat <<EOF
+/* --- Group $n --- */
+
+EOF
+
+  n=`echo $n | sed 's/[^a-zA-Z0-9_][^a-zA-Z0-9_]*/_/g'`
+  read t p
+  if [ $t != p ]; then echo >&2 "$0: wanted p; found $t"; exit 1; fi
+  read t q
+  if [ $t != q ]; then echo >&2 "$0: wanted q; found $t"; exit 1; fi
+  read t g
+  if [ $t != g ]; then echo >&2 "$0: wanted g; found $t"; exit 1; fi
+
+      cat <<EOF
+static mpw p_${n}_p[] = {
+EOF
+      ./mpdump $p
+      cat <<EOF
+};
+
+static mpw p_${n}_q[] = {
+EOF
+      ./mpdump $q
+      cat <<EOF
+};
+
+static mpw p_${n}_g[] = {
+EOF
+      ./mpdump $g
+      cat <<EOF
+};
+
+static pdata p_$n = {
+  MP(p_${n}_p),
+  MP(p_${n}_q),
+  MP(p_${n}_g)
+};
+
+EOF
+
+done
+
+cat <<EOF
+/*----- Main table --------------------------------------------------------*/
+
+const pentry ptab[] = {
+EOF
+for i in $names; do
+  a=`echo $i | sed 's/=.*$//'`
+  n=`echo $i | sed 's/^.*=//; s/[^a-zA-Z0-9_][^a-zA-Z0-9_]*/_/g'`
+  cat <<EOF
+  { "$a", &p_$n },
+EOF
+done
+cat <<EOF
+  { 0, 0 }
+};
+
+/*----- That's all, folks -------------------------------------------------*/
+EOF