;; antlr2 is used to generate some java files in other packages. This is an old

;; package, it is not maintained anymore. It also contains the definition

;; for CommonTree and maybe other classes, so it is still required by more

;; recent antlr versions.

;;

;; antlr3.5 requires an antlr3 generator and ST4. Unfortunately, ST4 requires

;; an antlr3 generator. We use antlr3-3.1 that can be built with ST3 and antlr2

;; to build the intermediate antlr3-3.3 that requires only an antlr3 generator.

;; This intermediate antlr3 is used to build a version of ST4 that do not depend

;; on recent antlr3. Then this version is used to build the latest antlr3,

;; which is used to build the latest ST4, which is used as a dependency of the

;; latest antlr3.

;;

;; Then we can use the latest versions of ST4 and antlr3 to build antlr4.

(define-public antlr2

  (package

    (name "antlr2")

    (version "2.7.7")

    (source (origin

              (method url-fetch)

              (uri (string-append "http://www.antlr2.org/download/antlr-"

                                  version ".tar.gz"))

              (sha256

               (base32

                "1ffvcwdw73id0dk6pj2mlxjvbg0662qacx4ylayqcxgg381fnfl5"))

              (modules '((guix build utils)))

              (snippet

               '(begin

                  (delete-file "antlr.jar")

                  (substitute* "configure"

                    (("/bin/sh") "sh"))))))

    (build-system gnu-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-after 'configure 'fix-bin-ls

           (lambda _

             (for-each (lambda (file)

                         (substitute* file

                          (("/bin/ls") "ls")))

               (find-files "Makefile")))))))

    (native-inputs

     `(("which" ,which)

       ("java" ,icedtea "jdk")))

    (propagated-inputs

     `(("java" ,icedtea "jdk")))

    (inputs

     `(("java" ,icedtea)))

    (home-page "http://www.antlr2.org")

    (synopsis "")

    (description "")

    (license license:public-domain)))

(define-public stringtemplate3

  (package

    (name "stringtemplate3")

    (version "3.2.1")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/antlr/website-st4/raw/"

                                  "gh-pages/download/stringtemplate-"

                                  version ".tar.gz"))

              (sha256

               (base32

                "086yj68np1vqhkj7483diz3km6s6y4gmwqswa7524a0ca6vxn2is"))))

    (build-system ant-build-system)

    (arguments

     `(#:jar-name "stringtemplate-3.2.1.jar"

       #:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-before 'build 'generate-grammar

           (lambda _

             (let ((dir "src/org/antlr/stringtemplate/language/"))

               (for-each (lambda (file)

                           (display file)

                           (newline)

                           (system* "antlr" "-o" dir (string-append dir file)))

                         '("template.g" "angle.bracket.template.g" "action.g"

                           "eval.g" "group.g" "interface.g"))))))))

    (native-inputs

     `(("antlr" ,antlr2)))

    (home-page "http://www.stringtemplate.org")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

(define-public antlr3-temp

  (package

    (name "antlr3-temp")

    (version "3.5.2")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/antlr/antlr3/archive/"

                                  version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "07zff5frmjd53rnqdx31h0pmswz1lv0p2lp28cspfszh25ysz6sj"))))

    (build-system ant-build-system)

    (arguments

     `(#:jar-name (string-append ,name "-" ,version ".jar")

       #:src-dir "tool/src/main/java:runtime/Java/src/main/java:tool/src/main/antlr3"

       #:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-after 'install 'bin-install

           (lambda* (#:key inputs outputs #:allow-other-keys)

             (let ((jar (string-append (assoc-ref outputs "out") "/share/java"))

                   (bin (string-append (assoc-ref outputs "out") "/bin")))

               (mkdir-p bin)

               (with-output-to-file (string-append bin "/antlr3")

                 (lambda _

                   (display

                     (string-append "#!/bin/sh\n"

                                    "java -cp " jar "/" ,name "-" ,version ".jar:"

                                    (string-concatenate

                                      (find-files (assoc-ref inputs "stringtemplate")

                                                  ".*\\.jar"))

                                    ":"

                                    (string-concatenate

                                      (find-files (assoc-ref inputs "stringtemplate4")

                                                  ".*\\.jar"))

                                    ":"

                                    (string-concatenate

                                      (find-files (string-append (assoc-ref inputs "antlr") "/lib")

                                                  ".*\\.jar"))

                                    " org.antlr.Tool $*"))))

               (chmod (string-append bin "/antlr3") #o755))))

         (add-before 'build 'generate-grammar

           (lambda _

             (chdir "tool/src/main/antlr3/org/antlr/grammar/v3/")

             (for-each (lambda (file)

                         (display file)

                         (newline)

                         (system* "antlr3" file))

                       '("ANTLR.g" "ANTLRTreePrinter.g" "ActionAnalysis.g"

                         "AssignTokenTypesWalker.g"

                         "ActionTranslator.g" "TreeToNFAConverter.g"

                         "ANTLRv3.g" "ANTLRv3Tree.g" "LeftRecursiveRuleWalker.g"

                         "CodeGenTreeWalker.g" "DefineGrammarItemsWalker.g"))

             (chdir "../../../../../../../..")

             (system* "antlr" "-o" "tool/src/main/java/org/antlr/tool"

                      "tool/src/main/java/org/antlr/tool/serialize.g")

             (substitute* "tool/src/main/java/org/antlr/tool/LeftRecursiveRuleAnalyzer.java"

               (("import org.antlr.grammar.v3.\\*;") "import org.antlr.grammar.v3.*;

import org.antlr.grammar.v3.ANTLRTreePrinter;"))

             (substitute* "tool/src/main/java/org/antlr/tool/ErrorManager.java"

               (("case NO_SUCH_ATTRIBUTE_PASS_THROUGH:") ""))

             (substitute* "tool/src/main/antlr3/org/antlr/grammar/v3/ANTLRParser.java"

               (("public Object getTree") "public GrammarAST getTree"))

             (substitute* "tool/src/main/antlr3/org/antlr/grammar/v3/ANTLRv3Parser.java"

               (("public Object getTree") "public CommonTree getTree"))))

         (add-before 'build 'fix-build-xml

           (lambda _

             (substitute* "build.xml"

               (("<exec") "<copy todir=\"${classes.dir}\">

<fileset dir=\"tool/src/main/resources\">

<include name=\"**/*.stg\"/>

<include name=\"**/*.st\"/>

<include name=\"**/*.sti\"/>

<include name=\"**/STLexer.tokens\"/>

</fileset>

</copy><exec")))))))

    (native-inputs

     `(("antlr" ,antlr2)

       ("antlr3" ,antlr3-3.3)))

    (inputs

     `(("junit" ,java-junit)))

    (propagated-inputs

     `(("stringtemplate" ,stringtemplate3)

       ("antlr" ,antlr2)

       ("stringtemplate4" ,stringtemplate4-4.0.6)))

    (home-page "http://www.stringtemplate.org")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

(define-public antlr3

  (package

    (inherit antlr3-temp)

    (name "antlr3")

    (native-inputs

     `(("antlr" ,antlr2)

       ("antlr3" ,antlr3-temp)))

    (inputs

     `(("junit" ,java-junit)

       ("stringtemplate" ,stringtemplate3)

       ("stringtemplate4" ,stringtemplate4)))))

(define-public antlr3-3.3

  (package

    (name "antlr3")

    (version "3.3")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/antlr/website-antlr3/raw/"

                                  "gh-pages/download/antlr-"

                                  version ".tar.gz"))

              (sha256

               (base32

                "0qgg5vgsm4l1d6dj9pfbaa25dpv2ry2gny8ajy4vvgvfklw97b3m"))))

    (build-system ant-build-system)

    (arguments

     `(#:jar-name (string-append ,name "-" ,version ".jar")

       #:src-dir "tool/src/main/java:runtime/Java/src/main/java:tool/src/main/antlr2:tool/src/main/antlr3"

       #:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-after 'install 'bin-install

           (lambda* (#:key inputs outputs #:allow-other-keys)

             (let ((jar (string-append (assoc-ref outputs "out") "/share/java"))

                   (bin (string-append (assoc-ref outputs "out") "/bin")))

               (mkdir-p bin)

               (with-output-to-file (string-append bin "/antlr3")

                 (lambda _

                   (display

                     (string-append "#!/bin/sh\n"

                                    "java -cp " jar "/antlr3-3.3.jar:"

                                    (string-concatenate

                                      (find-files (assoc-ref inputs "stringtemplate")

                                                  ".*\\.jar"))

                                    ":"

                                    (string-concatenate

                                      (find-files (string-append (assoc-ref inputs "antlr") "/lib")

                                                  ".*\\.jar"))

                                    " org.antlr.Tool $*"))))

               (chmod (string-append bin "/antlr3") #o755))))

         (add-before 'build 'generate-grammar

           (lambda _

             (let ((dir "tool/src/main/antlr2/org/antlr/grammar/v2/"))

               (for-each (lambda (file)

                           (display file)

                           (newline)

                           (system* "antlr" "-o" dir (string-append dir file)))

                         '("antlr.g" "antlr.print.g" "assign.types.g"

                           "buildnfa.g" "codegen.g" "define.g")))

             (chdir "tool/src/main/antlr3/org/antlr/grammar/v3/")

             (for-each (lambda (file)

                         (display file)

                         (newline)

                         (system* "antlr3" file))

                       '("ActionAnalysis.g" "ActionTranslator.g" "ANTLRv3.g"

                         "ANTLRv3Tree.g"))

             (chdir "../../../../../../../..")

             (substitute* "tool/src/main/java/org/antlr/tool/Grammar.java"

               (("import org.antlr.grammar.v2.\\*;")

                "import org.antlr.grammar.v2.*;\n

import org.antlr.grammar.v2.TreeToNFAConverter;\n

import org.antlr.grammar.v2.DefineGrammarItemsWalker;\n

import org.antlr.grammar.v2.ANTLRTreePrinter;"))))

         (add-before 'build 'fix-build-xml

           (lambda _

             (substitute* "build.xml"

               (("<exec") "<copy todir=\"${classes.dir}\">

<fileset dir=\"tool/src/main/resources\">

<include name=\"**/*.stg\"/>

<include name=\"**/*.st\"/>

<include name=\"**/*.sti\"/>

<include name=\"**/STLexer.tokens\"/>

</fileset>

</copy><exec")))))))

    (native-inputs

     `(("antlr" ,antlr2)

       ("antlr3" ,antlr3-3.1)))

    (inputs

     `(("junit" ,java-junit)))

    (propagated-inputs

     `(("stringtemplate" ,stringtemplate3)

       ("antlr" ,antlr2)

       ("antlr3" ,antlr3-3.1)))

    (home-page "http://www.stringtemplate.org")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

(define-public antlr3-3.1

  (package

    (name "antlr3-3.1")

    (version "3.1")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/antlr/website-antlr3/raw/"

                                  "gh-pages/download/antlr-"

                                  version ".tar.gz"))

              (sha256

               (base32

                "0sfimc9cpbgrihz4giyygc8afgpma2c93yqpwb951giriri6x66z"))))

    (build-system ant-build-system)

    (arguments

     `(#:jar-name (string-append ,name "-" ,version ".jar")

       #:src-dir "src:runtime/Java/src"

       #:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-after 'install 'bin-install

           (lambda* (#:key inputs outputs #:allow-other-keys)

             (let ((jar (string-append (assoc-ref outputs "out") "/share/java"))

                   (bin (string-append (assoc-ref outputs "out") "/bin")))

               (mkdir-p bin)

               (with-output-to-file (string-append bin "/antlr3")

                 (lambda _

                   (display

                     (string-append "#!/bin/sh\n"

                                    "java -cp " jar "/antlr3-3.1-3.1.jar:"

                                    (string-concatenate

                                      (find-files (assoc-ref inputs "stringtemplate")

                                                  ".*\\.jar"))

                                    ":"

                                    (string-concatenate

                                      (find-files (string-append (assoc-ref inputs "antlr") "/lib")

                                                  ".*\\.jar"))

                                    " org.antlr.Tool $*"))))

               (chmod (string-append bin "/antlr3") #o755))))

         (add-before 'build 'generate-grammar

           (lambda _

             (let ((dir "src/org/antlr/tool/"))

               (for-each (lambda (file)

                           (display file)

                           (newline)

                           (system* "antlr" "-o" dir (string-append dir file)))

                         '("antlr.g" "antlr.print.g" "assign.types.g"

                           "buildnfa.g" "define.g")))

             (format #t "codegen.g\n")

             (system* "antlr" "-o" "src/org/antlr/codegen"

                      "src/org/antlr/codegen/codegen.g")))

         (add-before 'build 'fix-build-xml

           (lambda _

             (substitute* "build.xml"

               (("<exec") "<copy todir=\"${classes.dir}\">

<fileset dir=\"src\">

<include name=\"**/*.stg\"/>

<include name=\"**/*.st\"/>

<include name=\"**/*.sti\"/>

<include name=\"**/STLexer.tokens\"/>

</fileset>

</copy><exec")))))))

    (native-inputs

     `(("antlr" ,antlr2)))

    (inputs

     `(("junit" ,java-junit)))

    (propagated-inputs

     `(("stringtemplate" ,stringtemplate3)))

    (home-page "http://www.stringtemplate.org")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

(define-public stringtemplate4-4.0.6

  (package

    (name "stringtemplate4")

    (version "4.0.6")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/antlr/stringtemplate4/archive/ST-"

                                  version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "0hjmh1ahdsh3w825i67mli9l4nncc4l6hdbf9ma91jvlj590sljp"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:jar-name (string-append ,name "-" ,version ".jar")

       #:phases

       (modify-phases %standard-phases

         (add-before 'build 'generate-grammar

           (lambda* (#:key inputs #:allow-other-keys)

             (chdir "src/org/stringtemplate/v4/compiler/")

             (for-each (lambda (file)

                         (display file)

                         (newline)

                         (system* "antlr3" file))

                       '("STParser.g" "Group.g" "CodeGenerator.g"))

             (chdir "../../../../.."))))))

    (inputs

     `(("antlr3" ,antlr3-3.3)

       ("antlr2" ,antlr2)

       ("stringtemplate" ,stringtemplate3)))

    (home-page "http://www.stringtemplate.org")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

(define-public stringtemplate4

  (package

    (inherit stringtemplate4-4.0.6)

    (name "stringtemplate4")

    (version "4.0.8")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/antlr/stringtemplate4/archive/"

                                  version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "1pri8hqa95rfdkjy55icl5q1m09zwp5k67ib14abas39s4v3w087"))))

    (inputs

     `(("antlr3" ,antlr3-temp)

       ("antlr2" ,antlr2)

       ("stringtemplate" ,stringtemplate3)))))