747   size_t src;  in sub_actual()  local
750   src = get_apost_token (start, in, t, kind);  in sub_actual()
755       && (src == start || in->ptr[src - 1] != '@'))  in sub_actual()
775       if (src != start && in->ptr[src - 1] == '&')  in sub_actual()
787   return src;  in sub_actual()
797   size_t src = 0;  in macro_expand_body()  local
804   while (src < in->len && !err)  in macro_expand_body()
806       if (in->ptr[src] == '&')  in macro_expand_body()
811 	      if (src + 1 < in->len && in->ptr[src + 1] == '&')  in macro_expand_body()
812 		src = sub_actual (src + 2, in, &t, formal_hash, '\'', out, 1);  in macro_expand_body()
814 		sb_add_char (out, in->ptr[src++]);  in macro_expand_body()
820 	      src = sub_actual (src + 1, in, &t, formal_hash, '&', out, 0);  in macro_expand_body()
823       else if (in->ptr[src] == '\\')  in macro_expand_body()
825 	  src++;  in macro_expand_body()
826 	  if (src < in->len && in->ptr[src] == '(')  in macro_expand_body()
829 	      src++;  in macro_expand_body()
830 	      while (src < in->len && in->ptr[src] != ')')  in macro_expand_body()
832 		  sb_add_char (out, in->ptr[src++]);  in macro_expand_body()
834 	      if (src < in->len)  in macro_expand_body()
835 		src++;  in macro_expand_body()
841 	  else if (src < in->len && in->ptr[src] == '@')  in macro_expand_body()
846 	      src++;  in macro_expand_body()
850 	  else if (src < in->len && in->ptr[src] == '&')  in macro_expand_body()
856 	      src++;  in macro_expand_body()
858 	  else if (macro_mri && src < in->len && ISALNUM (in->ptr[src]))  in macro_expand_body()
863 	      if (ISDIGIT (in->ptr[src]))  in macro_expand_body()
864 		ind = in->ptr[src] - '0';  in macro_expand_body()
865 	      else if (ISUPPER (in->ptr[src]))  in macro_expand_body()
866 		ind = in->ptr[src] - 'A' + 10;  in macro_expand_body()
868 		ind = in->ptr[src] - 'a' + 10;  in macro_expand_body()
869 	      ++src;  in macro_expand_body()
885 	      src = sub_actual (src, in, &t, formal_hash, '\'', out, 0);  in macro_expand_body()
889 	       && is_name_beginner (in->ptr[src])  in macro_expand_body()
892 		   || (src > 0 && in->ptr[src - 1] == '@')))  in macro_expand_body()
895 	      || src + 5 >= in->len  in macro_expand_body()
896 	      || strncasecmp (in->ptr + src, "LOCAL", 5) != 0  in macro_expand_body()
897 	      || ! ISWHITE (in->ptr[src + 5])  in macro_expand_body()
902 	      src = sub_actual (src, in, &t, formal_hash,  in macro_expand_body()
908 	      src = sb_skip_white (src + 5, in);  in macro_expand_body()
909 	      while (in->ptr[src] != '\n')  in macro_expand_body()
914 		  src = get_token (src, in, &f->name);  in macro_expand_body()
941 		  src = sb_skip_comma (src, in);  in macro_expand_body()
945       else if (in->ptr[src] == '"'  in macro_expand_body()
946 	       || (macro_mri && in->ptr[src] == '\''))  in macro_expand_body()
949 	  sb_add_char (out, in->ptr[src++]);  in macro_expand_body()
951       else if (in->ptr[src] == '@' && macro_strip_at)  in macro_expand_body()
953 	  ++src;  in macro_expand_body()
954 	  if (src < in->len  in macro_expand_body()
955 	      && in->ptr[src] == '@')  in macro_expand_body()
958 	      ++src;  in macro_expand_body()
962 	       && in->ptr[src] == '='  in macro_expand_body()
963 	       && src + 1 < in->len  in macro_expand_body()
964 	       && in->ptr[src + 1] == '=')  in macro_expand_body()
969 	  src = get_token (src + 2, in, &t);  in macro_expand_body()
999 	  if (in->ptr[src] == '\n')  in macro_expand_body()
1001 	  sb_add_char (out, in->ptr[src++]);  in macro_expand_body()