Bas file reader with keyword highlighting

[bplus]

Coding practice for today:

Code: QB64: [Select]

1. _TITLE "Highlight QB64 words" 'B+ 2019-03-12
2.  
3. CONST xmax = 1200
4. CONST ymax = 720
5. SCREEN _NEWIMAGE(xmax, ymax, 32)
6. _SCREENMOVE 100, 10
7.  
8. 'get list of qb words
9. OPEN "Just QB64 words.txt" FOR BINARY AS #1
10. fs$ = SPACE$(LOF(1))
11. GET #1, , fs$
12. CLOSE #1
13. REDIM qb(0) AS STRING
14. Split1000 fs$, CHR$(13) + CHR$(10), qb()
15. 'FOR i = 0 TO 20
16. '    PRINT i, qb(i)
17. 'NEXT
18. 'SLEEP
19. ubqb = UBOUND(QB)
20.  
21. 'now get a bas file to highlite
22. REDIM fList(0) AS STRING
23. loadFA "*.bas", fList()
24. WHILE _KEYDOWN(27) = 0
25.     fnum = -1
26.     COLOR &HFF00FFFF, &HFF000000
27.     FOR i = 0 TO UBOUND(fList)
28.         PRINT i; " "; fList(i)
29.         IF i MOD 30 = 29 THEN
30.             COLOR &HFFFFFF00, &HFF000000
31.             PRINT: INPUT "Just press enter for more, u for up, q to quit, or file number to select "; choice$
32.             IF LEN(choice$) THEN
33.                 IF choice$ = "u" AND i > 59 THEN i = i - 59 ELSE i = -1
34.                 IF choice$ = "q" THEN CLS: END
35.                 IF VAL(choice$) > LBOUND(flist) AND VAL(choice$) <= UBOUND(flist) THEN fnum = VAL(choice$): EXIT FOR
36.             END IF
37.             COLOR &HFF00FFFF, &HFF000000: CLS
38.         END IF
39.     NEXT
40.     COLOR &HFF00FFFF, &HFF000000: CLS
41.     IF fnum <> -1 THEN
42.         OPEN fList(fnum) FOR BINARY AS #1
43.         fs$ = SPACE$(LOF(1))
44.         GET #1, , fs$
45.         CLOSE #1
46.         REDIM basFile(0) AS STRING
47.         Split1000 fs$, CHR$(13) + CHR$(10), basFile()
48.         FOR i = 0 TO UBOUND(basFile)
49.             apost = INSTR(basFile(i), "'")
50.             IF apost THEN
51.                 fLine$ = MID$(basFile(i), 1, apost - 1): tagOn$ = MID$(basFile(i), apost)
52.             ELSE
53.                 fLine$ = basFile(i): tagOn$ = ""
54.             END IF
55.             REDIM wline(0) AS STRING
56.             Split1000 fLine$, " ", wline()
57.             FOR j = 0 TO UBOUND(wLine)
58.                 REDIM parts(0) AS STRING
59.                 Split1000 wline(j), "(", parts()
60.                 FOR K = 0 TO UBOUND(parts)
61.                     found = 0
62.                     IF RIGHT$(parts(K), 1) = "," THEN
63.                         addp$ = ",": test$ = LEFT$(parts(K), LEN(parts(K)) - 1)
64.                     ELSEIF RIGHT$(parts(K), 1) = ":" THEN
65.                         addp$ = ":": test$ = LEFT$(parts(K), LEN(parts(K)) - 1)
66.                     ELSEIF RIGHT$(parts(K), 1) = ")" THEN
67.                         addp$ = ")": test$ = LEFT$(parts(K), LEN(parts(K)) - 1)
68.                     ELSE
69.                         addp$ = "": test$ = parts(K)
70.                     END IF
71.                     FOR l = 0 TO ubqb
72.                         IF qb(l) = test$ THEN found = -1: EXIT FOR
73.                     NEXT
74.                     IF found THEN
75.                         'highlight word
76.                         COLOR &HFF0000FF, &HFF000000
77.                     ELSE
78.                         COLOR &HFF00FFFF, &HFF000000
79.                     END IF
80.                     PRINT test$;
81.                     COLOR &HFF00FFFF, &HFF000000
82.                     PRINT addp$;
83.                     IF K <> UBOUND(parts) THEN PRINT "(";
84.                 NEXT
85.                 PRINT " ";
86.             NEXT
87.             PRINT tagOn$
88.             IF i MOD 30 = 29 THEN
89.                 COLOR &HFFFFFF00, &HFF000000
90.                 PRINT: INPUT "Just press enter for more, u for up, q to quit "; choice$
91.                 IF LEN(choice$) THEN
92.                     IF choice$ = "u" AND i > 59 THEN i = i - 59 ELSE i = -1
93.                     IF choice$ = "q" THEN CLS: END
94.                 END IF
95.                 COLOR &HFF00FFFF, &HFF000000: CLS
96.             END IF
97.         NEXT
98.     END IF
99. WEND
100.  
101. SUB loadFA (spec$, fa() AS STRING)
102.     cd$ = _CWD$
103.     CHDIR ".." '>>>>>>>>>>>>>>>>>>>>>>>  you might not want to do this depending where you run this from
104.     CONST TmpFile$ = "DIR$INF0.INF"
105.     'SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
106.     SHELL _HIDE "DIR " + spec$ + " /b /s /o:gen> " + TmpFile$
107.     OPEN TmpFile$ FOR INPUT AS #1
108.     Index% = -1
109.     DO WHILE NOT EOF(1)
110.         Index% = Index% + 1
111.         REDIM _PRESERVE fa(Index%) AS STRING
112.         LINE INPUT #1, fa(Index%)
113.     LOOP
114.     CLOSE #1
115.     KILL TmpFile$
116.     CHDIR cd$
117. END SUB
118.  
119. 'notes: REDIM the array(0) to be loaded before calling Split '<<<<<<<<<<<<<<<<<<<<<<< IMPORTANT!!!!
120. SUB Split1000 (mystr AS STRING, delim AS STRING, arr() AS STRING)
121.     ' bplus modifications of Galleon fix of Bulrush Split reply #13
122.     ' http://xmaxw.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=1612.0
123.     ' this sub further developed and tested here: \test\Strings\Split test.bas
124.     DIM copy AS STRING, p AS LONG, curpos AS LONG, arrpos AS LONG, dpos AS LONG
125.  
126.     copy = mystr 'make copy since we are messing with mystr when the delimiter is a space
127.  
128.  
129.     ' >>>>>>>>>>>>>>>>> This was interferring with indentations
130.     'special case if delim is space, probably want to remove all excess space
131.     'IF delim = " " THEN
132.     '    copy = RTRIM$(LTRIM$(copy))
133.     '    p = INSTR(copy, "  ")
134.     '    WHILE p > 0
135.     '        copy = MID$(copy, 1, p - 1) + MID$(copy, p + 1)
136.     '        p = INSTR(copy, "  ")
137.     '    WEND
138.     'END IF
139.  
140.  
141.     curpos = 1
142.     arrpos = 0
143.     LD = LEN(delim) 'mod
144.     dpos = INSTR(curpos, copy, delim)
145.     DO UNTIL dpos = 0
146.         arr(arrpos) = MID$(copy, curpos, dpos - curpos)
147.         arrpos = arrpos + 1
148.         IF arrpos > UBOUND(arr) THEN REDIM _PRESERVE arr(UBOUND(arr) + 1000) AS STRING
149.         curpos = dpos + LD
150.         dpos = INSTR(curpos, copy, delim)
151.     LOOP
152.     arr(arrpos) = MID$(copy, curpos)
153.     REDIM _PRESERVE arr(arrpos) AS STRING 'need this line? YES to get the ubound correct
154. END SUB
155.  
156.  

 

