### Author Topic: oh One-Handed Interpreter  (Read 3901 times)

0 Members and 1 Guest are viewing this topic.

#### bplus ##### oh One-Handed Interpreter
« on: March 07, 2021, 10:51:11 PM »
OMG! It was one year to the day when @STxAxTIC posted an Intro to the SB project here:
https://www.qb64.org/forum/index.php?topic=2308.msg115317#msg115317
and I revisioned the project here:

I completely gutted SB1 of the numeric evaluator and replaced it with a much slicker Fval\$ (Function Value\$) evaluator, so now I can mix and nest numeric and string functions.

Basic Syntax is myVar = SF[a1,a2,a3,...] And a1,a2,a3 can be more nested SF[ ] String Functions.

And you can do everything one handed because you only need shift key for printing nice labels on screen.

Here is new Fval\$ evaluator (it's more developed in oh):
Code: (qb64) [Select]
`Option _Explicit_Title "Fval\$" 'restart for oh one-handed interpreter 2021-03-07 My Dad's B-day would be 96' need a evaluator to handle any function and return the value as a stringReDim Shared Err\$, Vnames\$(1 To 1000), Vvalues\$(1 To 1000)ReDim Shared SA\$(1 To 1), NA#(1 To 1)ReDim Shared As Long Vindex, DebugReDim f\$, d\$, r1\$, r2\$f\$ = "add[30, add[1, 2, 3, 4, 5], pow[2, 5]" ' > 15Vnames\$(1) = "A": Vvalues\$(1) = "2" '(x + 5) (2x + 6) = 2x^2 + 16x + 30 roots -5, -3Vnames\$(2) = "B": Vvalues\$(2) = "16"Vnames\$(3) = "C": Vvalues\$(3) = "30"d\$ = "p[s[x[b,b],x[4,a,c]],.5]"r1\$ = "d[a[s[0, b],p[s[x[b,b],x[4,a,c]],.5]],x[2,a]]" 'yeahr2\$ = "d[s[s[0, b],p[s[x[b,b],x[4,a,c]],.5]],x[2,a]]" 'yeahPrint Fval\$(r2\$), Fval(r1\$) 'nice! roots are rightPrint Fval\$("bnd[mid3[cap[hello world], 7, 3],cap[d]]")Print Fval\$("join[_,a,b,c]") 'nice!Function Fval\$ (S\$)    'updated from oh because Fval\$ was destroying the original S\$ string PLUS sometimes just want to return S\$ or if variable, it's value    If Debug Then Print "Fval\$ rec'd: "; S\$    ReDim As Long bo, bc, i    ReDim char\$, copyS\$    'find deepest nested [] , isolate string and give it to FunHandler to get the replacement string    ' stick replacement back into copyS\$ (of = sign)    ' look for more [] when none exist then done    copyS\$ = S\$    bo = InStr(copyS\$, "[") ' bracket open    If bo Then        While bo            For i = bo + 1 To Len(copyS\$)                char\$ = Mid\$(copyS\$, i, 1)                If char\$ = "[" Then bo = i                If char\$ = "]" Then                    bc = i                    Exit For                End If            Next            'now from bo go back until hit 1 or a ] or a comma            While bo - 1 >= 1 And Mid\$(copyS\$, bo - 1, 1) <> "," And Mid\$(copyS\$, bo - 1, 1) <> "["                bo = bo - 1            Wend            copyS\$ = Mid\$(copyS\$, 1, bo - 1) + FunHandler\$(Mid\$(copyS\$, bo, bc - bo + 1)) + Mid\$(copyS\$, bc + 1)            bo = InStr(copyS\$, "[")        Wend        Fval\$ = copyS\$    Else        If VarIndex&(copyS\$) Then Fval\$ = Vvalues\$(VarIndex&(copyS\$)) Else Fval\$ = copyS\$    End If    If Debug Then Print "Fval\$ returning: "; Fval\$End FunctionFunction FunHandler\$ (fun\$) ' fun\$ looks like this fun\$ = funName[comma, delim, args]    'needs LeftOf\$, RightOf\$, Split, VarIndex& (from SB1)    Dim func\$, aLine\$, temp\$    Dim As Long i, uba, idx    Dim As Double tmp    'needs LeftOf\$, RightOf\$, Split    func\$ = UCase\$(_Trim\$(LeftOf\$(fun\$, "[")))    aLine\$ = LeftOf\$(RightOf\$(fun\$, "["), "]")    ReDim a\$(1 To 1)    Split aLine\$, ",", a\$()    uba = UBound(a\$)    ' now is good time to subst back values for variables    For i = 1 To uba        idx = VarIndex&(a\$(i))        If idx Then a\$(i) = Vvalues\$(idx)    Next    Select Case func\$        Case "BND" 'concatenate Bond or Bind same thing                    any number of arguments            For i = 1 To uba                temp\$ = temp\$ + a\$(i)            Next            FunHandler\$ = temp\$        Case "A"            For i = 1 To uba                tmp = tmp + Val(a\$(i))            Next            FunHandler\$ = TD\$(tmp)        Case "X": FunHandler\$ = TD\$(Val(a\$(1)) * Val(a\$(2)))            tmp = 1            For i = 1 To uba                tmp = tmp * Val(a\$(i))            Next            FunHandler\$ = TD\$(tmp)        Case "JOIN"            temp\$ = a\$(2) 'JOIN[deli\$, a2, a3, a4..]            For i = 3 To uba                temp\$ = temp\$ + a\$(1) + a\$(i)            Next            FunHandler\$ = temp\$        Case "MID3": FunHandler\$ = Mid\$(a\$(1), Val(a\$(2)), Val(a\$(3))) '      3 argument functions        Case "IN3": FunHandler\$ = TD\$(InStr(Val(a\$(1)), a\$(2), a\$(3)))        Case "SEQ": If (a\$(1)) = a\$(2) Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "MID1": FunHandler\$ = Mid\$(a\$(1), Val(a\$(2)), 1) '               2 argument functions        Case "MID2": FunHandler\$ = Mid\$(a\$(1), Val(a\$(2))) ' mid\$ S\$, place#        Case "IN2": FunHandler\$ = TD\$(InStr(a\$(1), a\$(2))) ' instr s\$, match\$        Case "COP": FunHandler\$ = NumCopies\$(Val(a\$(1)), a\$(2)) ' nCop, s\$        Case "HEAD": FunHandler\$ = LeftOf\$(a\$(1), a\$(2)) ' s\$, lefts\$        Case "TAIL": FunHandler\$ = RightOf\$(a\$(1), a\$(2)) ' s\$, right\$        Case "GET": FunHandler\$ = GetVS\$(Chr\$(1), Val(a\$(2)), a\$(1)) ' aString\$, idx        Case "SPLIT": FunHandler\$ = SplitWrapper\$(a\$(1), a\$(2)) ' stringToSplit\$, Deli\$        Case "REJOIN": FunHandler\$ = JoinWrapper\$(a\$(1), a\$(2)) ' Astring\$, newDeli\$        Case "S": FunHandler\$ = TD\$(Val(a\$(1)) - Val(a\$(2))) '               2 number functions        Case "D"            If Val(a\$(2)) <> 0 Then                FunHandler\$ = TD\$(Val(a\$(1)) / Val(a\$(2)))            Else                Err\$ = "Error: Div by 0"            End If        Case "EQ": If Val(a\$(1)) = Val(a\$(2)) Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "LT": If Val(a\$(1)) < Val(a\$(2)) Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "LTE": If Val(a\$(1)) <= Val(a\$(2)) Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "GTE": If Val(a\$(1)) >= Val(a\$(2)) Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "GT": If Val(a\$(1)) > Val(a\$(2)) Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "NOTEQ": If Val(a\$(1)) <> Val(a\$(2)) Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "OR": If Val(a\$(1)) Or Val(a\$(2)) Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "AND": If Val(a\$(1)) And Val(a\$(2)) Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "M"            If Val(a\$(2)) >= 2 Then                FunHandler\$ = TD\$(Int(Val(a\$(1))) Mod Int(Val(a\$(2))))            Else                Err\$ = "Error: for A Mod B, b < 2"            End If        Case "P"            If Int(Val(a\$(2))) = Val(a\$(2)) Or Val(a\$(1)) >= 0 Then                FunHandler\$ = TD\$(Val(a\$(1)) ^ Val(a\$(2)))            Else                Err\$ = "Error: for A ^ B, A needs to be > 0 when B not Integer"            End If        Case "ASSORT": FunHandler\$ = SortWrapper\$(a\$(1), 1)        Case "DSSORT": FunHandler\$ = SortWrapper\$(a\$(1), 2)        Case "ANSORT": FunHandler\$ = SortWrapper\$(a\$(1), 3)        Case "DNSORT": FunHandler\$ = SortWrapper\$(a\$(1), 4)        Case "ASC": FunHandler\$ = TD\$(Asc(a\$(1))) '                                 1   arguments        Case "CHR": FunHandler\$ = Chr\$(Val(a\$(1)))        Case "LEN": FunHandler\$ = TD\$(Len(a\$(1)))        Case "LTR": FunHandler\$ = LTrim\$(a\$(1))        Case "RTR": FunHandler\$ = RTrim\$(a\$(1))        Case "TRIM": FunHandler\$ = _Trim\$(a\$(1))        Case "CAP": FunHandler\$ = UCase\$(a\$(1))        Case "LOW": FunHandler\$ = LCase\$(a\$(1))        Case "INT": FunHandler\$ = TD\$(Int(Val(a\$(1)))) '                                 1 number        Case "SIN": FunHandler\$ = TD\$(Sin(Val(a\$(1))))        Case "COS": FunHandler\$ = TD\$(Cos(Val(a\$(1))))        Case "TAN": FunHandler\$ = TD\$(Tan(Val(a\$(1))))        Case "ASIN": FunHandler\$ = TD\$(_Asin(Val(a\$(1))))        Case "ACOS": FunHandler\$ = TD\$(_Acos(Val(a\$(1))))        Case "ATAN": FunHandler\$ = TD\$(Atn(Val(a\$(1))))        Case "LOG": FunHandler\$ = TD\$(Log(Val(a\$(1))))        Case "EXP": FunHandler\$ = TD\$(Exp(Val(a\$(1))))        Case "SQR": FunHandler\$ = TD\$(Sqr(Val(a\$(1))))        Case "RAD": FunHandler\$ = TD\$(_D2R(Val(a\$(1))))        Case "DEG": FunHandler\$ = TD\$(_R2D(Val(a\$(1))))        Case "PI": FunHandler\$ = TD\$(_Pi(Val(a\$(1))))        Case "NOT": If Val(a\$(1)) = 0 Then FunHandler\$ = "-1" Else FunHandler\$ = "0"        Case "DATE": FunHandler\$ = Date\$ '                                             0 arguments        Case "TIME": FunHandler\$ = Time\$        Case "RND": FunHandler\$ = TD\$(Rnd)    End SelectEnd FunctionFunction VarIndex& (Vname\$)    Dim i As Long, name\$    name\$ = UCase\$(_Trim\$(Vname\$))    For i = 1 To UBound(Vnames\$) ' see if we have that name yet        If name\$ = Vnames\$(i) Then VarIndex& = i: Exit Function    NextEnd Function' update these 2 in case of\$ is not found! 2021-02-13Function LeftOf\$ (source\$, of\$)    If InStr(source\$, of\$) > 0 Then LeftOf\$ = Mid\$(source\$, 1, InStr(source\$, of\$) - 1) Else LeftOf\$ = source\$End Function' update these 2 in case of\$ is not found! 2021-02-13Function RightOf\$ (source\$, of\$)    If InStr(source\$, of\$) > 0 Then RightOf\$ = Mid\$(source\$, InStr(source\$, of\$) + Len(of\$)) Else RightOf\$ = ""End Function' note: I buggered this twice now, FOR base 1 array REDIM MyArray (1 to 1) AS ... the (1 to 1) is not same as (1) which was the Blunder!!!'notes: REDIM the array(0) to be loaded before calling Split '<<<< IMPORTANT dynamic array and empty, can use any lbound though'This SUB will take a given N delimited string, and delimiter\$ and create an array of N+1 strings using the LBOUND of the given dynamic array to load.'notes: the loadMeArray() needs to be dynamic string array and will not change the LBOUND of the array it is given.  rev 2019-08-27Sub Split (SplitMeString As String, Delim As String, LoadMeArray() As String)    Dim curpos As Long, arrpos As Long, LD As Long, dpos As Long 'fix use the Lbound the array already has    curpos = 1: arrpos = LBound(loadMeArray): LD = Len(Delim)    dpos = InStr(curpos, SplitMeString, Delim)    Do Until dpos = 0        LoadMeArray(arrpos) = Mid\$(SplitMeString, curpos, dpos - curpos)        arrpos = arrpos + 1        If arrpos > UBound(loadMeArray) Then ReDim _Preserve LoadMeArray(LBound(loadMeArray) To UBound(loadMeArray) + 1000) As String        curpos = dpos + LD        dpos = InStr(curpos, SplitMeString, Delim)    Loop    LoadMeArray(arrpos) = Mid\$(SplitMeString, curpos)    ReDim _Preserve LoadMeArray(LBound(loadMeArray) To arrpos) As String 'get the ubound correctEnd SubFunction SplitWrapper\$ (s\$, deli\$)    ReDim temp\$(1 To 1)    Split s\$, deli\$, temp\$()    SplitWrapper\$ = Join\$(temp\$(), Chr\$(1))End FunctionFunction JoinWrapper\$ (Astring\$, Deli\$) ' take an "array" and change it back to a long string    ReDim temp\$(1 To 1)    Split Astring\$, Chr\$(1), temp\$()    JoinWrapper\$ = Join\$(temp\$(), Deli\$) ' return string with user requested delimiterEnd FunctionFunction Join\$ (Arr() As String, D\$) 'created for this app D\$ is delimiter\$ to link items    ReDim i As Long, lb As Long, ub As Long, b\$    lb = LBound(arr): ub = UBound(arr)    b\$ = Arr(lb)    For i = lb + 1 To ub        b\$ = b\$ + D\$ + Arr(i)    Next    Join\$ = b\$End FunctionFunction TD\$ (Dbl As Double) 'Trim Double    TD\$ = _Trim\$(Str\$(Dbl))End FunctionFunction NumCopies\$ (NumberOfCopies&, S\$) ' Concatenate repeated copies of S\$    Dim i&    For i& = 1 To NumberOfCopies&        NumCopies\$ = NumCopies\$ + S\$    NextEnd Function' ------------ GetVS\$ and SetVS\$    Hot of the presses Version 2021-02-20  of the freshly redone from scratch subsFunction SetVS\$ (Delimiter\$, Insert\$, NthPlace&, AStringCopy\$) ' VS = Variable Siring Lengths    'use: FUNCTION StrCount& (S\$, AString\$)    'use: FUNCTION StrPlace& (S\$, Index AS LONG, Astring\$)    'use: FUNCTION StrCopies\$ (NumberOfCopies&, S\$)    ReDim Astring\$, wCnt&, nthPlaceAt&, nextAt&    Astring\$ = AStringCopy\$ 'AstringCopy\$ gets changed so return result through function name\$    wCnt& = StrCount&(Delimiter\$, Astring\$) + 1    'make sure we have enough delimiters    If wCnt& <= NthPlace& Then Astring\$ = Astring\$ + NumCopies\$(NthPlace& - wCnt&, Delimiter\$) ' string\$ is the problem!!!!!    If NthPlace& > wCnt& Then ' AString\$ will be modified such that only insert has to be tacked to end after delimiter        Astring\$ = Astring\$ + Insert\$    ElseIf wCnt& = 1 Then 'If something there then it comes before but if nothing probably just starting out.        Astring\$ = Insert\$    Else ' NthPlace& is between 2 delimiters        nthPlaceAt& = StrPlace&(Delimiter\$, NthPlace& - 1, Astring\$)        nextAt& = StrPlace&(Delimiter\$, NthPlace&, Astring\$)        If NthPlace& = wCnt& Then 'no delim  on right end            Astring\$ = Mid\$(Astring\$, 1, nthPlaceAt& + Len(Delimiter\$) - 1) + Insert\$        ElseIf NthPlace& <= 1 Then 'no delim of left end            If nextAt& Then Astring\$ = Insert\$ + Mid\$(Astring\$, nextAt&) Else Astring\$ = Insert\$        Else 'between 2 delimiters            Astring\$ = Mid\$(Astring\$, 1, nthPlaceAt& + Len(Delimiter\$) - 1) + Insert\$ + Mid\$(Astring\$, nextAt&)        End If    End If    SetVS\$ = Astring\$End FunctionFunction GetVS\$ (Delimiter\$, Index As Long, AString\$) ' VS for Variable length string,    'use: FUNCTION StrCount& (S\$, AString\$)    'use: FUNCTION StrPlace& (S\$, Index AS LONG, Astring\$)    ReDim cnt As Long, p1 As Long, p2 As Long    cnt = StrCount&(Delimiter\$, AString\$) + 1    p1 = StrPlace&(Delimiter\$, Index - 1, AString\$)    p2 = StrPlace&(Delimiter\$, Index, AString\$)    If Index > cnt Or Index < 1 Then        Exit Function ' beyond the limit of string    ElseIf Index = 1 Then        GetVS\$ = Mid\$(AString\$, 1, p2 - 1)    ElseIf Index = cnt Then        GetVS\$ = Mid\$(AString\$, p1 + Len(Delimiter\$))    Else 'between        GetVS\$ = Mid\$(AString\$, p1 + Len(Delimiter\$), p2 - p1 - Len(Delimiter\$))    End IfEnd FunctionFunction StrCount& (S\$, AString\$) ' Count S\$ in Astring\$    ReDim place As Long, cnt As Long, lenS As Long    place = InStr(AString\$, S\$): lenS = Len(S\$)    While place        cnt = cnt + 1        place = InStr(place + lenS, AString\$, S\$)    Wend    StrCount& = cntEnd FunctionFunction StrPlace& (S\$, Index As Long, Astring\$) ' Locate the Index number S\$ in Astrin\$    ReDim place As Long, cnt As Long, lenS As Long    place = InStr(Astring\$, S\$): lenS = Len(S\$)    While place        cnt = cnt + 1        If cnt = Index Then StrPlace& = place: Exit Function        place = InStr(place + lenS, Astring\$, S\$)    WendEnd Function '--------------------------------------------- END OF  subs for Get and Set VariableFunction SortWrapper\$ (Astring\$, SortType1to4 As Long) '------------------------------- Sorts Stuff    Dim i As Long    ' type 1 string ascending, 2 string descending, 3 numeric ascending, 4 numeric descending    'the arrays SA\$ and NA# have been dim shared (1 to 1) need to unzip astring\$    Split Astring\$, Chr\$(1), SA\$()    ReDim NA#(1 To UBound(sa\$))    If SortType1to4 > 2 Then 'convert into number        For i = 1 To UBound(sa\$)            NA#(i) = Val(SA\$(i))        Next    End If    Select Case SortType1to4        Case 1: ASQSort LBound(sa\$), UBound(sa\$)        Case 2: DSQSort LBound(sa\$), UBound(sa\$)        Case 3: ANQSort LBound(NA#), UBound(NA#)        Case 4: DNQSort LBound(NA#), UBound(NA#)    End Select    'now pack it backup in an Astring\$    If SortType1to4 > 2 Then 'convert back into string        For i = LBound(NA#) To UBound(NA#)            SA\$(i) = _Trim\$(Str\$(NA#(i)))        Next    End If    SortWrapper\$ = Join\$(SA\$(), Chr\$(1))End FunctionSub ASQSort (Start, Finish) 'sa\$ needs to be   DIM SHARED !!!!     array    Dim i As Long, j As Long, x\$    i = Start: j = Finish: x\$ = SA\$(Int((i + j) / 2))    While i <= j        While SA\$(i) < x\$: i = i + 1: Wend        While SA\$(j) > x\$: j = j - 1: Wend        If i <= j Then            Swap SA\$(i), SA\$(j)            i = i + 1: j = j - 1        End If    Wend    If j > Start Then ASQSort Start, j    If i < Finish Then ASQSort i, FinishEnd SubSub DSQSort (Start, Finish) 'sa\$ needs to be   DIM SHARED !!!!     array    Dim i As Long, j As Long, x\$    i = Start: j = Finish: x\$ = SA\$(Int((i + j) / 2))    While i <= j        While SA\$(i) > x\$: i = i + 1: Wend        While SA\$(j) < x\$: j = j - 1: Wend        If i <= j Then            Swap SA\$(i), SA\$(j)            i = i + 1: j = j - 1        End If    Wend    If j > Start Then DSQSort Start, j    If i < Finish Then DSQSort i, FinishEnd SubSub ANQSort (Start, Finish) 'na#  needs to be   DIM SHARED !!!!     array    Dim i As Long, j As Long, x#    i = Start: j = Finish: x# = NA#(Int((i + j) / 2))    While i <= j        While NA#(i) < x#: i = i + 1: Wend        While NA#(j) > x#: j = j - 1: Wend        If i <= j Then            Swap NA#(i), NA#(j)            i = i + 1: j = j - 1        End If    Wend    If j > Start Then ANQSort Start, j    If i < Finish Then ANQSort i, FinishEnd SubSub DNQSort (Start, Finish) 'sa\$ needs to be   DIM SHARED !!!!     array    Dim i As Long, j As Long, x#    i = Start: j = Finish: x# = NA#(Int((i + j) / 2))    While i <= j        While NA#(i) > x#: i = i + 1: Wend        While NA#(j) < x#: j = j - 1: Wend        If i <= j Then            Swap NA#(i), NA#(j)            i = i + 1: j = j - 1        End If    Wend    If j > Start Then DNQSort Start, j    If i < Finish Then DNQSort i, FinishEnd Sub '------------------------------------------------------------------------ Sorts Stuff End`
And all the test code for SB1 has been rewritten and tested for the oh Interpreter (see attached zip):

So how can you possibly do math stuff without those upper row shifted chars? Check it out :)

