** Check whether message is a control message. If so, execute the ** control or ignore it if unknown. */
| 1064 | ** control or ignore it if unknown. |
| 1065 | */ |
| 1066 | static int checkcontrol (lua_State *L, const char *message, int tocont) { |
| 1067 | if (tocont || *(message++) != '@') /* not a control message? */ |
| 1068 | return 0; |
| 1069 | else { |
| 1070 | if (strcmp(message, "off") == 0) |
| 1071 | lua_setwarnf(L, warnfoff, L); /* turn warnings off */ |
| 1072 | else if (strcmp(message, "on") == 0) |
| 1073 | lua_setwarnf(L, warnfon, L); /* turn warnings on */ |
| 1074 | return 1; /* it was a control message */ |
| 1075 | } |
| 1076 | } |
| 1077 | |
| 1078 | |
| 1079 | static void warnfoff (void *ud, const char *message, int tocont) { |
no test coverage detected