QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Prithak on March 16, 2019, 09:45:35 pm

Title: The Best Interpreter I've ever made!
Post by: Prithak on March 16, 2019, 09:45:35 pm

I made an interpreter.... again. And it's limited this time as well!! Anyways... Here's the code for the interpreter:

Code: QB64: [Select]

1. CLS
2. PRINT "Welcome to PLanguage Compiler! Enter your file name to see the results."
3. PRINT "Extra commands:"
4. PRINT "/cls - clear the screen"
5. PRINT "/edit - edit a file using notepad"
6. PRINT "/exit - to exit this program"
7. PRINT STRING$(80, "-")
8.  
9. menu:
10. INPUT ">>", file$
11. IF INSTR(file$, "/edit") THEN
12.     SHELL "notepad " + RIGHT$(file$, LEN(file$) - 6)
13. ELSEIF file$ = "/exit" THEN
14.     END
15. ELSEIF file$ = "/cls" THEN
16.     CLS
17.     GOTO menu
18. END IF
19. OPEN file$ FOR INPUT AS #1
20. OPEN "p1.bas" FOR OUTPUT AS #2
21. DO WHILE NOT EOF(1)
22.     LINE INPUT #1, l$
23.     l$ = replace$(l$, "[", "(")
24.     l$ = replace$(l$, "]", ")")
25.     x = x + 1
26.     IF INSTR(l$, "println") THEN
27.         PRINT #2, "PRINT " + RIGHT$(l$, LEN(l$) - 7)
28.     ELSEIF INSTR(l$, "input") THEN
29.         l$ = replace$(l$, "(", "")
30.         l$ = replace$(l$, ")", "")
31.         PRINT #2, l$
32.     ELSEIF INSTR(l$, "}") THEN
33.         IF e$ = "for" THEN
34.             PRINT #2, "NEXT"
35.         ELSEIF e$ = "if" THEN
36.             PRINT #2, "END IF"
37.         ELSEIF e$ = "funct" THEN
38.             PRINT #2, "END FUNCTION"
39.         ELSEIF e$ = "while" THEN
40.             PRINT #2, "WEND"
41.         END IF
42.         e$ = ""
43.     ELSEIF INSTR(l$, "for") THEN
44.         l$ = replace$(l$, "{", "")
45.         PRINT #2, l$
46.         e$ = "for"
47.     ELSEIF INSTR(l$, "elif") THEN
48.         l$ = replace$(l$, "{", "")
49.         PRINT #2, "ELSEIF " + RIGHT$(l$, LEN(l$) - 4) + " THEN"
50.     ELSEIF INSTR(l$, "else") THEN
51.         l$ = replace$(l$, "{", "")
52.         PRINT #2, l$
53.  
54.     ELSEIF INSTR(l$, "if") THEN
55.         l$ = replace$(l$, "{", "") + " THEN"
56.         PRINT #2, l$
57.         e$ = "if"
58.     ELSEIF INSTR(l$, "funct") THEN
59.         l$ = replace$(l$, "{", "")
60.         PRINT #2, "FUNCTION " + RIGHT$(l$, LEN(l$) - 5)
61.         e$ = "funct"
62.     ELSEIF INSTR(l$, "clear()") THEN
63.         PRINT #2, "CLS"
64.     ELSEIF INSTR(l$, "terminate()") THEN
65.         PRINT #2, "END"
66.     ELSEIF INSTR(l$, "wait") THEN
67.         PRINT #2, "SLEEP"
68.     ELSEIF INSTR(l$, "delay") THEN
69.         PRINT #2, "_DELAY " + RIGHT$(l$, LEN(l$) - 5)
70.     ELSEIF INSTR(l$, "terminate.instant()") THEN
71.         PRINT #2, "SYSTEM"
72.     ELSEIF INSTR(l$, "color") THEN
73.         l$ = replace$(l$, "(", "")
74.         l$ = replace$(l$, ")", "")
75.         PRINT #2, l$
76.     ELSEIF INSTR(l$, "while") THEN
77.         l$ = replace$(l$, "{", "")
78.         PRINT #2, l$
79.         e$ = "while"
80.     ELSEIF INSTR(l$, "createVector") THEN
81.         PRINT #2, "TYPE " + RIGHT$(l$, LEN(l$) - 12)
82.         PRINT #2, "X AS INTEGER"
83.         PRINT #2, "Y AS INTEGER"
84.         PRINT #2, "END TYPE"
85.     ELSEIF INSTR(l$, "setScreen") THEN
86.         PRINT #2, "SCREEN _NEWIMAGE" + RIGHT$(l$, LEN(l$) - 9)
87.     ELSEIF INSTR(l$, "declare") THEN
88.         l$ = replace$(l$, "[", "(")
89.         l$ = replace$(l$, "]", ")")
90.         PRINT #2, "DIM " + RIGHT$(l$, LEN(l$) - 7)
91.     ELSE
92.         IF INSTR(l$, "=") OR INSTR(l$, "}") OR LEN(l$) = 0 THEN
93.             l$ = replace$(l$, "[", "(")
94.             l$ = replace$(l$, "]", ")")
95.             PRINT #2, l$
96.         ELSE
97.             PRINT "ERROR ON LINE"; x
98.             PRINT l$
99.             PRINT "Please try revising the code..."
100.             END
101.         END IF
102.     END IF
103. LOOP
104. CLOSE #2
105. CLOSE #1
106. OPEN "p1.bas" FOR INPUT AS #1
107. DO WHILE NOT EOF(1)
108.     LINE INPUT #1, l$
109.     PRINT l$
110. LOOP
111. CLOSE #1
112. PRINT "Compiling Your File..."
113. SHELL _HIDE "qb64 -x p1.bas"
114. SHELL "p1.exe"
115. GOTO menu
116. FUNCTION replace$ (a$, from$, to$)
117.     FOR i = 1 TO LEN(a$)
118.         c$ = MID$(a$, i, 1)
119.         IF c$ = from$ THEN
120.             replace$ = replace$ + to$
121.         ELSE
122.             replace$ = replace$ + c$
123.         END IF
124.     NEXT i
125. END FUNCTION
126.  