Look here for most recent zip package to Download, bas source + Windows 10 .exe, Cheat Sheet & Change Log and dozens of test txt programs that demo different features of using oh:

Updated 2021-03-14 you should be able to use SFunctions anywhere an argument is used in a command or another SFunction, menu fixed up a little, Simplicity File Load and Save, nItems[Astring], Right[ , ], Left[,] see Change Log next post (at end)    Oh yeah, Poll command for updating mouse status and last Key press. :)

Updates 2021-03-16 Extended maths for Add, Subtract, Mult, Divide and 2 output commands to clipboard and 1 SFunction clip[] no arguments for Clipboard Contents into a variable.

Update 2021-03-17 Featuring Donut.txt, some fixes and tweaks to get that all nice and pretty!

Update 2021-03-19 Featuring: Mouse Action Shooter - Target Practice
Changes mostly to get that going including Atan2[deltaY,deltaX ], Mouse TF (display or not), ABS[], Beep, Timer[]

Update 2021-03-22 Whole new front end, a scroller displays file contents, at least 128 chars per line (unless has tabs) and menu for: New, Edit, Load, Run, Quit mouse or keypress. Now have files[] that lists the current directory files in an AString! Extended math inverse[posInteger,numberOfDecimals] for customizing division if you need more or less than 100 decimal places that the extended math divide[a\$,b\$] uses. The handy replace[source\$,replace\$,new\$] added. Linelabels now end with \ instead of colon.

