1 /* -*-C-*- 2 3 Copyright (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 8 This file is part of MIT/GNU Scheme. 9 10 MIT/GNU Scheme is free software; you can redistribute it and/or modify 11 it under the terms of the GNU General Public License as published by 12 the Free Software Foundation; either version 2 of the License, or (at 13 your option) any later version. 14 15 MIT/GNU Scheme is distributed in the hope that it will be useful, but 16 WITHOUT ANY WARRANTY; without even the implied warranty of 17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 General Public License for more details. 19 20 You should have received a copy of the GNU General Public License 21 along with MIT/GNU Scheme; if not, write to the Free Software 22 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, 23 USA. 24 25 */ 26 27 /* Definitions of aliases for primitives. */ 28 29 #ifndef SCM_PRENAME_H 30 #define SCM_PRENAME_H 31 32 struct primitive_alias_s 33 { 34 const char * alias; 35 const char * name; 36 }; 37 38 static struct primitive_alias_s primitive_aliases [] = 39 { 40 { "FALSE?", "NOT" }, 41 { "PRIMITIVE-TYPE", "OBJECT-TYPE" }, 42 { "PRIMITIVE-TYPE?", "OBJECT-TYPE?" }, 43 { "&MAKE-OBJECT", "PRIMITIVE-OBJECT-SET-TYPE" }, 44 { "SYSTEM-MEMORY-REF", "PRIMITIVE-OBJECT-REF" }, 45 { "PRIMITIVE-OBJECT-NEW-TYPE", "PRIMITIVE-OBJECT-SET-TYPE" }, 46 { "FILE-CLOSE-CHANNEL", "CHANNEL-CLOSE" }, 47 { "GET-NEXT-INTERRUPT-CHARACTER", "TTY-NEXT-INTERRUPT-CHAR" }, 48 { "REMOVE-FILE", "FILE-REMOVE" }, 49 { "RENAME-FILE", "FILE-RENAME" }, 50 { "COPY-FILE", "FILE-COPY" }, 51 { "MAKE-DIRECTORY", "DIRECTORY-MAKE" }, 52 { "SCREEN-X-SIZE", "TTY-X-SIZE" }, 53 { "SCREEN-Y-SIZE", "TTY-Y-SIZE" }, 54 { "FILE-SYMLINK?", "FILE-SOFT-LINK?" }, 55 { "X-GRAPHICS-SET-CLASS-HINT", "X-WINDOW-SET-CLASS-HINT" }, 56 { "CURRENT-FILE-TIME", "ENCODED-TIME" } 57 }; 58 59 #define N_PRIMITIVE_ALIASES \ 60 ((sizeof (primitive_aliases)) / (sizeof (struct primitive_alias_s))) 61 62 #endif /* SCM_PRENAME_H */ 63