From f2585febff2a47ec58ce347f1d6ea55a06e623bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Mon, 26 Mar 2018 00:43:00 +0200
Subject: [PATCH] =?UTF-8?q?Merge=20Racket=20=E2=89=A4=206.11=20and=20Racke?=
 =?UTF-8?q?t=20=E2=89=A5=206.12,=20using=20version-case=20(part=203:=20add?=
 =?UTF-8?q?=20dispatch=20files=20which=20include=20the=206.11=20or=206.12?=
 =?UTF-8?q?=20files)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .travis.yml                               |  4 ++++
 generate-dispatch-6-11--6-12.sh           | 14 +++++++++++++
 info.rkt                                  |  3 ++-
 my-include.rkt                            | 25 +++++++++++++++++++++++
 parse/debug.rkt                           | 10 +++++++++
 parse/experimental/private/substitute.rkt | 10 +++++++++
 parse/experimental/provide.rkt            | 10 +++++++++
 parse/experimental/reflect.rkt            | 10 +++++++++
 parse/experimental/specialize.rkt         | 10 +++++++++
 parse/experimental/splicing.rkt           | 10 +++++++++
 parse/experimental/template.rkt           | 10 +++++++++
 parse/pre.rkt                             | 10 +++++++++
 parse/private/lib.rkt                     | 10 +++++++++
 parse/private/parse-aux.rkt               | 10 +++++++++
 parse/private/parse.rkt                   | 10 +++++++++
 parse/private/rep.rkt                     | 10 +++++++++
 parse/private/residual.rkt                | 10 +++++++++
 parse/private/runtime-reflect.rkt         | 10 +++++++++
 parse/private/runtime-report.rkt          | 10 +++++++++
 parse/private/runtime.rkt                 | 10 +++++++++
 parse/private/sc.rkt                      | 10 +++++++++
 scribblings/stxparse-info.scrbl           | 10 +++++++++
 22 files changed, 225 insertions(+), 1 deletion(-)
 create mode 100755 generate-dispatch-6-11--6-12.sh
 create mode 100644 my-include.rkt
 create mode 100644 parse/debug.rkt
 create mode 100644 parse/experimental/private/substitute.rkt
 create mode 100644 parse/experimental/provide.rkt
 create mode 100644 parse/experimental/reflect.rkt
 create mode 100644 parse/experimental/specialize.rkt
 create mode 100644 parse/experimental/splicing.rkt
 create mode 100644 parse/experimental/template.rkt
 create mode 100644 parse/pre.rkt
 create mode 100644 parse/private/lib.rkt
 create mode 100644 parse/private/parse-aux.rkt
 create mode 100644 parse/private/parse.rkt
 create mode 100644 parse/private/rep.rkt
 create mode 100644 parse/private/residual.rkt
 create mode 100644 parse/private/runtime-reflect.rkt
 create mode 100644 parse/private/runtime-report.rkt
 create mode 100644 parse/private/runtime.rkt
 create mode 100644 parse/private/sc.rkt
 create mode 100644 scribblings/stxparse-info.scrbl

diff --git a/.travis.yml b/.travis.yml
index 57ffa6f..6a3b1c3 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -31,6 +31,10 @@ env:
     ###- RACKET_VERSION=6.5   RECENT=true
     ###- RACKET_VERSION=6.6   RECENT=true
     ###- RACKET_VERSION=6.7   RECENT=true
+    - RACKET_VERSION=6.8     RECENT=true
+    - RACKET_VERSION=6.9     RECENT=true
+    - RACKET_VERSION=6.10    RECENT=true
+    - RACKET_VERSION=6.11    RECENT=true
     - RACKET_VERSION=6.12    RECENT=true
     - RACKET_VERSION=RELEASE RECENT=true
     - RACKET_VERSION=HEAD    RECENT=true
