| 892 | // |
| 893 | |
| 894 | gpre_nod* EXP_subscript(gpre_req* request) |
| 895 | { |
| 896 | ref* reference = (ref*) MSC_alloc(REF_LEN); |
| 897 | gpre_nod* node = MSC_unary(nod_value, (gpre_nod*) reference); |
| 898 | |
| 899 | // Special case literals |
| 900 | |
| 901 | if (gpreGlob.token_global.tok_type == tok_number) |
| 902 | { |
| 903 | node->nod_type = nod_literal; |
| 904 | TEXT* string = (TEXT *) MSC_alloc(gpreGlob.token_global.tok_length + 1); |
| 905 | reference->ref_value = string; |
| 906 | MSC_copy(gpreGlob.token_global.tok_string, gpreGlob.token_global.tok_length, string); |
| 907 | PAR_get_token(); |
| 908 | return node; |
| 909 | } |
| 910 | |
| 911 | reference->ref_value = PAR_native_value(true, false); |
| 912 | |
| 913 | if (request) |
| 914 | { |
| 915 | reference->ref_next = request->req_values; |
| 916 | request->req_values = reference; |
| 917 | } |
| 918 | |
| 919 | return node; |
| 920 | } |
| 921 | |
| 922 | |
| 923 | //____________________________________________________________ |
no test coverage detected