Index: soft/giet_vm/giet_libs/string.c
===================================================================
--- soft/giet_vm/giet_libs/string.c	(revision 606)
+++ soft/giet_vm/giet_libs/string.c	(revision 607)
@@ -37,4 +37,17 @@
 }
 
+///////////////////////////////////////////////////////////////////////////////////
+// int strlen ( const char * str )
+///////////////////////////////////////////////////////////////////////////////////
+int strlen ( const char * str )
+{
+    const char *s = str;
+
+    while (*s)
+        s++;
+
+    return (s - str);
+}
+
 // Local Variables:
 // tab-width: 4
Index: soft/giet_vm/giet_libs/string.h
===================================================================
--- soft/giet_vm/giet_libs/string.h	(revision 606)
+++ soft/giet_vm/giet_libs/string.h	(revision 607)
@@ -11,4 +11,5 @@
 char * strcpy ( char * destination, const char * source );
 int strcmp ( const char * str1, const char * str2 );
+int strlen ( const char * str );
 
 #endif