From: Matt Birkholz Date: Fri, 1 Jun 2018 20:45:13 +0000 (-0700) Subject: plugins: Copy .crf reports into the build log. X-Git-Tag: mit-scheme-pucked-x11-0.3.1~6^2~20 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=59404acfd4f9393c637ca05d71e00349f7c1a73b;p=mit-scheme.git plugins: Copy .crf reports into the build log. --- diff --git a/src/blowfish/Makefile.am b/src/blowfish/Makefile.am index db32c20b7..17f37cf84 100644 --- a/src/blowfish/Makefile.am +++ b/src/blowfish/Makefile.am @@ -71,9 +71,7 @@ blowfish-const.scm: blowfish-const @MIT_SCHEME_DEPS@ stamp-scheme: stamp-shim $(sources) blowfish.pkg touch stamp-scheme - if ! echo '(load "compile.scm")' \ - | $(MIT_SCHEME_EXE) --prepend-library . --batch-mode; then \ - rm stamp-scheme; exit 1; fi + if ! ./compile.sh; then rm stamp-scheme; exit 1; fi CLEANFILES = blowfish-const* blowfish-shim.c CLEANFILES += *.bin *.ext *.com *.bci *.moc *.fni *.crf *.fre *.pkd diff --git a/src/blowfish/compile.sh b/src/blowfish/compile.sh new file mode 100755 index 000000000..6b5f9d9df --- /dev/null +++ b/src/blowfish/compile.sh @@ -0,0 +1,40 @@ +#!/bin/sh +# -*-Scheme-*- +# +# Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, +# 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +# 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, +# 2015, 2016, 2017 Massachusetts Institute of Technology +# +# This file is part of a Blowfish plugin for MIT/GNU Scheme. +# +# This plugin is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This plugin is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this plugin; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA +# 02110-1301, USA. + +# Compile the Blowfish option. + +set -e +: ${MIT_SCHEME_EXE=mit-scheme} +${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF +(load "compile.scm") +EOF +suffix=`echo "(display (microcode-id/operating-system-suffix))" \ + | ${MIT_SCHEME_EXE} --batch-mode` +report=blowfish-$suffix.crf +if [ -s "$report" ]; then + echo "$0: warning: $report is not empty" + awk "{printf \"$report:%d: %s\\n\",NR,\$0}" $report + exit 1 +fi diff --git a/src/gdbm/Makefile.am b/src/gdbm/Makefile.am index 41dbc370c..20b01cd9e 100644 --- a/src/gdbm/Makefile.am +++ b/src/gdbm/Makefile.am @@ -71,9 +71,7 @@ gdbm-const.scm: gdbm-const @MIT_SCHEME_DEPS@ stamp-scheme: stamp-shim $(sources) gdbm.pkg touch stamp-scheme - if ! echo '(load "compile.scm")' \ - | $(MIT_SCHEME_EXE) --prepend-library . --batch-mode; then \ - rm stamp-scheme; exit 1; fi + if ! ./compile.sh; then rm stamp-scheme; exit 1; fi CLEANFILES = gdbm-const* gdbm-shim.c CLEANFILES += *.bin *.ext *.com *.bci *.moc *.fni *.crf *.fre *.pkd diff --git a/src/gdbm/compile.sh b/src/gdbm/compile.sh new file mode 100755 index 000000000..04df7ca99 --- /dev/null +++ b/src/gdbm/compile.sh @@ -0,0 +1,40 @@ +#!/bin/sh +# -*-Scheme-*- +# +# Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, +# 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +# 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, +# 2015, 2016, 2017 Massachusetts Institute of Technology +# +# This file is part of a gdbm plugin for MIT/GNU Scheme. +# +# This plugin is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This plugin is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this plugin; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA +# 02110-1301, USA. + +# Compile the GDBM option. + +set -e +: ${MIT_SCHEME_EXE=mit-scheme} +${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF +(load "compile.scm") +EOF +suffix=`echo "(display (microcode-id/operating-system-suffix))" \ + | ${MIT_SCHEME_EXE} --batch-mode` +report=gdbm-$suffix.crf +if [ -s "$report" ]; then + echo "$0: warning: $report is not empty" + awk "{printf \"$report:%d: %s\\n\",NR,\$0}" $report + exit 1 +fi diff --git a/src/mcrypt/Makefile.am b/src/mcrypt/Makefile.am index c6e48ee25..d891d6a35 100644 --- a/src/mcrypt/Makefile.am +++ b/src/mcrypt/Makefile.am @@ -71,9 +71,7 @@ mcrypt-const.scm: mcrypt-const @MIT_SCHEME_DEPS@ stamp-scheme: stamp-shim $(sources) mcrypt.pkg touch stamp-scheme - if ! echo '(load "compile.scm")' \ - | $(MIT_SCHEME_EXE) --prepend-library . --batch-mode; then \ - rm stamp-scheme; exit 1; fi + if ! ./compile.sh; then rm stamp-scheme; exit 1; fi CLEANFILES = mcrypt-const* mcrypt-shim.c CLEANFILES += *.bin *.ext *.com *.bci *.moc *.fni *.crf *.fre *.pkd diff --git a/src/mcrypt/compile.sh b/src/mcrypt/compile.sh new file mode 100755 index 000000000..20003883d --- /dev/null +++ b/src/mcrypt/compile.sh @@ -0,0 +1,40 @@ +#!/bin/sh +# -*-Scheme-*- +# +# Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, +# 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +# 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, +# 2015, 2016, 2017 Massachusetts Institute of Technology +# +# This file is part of a mcrypt plugin for MIT/GNU Scheme. +# +# This plugin is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This plugin is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this plugin; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA +# 02110-1301, USA. + +# Compile the Mcrypt option. + +set -e +: ${MIT_SCHEME_EXE=mit-scheme} +${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF +(load "compile.scm") +EOF +suffix=`echo "(display (microcode-id/operating-system-suffix))" \ + | ${MIT_SCHEME_EXE} --batch-mode` +report=mcrypt-$suffix.crf +if [ -s "$report" ]; then + echo "$0: warning: $report is not empty" + awk "{printf \"$report:%d: %s\\n\",NR,\$0}" $report + exit 1 +fi diff --git a/src/mhash/Makefile.am b/src/mhash/Makefile.am index 9f81193cb..5f5245787 100644 --- a/src/mhash/Makefile.am +++ b/src/mhash/Makefile.am @@ -71,9 +71,7 @@ mhash-const.scm: mhash-const @MIT_SCHEME_DEPS@ stamp-scheme: stamp-shim $(sources) mhash.pkg touch stamp-scheme - if ! echo '(load "compile.scm")' \ - | $(MIT_SCHEME_EXE) --prepend-library . --batch-mode; then \ - rm stamp-scheme; exit 1; fi + if ! ./compile.sh; then rm stamp-scheme; exit 1; fi CLEANFILES = mhash-const* mhash-shim.c CLEANFILES += *.bin *.ext *.com *.bci *.moc *.fni *.crf *.fre *.pkd diff --git a/src/mhash/compile.sh b/src/mhash/compile.sh new file mode 100755 index 000000000..a83758aad --- /dev/null +++ b/src/mhash/compile.sh @@ -0,0 +1,40 @@ +#!/bin/sh +# -*-Scheme-*- +# +# Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, +# 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +# 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, +# 2015, 2016, 2017 Massachusetts Institute of Technology +# +# This file is part of a mhash plugin for MIT/GNU Scheme. +# +# This plugin is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This plugin is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this plugin; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA +# 02110-1301, USA. + +# Compile the Mhash option. + +set -e +: ${MIT_SCHEME_EXE=mit-scheme} +${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF +(load "compile.scm") +EOF +suffix=`echo "(display (microcode-id/operating-system-suffix))" \ + | ${MIT_SCHEME_EXE} --batch-mode` +report=mhash-$suffix.crf +if [ -s "$report" ]; then + echo "$0: warning: $report is not empty" + awk "{printf \"$report:%d: %s\\n\",NR,\$0}" $report + exit 1 +fi diff --git a/src/pgsql/Makefile.am b/src/pgsql/Makefile.am index 267f6a33c..06c500ea2 100644 --- a/src/pgsql/Makefile.am +++ b/src/pgsql/Makefile.am @@ -71,9 +71,7 @@ pgsql-const.scm: pgsql-const @MIT_SCHEME_DEPS@ stamp-scheme: stamp-shim $(sources) pgsql.pkg touch stamp-scheme - if ! echo '(load "compile.scm")' \ - | $(MIT_SCHEME_EXE) --prepend-library . --batch-mode; then \ - rm stamp-scheme; exit 1; fi + if ! ./compile.sh; then rm stamp-scheme; exit 1; fi CLEANFILES = pgsql-const* pgsql-shim.c CLEANFILES += *.bin *.ext *.com *.bci *.moc *.fni *.crf *.fre *.pkd diff --git a/src/pgsql/compile.sh b/src/pgsql/compile.sh new file mode 100755 index 000000000..c6abb7523 --- /dev/null +++ b/src/pgsql/compile.sh @@ -0,0 +1,40 @@ +#!/bin/sh +# -*-Scheme-*- +# +# Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, +# 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +# 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, +# 2015, 2016, 2017 Massachusetts Institute of Technology +# +# This file is part of a PostgreSQL plugin for MIT/GNU Scheme. +# +# This plugin is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This plugin is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this plugin; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA +# 02110-1301, USA. + +# Compile the PostgreSQL option. + +set -e +: ${MIT_SCHEME_EXE=mit-scheme} +${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF +(load "compile.scm") +EOF +suffix=`echo "(display (microcode-id/operating-system-suffix))" \ + | ${MIT_SCHEME_EXE} --batch-mode` +report=pgsql-$suffix.crf +if [ -s "$report" ]; then + echo "$0: warning: $report is not empty" + awk "{printf \"$report:%d: %s\\n\",NR,\$0}" $report + exit 1 +fi diff --git a/src/x11-screen/compile.sh b/src/x11-screen/compile.sh index 40381c41e..775ab8586 100755 --- a/src/x11-screen/compile.sh +++ b/src/x11-screen/compile.sh @@ -49,7 +49,11 @@ ${MIT_SCHEME_EXE} --batch-mode <<\EOF (cref/generate-constructors "x11-screen") ) EOF -SUFFIX=`echo "(display (microcode-id/operating-system-suffix))" \ +suffix=`echo "(display (microcode-id/operating-system-suffix))" \ | ${MIT_SCHEME_EXE} --batch-mode` -REPORT=x11-screen-$SUFFIX.crf -if [ -s "$REPORT" ]; then echo "$REPORT:1: error: not empty"; exit 1; fi +report=x11-screen-$suffix.crf +if [ -s "$report" ]; then + echo "$0: warning: $report is not empty" + awk "{printf \"$report:%d: %s\\n\",NR,\$0}" $report + exit 1 +fi diff --git a/src/x11/compile.sh b/src/x11/compile.sh index e50bf9ab8..ed575d1d3 100755 --- a/src/x11/compile.sh +++ b/src/x11/compile.sh @@ -43,7 +43,11 @@ ${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF (cref/generate-constructors "x11") ) EOF -SUFFIX=`echo "(display (microcode-id/operating-system-suffix))" \ +suffix=`echo "(display (microcode-id/operating-system-suffix))" \ | ${MIT_SCHEME_EXE} --batch-mode` -REPORT=x11-$SUFFIX.crf -if [ -s "$REPORT" ]; then echo "$REPORT:1: error: not empty"; exit 1; fi +report=x11-$suffix.crf +if [ -s "$report" ]; then + echo "$0: warning: $report is not empty" + awk "{printf \"$report:%d: %s\\n\",NR,\$0}" $report + exit 1 +fi