hlp.bi

Go to the documentation of this file.

#ifndef __HELP_BI__
#define __HELP_BI__

#ifndef INVALID
const INVALID = -1
#endif

''
'' helper module protos
''

declare function hMatchText _
	( _
		byval txt as zstring ptr _
	) as integer

declare function hMatch _
	( _
		byval token as integer _
	) as integer

declare function hMakeProfileLabelName _
	( _
	) as zstring ptr

declare function hFBrelop2IRrelop _
	( _
		byval tk as integer _
	) as integer

declare function hFileExists _
	( _
		byval filename as zstring ptr _
	) as integer

declare sub hClearName _
	( _
		byval src as zstring ptr _
	)

declare sub hUcase _
	( _
		byval src as const zstring ptr, _
		byval dst as zstring ptr _
	)

declare function hStripUnderscore _
	( _
		byval symbol as zstring ptr _
	) as string

declare function hStripExt _
	( _
		byval filename as zstring ptr _
	) as string

declare function hStripPath _
	( _
		byval filename as zstring ptr _
	) as string

declare function hStripFilename _
	( _
		byval filename as zstring ptr _
	) as string

declare function hGetFileExt _
	( _
		byval fname as zstring ptr _
	) as string

declare sub hReplaceSlash( byval s as zstring ptr, byval char as integer )

declare function pathStripDiv( byref path as string ) as string
declare function pathIsAbsolute( byval path as zstring ptr ) as integer

declare function hFloatToHex _
	( _
		byval value as double, _
		byval dtype as integer _
	) as string

declare function hCheckFileFormat _
	( _
		byval f as integer _
	) as integer

declare function hCurDir( ) as string

declare function hHexUInt _
	( _
		byval value as uinteger _
	) as zstring ptr

declare function hIsValidSymbolName( byval sym as zstring ptr ) as integer

declare function strUnquote(byref s as string) as string

#include once "hlp-str.bi"

#define hIsCharLower(_c) ( (_c >= asc("a")) andalso (_c <= asc("z")) )
#define hIsCharUpper(_c) ( (_c <= asc("Z")) andalso (_c >= asc("A")) )
#define hIsChar(_c) ( hIsCharLower(_c) orelse hIsCharUpper(_c) )
#define hIsCharNumeric(_c) ( (_c <= asc("9")) andalso (_c >= asc("0")) )

'' ensure float values over 2^63 are converted correctly
#define hCastFloatToULongint(f) cunsg( iif( (f) >= 1.e+16, clngint( (f) * 0.5 ) shl 1, clngint( f ) ) )

#endif ''__HELP_BI__