1#| -*-Scheme-*- 2 3Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 4 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 5 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014 Massachusetts 6 Institute of Technology 7 8This file is part of MIT/GNU Scheme. 9 10MIT/GNU Scheme is free software; you can redistribute it and/or modify 11it under the terms of the GNU General Public License as published by 12the Free Software Foundation; either version 2 of the License, or (at 13your option) any later version. 14 15MIT/GNU Scheme is distributed in the hope that it will be useful, but 16WITHOUT ANY WARRANTY; without even the implied warranty of 17MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18General Public License for more details. 19 20You should have received a copy of the GNU General Public License 21along with MIT/GNU Scheme; if not, write to the Free Software 22Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, 23USA. 24 25|# 26 27(global-definitions runtime/) 28 29(define-package (blowfish) 30 (files "blowfish") 31 (parent ()) 32 ;; You'll have to import these from (global-definitions blowfish/). 33 ;; They are currently bound in () by exports from (runtime blowfish). 34 #;(export #f 35 blowfish-available? 36 blowfish-cbc 37 blowfish-cfb64 38 blowfish-ecb 39 blowfish-encrypt-port 40 blowfish-file? 41 blowfish-ofb64 42 blowfish-set-key 43 compute-blowfish-init-vector 44 read-blowfish-file-header 45 write-blowfish-file-header))