a910a61f35
* extras/httpsrv/home/index.html
* updated reference to long deleted batch file to hbmk2 cmdline
* tests/db_brows.prg
* deleted inactive/broken parts
+ enable ADS APIs automatically
! use inkey.ch constants
! fixed keyboard handling for unicode
* enabled editing (warning: do not commit modified test.dbf)
! fixed function names of Harbour extended functions (commented)
* tests/newrdd.prg
! fixed failure due to wrongly selected RDD
* formatting
* tests/inherit.prg
* tests/stripem.prg
* various cleanups (do not add EOF char, unicode
compatibility, use platform-specific EOL)
* tests/inkeytst.prg
! fixed another unicode incompatibility for __HARBOUR__
* tests/readhrb.prg
% use HB_NUMTOHEX() instead of local implementation
* formatting
* tests/inifiles.prg
! untested fixes for platform independent EOL handling
* tests/test.prg
* tests/version.prg
* minor
24 lines
316 B
Plaintext
24 lines
316 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL s := " " + Chr( 0 ) + " mab " + Chr( 0 ) + " "
|
|
|
|
StrDump( s )
|
|
? s
|
|
|
|
? '"' + LTrim( s ) + '"'
|
|
? '"' + RTrim( s ) + '"'
|
|
? '"' + AllTrim( s ) + '"'
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE StrDump( s )
|
|
LOCAL tmp
|
|
FOR EACH tmp IN s
|
|
? Asc( tmp )
|
|
NEXT
|
|
RETURN
|