7b47c59b9c
* hberrors.h
+added define WARN_ASSIGN_TYPE and WARN_ASSIGN_SUSPECTED
* compiler.h
+added struct STACK_VAL_TYPE *PSTAC_VAL_TYPE
* harbour.l
+added support for tokens AS NUMERIC, AS CHARACTER, AS LOGICAL, AS DATE, AS ARRAY, AS OBJECT
*modified iLine to initialize to 0 rather than 1
* harbour.y
+added support for extended variable declaration with strong typing
+added logic to support warnings on incompatible and suspecious variable assignments
26 lines
277 B
Plaintext
26 lines
277 B
Plaintext
FUNCTION Hex2Dec( nVar1 AS LOGICAL )
|
|
|
|
LOCAL nVar AS NUMERIC, nVar2 AS CHARACTER, nVar3 AS LOGICAL, nNoType := 3
|
|
|
|
nVar1 := .T.
|
|
|
|
nVar1 := 1
|
|
|
|
nVar := 'A'
|
|
|
|
nVar := 2
|
|
|
|
nVar2 := 'B'
|
|
|
|
nVar2 := 2
|
|
|
|
nVar3 := .T.
|
|
|
|
nVar3 := nNoType
|
|
|
|
nVar3 := nVar
|
|
|
|
NondDeclared := 2
|
|
|
|
RETURN NIL
|