source: trunk/ccl/lisp-kernel/lisptypes.h @ 6

Last change on this file since 6 was 6, checked in by gb, 16 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1/*
2   Copyright (C) 1994-2001 Digitool, Inc
3   This file is part of OpenMCL. 
4
5   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
6   License , known as the LLGPL and distributed with OpenMCL as the
7   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
8   which is distributed with OpenMCL as the file "LGPL".  Where these
9   conflict, the preamble takes precedence. 
10
11   OpenMCL is referenced in the preamble as the "LIBRARY."
12
13   The LLGPL is also available online at
14   http://opensource.franz.com/preamble.html
15*/
16
17#ifndef __lisptypes__
18#define __lisptypes__
19
20typedef unsigned LispObj;
21
22typedef struct ucontext ExceptionInformation, ExceptionInformationPowerPC;
23
24typedef char *BytePtr;
25typedef int OSStatus, OSErr;
26#define noErr ((OSErr) 0)
27typedef int Boolean;
28typedef void *LogicalAddress;
29typedef char *StringPtr;
30typedef char *Ptr;
31typedef unsigned int UInt32;
32typedef union {
33  unsigned short halfword;
34  struct {
35    unsigned short offset:14;
36    unsigned short hasnode:1;
37    unsigned short modified:1;
38  } bits;
39} pageentry;
40
41
42#define true 1
43#define false 0
44
45#ifdef DARWIN
46typedef void (*__sighandler_t)(int);
47#endif
48#endif /*__lisptypes__ */
Note: See TracBrowser for help on using the repository browser.