Update 2021-03-27 A number of fixes and syntax checking, specially useful after editing a program.

Update 2021-03-27A Fix sloppy closing bracket checking (was assuming end of line if none found) and also flag unrecognized SFunctions. This should help better point to code errors before the run.

Update 2021-06-03 Fix divide\$ new program calculates the Square root of a number to 100 digit places, this program is when I discovered divide\$ had a problem, it now runs fine!

Update 2021-06-15 String Math update replaces old String Math with fixed and inproved routines including the new sqrroot[] routine fro precision square roots.

You will need direntry.h in your QB64 Folder, a copy is included in zip package. This enables cross platform directory and file access, Thanks @SMcNeill
« Last Edit: June 15, 2021, 10:17:28 PM by bplus »

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #1 on: March 08, 2021, 12:20:02 PM »
oh Cheat Sheet | Help | Manual | Document
Update for v 2021-06-15 String Math update

Code: [Select]
`oh cheat sheet(s) txt file, b+ rev 2021-06-15 String Math Update                      ***  oh = One Handed Interpreter ***Create your oh program in your favorite Word Processor, I am using Notepad++.Drag and drop the file onto the compiled oh.exe to run it (old way).oh Menu:oh now displays the contents of a program on a scroller if get one off Command\$.All files selected from Load with be displayed on scroller with Menu on top line:(in yellow and red) New, Edit, Load, Run, Quit ; click or press first letter of menu item to select it. Edit or New should load up the file in your default .Txt Editor from a Shell call.Commands, variables, line labels are case insensitive.Re: Comments' at start of a line, formally tells oh to ignore the line, it's a comment.You can probably write comments in at your own risk without the ' as long as they don't start with a command word or symbol or have = sign  after first word.Re: oh color settings, in case you need to get back to them:Ink 100;180;225Paper 0;0;39*** Preloaded Variables and their Values:"MouseX"  ' use the poll command to update x pix see demo ao 3/14"MouseY"  ' use the poll command to update y pix "MouseL"  ' use the poll command to update Left button down = -1 or 0"MouseR"  ' use the poll command to update Right button status"Key"     ' use the poll command to update Last non empty key pressed, not sure about this one "MT"   = ""  ' constant, handy name for nut'n which you can compare to inps (Input String)"XMAX" = "1024"  screen pixel width, constant"YMAX" = "672"   screen pixel height, constant"RMAX" = "42"    screen print rows, constant"CMAX" = "128"   screen print columns, constant"NL"   = Chr\$(13) + Chr\$(10)  for .txt file delimiter (note: I say constant but these are variable not wise to change them though.)*** Print commands which use ; to delimit variables inside text. normal print and carriage return line feed use / one space after . or after ; to set spaces; print and next print position is right where it is, dont forget to finish line with a . line, tab built in columnstab columnWidth;item;item;item;... cpr row;textgoes here with plug-in variables ';here; and ;here;.           Center Print Row print a line of text.clipout args1 - replace Clipboard contents from any variable or literalclipadd args1 - Append tp Clipboard contents any variable or literal, the command does the first NL\$ = Chr\$(13) + Chr\$(10), you must do manually any inside the stuff you are appending, if needed.*** Input commands also ; to delimit prompt and variable inps this is a sample prompt;var   s on end signals string expected and will return mt for just enter keypress inpn this is a sample number prompt;var  n on end will turn an empty string entered to 0*** Screen stuff now semi-colon delimited arguments to allow each argument to be evaluated:loc row;col            AKA Locate for print chars 8x16at  col;row            Alternate that corresponds to graphics x, y but in char cells 8x16tag pixX;pixY;text\$    AKA _PrintStringcpr row;text           Center Print atRow;text with variables;embedded;I think.*** Screen Drawing now semi-colon delimited arguments to allow each argument to be evaluated:ink r;g;b;a          fore-color for printing or drawingpaper r;g;b;a        back-color usually set at startpix x;y               AKA Pset(x, y)line x1;y1;x2;y2      AKA Line(x1, y1)-(x2, y2)box x1;y1;w;h          AKA Line(x1, y1)-Step(x2, y2), ,Bfbox x1;y1;w;h         AKA Line(x1, y1)-Step(x2, y2), ,BFcirc x1;y1;r            AKA Circle (x1, y1), rfcirc x1;y1;rr          AKA For r = 0 To rr Step .25 : Circle (x, y), r : Nextftri x1;y1;x2;y2;x3;y3  Special MapTriangle command for *** Misc:poll           Updates preset mouse and key variablescls            AKA Clszzz            AKA Sleepbeep           AKA Beep this comes in handy for debuggingwait nSecs     AKA _Delayshow TF        AKA _Display, AutoDisplay Boolean: True = stops blinking, False = immediate draw/printmouse TF       Mouse Hide if False = 0, Show Mouse if True <> 0  set Astring;index;itemValue   compare to A(i) = itemValue also see var = get[astring,index] SFunction belowrndPt (arg = variableContainer) gets the next rndPt from a deck of all points on screen,       this helps distribute graphics "randomly" on screen, covers every point    then deck is reshuffled for next layer    rp = rndPt    x = rp mod xmax   or as we like to say at oh, m[rp,xmax]    y = int(rp/ymax)  or as we like to say at oh, int[d[rp,ymax]]     *** Boolean IF blocks if BooleanExpressionei BooleanExpression     AKA ElseIfel                       AKA Elsefi                       AKA End If*** Loop structure only one unless count goto[  - starts loop]  - ends loop*** only ways out of loops are: jmp BooleanExpression   Jump! out of the current loop level the command is in.exit   usually from inner if block, exits current loop levelend    stop rungoto labelName:*** GoSubgs labelName\ AKA GoSub (3/21 : changed to \ as line label marker)rtn           AKA ReturnlabelName\   for gs and goto (3/21 : changed to \ as line label marker)*** File simplicity:Save Astring;toFileName       - commandAstringVar = load[fileName]   - SFunctionfiles[]                       - AString list of the files in the current directory *** SFunctions Syntax:var = SFunction[a1, a2, a3,...]   variables setting or reassigning*** Booleans:and[a1, a2, a3,... ]  only returns -1 when all are <> 0or[a1, a2, a3,... ]   returns -1 if any one is <> 0seq[a1, a2] does a string compare a1 = a2? -1 if true, 0 if noteq[a1, a2] does a numeric compare a1 = a2? -1 if true, 0 if notlt[a1, a2] less than  a1<a2                -1 if true, 0 if notlte[a1, a2] less than or equal a1<=a2      -1 if true, 0 if notgt[a1, a2] greater than a1>a2              -1 if true, 0 if notgte[a1, a2] greater than or equal a1>=a2   -1 if true, 0 if notnoteq[a1, a2] not equal a1<>a2             -1 if true, 0 if notnot[a1]         if a1 = 0 then Not returns -1 else Not returns 0*** Arithmetics:a[a1, a2, a3,...]  adds them all,        a is for addx[a1, a2, a3,...]  multiplies all,       x is for mult.s[a1, a2]          a1 - a2               s is for subtractd[a1, a2]          a1 / a2  if a2 <> 0   d is for dividem[a1, a2]          a1 mod a2             m is for mod  AKA the remainderp[a1, a2]          a1 ^ a2               p is for power*** Extended Arithmetics extended math so extended the names ;-))add[a1,a2]subtract[a1,a2] - should this be subtract or subtr? I don't like submult[a1,a2]    - I am sure this is OK for multiplydivide[a1,a2]  - handles approx 100 decimal places (got to set a limit or it'd go on forever!),                   the 3 binary's above are arbitrary.inverse[PosInteger,NumberOfDecimals] - for custom designed division when 100 decimals wont do.sqrroot[a1] - working independently from Mr\$ Function like inverse.(The extended math had 14 Routines, MR\$ is controller of the Big 4 and stands for Math Regulator.)   *** Maths misc:int[a1]   converts to Integer, remove floating point decimal end if anysqr[a1]   returns square root if a1 is positive or 0log[a1]   QB64's Log, natural logarithm, see wiki Log to convert to Log(base 10)exp[a1]   QB64's Exp, Exp(1) = ernd[a1]   a1 is multiplier of Rnd (0 to almost 1) * a1abs[a1]   Absolute value of a1*** Trigs (Radian angle units) sin[a1]  a1 angle in radians, returns unique ratiocos[a1]  a1 angle in radians, returns unique ratiotan[a1]  a1 angle in radians, returns unique ratioasin[a1] a1 is ratio, returns angle in radian unitsacos[a1] a1 is ratio, returns angle in radian unitsatan[a1] a1 is ratio, returns angle in radian unitsrad[a1]  a1 is usually an angle in degrees needing to be changed to radian unitsdeg[a1]  a1 is usually an angle in radians needing to be converted to degree unitspi[a1]   a1 is a multiplier or fraction of Piatan2[a1 (=deltaY's) , a2 (=deltaX's) ] SFunction with 2 args, definitely a plus! note: delta usu. means difference Find the angle of point 1 (x1,y1) from point 2 (x2, y2) ) Basic: var = _atan2(y1-y2,x1-x2) or oh: var = atan2[s[y1,y2],s[x1,x2]]( You can figure the rest of the Trig Functions from these. )*** String functions:bnd[a1, a2, a3,...]  bind, bond, bound this concatenates a1, a2, a3,...join[delimiter\$, a2, a3,...] like the above but links the with delimiter,                              for comma or space separated items or Chr\$(10) line separators Allot of string functions have counterparts joins counterpart is:split[a1, a2] a1 is string to split, a2 is the delimiter, splits usually go into arraysfor oh we are using Astrings, strings that can be indexed to retrieve items using the "get" function. Another way to build giant strings from building block is:cop[a1, a2] better than String\$ command because it makes a1 concatenated copies of string a2rejoin[a1, a2] will take the special Astring, a1, formed from split or cop maybe bnd and splitand rejoin using the the delimiters given as a2. Say you have processed an Astring of data and wish to save it in a file as comma separated or as line by line.   *** String slices: mid1[a1, a2]      AKA Mid\$(a1, a2, 1) a 1 char return in a1 at a2mid2[a1, a2]      AKA standard Mid\$(a1, a2) 2 argument return remainder of a1 starting at a2 mid3[a1, a2, a3]  AKA standard 3 argument MID\$ left[a1, num of chars]  AKA Left\$right[a1, num of chars] AKA Right\$head[a1, a2] from a1 find a2 and take the part that comes before a2tail[a1, a2] from a1 find a2 (end) and take the remainder of string from there.*** String finds:in2[a1, a2] position of first a2 found in a1in3[a1, a2, a3] starting at a1, find and return a3 position in a2*** Chars:asc[a1] returns ascii value of char, space = 32, enter = 13, tab = 9, dbl quote = 34, hyphen = 45chr[a1] returns char of ascii number chr(65) = A, chr(48) = 0*** Trimming spaces:rtr[a1] removes spaces from rightltr[a1] removes spaces from lefttrim[a1] removes spaces left and right*** Shouting, whispering, modifying:cap[a1] a1 in all capitalslow[a1] a1 all lower casereplace[source\$,replace\$,new\$] - replaces a string with new\$ wherever found in source\$*** Astrings: like arrays, these are strings you can "get" an item value by index #Set Astring;index;itemToAddOrReassign - this is a command as opposed to an SFunctionso sets counterpart is get:get[a1, a2] from Astring, a1, get the item at index, a2. Compare to var = A(i), var = get[astring, index]nItems[Astring]  number of Items in the Astring (counts delimiters and adds 1)*** Now for some easy string functions:len[a1] returns the length in chars of a1spc[a1] returns a1 block of spacesdate[] no argument Date\$time[] no argument Time\$clip[] no argument get contents of _ClipBoardtimer[] no argument still need [] this the number of secs since midnight, 3 decimals at least.*** Special Order String Functions:ASSORT[a1] ascending string sort of astring, a1DSSORT[a1] descending string sort of astring, a1ANSORT[a1] ascending numeric sort of astring, a1DNSORT[a1] descending numeric sort of astring, a1Fval[a1] will attempt to evaluate a string or numeric expression of functions and literals.*** File simplicity:Save Astring;toFileNameAstringVar = load[fileName]files[]                       - AString list of the files in the current directoryChange Log: ==============================================================================================*** 2021-03-09 The "Screen" commands are now ; delimited to allow each argument to be evaluated.Commands effected: loc at tag ink pix line box fbox circ fcirc ftri wait show paperAll demos effected have been updated.New command: cpr for centering print on a row: cpr row;my text is this with a variable ;here; to plug in.See: Test ac Fval\$ Tester.txt, demo as this has been completely rewritten for cpr and first test of using Fval\$ to check arguments to commands.A Splash screen for Oh?*** 2021-03-10 Added 300 plus lines for File Dialog & Company including a very nice array displayer for showing the loaded programs, maybe I could do a help? No that is better in tabbed Notepad++Internal Splash is gone and the other internal test programs, net effect 1300 LOC including the start of oh's menu systemdirentry.h has been added to the zip package, please copy | paste into your QB64 folder for cross platform directory and files access if you dont have a copy there already. This allows the File Dialog part of oh to work correctly. *** 2021-03-14Dumped checking the _ClipBoard for a program now with File Dialog and all.Tidied up oh's menu a tiny bit.Check cpr handling of embedded variables and or SF[]'s, OK that is fixed up but not sure I want to do that for the other print commands? Oh yes!!! I do want that! (Done) Note: it you call edit without a file name you will wind up on the command line, just type exit. Add Command:Save Astring;Filename Reminder: Astring is my term for a string with indexed variable length string items. Save will store each item as a line in given filename.Add SFunction:Astring = Load[filename] So that you can load a file into an Astring for indexed access to lines.Consolidate Set and RndPt (even though RndPt takes no arguments it assigns a var) commands with all the other ; delimited commands that do calculations. So now,you don't have to have middleman variables in the commands, you can calc directlyin the command.Add preloaded Mouse variables:MouseX, MouseY, MouseL, MouseRLocate (x, y) mouse in pix and Boolean Left or Right Button DownAdd preloaded variable:KeyFor keypress detection.New Poll command to update all those preloaded variables with mouse and Key status.Left\$ and Right\$ var = Right[a1\$, val(a2\$)Ubound of Astring amount = nItems[AString]*** 2021-03-16Added: string math for extended arithmetics in SFunctionsadd[a1,a2]subtract[a1,a2]mult[a1,a2]divide[a1,a2](Divide: numerator/denominator, is calc'd by multiplying numerator by inverse of denominator).(So the inverse is calculated to 100 Decimal Places, but sometimes 100 decimal places wont do so inverse[posInteger,NumberOfDecimals] is added to do custom "division" by controlling the decimals in inverse and to be then multiplied by numerator in a hand made division calculation.)Added command:clipout a1 + whatever argument 1 is holding: literal, variable value substitution                or expression of SFunctions replaces contents of ClipboardAdded command:clipadd a1 appends to, instead of replaces, Clipboard data.Added SFunction clip[] no argument SFunction, you still need the brackets. This puts the contents of the contents of the Clipboard into the spec'd var. eg var = clip[]  *** 2021-03-17  Basically just a few fixes and tweaks to get Donut.txt to work. Fixed the file line count  with a different load of a file. Fixed bug from reading the Len[] of a file, thrown off by  the file containing []'s!!! So a new SafeBS\$ Function filter/converter created that   converts [] to {}. Needed to fix the Ink, Paper and color restoring after Run.  *** 2021-03-19 For Mouse Action Shooter - Target Practice (Graphics Game #2 attempt) 3/18 added mouse TF  - command with 1 argument. True to Show Mouse, False to Hide Mouse3/18 added abs[arg1] - SFunction with 1 argument. Kind of surprised how much I use ABS.3/18 added timer[]   - SFunction no argument, still need brackets.3/18 added atan2[a1 (=deltaY's) , a2 (=deltaX's) ] SFunction with 2 args, definitely a plus! Find the angle of point 1 (x1,y1) from point 2 (x2, y2) Basic: var = _atan2(y1-y2,x1-x2) or oh: var = atan2[s[y1,y2],s[x1,x2]]3/19 added beep (command) no args, main reason: to help debug.*** 2021-03-223/20 added inverse[PosInteger,NumberOfDecimals] for custom division or control of decimals.     This is = 1/PosNumber to a set amount of decimals.3/21 added files[] - no argument SFunction that loads the files of current directory into an AString.3/21 added replace[stringSource,stringToReplace,StringToRplaceWith] - 3 arguments SFunction.3/21 fix? load[] renders [ brackets impotent by swapping them with { brackets save Astring;FileName sort of needs to reverse that by replacing { back to [ This is messy, in future something else may be a better solution.3/21 Line labels now end with \ instead of colon. This is to be consistent to oh rule, no shifts. 3/21 Added another preloaded variable nl (Next Line) for file line delimiter. Vnames\$(11) = "NL": Vvalues\$(10) = Chr\$(13) + Chr\$(10) 3/21 Gutted out opening code and rewrote the code to display files on a scroller when have a     filename and existing file. Now the menu runs across top line in yellow and red and can click menu item or key press first letter for New, Edit, Load, Run, or Quit. Much better if I do say so myself :) This completes my goals for this revision. *** 2021-03-273/23 Fix file display scroller to accept PgUp, PgDn, Home, End Keypresses. Also run file lines through filter JIT to replace tabs with 4 spaces and other chars < 32 with *. This enables the display of 39 lines on 39 lines without screen scrolling and menu line lost.3/23 NL fixed and working as expected in: Test oh replace and nl.txt file.3/23 Adding SHARED Lists: CmdList\$ and FunList\$ for Function OK\$ a line Syntax checker function that will return nothing (OK) if the line is fine, or what it found wrong with proposed program line. Inventory: 40 commands (fix 4 more), 74 SFunctions3/26 Added 3 more procedures for Syntax checking and immediately learned I missed 4 commands in     command list. The only line it caught after that was an title line without a formal comment. I started editing Particle Fountain (it is hopelessly S L O W) and the syntax checker caught a missing argument in an Or line when I mistakenly typed a } instead of a regular ] bracket. Good, it catches at least something. So now lines start with comments, commands, variables or line labels\ (\ ends a line label now).3/27 Fixed - Mouse Action Shooter - the first bullet fired was always nothing?? and yet 10 points      is deducted from the score as it should be. Show me the bullet! I just initialized all the bullets properties instead of only the bLive AStrings (arrays).3/27 Fixed. After editing a file, you have to change directory and change back to get the new      file loaded with the changes. I now do that automatically in code after an Edit. *** 2021-03-27A3/27A Syntax checking had a little sloppy handling of closing ] assuming it was at end of line     instead of checking if one was actually there to match opening [. I found 4 working programs that were missing a final bracket at the end. I also found a program that used [] instead of parenthesis and it was flagged for unknown SFunction. So that part of syntax checking is also fixed, you will be flagged for unrecognized functions. So I went through all working programs and they now fly through syntax checking right into a successful run. *** 2021-06-03 fix divide\$ 6/03 Fix the divide\$ Function so that, Test oh High Precision Square Root.txt, file program works. Also found the clipout and clipadd help in, oh Cheat Sheet.txt in error and fixed (no square brackets to enclose the argument). *** 2021-06-15 String Math update6/15 A number of fixes and improvements to the String Math package including new sqrroot[number]     Function. Unfortunately with the new fixes the inverse of STx number takes a bit longer than it did, it's a wonder it was getting correct results originally. When testing all the programs I noticed the nl "constant" I had forgotten all about. This is doing double spaced lines because it is Chr\$(13)+Chr\$(10) probably should be one or other, not both together. Since last update we created new programs: Aurels Henon code, Bresenham Circle Fill, First 100 digit Fibonacci, Sqr Root estimating. A version of the last program became part of the String Math package update! `
« Last Edit: June 15, 2021, 10:18:50 PM by bplus »

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #2 on: March 08, 2021, 08:43:00 PM »
Fix for: Test oh Sort Tests.txt - the way it was supposed to build random strings with a max of 11 Capital letters (and definitely no numbers):
Code: (qb64) [Select]
`'Test oh aj Sort Tests.txt b+ mod for oh 2021-03-07' build test strings and numbers and display[ cnt = a[cnt,1] jmp gt[cnt,20] rLen = a[int[rnd],2] ' change variable name from b to bstring bString = mt cnt2 = 0 [ cnt2 = a[cnt2,1] jmp gt[cnt2,rLen] ' bstring was getting B or R from this random choosing of letter ' and substituting back current value of b or r variable!!! Yikes ' no wonder bstring had numbers inserted or extra strings!!! bString = bnd[bString,chr[a[int[rnd],65]]] ] set AstringS,cnt,bString ' change variable r to rNumber rNumber = int[rnd[x[100,100]]] set AstringN, cnt, rNumber loc cnt, 1 ; bString row = a[cnt,21] loc row, 1 ; rNumber]' sort into 4 groups 2 string 2 number, ascending and descendingsa = assort[AstringS]sd = dssort[AstringS]na = ansort[AstringN]nd = dnSort[AstringN]' display sorted groupscnt = 0[ cnt = a[cnt,1] jmp gt[cnt,20] sai = get[sa,cnt] sdi = get[sd,cnt] nai = get[na,cnt] ndi = get[nd,cnt] at 20, cnt ; sai at 40, cnt ; sdi row = a[cnt,21] at 20, row ; nai at 40, row ; ndi]Zzz`
Once again I am burned by using 1 letter variables.

