Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on March 12, 2019, 09:08:24 pm

Title: Bas file reader with keyword highlighting
Post by: bplus on March 12, 2019, 09:08:24 pm
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$
  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
  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$
  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
  155.  
  156.  

 

Notice key words in comments not highlighted.

BTW _EXPLICIT is missing from Wiki list.
Title: Re: Bas file reader with keyword highlighting
Post by: TempodiBasic on March 14, 2019, 05:25:48 pm
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
Title: Re: Bas file reader with keyword highlighting
Post by: bplus on March 14, 2019, 09:47:29 pm
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. ;-))
Title: Re: Bas file reader with keyword highlighting
Post by: TempodiBasic on March 15, 2019, 11:52:05 am
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)

Quote
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
Quote
CORSOBAS.BAS
Quote
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
Title: Re: Bas file reader with keyword highlighting
Post by: Aurel on March 19, 2019, 07:44:40 am
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
Title: Re: Bas file reader with keyword highlighting
Post by: bplus on March 19, 2019, 10:41:01 am
Quote from: Aurel on March 19, 2019, 07:44:40 am
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?
Quote
Also I know of one situation that this highlighter code would get wrong.
I leave that as a quiz to you guys. ;-))
Title: Re: Bas file reader with keyword highlighting
Post by: Aurel on March 19, 2019, 11:29:55 am
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
Title: Re: Bas file reader with keyword highlighting
Post by: bplus on March 19, 2019, 11:41:52 am
Quote from: Aurel on March 19, 2019, 11:29:55 am
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.
Title: Re: Bas file reader with keyword highlighting
Post by: Aurel on March 19, 2019, 11:57:31 am
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 !
Title: Re: Bas file reader with keyword highlighting
Post by: bplus on March 19, 2019, 12:09:37 pm
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.
Title: Re: Bas file reader with keyword highlighting
Post by: bplus on March 19, 2019, 12:14:11 pm
Quote
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.
Title: Re: Bas file reader with keyword highlighting
Post by: TempodiBasic on March 20, 2019, 06:55:08 pm
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.
Text Only | Text with Attachments