58255adfe5
* doc/howtosvn.txt
+ added extra rules to "1.3 Here's how to format your ChangeLog entries"
section.
* Change markup is not optional anymore, pls stick to it.
* contrib/hbcups/tests/test.prg
* contrib/hbcups/readme.txt
+ Added more test code and extra info to hbcups.
Update provided by Dr. Claudia Neumann (with my minor fixes/formatting).
Many thanks!
* contrib/hbpgsql/rddcopy.c
* contrib/hbpgsql/hbpgsql.h
! svn props
* tests/testtok.prg
* tests/testrdd.prg
* tests/tstchbx.prg
* tests/tstblock.prg
* tests/ticktime.prg
* tests/testvars.prg
* tests/tstasort.prg
* tests/testprof.prg
* tests/testread.prg
* tests/testrpt.prg
* tests/teststr.prg
* formatting.
35 lines
487 B
Plaintext
35 lines
487 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "set.ch"
|
|
|
|
PROCEDURE main()
|
|
|
|
LOCAL a
|
|
LOCAL i
|
|
|
|
SET( _SET_EXACT, .T. )
|
|
|
|
a := strtoarray( "this is a great big test of strtoken" )
|
|
FOR i := 1 TO Len( a )
|
|
QOut( a[ i ] )
|
|
NEXT
|
|
|
|
RETURN
|
|
|
|
FUNCTION strtoarray( s )
|
|
|
|
LOCAL aResult := {}
|
|
LOCAL t, l
|
|
|
|
DO WHILE s != ""
|
|
t := StrToken( s, 1, , @l )
|
|
AAdd( aResult, t )
|
|
s := SubStr( s, l + 2 ) /* skip the delimiter */
|
|
|
|
QOut( t, Str( l ), s )
|
|
ENDDO
|
|
|
|
RETURN aResult
|