I was testing a possible rework of the set command and discovered an odd thing happening with the random string being built to sort. Some were becoming gigantic and others were having numbers inserted from the random number I was generating.

Turns out my 1 letter variables b and r were getting their values substituted back when the random letter generated one of them to add the the build string, so instead of the letter being added, it's stored value was!

LOL, yeah funny now, quite a shock when I first discovered the bug in the test code for oh late this afternoon.

BTW the set command stays as is, no need to say:
Code: [Select]
`astringName = set[astringName, index, newValue\$]`
when
Code: [Select]
`set astringName, index, newValue\$`will do.
« Last Edit: March 08, 2021, 08:54:55 PM by bplus »

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #3 on: March 09, 2021, 02:17:01 AM »
Update: I now have the arguments to the Screen and Graphics commands being run through Fval\$ so you don't need to create extra variables for simple row, col cals or x, y's for a graphic but this required making the argument delimiter a semi-colon to distinguish from the comma delimiter in all SFunctions.

A new command for center printing a line with plug-in variables,
Code: [Select]
`cpr row; my text with plug-in ;here1; and ;here2;.`
All the demos have been updated with new delimiter for appropriate commands and Test oh ac Fval\$ Tester has been rewritten and I feature it now:

Code: [Select]
`'Test ac Fval\$ Tester.txt by b+ 2020-03-07 mod 2021-02-21 mod 2021-03-09' I wrote in cpr just for this demo! Plus [ cpr 2;*** Fval\$ Tester *** cpr 5;Arith: a[1,1] > 2,  s[1,1] > 0,  x[2,3] > 6,  d[12,4] > 3     Constants: e = exp, pi = pi cpr 7;Math: modulus use m[3,2] > 1   power use p[2,3] > 8   log[], exp[], sqr[], int[], rnd[multiplier] cpr 9;Trig (radians): sin[], cos[], tan[], asin[], acos[], atan[]     Angle Conversion: rad[degrees], deg[radians] cpr 11;Boolean: #=# use eq[ , ] for = numbers    noteq[ , ] for <>    lt[ , ] for <    lte[ , ] for <=  cpr 13; gt[ , ] for >   gte[ , ] for >=   and[,,, ]   or[,,, ]   not[ ]    seq[\$,\$] for string equal cpr 16;Get the cheat sheet and test string functions! Here a most: cpr 17;mid1, mid2, mid3, in2, in3, time, date, CAP, low, rtrim, ltrim, trim, spc, len ' first test ever of fval\$ working on arguments to loc, at, tag, graphics... loc a[17,3];5 inps (just enter to quit) Enter an expression to evaluate; expression Jmp seq[expression,mt] result = fval[expression] at 5;22 cpr 22;The Tester came up with this: ;result cpr 25;Wait 5 secs... Wait 5 Cls].. Goodbye!` New zip package contains bas, exe for Windows 10, demo.txts and updated, oh cheat sheet.txt with change log now.

