DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦fff64b71f⟧ TextFile

    Length: 323 (0x143)
    Types: TextFile
    Notes: UNIX file
    Names: »rindex.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »libc/gen/rindex.c«

TextFile

/*
 * Coherent Standard I/O Library.
 * Index function that scans the
 * string from the end towards the
 * front.
 */

#include <stdio.h>

char *
rindex(s, c)
register unsigned char *s;
register c;
{
	register unsigned char *ss;

	for (ss = s; *s++; )
		;
	while (s > ss)
		if (*--s == c)
			return (s);
	return (NULL);
}