sha1 31 ext/digest/sha1.c ScmSha1 *sha1 = SCM_ALLOCATE(ScmSha1, klass); sha1 32 ext/digest/sha1.c SCM_SET_CLASS(sha1, klass); sha1 33 ext/digest/sha1.c SHAInit(&sha1->ctx); sha1 34 ext/digest/sha1.c return SCM_OBJ(sha1); sha1 42 ext/digest/sha1.c SCM_INIT_EXTENSION(sha1); sha1 52 ext/digest/sha1.c ScmSha1* sha1; sha1 58 ext/digest/sha1.c sha1 = SCM_SHA1(sha1_scm); sha1 64 ext/digest/sha1.c SHAUpdate(&sha1->ctx, (const unsigned char*)SCM_UVECTOR_ELEMENTS(SCM_U8VECTOR(data)), SCM_U8VECTOR_SIZE(SCM_U8VECTOR(data))); sha1 67 ext/digest/sha1.c SHAUpdate(&sha1->ctx, sha1 83 ext/digest/sha1.c ScmSha1* sha1; sha1 87 ext/digest/sha1.c sha1 = SCM_SHA1(sha1_scm); sha1 90 ext/digest/sha1.c SHAFinal(digest, &sha1->ctx);