Update:
« Last Edit: March 10, 2021, 01:39:55 PM by bplus »

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #4 on: March 09, 2021, 02:25:57 AM »
Oh yeah, new Internal Splash Screen: #### Ed Davis

• Newbie
• Posts: 36 ##### Re: oh One-Handed Interpreter
« Reply #5 on: March 09, 2021, 10:23:59 AM »
This is _really_, _really_ cool!
I'm having fun looking at it!

Thanks for sharing it!

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #6 on: March 09, 2021, 11:00:31 AM »
This is _really_, _really_ cool!
I'm having fun looking at it!

Thanks for sharing it!

The sharing is my pleasure :)

Your looking over it is great, so far I know it works for some 1.5 dozen little tests about 50 times over in various versions over the past weeks. I am wondering what surprises are in store from the last change, evaluating the arguments coming in other than after an = space sign.

I personally luv the simplicity of the Fval\$ function that gets right to the business of isolating the deepest nested SFunction and handing it off to FunHandler\$.

#### Aurel ##### Re: oh One-Handed Interpreter
« Reply #7 on: March 09, 2021, 11:23:28 AM »
OK Mark
very nice...btw.
i modify it to work with my old v1.3 and seems that all work well ;)
//////////////////////////////////////////////////////////////////
https://aurelsoft.ucoz.com
//////////////////////////////////////////////////////////////////

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #8 on: March 09, 2021, 11:42:55 AM »
Thanks for testing Aurel.

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #9 on: March 10, 2021, 10:44:03 AM »
Update: I have installed newly created cross platform File Dialog so you and mainly me are relieved of drag and drop one time file Runs. So theoretically we can expand out from one folder and scan whole hard disk of folders and files if we have a mind to.