Notice key words in comments not highlighted.

BTW _EXPLICIT is missing from Wiki list.

[TempodiBasic]

Hi Bplus
it lets me remember an old project made in quickbasic CORSOBAS.BAS
that  uses two my libs, FINEDOS.BAS and MOUSEINT.BAS both these posted on www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]'s forum after porting to QB64 for incomplete compatibility about INT calling with mouse services.
CORSOBAS.BAS is a program that shows codefile.BAS in plaint text and listed in a filelist.TXT and after user's request it runs the relative .EXE. This program uses a TXT file with all token for QuickBasic to parser the code and to colorize the screen output.

If I find the ported files I'll post it here the entire program.

Thanks to let me remember!

Here attached LEZ10.BAS

[bplus]

Hi TempodiBasic,

Did you get the right file? It looks like a quick graphics sampler.

BTW, I have been thinking about color coding everything like the IDE does. Which would require identifying each element in a program line.

Also I know of one situation that this highlighter code would get wrong.
I leave that as a quiz to you guys. ;-))

[TempodiBasic]

Hi Bplus
i need just some time to search in the various PC/notebooks where are the different files...(old Qbasic code, Modded to QB64 libraries, file of token)

FINEDOS.BAS and MOUSEINT.BAS both these posted on www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]'s forum

