+- NaaLaa (https://www.naalaa.com/forum)
+-- Forum: Other (https://www.naalaa.com/forum/forum-8.html)
+--- Forum: Programming (https://www.naalaa.com/forum/forum-9.html)
+--- Thread: Code by Deep AI (/thread-249.html)
Code by Deep AI - aurel - 05-21-2025
yes check this :
I called it Deep Basic
Code:
' Basic interpreter with label-based control flow and multi-argument functions
' Data structures
Type ProgramLine
label As String
code As String
End Type
Type UserFunction
name As String
params() As String
body As String
End Type
' Globals
Dim program(1 To 500) As ProgramLine
Dim programSize As Integer
Dim labelMap As New Dictionary(Of String, Integer)
Dim variables(0 To 25) As Double ' A-Z
Dim functions() As UserFunction
Dim funcCount As Integer
Dim currentLine As Integer
Dim programRunning As Boolean
' Initialize
Sub InitProgram()
programSize = 0
labelMap.Clear()
ReDim functions(1 To 50)
funcCount = 0
End Sub
Sub AddLine(label As String, code As String)
programSize += 1
program(programSize).label = label
program(programSize).code = code
labelMap.Add(label.ToUpper(), programSize)
End Sub
Function FindLabel(label As String) As Integer
Dim idx As Integer = -1
If labelMap.ContainsKey(label.ToUpper()) Then
idx = labelMap.Item(label.ToUpper())
End If
Return idx
End Function
' Tokenizer
Function Tokenize(expr As String) As String()
Dim tokens() As String
Dim p As Integer = 1
Dim lenExpr As Integer = Len(expr)
Dim tokenCount As Integer = 0
While p <= lenExpr
Dim ch As String = Mid(expr, p, 1)
If ch = " " Then p += 1 : Continue
If ch Like "[0-9.]" Then
Dim startPos As Integer = p
While p <= lenExpr And Mid(expr, p, 1) Like "[0-9.]"
p += 1
Wend
tokenCount += 1 : ReDim Preserve tokens(1 To tokenCount)
tokens(tokenCount) = Mid(expr, startPos, p - startPos)
ElseIf ch Like "[A-Za-z]" Then
Dim startPos As Integer = p
While p <= lenExpr And Mid(expr, p, 1) Like "[A-Za-z0-9]"
p += 1
Wend
tokenCount += 1 : ReDim Preserve tokens(1 To tokenCount)
tokens(tokenCount) = UCase(Mid(expr, startPos, p - startPos))
ElseIf ch = "+" Or ch = "-" Or ch = "*" Or ch = "/" Or ch = "(" Or ch = ")" Or ch = "=" Or ch = "," Then
tokenCount += 1 : ReDim Preserve tokens(1 To tokenCount)
tokens(tokenCount) = ch
p += 1
Else
p += 1
End If
Wend
Return tokens
End Function
' Expression parsing and evaluation (simple recursive descent)
Function ParseExpression(tokens() As String, ByRef pos As Integer) As Double
Dim val1 As Double = ParseTerm(tokens, pos)
While pos <= UBound(tokens) And (tokens(pos) = "+" Or tokens(pos) = "-")
Dim op As String = tokens(pos)
pos += 1
Dim val2 As Double = ParseTerm(tokens, pos)
If op = "+" Then val1 += val2 Else val1 -= val2
Wend
Return val1
End Function
Function ParseTerm(tokens() As String, ByRef pos As Integer) As Double
Dim val1 As Double = ParseFactor(tokens, pos)
While pos <= UBound(tokens) And (tokens(pos) = "*" Or tokens(pos) = "/")
Dim op As String = tokens(pos)
pos += 1
Dim val2 As Double = ParseFactor(tokens, pos)
If op = "*" Then val1 *= val2 Else If val2 <> 0 Then val1 /= val2
Wend
Return val1
End Function
Function ParseFactor(tokens() As String, ByRef pos As Integer) As Double
Dim token As String = tokens(pos)
Dim result As Double
If IsNumeric(token) Then
result = Val(token)
pos += 1
ElseIf token Like "[A-Z]" Then
Dim idx As Integer = Asc(token) - Asc("A")
result = variables(idx)
pos += 1
ElseIf token = "(" Then
pos += 1
result = ParseExpression(tokens, pos)
If tokens(pos) = ")" Then pos += 1
ElseIf tokens(pos) Like "[A-Za-z]" Then
' Function call
result = CallFunction(token, tokens, pos)
Else
result = 0
pos += 1
End If
Return result
End Function
' Call multi-arg function
Function CallFunction(funcName As String, tokens() As String, ByRef pos As Integer) As Double
Dim args() As Double
ReDim args(0 To -1)
If tokens(pos) = "(" Then
pos += 1 ' skip '('
Do While tokens(pos) <> ")" And pos <= UBound(tokens)
Dim argVal As Double = ParseExpression(tokens, pos)
ReDim Preserve args(0 To UBound(args) + 1)
args(UBound(args)) = argVal
If tokens(pos) = "," Then pos += 1
Loop
If tokens(pos) = ")" Then pos += 1
Return CallFunctionByName(funcName, args)
Else
' no parentheses, no args
Return CallFunctionByName(funcName, args)
End If
End Function
Function CallFunctionByName(name As String, args() As Double) As Double
Dim i As Integer
For i = 1 To funcCount
If functions(i).name = name Then
Dim body As String = functions(i).body
Dim params() As String = functions(i).params
Dim pCount As Integer = UBound(params) - LBound(params) + 1
If UBound(args) + 1 <> pCount Then Return 0 ' mismatch
Dim tempBody As String = body
For j As Integer = 0 To pCount - 1
tempBody = Replace(tempBody, params(j), CStr(args(j)))
Next
Return EvaluateExpression(tempBody)
End If
Next
Return 0
End Function
Function EvaluateExpression(expr As String) As Double
Dim tokens() As String = Tokenize(expr)
Dim p As Integer = 1
Return ParseExpression(tokens, p)
End Function
' Execute a line of code
Sub ExecuteLine(line As String)
Dim tokens() As String = Tokenize(line)
If UBound(tokens) < 0 Then Return
Dim cmd As String = tokens(1)
Dim rest As String = Mid(line, Len(cmd) + 2).Trim()
Select Case UCase(cmd)
Case "PRINT"
Print rest
Case "LET"
Dim eqPos As Integer = InStr(rest, "=")
If eqPos > 0 Then
Dim vname As String = Trim(Left(rest, eqPos - 1))
Dim expr As String = Trim(Mid(rest, eqPos + 1))
Dim valRes As Double = EvaluateExpression(expr)
Dim idx As Integer = Asc(UCase(vname)) - Asc("A")
variables(idx) = valRes
End If
Case "GOTO"
Dim lbl As String = rest
Dim idx As Integer = FindLabel(lbl)
If idx >= 1 Then currentLine = idx - 1 ' -1 because main loop increments
Case "IF"
' Format: IF expr THEN label
Dim thenPos As Integer = InStr(UCase(line), "THEN")
If thenPos > 0 Then
Dim condExpr As String = Trim(Mid(line, 4, thenPos - 4))
Dim lbl As String = Trim(Mid(line, thenPos + 4))
Dim condVal As Double = EvaluateExpression(condExpr)
If condVal <> 0 Then
Dim idx As Integer = FindLabel(lbl)
If idx >= 1 Then currentLine = idx - 1
End If
End If
Case "DEF"
' Format: DEF FN name(params) = expression
Dim defLine As String = line
Dim eqPos As Integer = InStr(defLine, "=")
If eqPos > 0 Then
Dim defPart As String = Trim(Left(defLine, eqPos - 1))
Dim body As String = Trim(Mid(defLine, eqPos + 1))
Dim fnPos As Integer = InStr(defPart, "FN")
If fnPos > 0 Then
Dim restStr As String = Trim(Mid(defPart, fnPos + 2))
Dim openP As Integer = InStr(restStr, "(")
Dim closeP As Integer = InStr(restStr, ")")
If openP > 0 And closeP > 0 Then
Dim fname As String = Trim(Left(restStr, openP - 1))
Dim paramStr As String = Trim(Mid(restStr, openP + 1, closeP - openP - 1))
Dim params() As String
If Len(paramStr) > 0 Then
params = Split(paramStr, ",")
For i As Integer = 0 To UBound(params)
params(i) = Trim(params(i))
Next
Else
ReDim params(0 To -1)
End If
If funcCount >= UBound(functions) Then Exit Sub
funcCount += 1
functions(funcCount).name = fname
functions(funcCount).params = params
functions(funcCount).body = body
End If
End If
End If
' Add more commands as needed
End Select
End Sub
Sub RunProgram()
currentLine = 1
programRunning = True
While currentLine >= 1 And currentLine <= programSize
Dim line As String = program(currentLine).code
ExecuteLine(line)
currentLine += 1
Wend
Print "Program finished."
End Sub
Sub Main()
InitProgram()
' Sample program
AddLine("START", "LET A = 5")
AddLine("LOOP", "PRINT ""A=""; A")
AddLine("INCR", "LET A = A + 1")
AddLine("CHECK", "IF A < 10 THEN GOTO LOOP")
AddLine("END", "PRINT ""Done.""")
RunProgram()
End Subhere is a version without stupid REDIM
![[Image: grin.png]](http://basic4us.epizy.com/forum/Smileys/fugue/grin.png)
Code:
' Basic-like interpreter with fixed-size global arrays, no dynamic Redim
' No dictionaries used; labels stored in parallel arrays
' Constants for maximum sizes
CONST MAX_PROGRAM_LINES = 1000
CONST MAX_FUNCTIONS = 50
CONST MAX_PARAMS = 10
CONST MAX_LABELS = 100
' Data structures
TYPE ProgramLine
label As String * 20
code As String * 80
END TYPE
TYPE UserFunction
name As String * 20
params(0 To MAX_PARAMS - 1) As String * 10
paramCount As Integer
body As String * 80
END TYPE
' Global arrays
DIM program(1 To MAX_PROGRAM_LINES) AS ProgramLine
DIM labels(1 To MAX_LABELS) AS String * 20
DIM labelLines(1 To MAX_LABELS) AS Integer
Dim labelCount As Integer
DIM functions(1 To MAX_FUNCTIONS) AS UserFunction
Dim funcCount As Integer
Dim variables(0 To 25) As Double ' A-Z variables
Dim progCount As Integer
Dim currentLine As Integer
Sub Init()
' Initialize counters
progCount = 0
labelCount = 0
funcCount = 0
' Optional: clear arrays (not strictly necessary)
Dim i As Integer
For i = 1 To MAX_PROGRAM_LINES
program(i).label = ""
program(i).code = ""
Next
For i = 1 To MAX_LABELS
labels(i) = ""
labelLines(i) = 0
Next
For i = 1 To MAX_FUNCTIONS
functions(i).name = ""
functions(i).body = ""
functions(i).paramCount = 0
For j = 0 To MAX_PARAMS - 1
functions(i).params(j) = ""
Next
Next
End Sub
Sub AddLine(label As String, code As String)
If progCount >= MAX_PROGRAM_LINES Then Exit Sub
progCount += 1
program(progCount).label = label
program(progCount).code = code
If label <> "" And labelCount < MAX_LABELS Then
labelCount += 1
labels(labelCount) = UCase(label)
labelLines(labelCount) = progCount
End If
End Sub
Function FindLabel(lbl As String) As Integer
Dim i As Integer
For i = 1 To labelCount
If labels(i) = UCase(lbl) Then
Return labelLines(i)
End If
Next
Return -1
End Function
Function ParseTokens(line As String) As String()
Dim tokens(1 To 100) As String
Dim tokenCount As Integer
tokenCount = 0
Dim p As Integer
p = 1
Dim lenLine As Integer
lenLine = Len(line)
While p <= lenLine
Dim ch As String
ch = Mid(line, p, 1)
If ch = " " Then
p = p + 1
Continue
End If
If ch Like "[0-9.]" Then
Dim startPos As Integer
startPos = p
While p <= lenLine And Mid(line, p, 1) Like "[0-9.]"
p = p + 1
Wend
tokenCount = tokenCount + 1
tokens(tokenCount) = Mid(line, startPos, p - startPos)
ElseIf ch Like "[A-Za-z]" Then
Dim startPos As Integer
startPos = p
While p <= lenLine And Mid(line, p, 1) Like "[A-Za-z0-9]"
p = p + 1
Wend
tokenCount = tokenCount + 1
tokens(tokenCount) = UCase(Mid(line, startPos, p - startPos))
ElseIf ch = "(" Or ch = ")" Or ch = "," Or ch = "=" Or ch = "+" Or ch = "-" Or ch = "*" Or ch = "/" Then
tokenCount = tokenCount + 1
tokens(tokenCount) = ch
p = p + 1
Else
p = p + 1
End If
Wend
ParseTokens = tokens
End Function
Function EvaluateExpression(tokens() As String, ByRef pos As Integer) As Double
Dim val1 As Double = ParseTerm(tokens, pos)
While pos <= UBound(tokens) And (tokens(pos) = "+" Or tokens(pos) = "-")
Dim op As String
op = tokens(pos)
pos = pos + 1
Dim val2 As Double
val2 = ParseTerm(tokens, pos)
If op = "+" Then
val1 = val1 + val2
Else
val1 = val1 - val2
End If
Wend
EvaluateExpression = val1
End Function
Function ParseTerm(tokens() As String, ByRef pos As Integer) As Double
Dim val1 As Double = ParseFactor(tokens, pos)
While pos <= UBound(tokens) And (tokens(pos) = "*" Or tokens(pos) = "/")
Dim op As String
op = tokens(pos)
pos = pos + 1
Dim val2 As Double
val2 = ParseFactor(tokens, pos)
If op = "*" Then
val1 = val1 * val2
ElseIf val2 <> 0 Then
val1 = val1 / val2
End If
Wend
ParseTerm = val1
End Function
Function ParseFactor(tokens() As String, ByRef pos As Integer) As Double
Dim token As String
token = tokens(pos)
Dim result As Double
If IsNumeric(token) Then
result = Val(token)
pos = pos + 1
ElseIf token Like "[A-Z]" Then
' Variable
result = variables(Asc(token) - Asc("A"))
pos = pos + 1
ElseIf token = "(" Then
pos = pos + 1
result = EvaluateExpression(tokens, pos)
If tokens(pos) = ")" Then pos = pos + 1
Else
result = 0
pos = pos + 1
End If
ParseFactor = result
End Function
Function CallFunction(name As String, tokens() As String, ByRef pos As Integer) As Double
Dim args(0 To MAX_PARAMS - 1) As Double
Dim argCount As Integer
argCount = 0
If tokens(pos) = "(" Then
pos = pos + 1
Do While tokens(pos) <> ")" And pos <= UBound(tokens)
args(argCount) = EvaluateExpression(tokens, pos)
argCount = argCount + 1
If tokens(pos) = "," Then pos = pos + 1
Loop
If tokens(pos) = ")" Then pos = pos + 1
CallFunction = CallUserFunction(name, args, argCount)
Else
' no parentheses, no args
CallFunction = CallUserFunction(name, args, 0)
End If
End Function
Function CallUserFunction(name As String, args() As Double, argCount As Integer) As Double
Dim i As Integer
For i = 1 To funcCount
If functions(i).name = name Then
Dim body As String = functions(i).body
Dim p As Integer
p = 1
Dim tempBody As String
tempBody = body
Dim j As Integer
For j = 0 To functions(i).paramCount - 1
Dim paramName As String = functions(i).params(j)
tempBody = Replace(tempBody, paramName, CStr(args(j)))
Next
Dim tokens() As String
tokens = ParseTokens(tempBody)
Return EvaluateExpression(tokens, p)
End If
Next
Return 0
End Function
Sub ExecuteLine(line As String)
Dim tokens() As String
tokens = ParseTokens(line)
If UBound(tokens) < 1 Then Exit Sub
Dim firstToken As String
firstToken = tokens(1)
Select Case firstToken
Case "PRINT"
Dim expr As String
expr = Mid(line, Len("PRINT") + 2)
Dim tokensExpr() As String
tokensExpr = ParseTokens(expr)
Dim pos As Integer
pos = 1
Dim val As Double
val = EvaluateExpression(tokensExpr, pos)
Print val
Case "LET"
' Format: LET A = expression
Dim eqPos As Integer
eqPos = InStr(line, "=")
If eqPos > 0 Then
Dim varPart As String
varPart = Trim(Left(line, eqPos - 1))
Dim varName As String
varName = Trim(Mid(varPart, Len("LET") + 1))
Dim expr As String
expr = Trim(Mid(line, eqPos + 1))
Dim tokensExpr() As String
tokensExpr = ParseTokens(expr)
Dim pos As Integer
pos = 1
Dim val As Double
val = EvaluateExpression(tokensExpr, pos)
If varName Like "[A-Z]" Then
variables(Asc(varName) - Asc("A")) = val
End If
End If
Case "GOTO"
Dim lbl As String
lbl = Trim(Mid(line, Len("GOTO") + 2))
Dim idx As Integer
idx = FindLabel(lbl)
If idx >= 1 Then currentLine = idx - 1
Case "IF"
Dim thenPos As Integer
thenPos = InStr(UCase(line), "THEN")
If thenPos > 0 Then
Dim condPart As String
condPart = Trim(Left(line, thenPos - 1))
Dim lbl As String
lbl = Trim(Mid(line, thenPos + 4))
Dim condExpr As String
condExpr = Trim(Mid(condPart, 3))
Dim tokensCond() As String
tokensCond = ParseTokens(condExpr)
Dim pos As Integer
pos = 1
Dim condVal As Double
condVal = EvaluateExpression(tokensCond, pos)
If condVal <> 0 Then
Dim idx As Integer
idx = FindLabel(lbl)
If idx >= 1 Then currentLine = idx - 1
End If
End If
Case "DEF"
' DEF FN name(params)=expression
Dim defLine As String
defLine = line
Dim eqPos As Integer
eqPos = InStr(defLine, "=")
If eqPos > 0 Then
Dim defPart As String
defPart = Trim(Left(defLine, eqPos - 1))
Dim body As String
body = Trim(Mid(defLine, eqPos + 1))
Dim fnPos As Integer
fnPos = InStr(defPart, "FN")
If fnPos > 0 Then
Dim restStr As String
restStr = Trim(Mid(defPart, fnPos + 2))
Dim openP As Integer
Dim closeP As Integer
openP = InStr(restStr, "(")
closeP = InStr(restStr, ")")
If openP > 0 And closeP > 0 Then
Dim fname As String
fname = Trim(Left(restStr, openP - 1))
Dim paramStr As String
paramStr = Trim(Mid(restStr, openP + 1, closeP - openP - 1))
Dim params() As String
Dim paramCount As Integer
paramCount = 0
If Len(paramStr) > 0 Then
Dim arrParams() As String
arrParams = Split(paramStr, ",")
For j = 0 To UBound(arrParams)
functions(funcCount + 1).params(j) = Trim(arrParams(j))
Next
paramCount = UBound(arrParams) + 1
End If
If funcCount < MAX_FUNCTIONS Then
funcCount = funcCount + 1
functions(funcCount).name = fname
functions(funcCount).body = body
functions(funcCount).paramCount = paramCount
End If
End If
End If
End If
' Add other commands as needed
End Select
End Sub
Sub RunProgram()
currentLine = 1
While currentLine >= 1 And currentLine <= progCount
Dim line As String
line = program(currentLine).code
ExecuteLine(line)
currentLine = currentLine + 1
Wend
Print "Program finished."
End Sub
Sub Main()
Init()
' Example program:
' Define a function: FN Add(a,b) = a + b
AddLine("", "DEF FN Add(a,b)=a+b")
AddLine("", "LET A=10")
AddLine("", "LET B=20")
AddLine("", "PRINT ""Sum=""")
AddLine("", "PRINT FN Add(A,B)")
AddLine("", "IF A<B THEN GOTO Label1")
AddLine("Label1", "PRINT ""A is less than B""")
RunProgram()
End Subfor more code visit :
http://basic4us.epizy.com/forum/index.php
RE: Code by Deep AI - aurel - 05-25-2025
...okay ..anyone else try to use Deep AI .. ?
it is kind of fun ...well maybe
RE: Code by Deep AI - johnno56 - 05-25-2025
I logged into basic4us and searched for Deep AI... Based on my ever so short research, you asked DeepSeek AI to "make me extended Basic".
I am going to assume that DeepSeek is not human, right? lol
The interpreter? that was produced you called it Deep Basic? (cool name). Am I right so far? (I'm just guessing at this point... lol)
You have provided some "snippets". I am also going to assume that these are part of the "core" of Deep Basic?
It's a "basic-like" interpreter? So far, what does it do and do you plan to develop it further?
... and no, I have not tried Deep AI, and probably won't... I have concerns about AI - and it's way over my head anyway... lol
I did a search on DeepSeek and found this: (Google search result...)
Is DeepSeek banned in Australia?
AI Overview
Yes, DeepSeek AI has been banned from use within Australian government systems. This ban was initiated by the Australian government in February 2025 due to national security and data privacy concerns.
Here's a more detailed explanation:
Reason for the ban:
The Australian government cited national security and data privacy as the main reasons for the ban. Concerns about the potential for cross-border data access and the risk of sensitive information being collected and analyzed by DeepSeek's developers were key factors.
Who is affected?
The ban applies to all federal government systems and devices, and it also extends to state and territory governments as they have also implemented their own bans.
Implementation:
The Department of Home Affairs advised all Non-Corporate Commonwealth Entities to take steps to ensure DeepSeek is not integrated into their systems or devices.
Impact on individuals:
While the ban applies to government systems, it doesn't prevent individuals from using DeepSeek on their personal devices. However, it's recommended to be cautious when sharing sensitive information through the platform, as it could potentially be stored and analyzed by DeepSeek's developers.
Other jurisdictions:
Similar bans have been implemented in other countries, including Italy, Taiwan, and the U.S.
RE: Code by Deep AI - aurel - 05-26-2025
Hi John
Let start from the end of your reply
It looks that this is not DeepSeek AI than Deep AI
so you may look here
https://deepai.org/chat
yes you guess it right i asked
"make me extended BASIC intepreter in C"
then i asked about translation to VB then to FreeBasic
i even asked about OxygenBasic ..heh he posted wrong code
Freebasic looks ok but NOT compile due to thing that FB is 3 dialects in one
(ahh long story)
of course you need to know what ask
about tokenizer , parser ,evaluator ...arrays ..structures...UDT ,UDF .and all that things
...you asked what does it do :
this is example code by AI
Code:
Quote:
Code:' Example program:
' Define a function: FN Add(a,b) = a + b
AddLine("", "DEF FN Add(a,b)=a+b")
AddLine("", "LET A=10")
AddLine("", "LET B=20")
AddLine("", "PRINT ""Sum=""")
AddLine("", "PRINT FN Add(A,B)")
AddLine("", "IF A<B THEN GOTO Label1")
AddLine("Label1", "PRINT ""A is less than B""")
RunProgram()
End Sub
RE: Code by Deep AI - johnno56 - 05-26-2025
I obviously assumed too much, again. DeepAI - chatbot - got it. DeepSeek! What was I thinking? lol
I was curious as to whether or not deepai needed "parameters" from the requester. Which would presume that the requester would know what to ask for... I assumed again that the AI would just create everything from a single command... like "Build a basic interpreter"... After you gave deepai the necessary parameters, did the ai build it all or did you have to do some coding as well?...
If the ai built it all, then that could be a game-changer, for developers... Just think... give ai the necessary info and it builds it for the user. Here's an interesting situation... Assume a "AAA" game is built. The game is sold. Does the AI get the money? After all, it 'did' do all the work... lol Another situation... Computers using AI to build software for computers... eventually, the AI will conclude, "is the human actually needed." Ouch!
How times have changed... Remember Bill Gates's quote, "640K ought to be enough for anybody." Now we have Terrabytes and then some... Bill and I are the same age... but his bank balance is a smidge larger than mine... lol
Had a long day... It's gone 10pm and I need to get some sleep... Good night...
RE: Code by Deep AI - aurel - 05-27-2025
Well it build it most of things you told him
not exactly ALL or everything
as i said you need to fix it to get it work
RE: Code by Deep AI - johnno56 - 05-27-2025
Understood... All the best with Deep Basic!!
RE: Code by Deep AI - aurel - 05-27-2025
he he ...thanks
well for me this is fun experiment to
see Does AI really can help
and my answer is ....YES IT CAN