[SOLVED] If not Defined() then Define inside If/CompilerIf. Defined() always returns 0

[destiny]

Hi guys.
Can't make it work
I want to check if procedure/variable/constant/etc is defined or not and when not defined then include according file(s).
There is no difference if I use XIncludeFile/IncludeFile or replace it by Define MyParam.MyStruct/Global MyParam.MyStruct.
And which metod is better to use - "CompilerIf" or just "If" in that situation?

Test.pbi:

Code: Select all

Structure MyStruct
  Param.s
EndStructure

CompilerIf Defined(MyParam, #PB_Structure)
  Debug "1. Constant 'MyParam' is declared"
CompilerEndIf

CompilerIf Not Defined(MyParam, #PB_Structure)
  Debug "2. Constant 'MyParam' is not declared"
  IncludeFile "PathToFile\Struct.pbi"
CompilerEndIf

CompilerIf Defined(MyParam, #PB_Structure)
  Debug "3. Constant 'MyParam' is declared"
CompilerEndIf

If Defined(MyParam, #PB_Structure)
  Debug "4. Constant 'MyParam' is declared"
EndIf

If Not Defined(MyParam, #PB_Structure)
  Debug "5. Constant 'MyParam' is not declared"
  IncludeFile "PathToFile\Struct.pbi"
EndIf

If Defined(MyParam, #PB_Structure)
  Debug "6. Constant 'MyParam' is declared"
EndIf

PathToFile\Struct.pbi:

Code: Select all

Define MyParam.MyStruct

[netmaestro]

Code: Select all

Structure MyStruct
  Param.s
EndStructure

CompilerIf Defined(MyStruct, #PB_Structure) <> 0
  Debug "1. Structure 'MyStruct' is declared"
CompilerEndIf

'MyParam' is no part of the structure. It's an error. (too much coffee?)

[Paul]

Shouldn't it be...

Code: Select all

Structure MyStruct
  Param.s
EndStructure

CompilerIf Defined(MyStruct, #PB_Structure)
  Debug "1. Constant 'MyStruct' is declared"
CompilerEndIf

CompilerIf Not Defined(MyStruct, #PB_Structure)
  Debug "2. Constant 'MyStruct' is not declared"
CompilerEndIf

Code: Select all

;Structure MyStruct
;  Param.s
;EndStructure

CompilerIf Defined(MyStruct, #PB_Structure)
  Debug "1. Constant 'MyStruct' is declared"
CompilerEndIf

CompilerIf Not Defined(MyStruct, #PB_Structure)
  Debug "2. Constant 'MyStruct' is not declared"
CompilerEndIf

EDIT: netmaestro you are to quick !!

[destiny]

Ok, maybe I asked wrong.
How can I understand that MyParam is Defined? Not MyStruct.
After Define MyParam.MyStruct Defined() is always answers False.
TypeOf() MyParam and MyStruct tells that both of them are Structure. (03-1, 03-2, 04).

And question about If or CompilerIf is still bothering me. Why CompilerIf and not If? It's because there will be less bytes in final executable because compiler will ignore that parts of code where Defined() will answer True but If ... True will be compiled always?

Code: Select all

Structure MyStruct
  Param.s
EndStructure

CompilerIf Defined(MyParam, #PB_Structure)
  Debug "01-1. Structure 'MyParam' is declared"
CompilerEndIf
CompilerIf Defined(MyStruct, #PB_Structure)
  Debug "01-2. Structure 'MyStruct' is declared"
CompilerEndIf

CompilerIf Not Defined(MyParam, #PB_Structure)
  Debug "02-1. Structure 'MyParam' is not declared"
  Define MyParam.MyStruct
CompilerEndIf
CompilerIf Not Defined(MyStruct, #PB_Structure)
  Debug "02-2. Structure 'MyStruct' is not declared"
  Define MyParam.MyStruct
CompilerEndIf

Debug "03-1. " + TypeOf(MyParam)
Debug "03-2. " + TypeOf(MyStruct)
Debug "04. " + #PB_Structure

CompilerIf Defined(MyParam, #PB_Structure)
  Debug "05-1. Structure 'MyParam' is NOW declared"
CompilerEndIf
CompilerIf Defined(MyStruct, #PB_Structure)
  Debug "05-2. Structure 'MyStruct' is NOW declared"
CompilerEndIf

CompilerIf Not Defined(MyParam, #PB_Structure)
  Debug "06-1. Structure 'MyParam' is STILL NOT declared"
CompilerEndIf
CompilerIf Not Defined(MyStruct, #PB_Structure)
  Debug "06-2. Structure 'MyStruct' is STILL NOT declared"
CompilerEndIf

If Defined(MyParam, #PB_Structure)
  Debug "11-1. Structure 'MyParam' is declared"
EndIf
If Defined(MyStruct, #PB_Structure)
  Debug "11-2. Structure 'MyStruct' is declared"
EndIf

If Not Defined(MyParam, #PB_Structure)
  Debug "12-1. Structure 'MyParam' is not declared"
  Define MyParam.MyStruct
EndIf
If Not Defined(MyStruct, #PB_Structure)
  Debug "12-2. Structure 'MyStruct' is not declared"
  Define MyParam.MyStruct
EndIf

If Defined(MyParam, #PB_Structure)
  Debug "13-1. Structure 'MyParam' is NOW declared"
EndIf
If Defined(MyStruct, #PB_Structure)
  Debug "13-2. Structure 'MyStruct' is NOW declared"
EndIf

If Not Defined(MyParam, #PB_Structure)
  Debug "14-1. Structure 'MyParam' is STILL NOT declared"
EndIf
If Not Defined(MyStruct, #PB_Structure)
  Debug "14-2. Structure 'MyStruct' is STILL NOT declared"
EndIf

[Demivec]

Ok, maybe I asked wrong.
How can I understand that MyParam is Defined? Not MyStruct.
After Define MyParam.MyStruct Defined() is always answers False.
TypeOf() MyParam and MyStruct tells that both of them are Structure. (03-1, 03-2, 04).

You define MyParam as a variable, not a structure.
Use

Code: Select all

CompilerIf Not Defined(MyParam, #PB_VARIABLE)
  Debug "Variable 'MyParam' is not declared"
  Define MyParam.MyStruct
CompilerEndIf

[destiny]

You define MyParam as a variable, not a structure.

Yep, found it when tested:

Code: Select all

Debug "21-01. " + Defined(MyParam, #PB_Constant)
Debug "21-02. " + Defined(MyParam, #PB_Variable)
Debug "21-03. " + Defined(MyParam, #PB_Array)
Debug "21-04. " + Defined(MyParam, #PB_Structure)
Debug "21-05. " + Defined(MyParam, #PB_List)
Debug "21-06. " + Defined(MyParam, #PB_Map)
Debug "21-07. " + Defined(MyParam, #PB_Interface)
Debug "21-08. " + Defined(MyParam, #PB_Procedure)
Debug "21-09. " + Defined(MyParam, #PB_Function)
Debug "21-10. " + Defined(MyParam, #PB_OSFunction)
Debug "21-11. " + Defined(MyParam, #PB_Label)
Debug "21-12. " + Defined(MyParam, #PB_Prototype)
Debug "21-13. " + Defined(MyParam, #PB_Module)
Debug "21-14. " + Defined(MyParam, #PB_Enumeration)

21-02 result was True.
Require a lot of rest.
Thanx to you all.