Function dodiscovered

src/o_init.c:763–873

the #known command - show discovered object types */

/* the #known command - show discovered object types */
int
dodiscovered(void) /* free after Robert Viduya */
{
    winid tmpwin;
    char *s, oclass, prev_class,
         classes[MAXOCLASSES], buf[BUFSZ],
         *sorted_lines[NUM_OBJECTS]; /* overkill */
    const char *p;
    int i, dis, ct, uniq_ct, arti_ct, sorted_ct, uidx;
    long sortindx;  // should be ptrdiff_t, but we don't require that exists
    boolean alphabetized, alphabyclass, lootsort;

    if (!flags.discosort || !(p = strchr(disco_order_let, flags.discosort)))
        flags.discosort = 'o';

    if (iflags.menu_requested) {
        if (choose_disco_sort(1) < 0)
            return ECMD_OK;
    }
    alphabyclass = (flags.discosort == 'c');
    alphabetized = (flags.discosort == 'a' || alphabyclass);
    lootsort = (flags.discosort == 's');
    sortindx = strchr(disco_order_let, flags.discosort) - disco_order_let;

    tmpwin = create_nhwindow(NHW_TEXT);
    Sprintf(buf, "Discoveries, %s", disco_orders_descr[sortindx]);
    putstr(tmpwin, 0, buf);
    putstr(tmpwin, 0, "");

    /*
     * FIXME?
     *  relics and artifacts don't obey player's sort order even though
     *  the header line states that they're shown in such-and-such order.
     */

    /* gather "unique objects", also called "relics", into a pseudo-class;
       they'll also be displayed individually within their regular class */
    uniq_ct = 0;
    for (i = dis = 0; i < SIZE(uniq_objs); i++) {
        uidx = uniq_objs[i];
        if (objects[uidx].oc_name_known
            || (objects[uidx].oc_encountered && uidx != AMULET_OF_YENDOR)) {
            if (!dis++)
                putstr(tmpwin, iflags.menu_headings.attr,
                       "Unique items or Relics");
            ++uniq_ct;
            disco_fmt_uniq(uidx, buf);
            putstr(tmpwin, 0, buf);
        }
    }
    /* display any known artifacts as another pseudo-class */
    arti_ct = disp_artifact_discoveries(tmpwin);

    /* several classes are omitted from packorder; one is of interest here */
    Strcpy(classes, flags.inv_order);
    if (!strchr(classes, VENOM_CLASS))
        (void) strkitten(classes, VENOM_CLASS); /* append char to string */