Skip to content
Toggle navigation
Toggle navigation
This project
Loading...
Sign in
John McEleney
/
mailutils
Go to a project
Toggle navigation
Toggle navigation pinning
Projects
Groups
Snippets
Help
Project
Activity
Repository
Pipelines
Graphs
Issues
0
Merge Requests
0
Wiki
Network
Create a new issue
Builds
Commits
Issue Boards
Files
Commits
Network
Compare
Branches
Tags
Commit
462485fb
...
462485fbc76bb674e18461d4a84a76c687a9adab
authored
2001-08-03 19:03:15 +0000
by
Sergey Poznyakoff
Browse Files
Options
Browse Files
Tag
Download
Email Patches
Plain Diff
Provide mu_scm_address_init() function.
1 parent
0857c6ee
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
3 deletions
libmu_scm/mu_address.c
libmu_scm/mu_address.c
View file @
462485f
...
...
@@ -45,7 +45,7 @@ _get_address_part (const char *func_name, address_get_fp fun,
str
=
SCM_CHARS
(
ADDRESS
);
length
=
strlen
(
str
);
if
(
length
==
0
)
return
scm_mak
e
0str
(
""
);
return
scm_mak
from
0str
(
""
);
if
(
address_create
(
&
addr
,
SCM_CHARS
(
ADDRESS
)))
return
SCM_BOOL_F
;
...
...
@@ -58,7 +58,7 @@ _get_address_part (const char *func_name, address_get_fp fun,
}
if
((
*
fun
)
(
addr
,
num
,
str
,
length
,
NULL
)
==
0
)
ret
=
scm_mak
e
0str
(
str
);
ret
=
scm_mak
from
0str
(
str
);
else
ret
=
SCM_BOOL_F
;
address_destroy
(
&
addr
);
...
...
@@ -128,10 +128,16 @@ SCM_DEFINE (mu_address_get_count, "mu-address-get-count", 1, 0, 0,
ADDRESS
,
SCM_ARG1
,
FUNC_NAME
);
if
(
address_create
(
&
addr
,
SCM_CHARS
(
ADDRESS
)))
return
SCM_
BOOL_F
;
return
SCM_
MAKINUM
(
0
)
;
address_get_count
(
addr
,
&
count
);
address_destroy
(
&
addr
);
return
scm_makenum
(
count
);
}
#undef FUNC_NAME
void
mu_scm_address_init
()
{
#include <mu_address.x>
}
...
...
Please
register
or
sign in
to post a comment