| Révision | 6945579850876a49acbc8c0051d83be1ba33404c (tree) |
|---|---|
| l'heure | 2018-03-15 14:16:23 |
| Auteur | Agustina Arzille <avarzille@rise...> |
| Commiter | Agustina Arzille |
Add the macro expansion interfaces
builtins.cpp (diff)| @@ -1125,6 +1125,22 @@ | ||
| 1125 | 1125 | qp_return (QP_S(t)); |
| 1126 | 1126 | } |
| 1127 | 1127 | |
| 1128 | +DEFBUILTIN (macroexp_1_fct) | |
| 1129 | +{ | |
| 1130 | + if (argc != 1) | |
| 1131 | + interp->raise_nargs ("macroexp-1", 1, 1, argc); | |
| 1132 | + | |
| 1133 | + qp_return (macroexp_1 (interp, *argv)); | |
| 1134 | +} | |
| 1135 | + | |
| 1136 | +DEFBUILTIN (macroexp_fct) | |
| 1137 | +{ | |
| 1138 | + if (argc != 1) | |
| 1139 | + interp->raise_nargs ("macroexp", 1, 1, argc); | |
| 1140 | + | |
| 1141 | + qp_return (macroexp (interp, *argv)); | |
| 1142 | +} | |
| 1143 | + | |
| 1128 | 1144 | // Names for the builtins. |
| 1129 | 1145 | static const char BUILTIN_NAMES[] = |
| 1130 | 1146 | "%make-exception\0" |
| @@ -1160,6 +1176,8 @@ | ||
| 1160 | 1176 | "nconcat\0" |
| 1161 | 1177 | "nrevconc\0" |
| 1162 | 1178 | "load\0" |
| 1179 | + "macroexp-1\0" | |
| 1180 | + "macroexp\0" | |
| 1163 | 1181 | ; |
| 1164 | 1182 | |
| 1165 | 1183 | // List of builtins. |
| @@ -1201,7 +1219,9 @@ | ||
| 1201 | 1219 | concat_fct, |
| 1202 | 1220 | nconcat, |
| 1203 | 1221 | nrevconc_fct, |
| 1204 | - load_fct | |
| 1222 | + load_fct, | |
| 1223 | + macroexp_1_fct, | |
| 1224 | + macroexp_fct | |
| 1205 | 1225 | }; |
| 1206 | 1226 | |
| 1207 | 1227 | static native_function global_builtins[QP_NELEM (BUILTINS)]; |
Fork