| 5652 | // |
| 5653 | |
| 5654 | static SSHORT par_char_set() |
| 5655 | { |
| 5656 | if (!MSC_match(KW_CHAR)) |
| 5657 | CPR_s_error("CHARACTER SET"); |
| 5658 | |
| 5659 | if (!MSC_match(KW_SET)) |
| 5660 | CPR_s_error("CHARACTER SET"); |
| 5661 | |
| 5662 | if (gpreGlob.token_global.tok_type != tok_ident) |
| 5663 | CPR_s_error("<character set name>"); |
| 5664 | |
| 5665 | gpre_sym* symbol = MSC_find_symbol(gpreGlob.token_global.tok_symbol, SYM_charset); |
| 5666 | if (!symbol) |
| 5667 | PAR_error("The named CHARACTER SET was not found"); |
| 5668 | |
| 5669 | PAR_get_token(); |
| 5670 | |
| 5671 | return (((intlsym*) symbol->sym_object)->intlsym_charset_id); |
| 5672 | } |
| 5673 | |
| 5674 | |
| 5675 | //____________________________________________________________ |
no test coverage detected