Megatest

all : c

%.o : %.scm
	csc -J -c $< -o $*.o

c.o : a.o

c : c.o a.o
	csc a.o c.o -o c

(declare (unit a))

(module a
  *

  (import scheme chicken posix)
  
  (define (a:normalize-dir d)
    (if (and (file-exists? d)
	     (directory? d))
	(let ((curr (current-directory)))
	  (change-directory d)
	  (let ((nd (current-directory)))
	    (change-directory curr)
	    nd))
	d))

  )



	 

(declare (uses a))

;; pretend to be a config file processor
(use posix srfi-69)

;; (define getenv get-environment-variable)
(define (print-hash-table ht)
  (print "ht=")
  (pp (hash-table->alist ht)))

(define cfgdata  (conc "(use simple-md5)"
		       "(import a)"
		       "(set! getenv get-environment-variable)"
		       "(hash-table-set! ht \"PATH\" (getenv \"PATH\"))"
		       "(hash-table-set! ht \"currdir\" (current-directory))"
		       "(hash-table-set! ht \"md5sum\" (string->md5sum \"Hello\"))"
		       ;; in mtconfigf the below is not working
		       "(hash-table-set! ht \"var-tmp\" (a:normalize-dir \"/var/tmp\"))"))

(define (faux-cfg-processor ht cfgdata)
  (let* ((proc-str (conc "(lambda (ht)" cfgdata ")")))
    (with-input-from-string proc-str
      (lambda ()
	((eval (read)) ht)))))

(module cfgprocessor
	*

(import ports data-structures chicken scheme files srfi-69 posix srfi-1)
	
(define (faux-cfg-processor-modularized ht cfgdata)
  (let* ((proc-str (conc "(lambda (ht)" cfgdata ")")))
    (with-input-from-string proc-str
      (lambda ()
	((eval (read)) ht)))))
)

(import cfgprocessor)
(import a)

(print "\nCan I run stuff from module \"a\":")
(print (a:normalize-dir "/var/tmp"))

(print "\nRun the non-modularized version")
(let ((ht (make-hash-table)))
  (faux-cfg-processor ht cfgdata)
  (print-hash-table ht))

(print "\nRun the modularized version")
(let ((ht (make-hash-table)))
  (faux-cfg-processor-modularized ht cfgdata)
  (print-hash-table ht))

#!/bin/bash

# fossil timeline -n 0 -F %t|sort -u|grep -P '^v\d.\d\d\d\d$'

ALLVERS=$(fossil timeline -n 0 -F %t|sed -e 's/, /\n/'|sort -u|grep -P '^v\d.[67890]\d\d\d$')

PUBLISHVERS="\
	   v1.6592 \
	   v1.7016 \
	   v1.7105 \
	   v1.8032 \
	   v1.8104 \
	   v2.0001"
    
for x in $PUBLISHVERS;do
    ./utils/tarver.sh $x
done

#!/bin/bash

VERSION=$1

if [[ -z $VERSION ]];then
    echo "Usage: tarver.sh [version]"
    exit 1
fi

dbf=$(fossil info|grep repository:|awk '{print $2}')

mkdir -p /tmp/$USER/mtbuild

pushd /tmp/$USER/mtbuild

if [[ -e $VERSION ]];then
    echo "Cleaning out old /tmp copy of Megatest $VERSION"
    rm -rf /tmp/$USER/mtbuild/$VERSION
fi

mkdir -p /tmp/$USER/mtbuild/$VERSION
cd /tmp/$USER/mtbuild/$VERSION

fossil open $dbf $VERSION

make megatest-fossil-hash.scm

cp .fslckout ../.fslckout-$VERSION
rm .fslckout
cd ..

tar cfvz megatest-$VERSION.tar.gz $VERSION
popd

cp /tmp/$USER/mtbuild/megatest-$VERSION.tar.gz .
fossil uv add megatest-$VERSION.tar.gz
rm megatest-$VERSION.tar.gz