Răzvan Rotaru avatar Răzvan Rotaru committed 579826d

Added build.bat.
Patched setup-api.scm for windows path bug.

Comments (0)

Files changed (2)

+@echo off
+
+setlocal
+
+set BUILD_DIR=%~dp0
+
+rem TODO make path change local to script
+set PATH=%PATH%;%BUILD_DIR%mingw\bin
+
+echo %PATH%
+
+cd %BUILD_DIR%chicken-src
+
+mingw32-make PLATFORM=mingw PREFIX=c:/chicken
+
+rem TODO check for error
+
+mingw32-make PLATFORM=mingw PREFIX=c:/chicken install
+
+rem TODO check for error
+
+rem copy to BUILD_DIR

chicken-src/setup-api.scm

       (foreign-value "C_INSTALL_PREFIX" c-string)))
 
 (define (shellpath str)
-  (qs (normalize-pathname str)))
+  (let ((np (normalize-pathname str)))
+    (if (and *windows* (equal? (string-ref str 0) #\") (equal? (string-ref str (- (string-length str) 1)) #\"))
+      np
+      (qs np))))
 
 (define *csc-options* '())
 (define *base-directory* (current-directory))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.