Property definitions

sha1 :: sha1 $ CString :: sha1_intern
	private fun sha1_intern(len: Int): CString `{
		sha1nfo s;

		sha1_init(&s);
		sha1_write(&s, self, len);
		uint8_t* digest = sha1_result(&s);

		char* digested = malloc(21);

		memcpy(digested, digest, 20);

		digested[20] = '\0';

		return digested;
	`}
lib/sha1/sha1.nit:221,2--235,3