41 |
else |
else |
42 |
num = 1; |
num = 1; |
43 |
|
|
44 |
str = SCM_CHARS (ADDRESS); |
str = SCM_STRING_CHARS (ADDRESS); |
45 |
length = strlen (str); |
length = strlen (str); |
46 |
if (length == 0) |
if (length == 0) |
47 |
return scm_makfrom0str(""); |
return scm_makfrom0str(""); |
48 |
|
|
49 |
if (address_create (&addr, SCM_CHARS (ADDRESS))) |
if (address_create (&addr, SCM_STRING_CHARS (ADDRESS))) |
50 |
return SCM_BOOL_F; |
return SCM_BOOL_F; |
51 |
|
|
52 |
str = malloc (length + 1); |
str = malloc (length + 1); |
126 |
SCM_ASSERT (SCM_NIMP (ADDRESS) && SCM_STRINGP (ADDRESS), |
SCM_ASSERT (SCM_NIMP (ADDRESS) && SCM_STRINGP (ADDRESS), |
127 |
ADDRESS, SCM_ARG1, FUNC_NAME); |
ADDRESS, SCM_ARG1, FUNC_NAME); |
128 |
|
|
129 |
if (address_create (&addr, SCM_CHARS (ADDRESS))) |
if (address_create (&addr, SCM_STRING_CHARS (ADDRESS))) |
130 |
return SCM_MAKINUM(0); |
return SCM_MAKINUM(0); |
131 |
|
|
132 |
address_get_count (addr, &count); |
address_get_count (addr, &count); |
150 |
else { |
else { |
151 |
SCM_ASSERT (SCM_NIMP (NAME) && SCM_STRINGP (NAME), |
SCM_ASSERT (SCM_NIMP (NAME) && SCM_STRINGP (NAME), |
152 |
NAME, SCM_ARG1, FUNC_NAME); |
NAME, SCM_ARG1, FUNC_NAME); |
153 |
name = SCM_CHARS (NAME); |
name = SCM_STRING_CHARS (NAME); |
154 |
} |
} |
155 |
|
|
156 |
email = mu_get_user_email (name); |
email = mu_get_user_email (name); |