Compile Failure @ Unexistant line

Author

Message

Orochium

11

Years of Service

User Offline

Joined: 21st Dec 2012

Location: Steamboat Springs, CO

Posted: 21st Dec 2012 21:34

Link

Howdy folks, not sure if this is a bug or what, but was wondering if anyone else had this issue, but I was hacking together some code and ran into a strange issue.

I am at work so I can't post the code snippit yet, but basically whenever I try to code using a function in an #INCLUDE file, compiling fails, complaining that the 'function is duplicated' in the #INCLUDE file.

In this case, I have an include called menupart.dba, the code at the top of the main program project is:

#INCLUDE menupart.dba

Then in menupart DBA I have a function named 'Button' which was originally in the main body of the project code, but was moved out to the separate menupart.dba file.

It does this arbitrarily (i.e., it works occasionally, but fails most of the time), it complains that "Function 'Button' is duplicated in menupart.dba" at line 72.

The problem is, the main body of code only goes to line 54

menupart.dba's codebase starts at 1.

So why it's failing at line 72 is a mystery. In addition to this, the only place the "Button" function appears is on line 1 of menupart.dba, and then used in some IF statements where the button and its clicks are called in the main body, but nothing is overlapping the definition of the "Button" function in the main body of code.

...the heck is going on with this thing? Anyone have any ideas?

System Information:

DarkBASIC Professional v.7.62
Windows 7 Home Premium

Intel Core i3-2105
Corsair 8GB GDDR3
Zotac Mini-ITX Z68 Backplane
Gigabyte GeForce GT 560 Ti 1024MB PCI-E

Dead Teddy Studios, LLC.

Back to top

Profile PM Email

Orochium

11

Years of Service

User Offline

Joined: 21st Dec 2012

Location: Steamboat Springs, CO

Posted: 22nd Dec 2012 02:36

Link

Home now, here is the source I'm using

RPG_TUTORIAL.DBA

REM ---------------------------------------------------------------------------------[Code Header]
Rem Project: RPG_Tutorial
Rem Created: Tuesday, December 18, 2012
Rem
Rem ***** Main Source File *****
REM -------------------------------------------------------------------------------[Config Header]
#INCLUDE menupart.dba
SYNC ON : SYNC RATE 0
REM ----------------------------------------------------------------------------------[BEGIN EXEC]
DO
    IF button(20,55,"New Game")=1 GOTO New_Game
    button(20,95,"Load Game")=1
    IF button(20,235,"Exit")=1 THEN END
    SYNC
LOOP
REM -----------------------------------------------------------------------------------[NEW_GAME]
NEW_GAME:
cls
REPEAT
    TEXT 240,220,"Get Ready to Play";
    SYNC
UNTIL scancode()> 0
MAKE OBJECT BOX 1,4,3,5
MAKE MATRIX 1,200,200,5,5
POSITION MATRIX 1,-100,0,-100
REM --------------------------------------------------------------------------NEW_GAME[Controls]
movespeed = 75
turnspeed = 87.5
time=timer()
DO
    gameTime=timer()-time
    MSframe#=gameTime*(movespeed/1000.0)
    TSframe#=gameTime*(turnspeed/1000.0)
    IF upkey()=1
        MOVE OBJECT 1,MSframe#
    ENDIF
    IF downkey()=1
        MOVE OBJECT 1,-MSframe#
    ENDIF
    IF leftkey()=1
        DEC a#,TSframe#
    ENDIF
    IF rightkey()=1
        INC a#,TSframe#
    ENDIF
    YROTATE OBJECT 1,a#
    posx#=cos(270-a#)*30 + OBJECT POSITION x(1)    // Direction + 270 Degrees so it appears behind
    posz#=sin(270-a#)*30 + OBJECT POSITION z(1)    // Direction + 270 Degrees so it appears behind
    POSITION CAMERA posx#,OBJECT POSITION y(1)+6,posz#
    POINT CAMERA OBJECT POSITION x(1),OBJECT POSITION y(1)+6,OBJECT POSITION z(1)
    time=timer()
    SYNC
