find_cat.bac will no longer compile

[barryk]

Hi,
In Woof, which is the build system for Puppy Linux and derivatives, we have a utility named 'find_cat.bac'.

It is a console utility, and I compiled it sometime ago, bacon version 1.0.29.

It won't compile with bacon 3.0.2. It outputs a lot of error messages that I don't understand.

I looked through the BaCon code, it looks pretty straightforward, can't see any reason why it is failing.

I have attached it. Would someone kindly take a look at it?

Regards,
Barry

Attachments:

find_cat.bac.gz (2.16 KB)

[barryk]

It seems to be choking on this code:

IF numparams==1 THEN INPUT onedb$
ELIF numparams==2 THEN
IF ENDFILE(handle2) THEN
 CLOSE FILE handle2
 END 0
END IF
READLN onedb$ FROM handle2
END IF

...is this now wrong?

Regards,
Barry

[barryk]

Ha ha, I have answered my own question!

Changed it to this, now it compiles:

IF numparams==1 THEN
INPUT onedb$
ELIF numparams==2 THEN
IF ENDFILE(handle2) THEN
 CLOSE FILE handle2
 END 0
END IF
READLN onedb$ FROM handle2
END IF

[vovchik]

Dear Barry,

Parsing IF constructions is now stricter. You are right regarding the problem area.

The fix is simple and amounts to a newline:


IF numparams==1 THEN
INPUT onedb$
ELIF numparams==2 THEN
IF ENDFILE(handle2) THEN
CLOSE FILE handle2
END 0
END IF
READLN onedb$ FROM handle2
END IF


With kind regards,
vovchik