gradle work
This commit is contained in:
parent
a4eb79edbe
commit
834927239c
|
@ -48,7 +48,7 @@ clean.dependsOn cleanExtractKawa
|
||||||
import org.ajoberstar.gradle.git.tasks.*
|
import org.ajoberstar.gradle.git.tasks.*
|
||||||
|
|
||||||
task getKawaChess(type: GitClone) {
|
task getKawaChess(type: GitClone) {
|
||||||
def destination = file("$temporaryDir/kawachess")
|
def destination = file("kawa-chess")
|
||||||
uri = "https://github.com/ttu-fpclub/kawa-chess"
|
uri = "https://github.com/ttu-fpclub/kawa-chess"
|
||||||
destinationPath = destination
|
destinationPath = destination
|
||||||
bare = false
|
bare = false
|
||||||
|
@ -56,7 +56,9 @@ task getKawaChess(type: GitClone) {
|
||||||
}
|
}
|
||||||
|
|
||||||
task compileChessFiles(type: JavaExec) {
|
task compileChessFiles(type: JavaExec) {
|
||||||
def kawaImg = file('kawa-chess/img.scm')
|
workingDir = file('kawa-chess')
|
||||||
|
|
||||||
|
def kawaImg = file('kawa-chess/img.scm')
|
||||||
def kawaPos = file('kawa-chess/pos.scm')
|
def kawaPos = file('kawa-chess/pos.scm')
|
||||||
def kawaChess = file('kawa-chess/chess.scm')
|
def kawaChess = file('kawa-chess/chess.scm')
|
||||||
def kawaGui = file('kawa-chess/gui.scm')
|
def kawaGui = file('kawa-chess/gui.scm')
|
||||||
|
@ -69,8 +71,6 @@ task compileChessFiles(type: JavaExec) {
|
||||||
inputs.file kawaJar
|
inputs.file kawaJar
|
||||||
classpath kawaJar
|
classpath kawaJar
|
||||||
|
|
||||||
workingDir = file('kawa-chess')
|
|
||||||
|
|
||||||
main 'kawa.repl'
|
main 'kawa.repl'
|
||||||
args '-C', kawaImg, kawaPos, kawaChess, kawaGui
|
args '-C', kawaImg, kawaPos, kawaChess, kawaGui
|
||||||
}
|
}
|
||||||
|
@ -79,15 +79,15 @@ compileChessFiles.dependsOn extractKawa
|
||||||
compileChessFiles.dependsOn getKawaChess
|
compileChessFiles.dependsOn getKawaChess
|
||||||
|
|
||||||
task compileChessMain(type: JavaExec, dependsOn: compileChessFiles) {
|
task compileChessMain(type: JavaExec, dependsOn: compileChessFiles) {
|
||||||
|
workingDir = file("kawa-chess")
|
||||||
|
|
||||||
def kawaMain = file('kawa-chess/main.scm')
|
def kawaMain = file('kawa-chess/main.scm')
|
||||||
inputs.file kawaMain
|
inputs.file kawaMain
|
||||||
|
|
||||||
def kawaJar = new File("${projectDir}/kawa.jar")
|
def kawaJar = new File("kawa.jar")
|
||||||
inputs.file kawaJar
|
inputs.file kawaJar
|
||||||
classpath kawaJar
|
classpath kawaJar
|
||||||
|
|
||||||
workingDir = file('kawa-chess')
|
|
||||||
|
|
||||||
main 'kawa.repl'
|
main 'kawa.repl'
|
||||||
args '--main', '-C', kawaMain
|
args '--main', '-C', kawaMain
|
||||||
}
|
}
|
||||||
|
@ -109,9 +109,7 @@ task compileKawaTestMain(type: JavaExec, dependsOn: extractKawa) {
|
||||||
def kawaMain = file('kawasrc/test.scm')
|
def kawaMain = file('kawasrc/test.scm')
|
||||||
inputs.file kawaMain
|
inputs.file kawaMain
|
||||||
|
|
||||||
workingDir = file('kawasrc')
|
def kawaJar = new File("kawa.jar")
|
||||||
|
|
||||||
def kawaJar = new File("${projectDir}/kawa.jar")
|
|
||||||
inputs.file kawaJar
|
inputs.file kawaJar
|
||||||
classpath kawaJar
|
classpath kawaJar
|
||||||
|
|
||||||
|
|
|
@ -115,7 +115,9 @@
|
||||||
<target name="fetchKawa" depends="KawaPresent" unless="kawa.present">
|
<target name="fetchKawa" depends="KawaPresent" unless="kawa.present">
|
||||||
<delete dir="${temp.folder}"/>
|
<delete dir="${temp.folder}"/>
|
||||||
<mkdir dir="${temp.folder}"/>
|
<mkdir dir="${temp.folder}"/>
|
||||||
<get src="ftp://ftp.gnu.org/pub/gnu/kawa/kawa-latest.zip" dest="${temp.folder}/kawa.zip"/>
|
<exec executable="wget" dir="${temp.folder}">
|
||||||
|
<arg line="ftp://ftp.gnu.org/pub/gnu/kawa/kawa-latest.zip"/>
|
||||||
|
</exec>
|
||||||
<unzip src="${temp.folder}/kawa.zip" dest="${plugin.destination}"/>
|
<unzip src="${temp.folder}/kawa.zip" dest="${plugin.destination}"/>
|
||||||
<delete dir="${temp.folder}"/>
|
<delete dir="${temp.folder}"/>
|
||||||
</target>
|
</target>
|
||||||
|
|
|
@ -0,0 +1,11 @@
|
||||||
|
|
||||||
|
(define (doit op args)
|
||||||
|
(apply op args))
|
||||||
|
|
||||||
|
(define plusish
|
||||||
|
(lambda args
|
||||||
|
(if (= (length args) 1)
|
||||||
|
(car args)
|
||||||
|
(+ (car args) (plusish (cdr args))))))
|
||||||
|
|
||||||
|
(write (doit plusish (list 3 4 5)))
|
Loading…
Reference in New Issue