steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add strlen

db4
Slava Pestov 2008-05-11 17:43:34 -05:00
parent d682d572e2
commit b7597fbd8a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/libc/libc.factor
View File

@ -73,3 +73,6 @@ PRIVATE>
: with-malloc ( size quot -- ) : with-malloc ( size quot -- )
swap 1 calloc [ swap keep ] [ free ] [ ] cleanup ; inline swap 1 calloc [ swap keep ] [ free ] [ ] cleanup ; inline
: strlen ( alien -- len )
"size_t" "libc" "strlen" { "char*" } alien-invoke ;