Author Topic: $PRJ and $PRJUSE directives Broken  (Read 87 times)

Robert

  • Hero Member
  • *****
  • Posts: 805
    • View Profile
$PRJ and $PRJUSE directives Broken
« on: January 08, 2022, 06:29:20 PM »
$PRJ and $PRJUSE directives broken in BCX 7.5.5.

Project zip attached

MrBcx

  • Administrator
  • Hero Member
  • *****
  • Posts: 1106
    • View Profile
Re: $PRJ and $PRJUSE directives Broken
« Reply #1 on: January 08, 2022, 07:16:08 PM »
Thank you for the report Robert.

I'm not aware what broke those directives but the updated
code below is the easy fix that will be included in 7.8.0

Code: [Select]

FUNCTION Doprj(szWord$, iFLAG AS PINT)
*iFLAG = 0

SELECT CASE szWord$
   CASE "$prj"
   Project$ = UCASE$(EXTRACT$(COMMAND$(1),".")) + ".USE"
   HFile$   = UCASE$(EXTRACT$(COMMAND$(1),".")) + ".H"
   Use_SingleFile = FALSE
   Use_BcxTmpStr = TRUE
   
   CASE "$prjuse"
   Use_BcxTmpStr = TRUE
   PreParse(Src$)
   CALL SetUsed

END SELECT
FUNCTION = 0
END FUNCTION


Robert

  • Hero Member
  • *****
  • Posts: 805
    • View Profile
Re: $PRJ and $PRJUSE directives Broken
« Reply #2 on: January 14, 2022, 07:55:28 PM »
In BCX 7.7.9 move, from the "L" section, line 32514

            IF Src$ = "Use_BcxTmpStr" THEN Use_BcxTmpStr = TRUE

into the "B" section inserting after line 32400.

"L" secion entry was "UseFlag" until yout 7.5.5 revision to "Use_BcxTmpStr".

You know, there's always the outlier.

Robert

  • Hero Member
  • *****
  • Posts: 805
    • View Profile
Re: $PRJ and $PRJUSE directives Broken
« Reply #3 on: January 14, 2022, 08:04:05 PM »
In BCX 7.7.9 move, from the "L" section, line 32514

            IF Src$ = "Use_BcxTmpStr" THEN Use_BcxTmpStr = TRUE

into the "B" section inserting after line 32400.

"L" secion entry was "UseFlag" until yout 7.5.5 revision to "Use_BcxTmpStr".

You know, there's always the outlier.

Hang on for a minute. There's more. Sorry about the premature post. I just got too excited.

Robert

  • Hero Member
  • *****
  • Posts: 805
    • View Profile
Re: $PRJ and $PRJUSE directives Broken
« Reply #4 on: January 14, 2022, 08:20:08 PM »
In BCX 7.7.9 move, from the "L" section, line 32514

            IF Src$ = "Use_BcxTmpStr" THEN Use_BcxTmpStr = TRUE

into the "B" section inserting after line 32400.

"L" secion entry was "UseFlag" until yout 7.5.5 revision to "Use_BcxTmpStr".

You know, there's always the outlier.

Hang on for a minute. There's more. Sorry about the premature post. I just got too excited.

Nope. It's fragging gremlins time again.

All is well.

Robert

  • Hero Member
  • *****
  • Posts: 805
    • View Profile
Re: $PRJ and $PRJUSE directives Broken
« Reply #5 on: January 14, 2022, 08:27:42 PM »
There is more, but it's cosmetic.

In BCX 7.7.9, line  32804

   IF Use_BcxTmpStr THEN FPRINT fpFlags, "Use_BcxTmpStr"

should be moved up into the "B" section

MrBcx

  • Administrator
  • Hero Member
  • *****
  • Posts: 1106
    • View Profile
Re: $PRJ and $PRJUSE directives Broken
« Reply #6 on: January 14, 2022, 09:11:11 PM »
 

Got it ... 2  "cosmetic" relocations.  Thx ...