Made generate-dispatch script more generic

generate-dispatch-6-11--6-12.sh

@@ -1,14 +1,33 @@
 #!/bin/bash
-for i in `find -name '*-6-11'`; do echo "$i"; j="$i"; i="$(basename "$i")"; cat > "${j%-6-11}" <<EOF
+for i in `find -name '*-6-11' -or -name '*-6-12' -or -name '*-6-90.0.29'`; do
-$(head -n 1 "$j")
+  echo "${i%-6-*}"
+done | sort -u | while read pathmain; do
+  echo "$pathmain"
+  main="$(basename "$pathmain")"
+
+  if   test -e "${pathmain}-6-11"; then              eleven="(my-include \"${main}-6-11\")";
+  else                                               eleven="(begin)"; fi
+
+  if   test -e "${pathmain}-6-12"; then              twelve="(my-include \"${main}-6-12\")";
+  elif test -e "${pathmain}-6-12.deleted"; then      twelve="(begin)";
+  else                                               twelve="$eleven"; fi
+
+  if   test -e "${pathmain}-6-90-0-29"; then         twentynine="(my-include \"${main}-6-90-0-29\")";
+  elif test -e "${pathmain}-6-90-0-29.deleted"; then twelve="(begin)";
+  else                                               twentynine="$twelve"; fi
+
+  cat > "$pathmain" <<EOF
+#lang racket/base
 (#%require version-case
            (for-syntax (only racket/base version)
                        (only racket/base #%app #%datum))
            stxparse-info/my-include)
 (version-case
   [(version< (version) "6.11.0.900")
-    (my-include "$i")]
+    $eleven]
+  [(version< (version) "6.90.0.29")
+    $twelve]
   [else
-    $(if test -e "${j%-6-11}-6-12"; then echo "(my-include \"${i%-6-11}-6-12\")"; else echo "(begin)"; fi)])
+    $twentynine])
 EOF
 done