CORSOBAS.BAS

This program uses a TXT file with all token for QuickBasic to parser the code and to colorize the screen output.

Thanks for attention

Yes LEZ10.BAS is the original file that is loaded and showed in program as demo.

See later

[Aurel]

Hi Mark
idea is good and how much is universal i don't know
but why is soo slow on my win7 machine?
is that because SDL layer..hmmm

[bplus]

Hi Mark
idea is good and how much is universal i don't know
but why is soo slow on my win7 machine?
is that because SDL layer..hmmm

First we get the code to work, then we work on speed if it is worth the trouble.
I doubt QB64 is using SDL.

Aurel do you want to take the challenge?

Also I know of one situation that this highlighter code would get wrong.
I leave that as a quiz to you guys. ;-))

[Aurel]

Mark
I am not for chalange..
but i don't get it how you highlite the code
as output i get some uncler (very bad shaped letters) in window
without any syntax coloring like you show it ?
so might be problem with my graphic card or openGL version or
SDL version ..i am not sure what is in game ?
sorry i am new to qb64 ..yes do you can believe? heh

[bplus]

Mark
I am not for chalange..
but i don't get it how you highlite the code
as output i get some uncler (very bad shaped letters) in window
without any syntax coloring like you show it ?
so might be problem with my graphic card or openGL version or
SDL version ..i am not sure what is in game ?
sorry i am new to qb64 ..yes do you can believe? heh

I will bet you are not working with a current version of QB64. Checkout the QB64.org Home Page on first Announcements Board.

[Aurel]

Mark
I download last stable version from qb64.org site
so i don't know what might be the latest release?
ok i can check again !

[bplus]

Hi Aurel,
 
Also you will need the attached file in the OP of the QB64 words to highlight, put in same Folder as compiled code.

Update: Our posts crossed, I just checked the code with the stable download, it worked fine.

[bplus]

There are some Basic hints for QB64 coming from older QB's:

The _KEYWORDS are new to QB64 and are listed first in Alphabetics Keywords in Help, ones without _prefix are compatible with older QBs. You can find on-line Wiki help here: http://qb64.org/wiki/Main_Page which is for me easier to use than Help in IDE.

You might want to Select and bullet "Output EXE to source folder" so that the compiled programs stay with the source .bas in same folder.

[TempodiBasic]

Hi
for now I have found only the previous version of CORSOBAS.BAS that doesn't colorize the line of code !
Sigh!  :-(( this can happen when you use different pc in different days and have no a single place in which to put files.

however the results that I have got are the same that you can see if you load this code into Qb64 IDE

Code: QB64: [Select]

1. REM if game isn't running (main menu)

so you can observe REM if in keyword color, game isn in text color, 't running (main menu) in comment color

this has been gained using a single character processor of a single line of code.