LOOP
END

+ Code Snippet

REM ---------------------------------------------------------------------------------[Code Header]
Rem Project: RPG_Tutorial
Rem Created: Tuesday, December 18, 2012
Rem
Rem ***** Main Source File *****
REM -------------------------------------------------------------------------------[Config Header]
#INCLUDE menupart.dba
SYNC ON : SYNC RATE 0
REM ----------------------------------------------------------------------------------[BEGIN EXEC]
DO
    IF button(20,55,"New Game")=1 GOTO New_Game
    button(20,95,"Load Game")=1
    IF button(20,235,"Exit")=1 THEN END
    SYNC
LOOP
REM -----------------------------------------------------------------------------------[NEW_GAME]
NEW_GAME:
cls
REPEAT
    TEXT 240,220,"Get Ready to Play";
    SYNC
UNTIL scancode()> 0
MAKE OBJECT BOX 1,4,3,5
MAKE MATRIX 1,200,200,5,5
POSITION MATRIX 1,-100,0,-100
REM --------------------------------------------------------------------------NEW_GAME[Controls]
movespeed = 75
turnspeed = 87.5
time=timer()
DO
    gameTime=timer()-time
    MSframe#=gameTime*(movespeed/1000.0)
    TSframe#=gameTime*(turnspeed/1000.0)
    IF upkey()=1
        MOVE OBJECT 1,MSframe#
    ENDIF
    IF downkey()=1
        MOVE OBJECT 1,-MSframe#
    ENDIF
    IF leftkey()=1
        DEC a#,TSframe#
    ENDIF
    IF rightkey()=1
        INC a#,TSframe#
    ENDIF
    YROTATE OBJECT 1,a#
    posx#=cos(270-a#)*30 + OBJECT POSITION x(1)    // Direction + 270 Degrees so it appears behind
    posz#=sin(270-a#)*30 + OBJECT POSITION z(1)    // Direction + 270 Degrees so it appears behind
    POSITION CAMERA posx#,OBJECT POSITION y(1)+6,posz#
    POINT CAMERA OBJECT POSITION x(1),OBJECT POSITION y(1)+6,OBJECT POSITION z(1)
    time=timer()
    SYNC
LOOP
END

And the include:

MENUPART.DBA

+ Code Snippet

REM ---------------------------------------------------------------------------------------FUNCTION[button]
FUNCTION button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
IF mousex()>x1 and mousex()<x1+x2
    IF mousey()>y1-y2 and mousey()<y1+y2
        Pressed=1
    ENDIF
ENDIF
IF pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
    IF pressed=1
        Pressed=Mouseclick()
    ELSE
    pressed = 0
ENDIF
TEXT x1,y1,WORDS$
ENDFUNCTION pressed

Dead Teddy Studios, LLC.

Back to top

Profile PM Email

Orochium

11

Years of Service

User Offline

Joined: 21st Dec 2012

Location: Steamboat Springs, CO

Posted: 23rd Dec 2012 04:23

Link

WHOA. Okay, I figured it out.

If you add an INCLUDE'd file to DarkBASIC Pro via the Open/File...(Add to project) menu item, it's AUTO INCLUDED meaning you don't need a static line like this:

#INCLUDE menupart.dba

Because then it tries to include the file twice. Either just do an #INCLUDE from the same directory, or use Open/File...(Add to project) just not both.

I didn't see that in the help file anywhere, so I'm glad I figured it out. Not sure if its a bug or not, but I'll leave this here or allow you to move it for posterity.

PS: If anyone saw it, I fixed:

[Code]IF button(20,55,"New Game")=1 GOTO New_Game

to properly read:

IF button(20,55,"New Game")=1 THEN GOTO New_Game

Sorry for any trouble

Dead Teddy Studios, LLC.

Back to top

Profile PM Email

Sorry your browser is not supported!

Bug Reports / Compile Failure @ Unexistant line