Files
harbour-core/harbour/tests/test.prg
Viktor Szakats 7603bde7b0 2012-10-04 01:47 UTC+0200 Viktor Szakats (harbour syenar.net)
- tests/test_all.prg
    * deleted MS-DOS batch specific tool. Now hbrun can 
      be used to run tests very easily

  * contrib/hbmisc/tests/rtfclass.prg
    * platform dependent stuff deleted/fixed

  * contrib/xhb/xhbfs.c
    * corrected .prg macro to C one (doesn't change 
      compiled code)

  * tests/test.prg
    * minor

  * utils/hbmk2/hbmk2.prg
    * changed "||" operator to ".OR." in #ifdef
2012-10-03 23:50:23 +00:00

24 lines
352 B
Plaintext

/*
* $Id$
*/
PROCEDURE Main()
LOCAL s := " " + Chr( 0 ) + " mab " + Chr( 0 ) + " "
StrDump( s )
? s
? Chr( 34 ) + LTrim( s ) + Chr( 34 )
? Chr( 34 ) + RTrim( s ) + Chr( 34 )
? Chr( 34 ) + AllTrim( s ) + Chr( 34 )
RETURN
STATIC PROCEDURE StrDump( s )
LOCAL tmp
FOR EACH tmp IN s
? Asc( tmp )
NEXT
RETURN