nethack-3.4.3/src/objnam.c

496 	   The(), both of which correctly handle this "the " prefix */
521 add_erosion_words(obj,prefix)
523 char *prefix;
535 			case 2:	Strcat(prefix, "very "); break;
536 			case 3:	Strcat(prefix, "thoroughly "); break;
538 		Strcat(prefix, is_rustprone(obj) ? "rusty " : "burnt ");
542 			case 2:	Strcat(prefix, "very "); break;
543 			case 3:	Strcat(prefix, "thoroughly "); break;
545 		Strcat(prefix, is_corrodeable(obj) ? "corroded " :
549 		Strcat(prefix,
561 	char prefix[PREFIX];
563 	/* when we have to add something at the start of prefix instead of the
580 		Sprintf(prefix, "%ld ", obj->quan);
584 		Strcpy(prefix, "the ");
586 		Strcpy(prefix, "a ");
589 	if (obj->oinvis) Strcat(prefix,"invisible ");
600 		Strcat(prefix, "cursed ");
602 		Strcat(prefix, "blessed ");
622 		Strcat(prefix, "uncursed ");
625 	if (obj->greased) Strcat(prefix, "greased ");
634 			Strcat(prefix, "poisoned ");
636 		add_erosion_words(obj, prefix);
638 			Strcat(prefix, sitoa(obj->spe));
639 			Strcat(prefix, " ");
650 		    add_erosion_words(obj, prefix);
678 				Strcat(prefix, "partly used ");
687 		add_erosion_words(obj, prefix);
697 		add_erosion_words(obj, prefix);
706 			Strcat(prefix, sitoa(obj->spe));
707 			Strcat(prefix, " ");
712 		    Strcat(prefix, "partly eaten ");
715 			Sprintf(prefix, "%s%s ",
719 			if (obj->oeaten) Strcat(prefix, "partly eaten ");
721 			Strcat(prefix, mons[obj->corpsenm].mname);
722 			Strcat(prefix, " ");
727 			Strcat(prefix, "stale ");
732 			Strcat(prefix, mons[obj->corpsenm].mname);
733 			Strcat(prefix, " ");
742 		add_erosion_words(obj, prefix);
779 	if (!strncmp(prefix, "a ", 2) &&
780 			index(vowels, *(prefix+2) ? *(prefix+2) : *bp)
781 			&& (*(prefix+2) || (strncmp(bp, "uranium", 7)
784 		Strcpy(tmpbuf, prefix);
785 		Strcpy(prefix, "an ");
786 		Strcpy(prefix+3, tmpbuf+2);
788 	bp = strprepend(bp, prefix);
878        be redundant when it is, so suppress "poisoned" prefix */
1023 	char prefix[PREFIX];
1026 		Sprintf(prefix, "%ld ", otmp->quan);
1027 		bp = strprepend(bp, prefix);
1139 		    /* also check for <prefix><space><special_subj>