It was not playing nice last night but I think I have it tamed now. I have employed Steve's ScnState idea for saving and restoring screen conditions before and after doing things to it ie File Dialog and Runs and that seems to have smoothed things out considerable.

A little more testing to go, hope to tap into an editor. Since I couldn't get Notepad++ to run SB1.exe (with the active file I just edited in it), I will Run it (or whatever default editor does your txt files) through oh.

Update: Ok it seems everything is working as intended (on my Windows 10 laptop), could use more testing. Most curious to know if this thing is working in Linux? It should have proper cross platform file and directory access.

Be sure to add direntry.h file to your QB64.exe folder so it may find this header file. A copy is included in zip package that you can copy/paste into that folder if you don't have it there already :)

« Last Edit: March 10, 2021, 02:05:14 PM by bplus »

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #10 on: March 14, 2021, 12:03:29 AM »
Update: modified the printing commands to handle calculations if instr "[" is found, this is very handy for formatting with spaces.

save Astring;toFileName

And so this program:
Code: [Select]
`' Test oh an file load and save quadratic data.txt b+ 2021-03-13. Quadrartic = (x + 5) (2x + 6) = 2x^2 + 16x + 30set file,1,Quadrartic = (x + 5) (2x + 6) = 2x^2 + 16x + 30. expected roots are -3, -5set file,2,expected roots are -3 and -5a = 2b = 16c = 30set file,3,a = 2  b = 16  c = 30d = p[s[x[b,b],x[4,a,c]],.5]root1 = d[a[s[0, b],d],x[2,a]]root2 = d[s[s[0, b],d],x[2,a]].     d = ;d. root1 = ;root1. root2 = ;root2temp = bnd[    d = ,d]set file,4,temptemp = bnd[root1 = ,root1]set file,5,temptemp = bnd[root2 = ,root2]set file,6,temp'calc a small table of F(x)x = -11 i = 7[ x = a[x,1] jmp gt[x,10] i = a[i,1] fx = a[x[2,x,x],x[16,x],30] fline = bnd[x,:,fx] . x;spc;fx;spc;fline set file,i,fline]. number of lines = ;inumberOfLines = isave file;Quadratic Data 2x^2+16x+30.Dat. data saved to file, press any to load data file and display...zzzclsfdata = load[Quadratic Data 2x^2+16x+30.Dat]i = 0[ i = a[i,1] jmp gt[i,numberOfLines] fline = get[fdata,i] . fline]`
Wrote this file:
Code: [Select]
`Quadrartic = (x + 5) (2x + 6) = 2x^2 + 16x + 30expected roots are -3 and -5a = 2  b = 16  c = 30    d = 4root1 = -3root2 = -5-10:70-9:48-8:30-7:16-6:6-5:0-4:-2-3:0-2:6-1:160:301:482:703:964:1265:1606:1987:2408:2869:33610:390`
Misspelling and all ;-))

