1@echo off
2
3rem Part of Scheme 48 1.9.  See file COPYING for notices and license.
4rem
5rem Authors: Richard Kelsey, Jonathan Rees, Mike Sperber
6rem
7
8set runnable="%~1"
9
10echo ,bench > generate-c-header.input
11echo ,batch >> generate-c-header.input
12echo ,load-package big-scheme >> generate-c-header.input
13echo ,open big-scheme >> generate-c-header.input
14echo ,load scheme/link/generate-c-header.scm >> generate-c-header.input
15echo (make-c-header-file "c/scheme48.h"	>> generate-c-header.input
16echo			 "c/scheme48.h.in" >> generate-c-header.input
17echo			 "scheme/vm/interp/arch.scm" >> generate-c-header.input
18echo			 "scheme/vm/data/data.scm" >> generate-c-header.input
19echo			 "scheme/rts/record.scm") >> generate-c-header.input
20
21%runnable% < generate-c-header.input
22