| 176 | } |
| 177 | |
| 178 | void fxCheckAliasesError(txMachine* the, txAliasIDList* list, txFlag flag) |
| 179 | { |
| 180 | txAliasIDLink* link = list->first; |
| 181 | if (flag > 1) |
| 182 | fprintf(stderr, "### error"); |
| 183 | else |
| 184 | fprintf(stderr, "### warning"); |
| 185 | while (link) { |
| 186 | switch (link->flag) { |
| 187 | case XSL_PROPERTY_FLAG: fprintf(stderr, "."); break; |
| 188 | case XSL_ITEM_FLAG: fprintf(stderr, "["); break; |
| 189 | case XSL_GETTER_FLAG: fprintf(stderr, ".get "); break; |
| 190 | case XSL_SETTER_FLAG: fprintf(stderr, ".set "); break; |
| 191 | case XSL_ENVIRONMENT_FLAG: fprintf(stderr, "() "); break; |
| 192 | case XSL_PROXY_HANDLER_FLAG: fprintf(stderr, ".(handler)"); break; |
| 193 | case XSL_PROXY_TARGET_FLAG: fprintf(stderr, ".(target)"); break; |
| 194 | default: fprintf(stderr, ": "); break; |
| 195 | } |
| 196 | if (link->flag == XSL_ITEM_FLAG) { |
| 197 | fprintf(stderr, "%d", link->id); |
| 198 | fprintf(stderr, "]"); |
| 199 | } |
| 200 | else if (link->id != XS_NO_ID) { |
| 201 | char* string = fxGetKeyName(the, link->id); |
| 202 | if (string) { |
| 203 | if (link->flag == XSL_GLOBAL_FLAG) { |
| 204 | fprintf(stderr, "globalThis."); |
| 205 | fprintf(stderr, "%s", string); |
| 206 | } |
| 207 | else |
| 208 | fprintf(stderr, "%s", string); |
| 209 | } |
| 210 | else |
| 211 | fprintf(stderr, "%d", link->id); |
| 212 | } |
| 213 | else |
| 214 | fprintf(stderr, "%d", link->id); |
| 215 | link = link->next; |
| 216 | } |
| 217 | if (flag == 3) { |
| 218 | fprintf(stderr, ": generator\n"); |
| 219 | list->errorCount++; |
| 220 | } |
| 221 | else if (flag == 2) { |
| 222 | fprintf(stderr, ": regexp\n"); |
| 223 | list->errorCount++; |
| 224 | } |
| 225 | else if (flag) |
| 226 | fprintf(stderr, ": not frozen\n"); |
| 227 | else |
| 228 | fprintf(stderr, ": no const\n"); |
| 229 | } |
| 230 | |
| 231 | void fxCheckEnvironmentAliases(txMachine* the, txSlot* environment, txAliasIDList* list) |
| 232 | { |
no test coverage detected