Oh shoot, I might not need to preset those temp's for file lines but calculate them directly in the set lines.
retesting...

Nope, the set command is in it's own little niche with rndpt, time to reconsolidate more ; delimited commands!
So this part will work without the temp variable serving as a middleman.
Code: [Select]
`'temp = bnd[    d = ,d]set file,4,bnd[    d = ,d]'temp = bnd[root1 = ,root1]set file,5,bnd[root1 = ,root1]'temp = bnd[root2 = ,root2]set file,6,bnd[root2 = ,root2]`
Also need the equivalent of an UBound command for Astrings, though wont get out of bounds errors would be handy for knowing the number of lines you just loaded from a file.

I'm also dreaming of an IDE. Notepad++ is being a bit annoying with all the auto-fills it automatically makes when I press Enter to start the next line.
« Last Edit: March 14, 2021, 12:36:12 AM by bplus »

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #11 on: March 14, 2021, 01:23:32 AM »
Oh that's so nice:
Code: [Select]
`set file;4;bnd[    d = ,d]set file;5;bnd[root1 = ,root1]set file;6;bnd[root2 = ,root2]`
Works now without the middleman! and now I think all the commands are ; delimited so that makes it easier to remember.

And I improved the output to screen and file: « Last Edit: March 14, 2021, 01:25:21 AM by bplus »

