add strlen

2008-05-11 17:43:34 -05:00 · 2008-05-11 17:43:34 -05:00 · b7597fbd8a
parent d682d572e2
commit b7597fbd8a
1 changed files with 3 additions and 0 deletions
--- a/core/libc/libc.factor
+++ b/core/libc/libc.factor
@ -73,3 +73,6 @@ PRIVATE>

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