| 1 | /*************************************************************************/ |
| 2 | /* */ |
| 3 | /* Language Technologies Institute */ |
| 4 | /* Carnegie Mellon University */ |
| 5 | /* Copyright (c) 1999 */ |
| 6 | /* All Rights Reserved. */ |
| 7 | /* */ |
| 8 | /* Permission is hereby granted, free of charge, to use and distribute */ |
| 9 | /* this software and its documentation without restriction, including */ |
| 10 | /* without limitation the rights to use, copy, modify, merge, publish, */ |
| 11 | /* distribute, sublicense, and/or sell copies of this work, and to */ |
| 12 | /* permit persons to whom this work is furnished to do so, subject to */ |
| 13 | /* the following conditions: */ |
| 14 | /* 1. The code must retain the above copyright notice, this list of */ |
| 15 | /* conditions and the following disclaimer. */ |
| 16 | /* 2. Any modifications must be clearly marked as such. */ |
| 17 | /* 3. Original authors' names are not deleted. */ |
| 18 | /* 4. The authors' names are not used to endorse or promote products */ |
| 19 | /* derived from this software without specific prior written */ |
| 20 | /* permission. */ |
| 21 | /* */ |
| 22 | /* CARNEGIE MELLON UNIVERSITY AND THE CONTRIBUTORS TO THIS WORK */ |
| 23 | /* DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING */ |
| 24 | /* ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT */ |
| 25 | /* SHALL CARNEGIE MELLON UNIVERSITY NOR THE CONTRIBUTORS BE LIABLE */ |
| 26 | /* FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES */ |
| 27 | /* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN */ |
| 28 | /* AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, */ |
| 29 | /* ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF */ |
| 30 | /* THIS SOFTWARE. */ |
| 31 | /* */ |
| 32 | /*************************************************************************/ |
| 33 | /* Author: Alan W Black (awb@cs.cmu.edu) */ |
| 34 | /* Date: December 1999 */ |
| 35 | /*************************************************************************/ |
| 36 | /* */ |
| 37 | /* Macros for user defined type objects */ |
| 38 | /* */ |
| 39 | /*************************************************************************/ |
| 40 | #ifndef _CST_VAL_DEFS_H__ |
| 41 | #define _CST_VAL_DEFS_H__ |
| 42 | |
| 43 | #include <stdlib.h> |
| 44 | |
| 45 | /* Macro for defining new user structs as vals */ |
| 46 | #define CST_VAL_USER_TYPE_DCLS(NAME,TYPE) \ |
| 47 | extern const int cst_val_type_##NAME; \ |
| 48 | TYPE *val_##NAME(const cst_val *v); \ |
| 49 | cst_val *NAME##_val(const TYPE *v); |
| 50 | |
| 51 | #define CST_VAL_USER_FUNCPTR_DCLS(NAME,TYPE) \ |
| 52 | extern const int cst_val_type_##NAME; \ |
| 53 | TYPE val_##NAME(const cst_val *v); \ |
| 54 | cst_val *NAME##_val(const TYPE v); |
| 55 | |
| 56 | #define CST_VAL_REGISTER_TYPE(NAME,TYPE) \ |
| 57 | TYPE *val_##NAME(const cst_val *v) \ |
| 58 | { \ |
| 59 | return (TYPE *)val_generic(v,cst_val_type_##NAME,#NAME); \ |
| 60 | } \ |
| 61 | void val_delete_##NAME(void *v) \ |
| 62 | { \ |
| 63 | delete_##NAME((TYPE *)v); \ |
| 64 | } \ |
| 65 | \ |
| 66 | cst_val *NAME##_val(const TYPE *v) \ |
| 67 | { \ |
| 68 | return val_new_typed(cst_val_type_##NAME, \ |
| 69 | (void *)v); \ |
| 70 | } \ |
| 71 | |
| 72 | #define CST_VAL_REG_TD_TYPE(NAME,TYPE,NUM) \ |
| 73 | extern const int cst_val_type_##NAME; \ |
| 74 | const int cst_val_type_##NAME=NUM; \ |
| 75 | void val_delete_##NAME(void *v); \ |
| 76 | |
| 77 | /* When objects of this type can never be owned by vals */ |
| 78 | #define CST_VAL_REGISTER_TYPE_NODEL(NAME,TYPE) \ |
| 79 | TYPE *val_##NAME(const cst_val *v) \ |
| 80 | { \ |
| 81 | return (TYPE *)val_generic(v,cst_val_type_##NAME,#NAME); \ |
| 82 | } \ |
| 83 | \ |
| 84 | cst_val *NAME##_val(const TYPE *v) \ |
| 85 | { \ |
| 86 | return val_new_typed(cst_val_type_##NAME, \ |
| 87 | (void *)v); \ |
| 88 | } \ |
| 89 | |
| 90 | #define CST_VAL_REG_TD_TYPE_NODEL(NAME,TYPE,NUM) \ |
| 91 | extern const int cst_val_type_##NAME; \ |
| 92 | const int cst_val_type_##NAME=NUM; \ |
| 93 | void val_delete_##NAME(void *v) { (void)v; } \ |
| 94 | |
| 95 | #define CST_VAL_REGISTER_FUNCPTR(NAME,TYPE) \ |
| 96 | TYPE val_##NAME(const cst_val *v) \ |
| 97 | { \ |
| 98 | return (TYPE)val_generic(v,cst_val_type_##NAME,#NAME); \ |
| 99 | } \ |
| 100 | \ |
| 101 | cst_val *NAME##_val(const TYPE v) \ |
| 102 | { \ |
| 103 | return val_new_typed(cst_val_type_##NAME, \ |
| 104 | (void *)v); \ |
| 105 | } \ |
| 106 | |
| 107 | #define CST_VAL_REG_TD_FUNCPTR(NAME,TYPE,NUM) \ |
| 108 | extern const int cst_val_type_##NAME; \ |
| 109 | const int cst_val_type_##NAME=NUM; \ |
| 110 | void val_delete_##NAME(void *v) { (void)v; } \ |
| 111 | |
| 112 | #endif |
| 113 | |