#### STxAxTIC ##### Re: oh One-Handed Interpreter
« Reply #12 on: March 14, 2021, 10:32:49 AM »
Hey bplus,

I appreciate you keeping us up to date with this thing. It's been about 4 or 5 days since I've given it a test run, and would like to try it again. Now that you're messing with polynomials, I should be able to test a few things. Gotta say though, it's damn near impossible to actually follow your updates. What was wrong with the old names for this project, and why is it being renamed again? Where is the latest full code? (The zip is 4 days old at the time of this post) Etc etc etc. The usual questions. We're also spread across several threads. Are the old threads obsolete now? Maybe a good practice is to make the last post on each of those point to this one, if you haven't already.

Opinion section: Make a webpage for this project!

EDIT (sorry I keep editing this post): Explain like I'm 5 please: How do I write a function in your syntax? Like f(x) = x^3 + cos(2x) Has this changed drastically over the months?

It seems like factorialMe is some kind of global in your factorial code, for instance:

Code: [Select]
`F!: If gt[factorialMe,1] fac = x[fac,factorialMe] factorialMe = s[factorialMe,1] GS F!: FiRtn`
I guess my question is: can functions have private scope? Can they have a return value or do they just effect a global, like GOSUB? (Sorry if this is super obvious to you.)
« Last Edit: March 14, 2021, 11:08:53 AM by STxAxTIC »
You're not done when it works, you're done when it's right.

#### bplus ##### Re: oh One-Handed Interpreter
« Reply #13 on: March 14, 2021, 12:32:17 PM »
Hey bplus,

I appreciate you keeping us up to date with this thing. It's been about 4 or 5 days since I've given it a test run, and would like to try it again. Now that you're messing with polynomials, I should be able to test a few things. Gotta say though, it's damn near impossible to actually follow your updates. What was wrong with the old names for this project, and why is it being renamed again? Where is the latest full code? (The zip is 4 days old at the time of this post) Etc etc etc. The usual questions. We're also spread across several threads. Are the old threads obsolete now? Maybe a good practice is to make the last post on each of those point to this one, if you haven't already.

Opinion section: Make a webpage for this project!

EDIT (sorry I keep editing this post): Explain like I'm 5 please: How do I write a function in your syntax? Like f(x) = x^3 + cos(2x) Has this changed drastically over the months?

It seems like factorialMe is some kind of global in your factorial code, for instance:

Code: [Select]
`F!: If gt[factorialMe,1] fac = x[fac,factorialMe] factorialMe = s[factorialMe,1] GS F!: FiRtn`
I guess my question is: can functions have private scope? Can they have a return value or do they just effect a global, like GOSUB? (Sorry if this is super obvious to you.)

Hi @STxAxTIC

Thanks for your interest as always.

Where to begin? The name change from SB1 (Shorthand "Basic" for want of a better term) was limited by the Eval function. On the plus side the Eval function did keep the right side of the = looking "Basic" with Fortran like formulas.
On the negative side, for me, I was limited to numeric evaluations.

Here in oh, the eval function has been removed and replaced with an easy and versatile Fval\$. The name change is completely appropriate in my view because it's a different animal now. It's got a different base structure, around Fval\$ instead of Eval. It's not "Basic" with formula like structures on the right side of = my guess is it's more like Lambda functions from my brief scans of that on Internet. It's all string functions and you may nest them as arguments to other functions, really easy and really cool. No need to do binary operations in order, you just do deepest nested [] first and work up to no brackets level. No stacks or recursion needed to process a program line of code.

The name also reflects another Big Change: No need to use shift key for any commands or functions. You can write all your code with One Hand and that is where the name oh comes from, One Handed. Hold your coffee in one hand and write code with the other ;-)) OH = One Handed

One reason to keep these updates going is this is rather big change from Basic. To download the zip package and know what to do with it is too much to expect. So follow this thread and see why or how things end up the way they do. I am just settling in to a consistent ; delimited command line.

The newest updated zip package is at the First Post of this thread, a cheat sheet | manual | document | Change Log is in the very next post.

Like f(x) = x^3 + cos(2x)

y = a[p[x,3],cos[x[2,x]]]
'yeah not so Basic like anymore! The coder is doing the work of precompiling.
Ever wonder what math would be like if formulas looked like this instead of current?
poly = a[x[n1,x,x,x...],x[n2,x,x,x...],x[n3,x,x,x,,],... ,nN]

There are no functions/subs/procedures yet, to keep variables local in a GoSub (gs lineLabel:)
Do what they do under-the-hood, prefix them with the GoSub lineLabel eg lineLabel:_VarName.
But be sure to initialize as you would have to with a GoSub procedure.
You can set a variable with the name of the GoSub lineLabel! just don't put a colon on the end of it!

Yeah, kind of rinky-dink, but at moment I am enjoying the wealth and richness of having all the string functions I need at my disposal.

I want mouse and keypresses before fancy procedures with local scope.

#### STxAxTIC ##### Re: oh One-Handed Interpreter
« Reply #14 on: March 14, 2021, 12:52:43 PM »
Thanks bplus for such an informative reply. I agree that strictly trying to maintain BASIC syntax has its uses, i.e. making a BASIC interpreter. However, once you step off that path, and enter the pseudo-Churchian topology of string space (just to call it something), suddenly your code merges with the very data it manages, and vice-versa. This is like the General Relativity of computer programming: in the same sense that Einstein realized that gravity equals geometry, functional programmers realize that data equals code. Two seemingly unrelated ingredients turned out to be *equal*.

All that said, if you want my humble opinion, get the language part perfect before you worry about mouse input. In fact never worry about mouse input, or graphics, or any of that. Now that you've become a master of string space, stay there and master it.
You're not done when it works, you're done when it's right.