Bump version. Prepare for snow-indexing

.gitignore

@@ -29,3 +29,4 @@ tmp
 test-program
 *.test
 *.test1
+!.snow-repo.scm

Makefile

@@ -1,58 +1,44 @@
-.SILENT:
+.DEFAULT: all
+.POSIX:
 SCHEME=chibi
-DOCKER_TAG=latest
-RNRS=r7rs
+VERSION=$$(cat retropikzel/${LIBRARY}/VERSION)
+PKG=retropikzel-${LIBRARY}-${VERSION}.tgz
 LIBRARY=system
 AUTHOR=Retropikzel
+DOCKER_TAG=latest
 
-VERSION != cat retropikzel/${LIBRARY}/VERSION
-PACKAGE_ARGS != cat retropikzel/${LIBRARY}/PACKAGE_ARGS 2> /dev/null || echo ""
-CSC_OPTIONS != cat retropikzel/${LIBRARY}/CSC_OPTIONS 2> /dev/null || echo ""
-APT_PACKAGES != cat retropikzel/${LIBRARY}/APT_PACKAGES 2> /dev/null || echo ""
 
-LIBRARY_FILE=retropikzel/${LIBRARY}.sld
-DESCRIPTION != head -n1 retropikzel/${LIBRARY}/README.md
-README=retropikzel/${LIBRARY}/README.html
+PACKAGE_ARGS=$$(cat retropikzel/${LIBRARY}/PACKAGE_ARGS 2> /dev/null || echo "")
+CSC_OPTIONS=$$(cat retropikzel/${LIBRARY}/CSC_OPTIONS 2> /dev/null || echo "")
+APT_PACKAGES=$$(cat retropikzel/${LIBRARY}/APT_PACKAGES 2> /dev/null || echo "")
+
 TESTFILE=retropikzel/${LIBRARY}/test.scm
 
-PKG=retropikzel-${LIBRARY}-${VERSION}.tgz
-
-ifeq "${SCHEME}" "capyscheme"
-DOCKER_TAG=head
-endif
-ifeq "${SCHEME}" "chibi"
-DOCKER_TAG=head
-endif
-ifeq "${SCHEME}" "chicken"
-DOCKER_TAG=head
-endif
-ifeq "${SCHEME}" "gauche"
-DOCKER_TAG=head
-endif
 
 all: package
 
 package: retropikzel/${LIBRARY}/VERSION retropikzel/${LIBRARY}/README.md retropikzel/${LIBRARY}/LICENSE
-	echo "<pre>$$(cat retropikzel/${LIBRARY}/README.md)</pre>" > ${README}
 	snow-chibi package \
 		--always-yes \
 		${PACKAGE_ARGS} \
-		--version=${VERSION} \
-		--authors=${AUTHOR} \
-		--doc=${README} \
-		--description="${DESCRIPTION}" \
-		${LIBRARY_FILE}
+		--version="${VERSION}" \
+		--authors="${AUTHOR}" \
+		--doc="retropikzel/${LIBRARY}/README.md" \
+		--test="retropikzel/${LIBRARY}/test.scm" \
+		--description="$$(head -n1 retropikzel/${LIBRARY}/README.md)" \
+		retropikzel/${LIBRARY}.sld
 
-${PKG}: package
+git-index: package
+	snow-chibi git-index ${PKG}
 
 install:
-	snow-chibi install --impls=${SCHEME} --always-yes ${PKG}
+	snow-chibi install --impls=${SCHEME} --skip-tests?=1 ${PKG}
 
 test:
 	rm -rf test-program
 	COMPILE_R7RS=${SCHEME} \
 	CSC_OPTIONS="${CSC_OPTIONS}" \
-	compile-r7rs -o test-program ${TESTFILE}
+		compile-r7rs -o test-program ${TESTFILE}
 	./test-program
 
 test-docker:

retropikzel/scsh/portable.scm

@@ -495,7 +495,8 @@
 
     (apply read-delimited (cons (string #\newline) args))))
 
-#| TODO
+;; IN PROGRESS
+#|
 (define read-paragraph
   (lambda args
 
@@ -518,6 +519,13 @@
                  (cond ((and (eof-object? line) (null? result)) line)
                        ((and (not skipped-blank-lines?) (string=? line ""))
                         (looper (read-line port handle-delim)))
+                       ((and (not (string=? line ""))
+                             (equal handle-delim 'trim))
+                        (set! result line result))
+                       ((and (not (string=? line ""))
+                             (equal handle-delim 'concat))
+                        (set! result (string-append line "\n") result))
+
 
 
     ))

retropikzel/scsh/test.scm

@@ -523,4 +523,14 @@
 (test-end "read-line")
 
 
+#| IN PROGRESS
+(test-begin "read-paragraph")
+(test-equal "foo" (read-line (open-input-string "foo\n\nbar\n\nbaz\n\n")))
+(test-equal "foo" (read-line (open-input-string "foo\n\nbar\n\nbaz\n\n")))
+(test-equal "foo" (read-line (open-input-string "foo\n\nbar\n\nbaz\n\n") 'trim))
+(test-equal "foo\n" (read-line (open-input-string "foo\n\nbar\n\nbaz\n\n") 'concat))
+(test-end "read-paragraph")
+|#
+
+
 (test-end "scsh")

retropikzel/system/VERSION

@@ -1 +1 @@
-1.1.5
+1.1.6

retropikzel/system/test.scm

@@ -1,3 +1,11 @@
+(import (scheme base)
+        (scheme write)
+        (scheme file)
+        (retropikzel system)
+        (retropikzel tap)
+        (srfi 64))
+
+(test-runner-current (tap-runner))
 
 (test-begin "foreign-c-system")