Lines Matching +defs:call +defs:c
1 /* $NetBSD: read.c,v 1.93 2024/11/30 18:17:12 rillig Exp $ */
4 * Copyright (c) 1996 Christopher G. Demetriou. All Rights Reserved.
5 * Copyright (c) 1994, 1995 Jochen Pohl
41 __RCSID("$NetBSD: read.c,v 1.93 2024/11/30 18:17:12 rillig Exp $");
199 case 'c':
209 inperr("bad record type %c", rt);
310 * Process a function call record (c-record).
316 char c;
330 c = *cp++;
331 switch (c) {
334 inperr("used or discovered: %c", c);
339 inperr("used or discovered: %c", c);
343 inperr("used or discovered: %c", c);
352 if (c == 'z')
354 else if (c == 'p')
356 else if (c == 'n')
572 inperr("bad delim %c", cp[-1]);
587 parse_tspec(const char **pp, char c, bool *osdef)
591 switch (c) {
596 s = c;
597 c = *(*pp)++;
604 switch (c) {
631 *osdef = c == 'f';
639 inperr("tspec '%c'", c);
650 char c;
672 c = *cp++;
674 if (c == 'c') {
676 c = *cp++;
678 if (c == 'v') {
680 c = *cp++;
683 tp->t_tspec = parse_tspec(&cp, c, &osdef);
694 c = *cp;
695 if (ch_isdigit(c)) {
753 char c, s;
759 c = *cp++;
761 if (c == 'c')
762 c = *cp++;
763 if (c == 'v')
764 c = *cp++;
766 switch (c) {
771 s = c;
772 c = *cp++;
781 switch (c) {
872 inperr("bad type: %c %c", c, s);
883 c = *cp;
884 if (ch_isdigit(c)) {
907 inperr("not dot: %c", cp[-1]);
910 inperr("not dot: %c", cp[-1]);
914 inperr("bad value: %c", cp[-1]);
1003 char c;
1008 if ((c = *src++) != '"')
1009 inperr("not quote: %c", c);
1010 if ((c = *src++) == '\0')
1011 inperr("trailing data: %c", c);
1013 while (c != '"') {
1014 if (c == '\\') {
1015 if ((c = *src++) == '\0')
1017 switch (c) {
1019 c = '\n';
1022 c = '\t';
1025 c = '\v';
1028 c = '\b';
1031 c = '\r';
1034 c = '\f';
1037 c = '\a';
1040 c = '\\';
1043 c = '"';
1046 c = '\'';
1049 v = (c - '0') << 6;
1050 if ((c = *src++) < '0' || c > '7')
1051 inperr("not octal: %c", c);
1052 v |= (c - '0') << 3;
1053 if ((c = *src++) < '0' || c > '7')
1054 inperr("not octal: %c", c);
1055 v |= c - '0';
1056 c = (char)v;
1059 inperr("bad \\ escape: %c", c);
1068 *dst++ = c;
1069 if ((c = *src++) == '\0')
1087 char c;
1093 c = *cp++;
1094 if (!ch_isalnum(c) && c != '_')
1095 inperr("not alnum or _: %c", c);
1096 buf[i] = c;
1140 fcall_t **callp, *call;
1159 for (call = hte->h_calls; call != NULL && !ofnd; call = call->f_next) {
1160 if (call->f_pos.p_src != sym1->s_pos.p_src)
1215 for (callp = &hte->h_calls; (call = *callp) != NULL; ) {
1216 if (call->f_pos.p_src == sym1->s_pos.p_src) {
1217 *callp = call->f_next;
1218 if (hte->h_lcall == &call->f_next)
1220 call->f_next = NULL;
1221 *nhte->h_lcall = call;
1222 nhte->h_lcall = &call->f_next;
1224 callp = &call->f_next;