Blitz Basic to ASCII converter

[zero]

Sorry if this is the wrong place to post this...

I made a Blitz Basic to ASCII converter in C. I know there are some already but none seemed to meet my requirements of being simple and portable. This code should compile for any OS, it only uses C standard libraries.

https://github.com/kuro68k/bb2ascii

With thanks to Richard Dare for the list of tokens I borrowed for this project from his GPL code.

If you want a binary there is a Windows release at the link above, otherwise you can build it for your OS using GCC or probably any reasonably modern compiler.

[clenched]

C:\bb2>main quikasm.bb2 q.txt

Unknown token: 0xBE10
Unknown token: 0xBE10
Unknown token: 0x8026*
Unknown token: 0x8026*
Unknown token: 0x80CD
Unknown token: 0x80CE
Unknown token: 0x80CE
Unknown token: 0x80CE
Unknown token: 0x80CE
Unknown token: 0xFFFF

* When saving in Blitz:
0x8026 is the token for Ds but it is omitted in the tokens.h file. Probably more.
The case differs Shared SHARED. Other stuff.
Still does a good job to get a quick overview of the bulk of program.
Full comparison q.txt (yours) QA.TXT (Blitz ASCII)

Comparing files C:\BB2\q.txt and C:\BB2\QA.TXT
***** C:\BB2\q.txt
Statement putcurr{c}
Shared lines()
Poke.l lines(0)-40,c
***** C:\BB2\QA.TXT
Statement putcurr{c}
SHARED lines()
Poke.l lines(0)-40,c
*****

***** C:\BB2\q.txt
Function getcurr{}
Shared lines()
Function Return Peek.l(lines(0)-40)
***** C:\BB2\QA.TXT
Function getcurr{}
SHARED lines()
Function Return Peek.l(lines(0)-40)
*****

***** C:\BB2\q.txt
          loaddone
          Free  0:WindowInput 0
          If dcp Then Gosub refall
***** C:\BB2\QA.TXT
          loaddone
          Free File 0:WindowInput 0
          If dcp Then Gosub refall
*****

***** C:\BB2\q.txt
          PopItem lines()
          Free  0:BitMapOutput 0
        Else
***** C:\BB2\QA.TXT
          PopItem lines()
          Free File 0:BitMapOutput 0
        Else
*****

***** C:\BB2\q.txt
;
thedregs:.l 16
;
dumpregs:.l 16
;
***** C:\BB2\QA.TXT
;
thedregs:Ds.l 16
;
dumpregs:Ds.l 16
;
*****

***** C:\BB2\q.txt
Function$ ch{}
Shared lz$,p
p+1:Function Return Mid$(lz$,p,1)
***** C:\BB2\QA.TXT
Function$ ch{}
SHARED lz$,p
p+1:Function Return Mid$(lz$,p,1)
*****

***** C:\BB2\q.txt
Statement putcw{k}
Shared c,tcl
Poke.w c,k:c+2:tcl+2
***** C:\BB2\QA.TXT
Statement putcw{k}
SHARED c,tcl
Poke.w c,k:c+2:tcl+2
*****

***** C:\BB2\q.txt
Statement putcl{k}
Shared c,tcl
Poke.l c,k:c+4:tcl+4
***** C:\BB2\QA.TXT
Statement putcl{k}
SHARED c,tcl
Poke.l c,k:c+4:tcl+4
*****

***** C:\BB2\q.txt
Statement putrw{k}
Shared r(),rl(),np
Poke.w r(np),k:r(np)+2:rl(np)+2
***** C:\BB2\QA.TXT
Statement putrw{k}
SHARED r(),rl(),np
Poke.w r(np),k:r(np)+2:rl(np)+2
*****

***** C:\BB2\q.txt
Statement putrl{k}
Shared r(),rl(),np
Poke.l r(np),k:r(np)+4:rl(np)+4
***** C:\BB2\QA.TXT
Statement putrl{k}
SHARED r(),rl(),np
Poke.l r(np),k:r(np)+4:rl(np)+4
*****

***** C:\BB2\q.txt
    For k=0 To 15
    If j  k Then ex(0)  (15-k)
    Next
***** C:\BB2\QA.TXT
    For k=0 To 15
    If j BitTst k Then ex(0) BitSet (15-k)
    Next
*****

***** C:\BB2\q.txt
c$=ch{}:If NOT rn{c$} Then Goto aser4
k+Asc(c$)-48:c$=ch{}:ex(np)  k:Return

***** C:\BB2\QA.TXT
c$=ch{}:If NOT rn{c$} Then Goto aser4
k+Asc(c$)-48:c$=ch{}:ex(np) BitSet k:Return

*****

***** C:\BB2\q.txt
    For k2=j To k
    ex(np)  k2
    Next
***** C:\BB2\QA.TXT
    For k2=j To k
    ex(np) BitSet k2
    Next
*****

***** C:\BB2\q.txt
    For k2=k To j
    ex(np)  k2
    Next
***** C:\BB2\QA.TXT
    For k2=k To j
    ex(np) BitSet k2
    Next
*****

[zero]

I used Richard's token list, if you can suggest what any of the others are and add them, or just make a list and I'll do it.

It's enough to get my sources readable anyway :-)

[clenched]

Actually there is a Tokenlist.bb that would supposedly do that job. It doesn't compile for me. The ????? tells me something is missing.

pubname$=Par$(1)
If ????? (0,pubname$)=0
pubname$="Workbench"
????? 0,pubname$
EndIf

[zero]

I don't know, it's years since I've done any Blitz code... Apparently there is a tool called "stripper" that can do it, available from http://www.blitz-2000.co.uk/

If you can send over the .bb and ASCII versions of any files with missing tokens I can add a bit of debug output and add them.

[clenched]

It would be a mammoth undertaking to try to cover every token. We've just seen Blitz its self doesn't understand every one missing from deflibs.

Suggestion and tip:
Instead of leaving missing tokens blank, substitute ????? the way Blitz does. Then text editor search could spot errors rather than having to compare listings.

This little batch file mimics a drag and drop. Just drag file over the bblist.bat icon. My text editor pops a message whenever another application modifies the file and asks reload? So there is no clutter of files. Also convenient dragging from zip lha etc and a dozen fold faster than extracting/loading into Blitz.

bblist.bat

cd %~dp0
bb2ascii %1 dummy.txt
REM pause
REM unREM above if error messages are important

[zero]

I just made a change to print "??XXXX??" for unknown tokens, where XXXX is the hexadecimal code.