diff --git a/generate-dispatch-6-11--6-12.sh b/generate-dispatch-6-11--6-12.sh
new file mode 100755
index 0000000..0de01e4
--- /dev/null
+++ b/generate-dispatch-6-11--6-12.sh
@@ -0,0 +1,14 @@
+#!/bin/bash
+for i in `find -name '*-6-11'`; do echo "$i"; j="$i"; i="$(basename "$i")"; cat > "${j%-6-11}" <<EOF
+$(head -n 1 "$j")
+(#%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")]
+  [else
+    $(if test -e "${j%-6-11}-6-12"; then echo "(my-include \"${i%-6-11}-6-12\")"; else echo "(begin)"; fi)])
+EOF
+done
\ No newline at end of file
diff --git a/info.rkt b/info.rkt
index 0afb57b..c4d948a 100644
--- a/info.rkt
+++ b/info.rkt
@@ -5,7 +5,8 @@
                ;; Because scribble/example is not available on v6.3:
                "version-case"
                "subtemplate" ;; for the documentation only
-               "auto-syntax-e"))
+               "auto-syntax-e"
+               "compatibility-lib"))
 (define build-deps '("scribble-lib"
                      "racket-doc"
                      "at-exp-lib")) ;; for the documentation only
diff --git a/my-include.rkt b/my-include.rkt
new file mode 100644
index 0000000..fd066bb
--- /dev/null
+++ b/my-include.rkt
@@ -0,0 +1,25 @@
+#lang racket
+(provide my-include)
+(require (for-syntax mzlib/etc))
+
+(define-syntax (my-include stx)
+  (syntax-case stx ()
+    [(_ filename)
+     (string? (syntax-e #'filename))
+     #'(begin
+         (define-syntax (tmp _stx)
+           (my-include2 (this-expression-source-directory filename) filename))
+         (tmp))]))
+
+(define-for-syntax (my-include2 dirname filename)
+  (displayln (list dirname filename))
+  (let ([filename (build-path dirname
+                              filename)])
+    (define s
+      (parameterize ([read-accept-reader #t])
+        (read-syntax filename (open-input-file filename))))
+    (syntax-case s ()
+      [(-module name . rest)
+       #'(begin (module name . rest)
+                (require 'name)
+                (provide (all-from-out 'name)))])))
\ No newline at end of file
diff --git a/parse/debug.rkt b/parse/debug.rkt
new file mode 100644
index 0000000..fc0ee3d
--- /dev/null
+++ b/parse/debug.rkt
@@ -0,0 +1,10 @@
+#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 "debug.rkt-6-11")]
+  [else
+    (my-include "debug.rkt-6-12")])
diff --git a/parse/experimental/private/substitute.rkt b/parse/experimental/private/substitute.rkt
new file mode 100644
index 0000000..0c20b1f
--- /dev/null
+++ b/parse/experimental/private/substitute.rkt
@@ -0,0 +1,10 @@
+#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 "substitute.rkt-6-11")]
+  [else
+    (begin)])
diff --git a/parse/experimental/provide.rkt b/parse/experimental/provide.rkt
new file mode 100644
index 0000000..2c3ab64
--- /dev/null
+++ b/parse/experimental/provide.rkt
@@ -0,0 +1,10 @@
+#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 "provide.rkt-6-11")]
+  [else
+    (my-include "provide.rkt-6-12")])
diff --git a/parse/experimental/reflect.rkt b/parse/experimental/reflect.rkt
new file mode 100644
index 0000000..9d29f0d
--- /dev/null
+++ b/parse/experimental/reflect.rkt
@@ -0,0 +1,10 @@
+#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 "reflect.rkt-6-11")]
+  [else
+    (my-include "reflect.rkt-6-12")])
diff --git a/parse/experimental/specialize.rkt b/parse/experimental/specialize.rkt
new file mode 100644
index 0000000..9ec9f57
--- /dev/null
+++ b/parse/experimental/specialize.rkt
@@ -0,0 +1,10 @@
+#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 "specialize.rkt-6-11")]
+  [else
+    (my-include "specialize.rkt-6-12")])
diff --git a/parse/experimental/splicing.rkt b/parse/experimental/splicing.rkt
new file mode 100644
index 0000000..54f338a
--- /dev/null
+++ b/parse/experimental/splicing.rkt
@@ -0,0 +1,10 @@
+#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 "splicing.rkt-6-11")]
+  [else
+    (my-include "splicing.rkt-6-12")])
diff --git a/parse/experimental/template.rkt b/parse/experimental/template.rkt
new file mode 100644
index 0000000..ccfed00
--- /dev/null
+++ b/parse/experimental/template.rkt
@@ -0,0 +1,10 @@
+#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 "template.rkt-6-11")]
+  [else
+    (my-include "template.rkt-6-12")])
diff --git a/parse/pre.rkt b/parse/pre.rkt
new file mode 100644
index 0000000..5ba1b0e
--- /dev/null
+++ b/parse/pre.rkt
@@ -0,0 +1,10 @@
+#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 "pre.rkt-6-11")]
+  [else
+    (my-include "pre.rkt-6-12")])
diff --git a/parse/private/lib.rkt b/parse/private/lib.rkt
new file mode 100644
index 0000000..74ce904
--- /dev/null
+++ b/parse/private/lib.rkt
@@ -0,0 +1,10 @@
+#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 "lib.rkt-6-11")]
+  [else
+    (my-include "lib.rkt-6-12")])
diff --git a/parse/private/parse-aux.rkt b/parse/private/parse-aux.rkt
new file mode 100644
index 0000000..5f1b0a7
--- /dev/null
+++ b/parse/private/parse-aux.rkt
@@ -0,0 +1,10 @@
+#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 "parse-aux.rkt-6-11")]
+  [else
+    (begin)])
diff --git a/parse/private/parse.rkt b/parse/private/parse.rkt
new file mode 100644
index 0000000..cf318ab
--- /dev/null
+++ b/parse/private/parse.rkt
@@ -0,0 +1,10 @@
+#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 "parse.rkt-6-11")]
+  [else
+    (my-include "parse.rkt-6-12")])
diff --git a/parse/private/rep.rkt b/parse/private/rep.rkt
new file mode 100644
index 0000000..8a92baa
--- /dev/null
+++ b/parse/private/rep.rkt
@@ -0,0 +1,10 @@
+#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 "rep.rkt-6-11")]
+  [else
+    (my-include "rep.rkt-6-12")])
diff --git a/parse/private/residual.rkt b/parse/private/residual.rkt
new file mode 100644
index 0000000..14aad8b
--- /dev/null
+++ b/parse/private/residual.rkt
@@ -0,0 +1,10 @@
+#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 "residual.rkt-6-11")]
+  [else
+    (my-include "residual.rkt-6-12")])
diff --git a/parse/private/runtime-reflect.rkt b/parse/private/runtime-reflect.rkt
new file mode 100644
index 0000000..54c5d1a
--- /dev/null
+++ b/parse/private/runtime-reflect.rkt
@@ -0,0 +1,10 @@
+#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 "runtime-reflect.rkt-6-11")]
+  [else
+    (my-include "runtime-reflect.rkt-6-12")])
diff --git a/parse/private/runtime-report.rkt b/parse/private/runtime-report.rkt
new file mode 100644
index 0000000..6d09f92
--- /dev/null
+++ b/parse/private/runtime-report.rkt
@@ -0,0 +1,10 @@
+#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 "runtime-report.rkt-6-11")]
+  [else
+    (my-include "runtime-report.rkt-6-12")])
diff --git a/parse/private/runtime.rkt b/parse/private/runtime.rkt
new file mode 100644
index 0000000..d7fa856
--- /dev/null
+++ b/parse/private/runtime.rkt
@@ -0,0 +1,10 @@
+#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 "runtime.rkt-6-11")]
+  [else
+    (my-include "runtime.rkt-6-12")])
diff --git a/parse/private/sc.rkt b/parse/private/sc.rkt
new file mode 100644
index 0000000..286519e
--- /dev/null
+++ b/parse/private/sc.rkt
@@ -0,0 +1,10 @@
+#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 "sc.rkt-6-11")]
+  [else
+    (my-include "sc.rkt-6-12")])
diff --git a/scribblings/stxparse-info.scrbl b/scribblings/stxparse-info.scrbl
new file mode 100644
index 0000000..deadfb2
--- /dev/null
+++ b/scribblings/stxparse-info.scrbl
@@ -0,0 +1,10 @@
+#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 "stxparse-info.scrbl-6-11")]
+  [else
+    (my-include "stxparse-info.scrbl-6-12")])