Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: justsomeguy on May 16, 2021, 08:25:51 pm

Title: Errors in an $include file
Post by: justsomeguy on May 16, 2021, 08:25:51 pm
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
  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

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?
Title: Re: Errors in an $include file
Post by: FellippeHeitor on May 16, 2021, 08:37:39 pm
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
  7.  
  8. Function aPlus (t As tTEST)
  9.     aPlus = t.a + 1
  11.  
Title: Re: Errors in an $include file
Post by: justsomeguy on May 16, 2021, 09:03:58 pm
Quote
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?
Title: Re: Errors in an $include file
Post by: FellippeHeitor on May 16, 2021, 09:06:36 pm
No other way, really. And nothing wrong with your implementation, it's just the way it is.
Title: Re: Errors in an $include file
Post by: bplus on May 17, 2021, 11:17:56 am
Quote from: justsomeguy on May 16, 2021, 09:03:58 pm
@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
  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
  5.  

Here is zip for your convenience to see
Title: Re: Errors in an $include file
Post by: bplus on May 17, 2021, 11:48:23 am
@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
  6.  
Title: Re: Errors in an $include file
Post by: thesolarcode on May 17, 2021, 02:02:51 pm
Is there a smart way to conditionally include some file only once?
Title: Re: Errors in an $include file
Post by: SMcNeill on May 17, 2021, 02:26:45 pm
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.
Title: Re: Errors in an $include file
Post by: justsomeguy on May 17, 2021, 07:39:00 pm
Thank you gentlemen! You have given me some options. This will go a long way to clean up the code.
Title: Re: Errors in an $include file
Post by: justsomeguy on May 17, 2021, 09:18:36 pm
@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!
Title: Re: Errors in an $include file
Post by: SMcNeill on May 18, 2021, 12:36:01 am
Aye.  Sorry.  I forgot to add the $LET in there.  :)
Text Only | Text with Attachments