1 /* record.h -*- mode:c; coding:utf-8; -*- 2 * 3 * Copyright (c) 2010-2021 Takashi Kato <ktakashi@ymail.com> 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 17 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 18 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 19 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 20 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 21 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 22 * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 23 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 24 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 25 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 26 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 27 * 28 * $Id: $ 29 */ 30 #ifndef SAGITTARIUS_PRIVATE_RECORD_H_ 31 #define SAGITTARIUS_PRIVATE_RECORD_H_ 32 33 #include "sagittariusdefs.h" 34 #include "clos.h" 35 36 /* 37 R6RS record 38 39 Class hierarchy and structure; 40 <class> 41 +- <record-type-meta> 42 * rtd: <record-type-descriptor> 43 * rcd: <record-constructor-descriptor> 44 45 On C code, it's just meta class so that we can define conditions in C. 46 The initialisation of the conditions and it's class are done in Scheme. 47 All other code are defined in Scheme. 48 */ 49 50 SG_CLASS_DECL(Sg_RecordTypeMetaClass); 51 52 #define SG_CLASS_RECORD_TYPE_META (&Sg_RecordTypeMetaClass) 53 /* this is only for mark.. */ 54 typedef SgClass SgRecordTypeMeta; 55 56 #define SG_RECORD_TYPE_META(obj) ((SgRecordTypeMeta*)obj) 57 #define SG_RECORD_TYPE_METAP(obj) SG_XTYPEP(obj, SG_CLASS_RECORD_TYPE_META) 58 59 SG_CDECL_BEGIN 60 61 SG_EXTERN int Sg_RecordP(SgObject o); 62 SG_EXTERN SgObject Sg_AllocateRecordTypeMeta(SgClass *klass, SgObject initargs); 63 64 SG_CDECL_END 65 66 #endif /* SAGITTARIUS_RECORD_H_ */ 67 /* 68 end of file 69 Local Variables: 70 coding: utf-8-unix 71 End: 72 */ 73