Errors in an $include file

[justsomeguy]

Hello

I'm getting an error in files that I've included into my main program. I know the cause of the errors, but they are not really errors.

For example my main program will look like this.

Code: QB64: [Select]

1. '**********
2. ' Main Program
3. '**********
4. Type tTEST
5.     a As Integer
6. End Type
7.  
8. Dim test As tTEST
9.  
10. test.a = 5
11. Print test.a, aPlus(test)
12.  
13. '$include :'TestModule.bas'

And my module will look like this.

Code: QB64: [Select]

1. '**********
2. ' TestModule.bas
3. '**********
4. FUNCTION aPlus (t AS tTEST)
5.     aPlus = t.a + 1
6. END FUNCTION

Don't get me wrong, the main program works and it compiles with no errors.

The problem arises when I want to edit my module. I get an 'Illegal SUB/FUNCTION parameter.' This makes sense since because it has no idea what a 'tTEST' in this context.

Have I missed something? Is there some clever workaround for this?

[FellippeHeitor]

The error is exactly what you pointed out - the TYPE is not visible to the sub file, except when it's included. TYPEs can be placed anywhere in your program though (even between subs/functions):

Code: QB64: [Select]

1. '**********
2. ' Main Program
3. '**********
4. Dim test As tTEST
5.  
6. test.a = 5
7. Print test.a, aPlus(test)
8.  
9. '$include :'TestModule.bas'

Code: QB64: [Select]

1. '**********
2. ' TestModule.bas
3. '**********
4. Type tTEST
5.     a As Integer
6. End Type
7.  
8. Function aPlus (t As tTEST)
9.     aPlus = t.a + 1
10. End Function
11.  

[justsomeguy]

TYPEs can be placed anywhere in your program though (even between subs/functions)

@FellippeHeitor  Well to expand on my example. I'm trying to refactor the physics engine I'm working on, and I literally use some TYPEs like 'tVECTOR2d' all over the place. I have numerous modules using 'tVECTOR2d'. So, declaring the type in the module wont clear the error in the other modules.

I was just wondering if my implementation is incorrect, or some command to tell the module that it is a module and suppress that error?

[FellippeHeitor]

No other way, really. And nothing wrong with your implementation, it's just the way it is.

[bplus]

@FellippeHeitor  Well to expand on my example. I'm trying to refactor the physics engine I'm working on, and I literally use some TYPEs like 'tVECTOR2d' all over the place. I have numerous modules using 'tVECTOR2d'. So, declaring the type in the module wont clear the error in the other modules.

I was just wondering if my implementation is incorrect, or some command to tell the module that it is a module and suppress that error?

Could put the Type in a separate .BI file  and include at start of main
Put the vector subs in a .BM and include at end of main, note all these will show error alone but once connected to Bi in main will work.

Code: QB64: [Select]

1. 'ttest.bi
2. Type tTEST
3.     a As Integer
4. End Type
5.  

Code: QB64: [Select]

1. ' Main test.bas
2.  
3. '$include :'ttest.bi'
4. Dim test As tTEST
5.  
6. test.a = 5
7. Print test.a, aPlus(test)
8.  
9. '$include :'aplus.bm'
10.  

Code: QB64: [Select]

1. 'aplus.bm
2. Function aPlus (t As tTEST)
3.     aPlus = t.a + 1
4. End Function
5.  

Here is zip for your convenience to see

[bplus]

@justsomeguy Oh you want to edit the .BM how about just adding the .BI in include and commenting it out after edit (ie add / remove $)

Code: QB64: [Select]

1. 'aplus.bm
2. 'include: 'ttest.bi'  '<<< add $ to edit, remove to save
3. Function aPlus (t As tTEST)
4.     aPlus = t.a + 1
5. End Function
6.  

[thesolarcode]

Is there a smart way to conditionally include some file only once?

[SMcNeill]

Easiest way is with $IF


$IF VARIABLENAMEYOULIKE = UNDEFINED THEN
    VARIABLENAMEYOULIKE = TRUE
    SUB MyLibrarySub
    .
    .
    .
    END SUB
$END IF

Include that in a dozen $INCLUDE files and it’ll only go into your code one (while the precompiler variable is undeclared), and then it’ll be skipped over forevermore.

[justsomeguy]

Thank you gentlemen! You have given me some options. This will go a long way to clean up the code.

[justsomeguy]

@SMcNeill You method seems to work except minor thing. I had to use the $LET.

I had to change it to:

Code: QB64: [Select]

1. $IF VARIABLENAMEYOULIKE = UNDEFINED THEN
2.     $LET VARIABLENAMEYOULIKE = TRUE
3.     SUB MyLibrarySub
4.        .
5.        .
6.        .

This works good. THANKS!

[SMcNeill]

Aye.  Sorry.  I forgot to add the $LET in there.  :)