I also made a website regarding this so: PLanguage.github.io (http://PLanguage.github.io)
ONE PROBLEM!
I can't seem to use nested loops in this. I am guessing because I am not using an array in "e$". Well, I'll figure it out soon enough! If you have some ideas about this, then please do not hesitate to leave a comment! :D

Title: Re: The Best Interpreter I've ever made!
Post by: Qwerkey on March 17, 2019, 09:33:01 am

Prithak, a small point, but I notice that you submit your Programs in the QB64 Discussion section.  The Programs section "This section is for (i) completed programs, or (ii) works in progress." would be the best place - it would save Odin having to move things.

Title: Re: The Best Interpreter I've ever made!
Post by: bplus on March 17, 2019, 10:01:06 am

This is a curious thing that you call an interpreter.

From your link, I found this example for function:

Quote

clear()
input("Enter a", a)
input("Enter b", b)
sum = add(a,b)
println "The Sum of those number = "; sum

funct add(num1,num2) {
   add = num1 + num2
}

What language is this? Your PL?

It would be nice in your menu to be able to start a new file in Notepad eg prompt for a name and start Notepad with it.

Anyway to get the test1.txt file to load in Notepad, I had to figure to type "/edit " then the filename, not just the filename.
I suggest choose a menu number THEN prompt for the file name when that menu # is chosen.

Then to get the filename to Open I had to fix this line:
OPEN RIGHT$(file$, LEN(file$) - 6) FOR INPUT AS #1 '<<<<<<<<<<<<<<<<<<<<<<< to edit out "/edit"
again easier to just prompt for filename after edit menu # chosen

Then to get QB64 to compile the p1.bas translation, I had to fully path my QB64.exe file
Woops! Nope! It's still not compiling. I must of compiled it when looking at p1.bas through QB64 IDE.

Quote

ONE PROBLEM!
I can't seem to use nested loops in this. I am guessing because I am not using an array in "e$".

As is, your translator can go only one } deep with this code:

Code: QB64: [Select]

1.     ELSEIF INSTR(l$, "}") THEN
2.         IF e$ = "for" THEN
3.             PRINT #2, "NEXT"
4.         ELSEIF e$ = "if" THEN
5.             PRINT #2, "END IF"
6.         ELSEIF e$ = "funct" THEN
7.             PRINT #2, "END FUNCTION"
8.         ELSEIF e$ = "while" THEN
9.             PRINT #2, "WEND"
10.         END IF
11.         e$ = ""

You will need to count brackets deep { and find next equivalent } count for match up to same level of embedded code block for ENDing it.

Title: Re: The Best Interpreter I've ever made!
Post by: Aurel on March 18, 2019, 04:26:53 am

Using INSTR() to get command ...funny!

Title: Re: The Best Interpreter I've ever made!
Post by: Aurel on March 19, 2019, 04:24:31 am

In fact
it is strange ..there is no any expression evaluator in your lang
and all looking like translator...am i right?
..and in just 126 lines of code ..require lot more subroutines to create minimal
interpreter.
What we have here is attempt for some sort of translator to qb64?
from the other side when i read your profile i figured that you are very young
and that is really refreshing for one BASIC forum ...just keep it !
I add comment to your github,io site..

Text Only | Text with Attachments