Changed sample to use aTokens (thanks to David G Holm)

harbour/tests/inline_c.prg

@@ -1,28 +1,70 @@
-Function Main()
+PROCEDURE MAIN( cLine, cDelim )
 
-   LOCAL cVar := "Hello"
+   LOCAL a, i
 
-   cVar := HB_INLINE( cVar )
-   {
-      if( ISCHAR(1) )
+   IF EMPTY( cLine )
+      cLine := "This is a test"
+   END IF
+
+   a := aTokens( cLine, cDelim )
+   FOR i := 1 TO LEN( a )
+      ? '"' + a[ i ] + '"'
+   NEXT i
+
+RETURN
+
+FUNCTION aTokens( cLine, cDelimiter )
+
+   LOCAL aTokens := {}
+
+   #ifdef __HARBOUR__
+
+      IF cDelimiter == NIL
+         cDelimiter := ' '
+      ENDIF
+
+      HB_INLINE( aTokens, cLine, Asc( cDelimiter ) )
       {
-         char *szPar1 = hb_parc(1);
+         PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY );
+         PHB_ITEM pLine  = hb_param( 2, HB_IT_STRING );
+         char cDelimiter = (char) hb_parni(3);
+         size_t i, iOffset = 0, iIndex = 1;
 
-         if( strcmp( szPar1, "Hello") == 0 )
+         for( i = 0; i < pLine->item.asString.length; i++ )
          {
-            hb_retc( "It was Hello" );
+            if( pLine->item.asString.value[i] == cDelimiter )
+            {
+               hb_arraySize( pArray, iIndex );
+               hb_storclen( pLine->item.asString.value + iOffset, i - iOffset, 1, iIndex );
+               iOffset = i + 1;
+               iIndex++;
+            }
          }
-         else
+         if( iOffset < pLine->item.asString.length - 1 )
          {
-            hb_retc( "No, it was not Hello" );
+            hb_arraySize( pArray, iIndex );
+            hb_storclen( pLine->item.asString.value + iOffset, pLine->item.asString.length - iOffset, 1, iIndex );
          }
       }
-      else
-      {
-         hb_retc( "No Param passed" );
-      }
-   }
 
-   ? cVar
+   #else
 
-RETURN NIL
+      LOCAL nLen := Len( cLine ), i, nOffset := 1
+
+      IF cDelimiter == NIL
+         cDelimiter := ' '
+      ENDIF
+
+      FOR i := 1 to nLen
+         IF SubStr( cLine, i, 1 ) == cDelimiter
+            aAdd( aTokens, SubStr( cLine, nOffset, i - nOffset ) )
+            nOffset := i + 1
+         ENDIF
+      NEXT
+      IF nOffset < nLen - 1
+         aAdd( aTokens, SubStr( cLine, nOffset ) )
+      ENDIF
+
+   #endif
+
+RETURN aTokens