Post by: STxAxTIC on March 07, 2020, 12:24:36 am
He describes it nicely here:
https://www.qb64.org/forum/index.php?topic=16.msg115312#msg115312 (https://www.qb64.org/forum/index.php?topic=16.msg115312#msg115312)
The main code is this:
Code: QB64: [Select]
- '2018-02-13 adding string array functions put and get, a god awlful amount of shuffling values around to simulate a numneric array
- 'get takes numbers out of the string array (of numbers) and puts it in a number variable, a yucky hack! to get numeric arrays
- '2018-02-05 BRUN started from Nano3 writtem in SmallBASIC
- 'added FB Eval modified for QB64
- '2018-02-07 change the way variable assignments are made now n and s
- 'add theFile$ to BRUN title bar
- 'add cp to print in center of screen
- 'eliminate Dflag
- 'add locate = cr, mostly I want to just get to a row, let's call this row
- 'change variable assignment method and arrays and consts to manage
- 'modify record for number and string variables
- 'add lookup function
- 'more shared vaiables for processing in subs and functions
- 'TO DO
- 'add a bunch of string stuff space! I need space!
- 'separate area for error reporting and BRUN messaging
- 'colors 3 digit number toy rgb system
- 'ink for fore color statement
- 'paper for back color
- 'add line one graphic to do it all?
- 'readFile(lineNum), writeFile(lineNum)
- 'try to keep everything case insensitive including variables
- debug = 0
- 'variable tables
- 'for evaluate
- EvalErr$ = ""
- 'for gosub
- 'for processing program lines
- 'integers for main
- 'get started, do we have a program to run?
- p$(lineCnt) = wPrep$(fLine$)
- lineCnt = lineCnt + 1
- CLOSE #1
- 'debug check p$() loaded
- INPUT "Here is listing of first 40 lines, press enter for run..."; temp$
- cl = 0 'current line
- stackIndex = 0
- WHILE cl < lineCnt
- ERASE w$
- pLine$ = p$(cl)
- wc = wCnt(pLine$)
- w$(i) = Wrd$(pLine$, i)
- CASE "c"
- s$ = ""
- v = 0
- f = nLookUp%(w$(i), v)
- temp$ = ""
- f = sLookUp%(w$(i), temp$)
- s$ = s$ + temp$
- s$ = s$ + w$(i) + " "
- PRINT s$
- PRINT s$,
- PRINT s$;
- CASE "cp"
- s$ = ""
- v = 0
- f = nLookUp%(w$(i), v)
- CASE "l"
- ansY = Evaluate(w$(2))
- ansX = Evaluate(w$(3))
- LOCATE ansY, ansX
- CASE "@"
- s$ = ""
- v = 0
- f = nLookUp%(w$(i), v)
- ansX = Evaluate(w$(2))
- ansY = Evaluate(w$(3))
- CASE "w"
- CASE "?"
- s$ = ""
- v = 0: f = 0
- f = nLookUp%(w$(i), v)
- PRINT s$;
- INPUT ""; temp$
- ans = Evaluate(temp$)
- nRecord w$(2), ans
- CASE "g"
- f = 0
- CASE "]"
- c = 1: f = 0
- fw$ = Wrd$(p$(i), 1)
- c = c - 1
- c = c + 1
- PRINT "Error: could not find do to match loop on line "; cl
- CASE "x"
- c = 1: f = 0
- fw$ = Wrd$(p$(i), 1)
- c = c - 1
- c = c + 1
- PRINT "Error: could not find loop to match exit on line "; cl
- CASE "i"
- es$ = ""
- es$ = es$ + w$(i) + " "
- 'PRINT "evaluate this "; es$
- ans = Evaluate(es$)
- 'PRINT "evaluated to "; ans
- cl = find(cl)
- CASE "e"
- cl = find(cl)
- CASE "z"
- CASE "s"
- f = 0
- PRINT "Could not find return for sub at line "; cl
- CASE "gs"
- f = 0
- stack(stackIndex) = cl: cl = i: stackIndex = stackIndex + 1
- CASE "r"
- stackIndex = stackIndex - 1
- cl = stack(stackIndex): stack(stackIndex) = 0
- CASE "n"
- es$ = ""
- es$ = es$ + w$(i) + " "
- ans = Evaluate(es$)
- nRecord w$(2), ans
- es$ = rightOf$(p$(cl), "{")
- es$ = leftOf$(es$, "}")
- sRecord w$(2), es$
- CASE "sf" 'string functions syntax: sf var sFunction parameters, according to function var will be string or number
- temp$ = ""
- sRecord w$(2), temp$
- CASE "word"
- OK% = sLookUp%(w$(4), s$)
- sRecord w$(2), Wrd$(s$, v)
- CASE "spc"
- CASE "mid"
- CASE "instr"
- CASE "date"
- 'This sub stores into the w$(2) string variable (whether it exists or not)
- ' the value built up from w$(4) ++++ and made a string
- ' to the variable value at word location value of w$(3) a number variable
- ' the w$(3) value must be an existing n variable name
- es$ = ""
- es$ = es$ + w$(i) + " "
- 'PRINT "evaluate this "; es$
- ans = Evaluate(es$)
- 'PRINT "evaluated to "; ans
- 'briefly pull a number in string array stored as string and store value into variableat w$(2)
- ' this sub retrieves the word at w$(4) a number variable
- ' from the string variable at w$(3)
- ' and stores the value in number variable w$(2)
- value$ = ""
- OK% = sLookUp%(w$(3), value$)
- nVal = 0
- OK% = nLookUp%(w$(4), nVal)
- wdx$ = Wrd$(value$, nVal)
- PRINT " Here is number table:"
- PRINT " Here is strings tables:"
- INPUT "OK line processed "; OK
- cl = cl + 1
- PRINT "Drag drop a *SB.txt file onto SB.exe to run."
- FUNCTION wPut% (sVar$, nVar$, value$) ' nVar$ must exist "Put" 'into variable name at w$(2) at nplace w$(3) the value at w$(4)
- 'if this function fails return false else return 1
- DIM nValue
- DIM sVal$, b$
- nValue = 0
- OK = nLookUp%(nVar$, nValue)
- sVal$ = ""
- OK = sLookUp%(sVar$, sVal$)
- b$ = ""
- b$ = b$ + "`" + " "
- b$ = b$ + value$
- sRecord sVar$, b$
- wPut% = 1
- ELSE 'sVar$ started so get the string count and put the value in it or at end of it in position nValue
- wc = wCnt(sVal$)
- b$ = sVal$ + " "
- b$ = b$ + "`" + " "
- b$ = b$ + value$
- sRecord sVar$, b$
- wPut% = 1
- ELSE 'new value replaces one in string
- wPut% = 1
- DIM fw$
- c = 1
- fw$ = Wrd$(p$(i), 1)
- c = c - 1
- c = c + 1
- PRINT "Error: could not find e or f to match i in line "; ln
- find = -1
- DIM ln$
- mt = -1
- DIM ln$
- value = -999: nLookUp% = 0
- DIM ln$
- mt = -1
- DIM ln$
- value$ = "": sLookUp% = 0
- 'this preps e$ string for actual evaluation function and makes call to it,
- 'checks results for error returns that or number if no error.
- 'Dim As String c, b, subst
- DIM v
- b$ = "" 'rebuild string with padded spaces
- 'this makes sure ( ) + * / % ^ are wrapped with spaces, on your own with - sign
- po = po - 1: b$ = b$ + " ) "
- po = po + 1: b$ = b$ + " ( "
- b$ = b$ + " " + c$ + " "
- b$ = b$ + c$
- e$ = wPrep$(b$)
- e$ = wSubst$(e$, p, p, subst$)
- wc = wCnt(e$)
- b$ = ""
- wd$ = Wrd$(e$, i)
- v = 0
- f = nLookUp%(wd$, v)
- Evaluate = evalW(e$)
- ' the recursive part of EVAL, eliminated DFlag, now check lcase$ of fun$
- 'Dim As String fun, w, test, inner, ops, op, middle
- pop = wIn(s$, "(") 'parenthesis open place
- fun$ = "": lPlace = 1
- funPlace = wIn("int sin cos tan atan log exp sqr rad deg", test$) 'no asin or acos in QB64
- fun$ = test$: lPlace = pop - 1
- fun$ = "": lPlace = pop
- wc = wCnt(s$): po = 1
- inner$ = ""
- w$ = Wrd$(s$, i)
- inner$ = inner$ + w$ + " "
- 'QB64 doesn't have these?
- 'CASE "asin": IF DFlag THEN m = DEG * (Asin(innerV)) ELSE m = Asin(innerV)
- ' CASE "acos": IF DFlag THEN m = DEG * (acos(innerV)) ELSE m = acos(innerV)
- CASE "log"
- 'what the heck???? 708 works fine all alone as limit ?????
- CASE "sqr"
- pop = wIn(s$, "(")
- ops$ = "% ^ / * - + = < > <= >= <> and or not" 'all () cleared, now for binary ops (not not binary but is last!)
- op$ = Wrd$(ops$, o)
- p = wIn(s$, op$)
- CASE "%"
- EvalErr$ = "For a Mod b, b value < 2."
- CASE "^"
- EvalErr$ = "For a ^ b, a needs to be >= 0 when b not integer."
- CASE "/"
- EvalErr$ = "Div by 0"
- s$ = wSubst$(s$, p - 1, p + 1, middle$)
- 'PRINT s$
- p = wIn(s$, op$)
- 'return trimmed source string s with one space between each word
- 'remove all double or more spaces
- b$ = ""
- wPrep$ = b$
- ' This duplicates JB word(string, wordNumber) base 1, space as default delimiter
- ' by returning the Nth word of source string s
- ' this function assumes s has been through wPrep
- DIM s$, w$
- s$ = ss$ 'don't change ss$
- w$ = "": c = 1
- w$ = "": c = c + 1
- 'This function counts the words in source string s
- 'this function assumes s has been thru wPrep
- 's = wPrep(s)
- WHILE ip
- wCnt = c
- 'Where is word In source s, 0 = Not In source
- 'this function assumes s has been thru wPrep
- wc = wCnt(s$): wIn = 0
- ' substitute string in s to replace section first to last words inclusive
- 'this function assumes s has been thru wPrep
- DIM b$
- wc = wCnt(s$): b$ = ""
- b$ = b$ + Wrd$(s$, i) + " "
... And you can follow the link above for an example pong demo and the full help index.
To bump the number of working demos up by one - perhaps, because maybe this exists somewhere - here is a program that calculates the factorial of a number. Just compile the main code, save this file as facto SB.txt, and then drag+drop the txt onto the executable (or do the equivalent in linux).
Code: [Select]
n facto 6
n prod facto
: dofact
i facto = 1
. prod
z
f
i facto > 1
n facto facto - 1
n prod prod * facto
f
g dofact.
.
.
.
.
For completeness, here is the list of commands and so on:
Code: [Select]
. 000 Help SB.txt FOR SB.exe (B+=MGA) rev 2018-09-14 Drag AND drop *B.txt file onto SB.exe TO RUN it.
. (All lines here are PRINT lines, drag AND drop this file onto SB.exe TO READ it without dots.)
. TO avoid punctuation, all executed lines start with keyword commands OR punctuation AS follows:
. =========================================================================================================== VARIABLES
. Number variables are set st n IS first letter ON LINE, variable NAME IS NEXT, AND variable expression last.
. Use up TO 250 "words" FOR variable AND expression including previous number variables, operators: +-*/^%()<=>
. constants: e, pi, RND trig functions (radians): COS(), SIN(), TAN(), atan(), conversion: rad(), deg(), INT()
. LOG(), EXP(), operators USING <, =, >, (NOT combinations >= <=) AND, OR, NOT, need TO be separated by spaces.
. example: i = i + 1 becomes >>>>> n i i+1
. angle = deg(atan(1.01) becomes > n angle deg(atan(1.01))
. =========================================================================================================== ARRAYS
. < arrayName index valueExpression - same AS arrayName(index) = valueExpression (No DIM statement needed)
. > var arrayName index - same AS var = arrayName(index)
. =========================================================================================================== OUTPUT
. FOR printing text: . FOR PRINT with LINE feed, , FOR PRINT AND TAB, ; FOR PRINT AND STOP
. l row col - FOR locating NEXT character cell FOR PRINT OR INPUT place
. a x y text - FOR locating with graphic x, y pixel positions
. c - TO CLEAR clutter
. variables in PRINT text will be replaced by their values, so be careful USING variable names in PRINT text.
. When there IS more than one parameter be careful NOT TO use a space in an expression FOR one of the parameters.
. =========================================================================================================== INPUT
. ? var prompt - syntax: ? IS keyword, variable NAME, use 250 words FOR prompt.
. =========================================================================================================== EXECUTION FLOW
. : lineLabel - sets LINE label in program
. g lineLabel - redirects flow TO mark lineLabel ( DO NOT enter OR EXIT a SUB with go )
. s subLabel - marks start of GOSUB routine
. gs subLabel - redirects flow TO SUB routine
. r - signals EXIT back TO CALL POINT of SUB routine
. w - will pause the given amount of seconds
. z - will END program
. =========================================================================================================== LOOPING
. [ - marks start of LOOP
. ] - marks the END of LOOP, required with DO
. x - commands EXIT from LOOP
. =========================================================================================================== BOOLEAN BLOCKS
. i - starts one AND IS followed by Boolean expression TO evaluate
. e - optional, marks LINE TO GOTO IF Boolean evaluates false
. f - marks END of Boolean block
Post by: bplus on March 07, 2020, 07:15:51 pm
Quote
He describes it nicely here:
https://www.qb64.org/forum/index.php?topic=16.msg115312#msg115312
I am moving that post here where it belongs:
SB - Shorthand Basic, renamed from BRUN2, originally Nano3. I thought I had updated the parser but no, same old Eval function as Nano, Plot I think got the updated Eval function here at QB64. Funny story, I renamed this to SB to piss off the ScriptBasic guy who wanted to own capital SB for his favorite Basic relegating "sb" to SmallBASIC for shorthand at Retro (maybe it's only funny to me). Also Simple Basic or Short Basic also work.
STxAxTIC already has the source SB.bas file upstairs and it will also be in the zip for the whole folder including a debugger of sorts.
You type up your code in a regular old txt file ending filename with " SB.txt"
Here is an example called "Infinite Pong the movie SB.txt"
Code: QB64: [Select]
- constants
- n p1y 2
- n p2y 43
- n pw 10
- ball
- n bx 75
- n by 20
- n bdx 2
- n bdy 1
- main
- [
- c
- gs P1
- gs P2
- gs B
- w .1
- ]
- s P1
- n p1x bx - 5
- l p1y p1x
- ; 1111111111
- r
- s P2
- n p2x bx - 5
- l p2y p2x
- ; 2222222222
- r
- s B
- i bx + bdx < 7
- f
- i bx + bdx > 143
- f
- i by + bdy < 3
- n bdy bdy * -1
- f
- i by + bdy > 42
- n bdy bdy * -1
- f
- n bx bx + bdx
- n by by + bdy
- l by bx
- ; O
- r
You drag and drop (or copy and paste) the SB.txt file onto SB.exe and it runs it. There is no IDE or editor or File Mgt so everything is done in Windows Explorer in same folder.
Here is Infinite Pong the Movie in QB64 to compare:
Code: QB64: [Select]
Here is Help File for SB "000 Help SB.txt" (drag and drop on SB.exe or just read and ignore the . = Print":
Quote
. 000 Help SB.txt for SB.exe (B+=MGA) rev 2018-09-14 Drag and drop *B.txt file onto SB.exe to run it.38 line Manual, not bad!
. (All lines here are print lines, drag and drop this file onto SB.exe to read it without dots.)
. To avoid punctuation, all executed lines start with keyword commands or punctuation as follows:
. =========================================================================================================== VARIABLES
. Number variables are set st n is first letter on line, variable name is next, and variable expression last.
. Use up to 250 "words" for variable and expression including previous number variables, operators: +-*/^%()<=>
. constants: e, pi, rnd trig functions (radians): cos(), sin(), tan(), atan(), conversion: rad(), deg(), int()
. log(), exp(), operators using <, =, >, (not combinations >= <=) and, or, not, need to be separated by spaces.
. example: i = i + 1 becomes >>>>> n i i+1
. angle = deg(atan(1.01) becomes > n angle deg(atan(1.01))
. =========================================================================================================== ARRAYS
. < arrayName index valueExpression - same as arrayName(index) = valueExpression (No DIM statement needed)
. > var arrayName index - same as var = arrayName(index)
. =========================================================================================================== OUTPUT
. For printing text: . for print with line feed, , for print and tab, ; for print and stop
. l row col - for locating next character cell for print or input place, l for locate
. @ x y text - for locating with graphic x, y pixel positions, @ for at
. c - to clear clutter, c for cls
. variables in print text will be replaced by their values, so be careful using variable names in print text.
. When there is more than one parameter be careful not to use a space in an expression for one of the parameters.
. =========================================================================================================== INPUT
. ? var prompt - syntax: ? is keyword, variable name, use 250 words for prompt. Input numbers only for var.
. =========================================================================================================== EXECUTION FLOW
. : lineLabel - sets line label in program
. g lineLabel - redirects flow to mark lineLabel ( do not enter or exit a sub with go ), g for goto
. s subLabel - marks start of gosub routine, s for sub
. gs subLabel - redirects flow to sub routine, gs for gosub
. r - signals exit back to call point of sub routine, r for return
. w - will pause the given amount of seconds, w for wait
. z - will end program, z for last or end
. =========================================================================================================== LOOPING
. [ - marks start of loop, think do
. ] - marks the end of loop, required with ], think loop
. x - commands exit from loop, think exit
. =========================================================================================================== BOOLEAN BLOCKS
. i - starts one and is followed by Boolean expression to evaluate
. e - optional, marks line to goto if Boolean evaluates false
. f - marks end of Boolean block
It is now updated for this thread, before move and STxAxTIC's copy above had some artifacts left from last name change.
Here are some sample SB.txt programs that work last time I looked along with SB and SB debugger (see attached zip).
PS Oh hey! I did have something going for arrays, see Help < and > commands and "and one for the monkey problem" that was testing a string array.
PPS "Hello SB.txt" program testing ? = Input command symbol does not work for strings, it's expecting a number variable
PPPS SB is an anagram and palindrome of BS.
Post by: bplus on March 07, 2020, 07:43:54 pm
Code is more accurate in Quotes because it's in normal text:
Quote
try recursive calls to gosub (gs) for factorial b+ 2020-03-07
[
? factorialMe Enter a number to find it's factorial
i factorialMe <> 0
n Fac 1
gs F!
. Factorial = Fac
e
. Goodbye!
z
f
.
]
s F!
i factorialMe > 1
n Fac Fac * factorialMe
n factorialMe factorialMe - 1
gs F!
e
r
f
r
Yeah good, 10 is limit before e notation kicks in.
Post by: bplus on March 07, 2020, 08:06:26 pm
Code: QB64: [Select]
- es$ = rightOf$(p$(cl), "{")
- es$ = leftOf$(es$, "}")
- sRecord w$(2), es$
- CASE "sf" 'string functions syntax: sf var sFunction parameters, according to function var will be string or number
- temp$ = ""
- sRecord w$(2), temp$
- CASE "word"
- OK% = sLookUp%(w$(4), s$)
- sRecord w$(2), Wrd$(s$, v)
- CASE "spc"
- CASE "mid"
- CASE "instr"
- CASE "date"
And here is the some SB.txt test code for that:
Quote
test new string functions SB.txt B+ 2018-09-15
$ months {January February March April May June July August September October November December} < this is new string literal recorder
l 2*5 10/10 <I am just testing locate l here
[
'c
? nMonth Enter month number to name >
i nMonth > 0 and nMonth < 13
sf xmonth word months nMonth < sf stands for string function, xmonth is var to load word returns the nth word in string
opps can't comment next lines because they are printing a formatted line
; The nMonth
; th Month of a year is xmonth
next line adds period to end of formatted print line
. .
e
x
f
]
Run Output:
Is this boring like a proud parent yakking on and on about es child's first steps, first words.... ;)
Post by: STxAxTIC on March 07, 2020, 09:19:20 pm
I remember a funny story regarding the recursion milestone with Sxript - back in 2014, Luke blew my mind by writing its first recursive function, and I never explicitly told the parser to handle recursion. I was naive and I was shocked, but I became enlightened on that day.... So in this spirit I propose we turn "Luke" into a verb, roughly defined to say "the act of writing a factorial routine in your buddy's toy language". So in a sentence, I Luked Shorthand Basic in that post... Anyway, I ramble.
I like SB quite a bit - I'm gonna spend a minute combing through the examples and decide how to present this on a forum page. I designated a code box for the LISP code over at https://www.qb64.org/forum/index.php?topic=2290.0 (https://www.qb64.org/forum/index.php?topic=2290.0)... Will do similar in this case.
Of course @bplus, you're welcome to post it yourself. It won't be seen as masturbatory. You've got a full set of keys to the library. Thanks so much for your service so far.
OH AND -
For code boxes on these forums containing non-QB64 code, you don't need to use a quote. You can click the "code" button anyway and then manually delete the QB64 tag within.
Post by: bplus on March 07, 2020, 09:32:06 pm
I looked at SB code in QB64 code boxes, code boxes and quotes, quotes work best. QB64 code is doing caps in all wrong places and it looks ridiculous, code boxes are indenting way too far in but Quotes look just right. Don't worry for long stuff I will attach txt file or use code box, the manual quote is longest I will go in quote box.
Post by: STxAxTIC on March 07, 2020, 09:36:39 pm
Say man, I went through the same issues with strings in Sxript, and decided to borrow from LaTeX with respect to bracketing. I open strings with a back-tick ( ` ) and close with a single quote ( ' ). Sxript ignores double quotes and treats them as joe-character like a Y or a 7. This way code can be embedded into other languages without getting tangled in *its* string regime. Of course, going down this road also involves escape characters, where I adopted the backslash as done in the rest of the world. All in all, a Sxript string might look like:
Quote
`Bplus\'s language is "very" excellent.'
... and renders to
Quote
Bplus's language is "very" excellent.
So anyway - that's what I went with.
Post by: luke on March 09, 2020, 08:35:08 am
Post by: bplus on March 09, 2020, 10:21:48 am
I have reworked Eval that fixed problem of differentiation between - for minus and - for negative values and uses Split instead of Word tools for parsing just haven't installed it yet. It should deliver values from array immediately instead of counting down a string every time a value is needed.
Fellippe has me thinking Snake Game as next round of needed functions plus need an input for strings (another special command).
Special command looks like this:
$stringVarName and the rest of the line is the string
May do that with numbers too:
#numberVarName number or expression with previous #variables
so n = n + 1 is #n n+1
Post by: STxAxTIC on March 09, 2020, 06:32:02 pm
Post by: bplus on October 21, 2020, 10:08:25 pm
Quote
I have reworked Eval that fixed problem of differentiation between - for minus and - for negative values and uses Split instead of Word tools for parsing just haven't installed it yet. It should deliver values from array immediately instead of counting down a string every time a value is needed.
Finally got around to installing new Eval tools and after a little fix all the old programs seem to be working bad news is its 100 lines longer and my interpreter is closer to 1 K LOC than .5 K.
Post by: bplus on February 10, 2021, 12:20:41 pm
Rework is under Simple Interpreter name but may keep SB name because allot of commands are same.
Stumped for some time about how to get away from double quotes identifier for string literals and then how to do functions with them. Once you get them contained in variable names no problem but who wants to make a variable for every letter or word you want to build into a string.
New Syntax for executable lines
cmd,arg1;arg2;arg3;...Chr$(10) or if presence of CR+LF detected in program string then parsed with that.
The comma alerts code that this might be a command line.
Only one type: variable length strings
The only way to tell a string literal from a variable is that variables start with ' mark.
So neither a string nor a variable can use ; and a string can't start with a '.
To clear tabs out from indented code from WP all chars <33 are filtered before exec.
hmm... pretty much assuming no chars < 32 in the lines after first parse and tabs cleared for cmd.
So now all cmds are followed by comma instead of a space, same amount of bytes as SB and bare text for literals (minus ;) and syntax using just a few non-shift keys , ;
So far, very hard to remember to tick a variable name and not type a space after a comma.
Ticking variables is bad but ticking literals including numbers, worse!
Oh! just got an idea how I might reinsert Eval while reviewing progress here. I am debating converting it to string math since all the variables are strings and I have string math basics worked out.
Post by: Pete on February 10, 2021, 01:00:35 pm
Pete
Post by: bplus on February 10, 2021, 01:46:01 pm
Well it's shorthand, but I wouldn't call it BASIC. I do get the fun factor in regard to manipulating code back into usable statements. There are a lot of condition hurdles to address. This reminds me of mennonite's Fig Basic project, bt with a totally different focus. Now if you will excuse me, I have to get back to my own rabbit hole.
Pete
You are right, not to be called BASIC nor Basic, only Basic inspired and coded under.
I just got a hint of how to do Subs and Functions, my GOSUB command gs, can carry any amount (within reason) of arguments with it! So use gs, cmd as an GOSUB call or as a psuedo Sub call, you will still use r, for Return come back from it. All Arguments are Global but you can name arguments with the sub's name to ignore them as needed in main code, or (man I get ideas when I write to you all) or use Local keyword with the variable name, so we know we can dump them whenever we are outside the subs. Something like that...
Update: Oh hey, how about !Basic, since ! is the symbol for NOT in C or some other PL's, I think.
Always the name is the hot topic for Interpreters ;-))
Post by: STxAxTIC on February 10, 2021, 02:06:08 pm
Actually, I'm for both rabbitholes. Hear me out:
bplus: make your language as portable as humanly possible in the sense that I should be able to bootstrap a screen-0 kernel of it onto any other BAS project. Make something like MasterEval$(a$), where a$ is any valid code in your language, and MasterEval$ returns its evaluated result. Text in, text out.
Pete: make your text editor able to include bplus's language. (If done right, this surgery is less than 5 lines.) For instance, when I'm typing, I want to write expressions and evaluate them, and have the result is pasted in where I was typing.
(Even if you think this idea is extremely dumb, you should be designing for it's eventuality anyway.)
Post by: bplus on February 10, 2021, 03:43:26 pm
I'm all for this.Oh I already have stuff for evaluating formulas as independent exe you can call in a shell from inside your Basic code.
Actually, I'm for both rabbitholes. Hear me out:
bplus: make your language as portable as humanly possible in the sense that I should be able to bootstrap a screen-0 kernel of it onto any other BAS project. Make something like MasterEval$(a$), where a$ is any valid code in your language, and MasterEval$ returns its evaluated result. Text in, text out.
Pete: make your text editor able to include bplus's language. (If done right, this surgery is less than 5 lines.) For instance, when I'm typing, I want to write expressions and evaluate them, and have the result is pasted in where I was typing.
(Even if you think this idea is extremely dumb, you should be designing for it's eventuality anyway.)
I forgot what I called it reckon.exe or something, oh maybe tabulator....
Yes
https://www.qb64.org/forum/index.php?topic=3136.msg124241#msg124241
Post by: Aurel on February 10, 2021, 03:47:55 pm
do you have complete code of this program?
Post by: bplus on February 10, 2021, 03:57:13 pm
Mark
do you have complete code of this program?
@Aurel
If you are talking about the remake of SB, it's still WIP'd and wont post anything until it shapes up to be better than last version of SB. This is an experiment to see if I can solve my string woes, it's either this or dissolve my insistence on no double quotes.
The Tabulator code should be in Link, if that was what you meant.
Post by: Pete on February 10, 2021, 06:11:33 pm
I'm all for this.
Actually, I'm for both rabbitholes. Hear me out:
bplus: make your language as portable as humanly possible in the sense that I should be able to bootstrap a screen-0 kernel of it onto any other BAS project. Make something like MasterEval$(a$), where a$ is any valid code in your language, and MasterEval$ returns its evaluated result. Text in, text out.
Pete: make your text editor able to include bplus's language. (If done right, this surgery is less than 5 lines.) For instance, when I'm typing, I want to write expressions and evaluate them, and have the result is pasted in where I was typing.
(Even if you think this idea is extremely dumb, you should be designing for it's eventuality anyway.)
Well, like I always say... There are no such things as dumb ideas, just dumb people who come up them them. :D (No, not you guys.)
Hey guys I finally got a little more progress on my WP, yesterday and today. I reworked a better find routine, and added print and save. Also fixed about 8 bugs. I have one nasty paste bug, and I don't want to face it until I have a really clear head. The replace feature will be added soon, but initially just as a replace all. So...
The replace part, Bill, is what I think you are getting act. So using the example above, you mean type in something like: idiot ^ 2 the editor erases that and replaces it with Clippy / 10. Something like that, right?
Pete
Post by: STxAxTIC on February 10, 2021, 06:31:59 pm
The replace part, Bill, is what I think you are getting act. So using the example above, you mean type in something like: idiot ^ 2 the editor erases that and replaces it with Clippy / 10. Something like that, right?
Right, or maybe something that keep the original input too, stick it after an = sign perhaps.
Post by: SMcNeill on February 10, 2021, 06:37:19 pm
Post by: Pete on February 10, 2021, 07:53:31 pm
FOR i = 1 to 50
Type "fo" and the line changes to: FOR i = 1 to 2: NEXT
Now type j and it changes to: FOR j = 1 to 2: NEXT
Now type 5 and it changes to: FOR j = 5 to 2 STEP -1: NEXT
Now press tab.
Now type 9 and it changes to: FOR j = 5 to 9: NEXT
Now press Enter, and it changes to:
FOR j = 5 to 9
_
NEXT
The underline represents the new cursor position, ready to put the goods inside the loop.
So 20 key presses gets reduced to just 7.
I've also seen editors that do equations, as discussed in this thread. Fun stuff, but it can get pretty involved to code all the conditions.
Pete
Post by: bplus on February 11, 2021, 08:02:31 pm
Now I think the way is clear to add ElseIf to If, Else, End IF code blocks, more testing of tests already passed before the mapping then I will test the new ElseIf.
ElseIf saves one from having to indent all the way to Europe with nested IF tests for making big complex decisions like a string of commands to "Select Case" on for an Interpreter :)
Oh that's a good goal, build an interpreter with your interpreter.
Post by: bplus on February 12, 2021, 11:59:25 pm
So going to convert everything over to:
Command space var|arg, arg, arg+chr$13+chr$10 <Notepad++ insists
comma and space for readability, so no spaces in the command but all you want there after.
So flipping code and shortening WIP name Simple Interpreter to Interpreter.
Oh wait variables still need to be distinguished from literals. Well there's no use fighting habits, literals to start with "
I'm thinking a line editor can add space after commas and trim variables on both side and literal left of ".
Probably use a ' comment symbol to tell exec not to look for commands on that line.
Sample of Test 6 for ei command:
Code: [Select]
Test 6 the New ei command.txt b+ 2021-02-12 ei AKA ElseIf
., Let's examine the common factors of some numbers:
.,
[,
.,
?,num; Please enter a number to test >
<,<2;'num;2
i,'<2
x,
e,
%,Nmod2;'num;2
=,Even;'Nmod2;0
%,Nmod3;'num;3
=,Triple;'Nmod3;0
%,Nmod5;'num;5
=,Pentacle;'Nmod5;0
%,Nmod7;'num;7
=,Septacle;'Nmod7;0
i,'Even
., ;'num; is Even.
ei,'Triple
., ;'num; is Triple.
ei,'Pentacle
., ;'num; is Pentacle.
ei,'Septacle
., ;'num; is Septacle.
e,
+,Remaining;1;-.5;-.1667;-.0333;-.0048
., The probability of ;'num; not being factorable by 2,3,5,7 is;'Remaining
f,
f,
],
.,
., Thanks for playing.
Quick convert program
Commas to spaces, ; to comma + space, swap ' for space and no ' for ", easy :)
Post by: bplus on February 13, 2021, 01:18:26 am
Code: [Select]
Test 6 the New ei command.txt b+ 2021-02-12 ei AKA ElseIf
. Let's examine the common factors of some numbers:
.
[
.
? num, " Please enter a number to test >
< <2, num, "2
i <2
x
e
% Nmod2, num, "2
= Even, Nmod2, "0
% Nmod3, num, "3
= Triple, Nmod3, "0
% Nmod5, num, "5
= Pentacle, Nmod5, "0
% Nmod7, num, "7
= Septacle, Nmod7, "0
i Even
. , num, " is Even.
ei Triple
. , num, " is Triple.
ei Pentacle
. , num, " is Pentacle.
ei Septacle
. , num, " is Septacle.
e
+ Remaining, "1, "-.5, "-.1667, "-.0333, "-.0048
. The probability of , num, " not being factorable by 2 3 5 7 is, Remaining
f
f
]
.
. Thanks for playing.
Post by: bplus on February 14, 2021, 09:40:53 am
" to start a literal was a bonehead idea, so was a bunch of other hair pulling combo's of non-shift keys around the spacebar. THWI!
Thank odin for Eval! Look how easy the above code becomes! (From inside the IDE)
Code: [Select]
p$ = "["
p$ = p$ + NL$ + "? num, Please enter a number to test > "
p$ = p$ + NL$ + "i num < 2"
p$ = p$ + NL$ + "x"
p$ = p$ + NL$ + "e"
p$ = p$ + NL$ + "i num % 2 = 0"
p$ = p$ + NL$ + ". num, is Even."
p$ = p$ + NL$ + "ei num % 3 = 0"
p$ = p$ + NL$ + ". num, is Triple."
p$ = p$ + NL$ + "ei num % 5 = 0"
p$ = p$ + NL$ + ". num, is Pentacle."
p$ = p$ + NL$ + "ei num % 7 = 0"
p$ = p$ + NL$ + ". num, is Septacle."
p$ = p$ + NL$ + "e"
p$ = p$ + NL$ + "remaining = 1 - .5, - .1667 - .0333 -.0048"
p$ = p$ + NL$ + ". The probability of , num, not being factorable by 2 3 5 7 is , remaining,."
p$ = p$ + NL$ + "f"
p$ = p$ + NL$ + "f"
p$ = p$ + NL$ + "]"
p$ = p$ + NL$ + ". "
p$ = p$ + NL$ + ". Thanks for playing."
Just make sure the variables have commas around them.
Added a shot of the Program Map from a Debug Screen.
Hey @odin, I like the screenshot transparent backgrounds, <3
PS Just realized I could have kept the decimals as fractions as an additional calc for Eval.
Checkout Eval at work on that...
Post by: STxAxTIC on February 14, 2021, 11:00:52 am
Heya bplus, is there a way you could explain this as if I just walked in? There is a mixture of history, other programs, links to other places - all over this thread. Maybe a 30 second video of you using this?
Or: How close are you to distilling this to the smallest black box possible? That is, output$ = bpluseval$(input$), and that's it. If you claim you're already here, I want to see the whole thing at once please.
The goal is to be able to paste your work brainlessly into a REPL-like shell and use it that way. That will tell me its ready for many greater purposes! (All I mean is integration into things like QLiza, or sending info around using pipecom.)
Post by: bplus on February 14, 2021, 11:43:25 am
Alrighty, trying to glue this all together.
Heya bplus, is there a way you could explain this as if I just walked in? There is a mixture of history, other programs, links to other places - all over this thread. Maybe a 30 second video of you using this?
Or: How close are you you to distilling this to the smallest black box possible? That is, output$ = bpluseval$(input$), and that's it. If you claim you're already here, I want to see the whole thing at once please.
The goal is to be able to paste your work brainlessly into a REPL-like shell and use it that way. That will till me its ready to may greater purposes! (All I mean is integration into things like QLiza, or sending info around using pipecom.)
I don't know, I was up to 4 Am last night and up early this morning in crazy exuberant rant ;-))
Here's more of the story, I was trying this and that with Polish or is it German... verb at the start and the objects at the end, no that's reverse German so yeah that might be Polish ( @FellippeHeitor and I do not mean disrespect to Germans or Polish, Germans put the verb on the end, it's a fact The Germans were pretty nasty to Poles so they, in world where language is influenced by nasty or friendly neighbors, the Poles in retribution put their verbs at the start. LOL) Know whose language, I nothing; Command System...
Wait what was the question?
The answer is I don't know but anyway...
Around 2 AM out of pure frustration and desperation, (maybe I am part German), I had this vision " = "
Another way to parse a command line, so I plugged-in my most recent Eval version from Plot and the sky's cleared and Heaven again was known, at least for Test 2, Test 1 was just a g and gs label check. I quit and went to bed because all my aggravation was instantly relieved when I started doing more things the Basic way. Debugging now a piece of cake, at least with 2 Tests. (I quit while I was ahead plus dead tired.)
So I am going to ride the high for a bit before I start on test #3, LOL
So now you know why I am not claiming I am "already there" but I can claim, I guess from experience you can and coulda used p$ = program string since the first SB.exe. I built a plotter from Eval, I built a Tabulator from Eval what more proof of concept is needed. You Stx, must know what properly functioning Eval can do for you look at all the amazing over-my-head stuff you build.
eg
Quote
The goal is to be able to paste your work brainlessly into a REPL-like shell and use it that way. That will till (tell?)* me its ready to may (my?)* greater purposes! (All I mean is integration into things like QLiza (yeah I want to integrate with Liza2)*, or sending info around using pipecom.)*Stuff in () added by me bplus.
What? LOL
Post by: bplus on February 14, 2021, 12:20:07 pm
So what is REPL-like shell? It's probably not a reptile, more like a replace tile maybe.
Update: "https://en.wikipedia.org/wiki/Read–eval–print_loop" < to see what I am looking at copy/paste the whole dang string the blue line cuts to a different place, perhaps the REPL needs a look into.
Oh yeah from what I can make of Wiki, yeah, we're in the same area code. It even says Eval and the mention of S like snake.
Oh Hey! The S for SB1
In Basic like system the name of variable (function for Lisp) is followed by a formula ie after the = sign.
Yes Eval handles the after the = part (or after the Boolean inquiry of If or ElseIf) after the code plugs-in the correct values at Run-time.
Post by: STxAxTIC on February 14, 2021, 01:10:25 pm
To make the point better, I have this hobby of taking programs and reducing them to a single line of input and a single line of output. (At some point you'll know what I mean, stop reading at any time.)
For instance, in the QLiza server project, the actual "Eliza" part is reduced to one line of code (ignore the top part, that will soon become pipecom):
Code: QB64: [Select]
I've done the same with QBguy's Lisp interpreter:
Code: QB64: [Select]
Not to mention, here is sxript and pipecom together in a text editor project:
Code: QB64: [Select]
- InsertString("=" + SxriptEval$(Projection$(ID1, ID2)), z)
- InsertString("=" + pipecom_lite$(Projection$(ID1, ID2)), z)
Anyway, the whole idea is containing the entire thing in one function of one argument. Even if it means reverse-engineering old aspects of the works to make it interface nicely.
Post by: bplus on February 14, 2021, 01:46:19 pm
My first foray into an Eval was so very Lisp like (at time I didn't know anything about Lisp nor Lambda Calculus, luv to banter those fancy names though right or wrong), my observation relearned again over weekend is that it is not easy to read what those coded lines are doing and it's a struggle to experiment with and debug, though probably learn decent thinking skills, try using verbs at the start of your sentences for awhile.
Now I forgot where I was going with this, man! almost 2PM time for lunch, that's where I am going...
Oh p$ the program string is sucked in thus:
(drag drop, Command$)
Open existingFilename.txt$ for Binary as #1
p$ = space$(lof(1))
get #1, p$
close #1
There's your input string.
What you do with that is your business. Or hey, in from _clipboard
p$ = _Clipboard$ ' notice the structure subject verb object there's your function name on one side and your formula on the other. =(p$, _clipboard$) not so easy to understand, perhaps I am another ruined coder from Basic experience.
IDE code
ReDim Shared NL$
NL$ = Chr$(10) ' you don't need the 13
p$ = "first program line"
[
p$ = p$ + NL$ + "Next line"
? Are we there yet.
i yeah
x
f
]
. Ready to proceed with p$.
Out to lunch...
Post by: bplus on February 15, 2021, 04:58:45 pm
Oh piss!
I get it now, you not only want a p$ in but you want a p$ out, to where? well that's on a need to know basis, just get the stuff in string form and p?ss it on, maybe to a file, maybe to the _clipboard, maybe mail it to Liza, maybe to the Recycle Bin through a filter.
You don't care about any shows in-between?
Well there goes my, "Infinite Pong the Movie.txt" ;(
Yeah so that will be awhile, I like show business.
Plus I am finding errors and bugs and aggravations and vexations: right and left here and there, just in frick'n test 1 from previous Interpreter Test #3 for SB1.
Fix Trimming variable names
Fix special ' ' if want to not Ltrim spaces between arguments
Found, not, broken in Eval, such a simple what? Function? not exactly more a pain in the nut
Oh! I know how I can fix that now, just go to Poland again! that will work easy without messing with Eval.
To piss strings, that's nothing. LOL
Post by: SMcNeill on February 15, 2021, 05:13:26 pm
Best trick I remember finding was to wrap parentheses internally where NOT appeared.
3 + NOT 4 + 3
Now, where does that NOT process?
If you add parentheses,it makes sense as:
3 + (NOT 4 + 3)
If that explanation helps any. It's NOT the easiest operator to describe order of operations of.
Post by: bplus on February 15, 2021, 06:37:49 pm
I have it the very last in order of processing, everything else must be done before it gets handled (on the level it's at inside parenthesis).
I want to treat it like a simple function NOT(X)
If X = 0 then NOT = -1 Else NOT = 0 ' > what could possibly go wrong?!
So simple, you would think. Just like at Doctor's today, trying to explain why we don't get BP's regularly for my mother. He thinks it's a simple thing. I thought it would be a simple thing but ... well no words describe the dynamic that goes on (I recently watched Young Sheldon's Thanksgiving vacation Episode.) Dynamic same word base as dynamite!
Post by: bplus on February 15, 2021, 07:19:23 pm
I thought I had all my problems with - sign resolved. No, one more when a string starts with a -number.
Post by: SMcNeill on February 15, 2021, 07:32:29 pm
KNOT = - (X + 1)
END FUNCTION
There's a basic function for it, as long as it's integers. ;)
Post by: bplus on February 15, 2021, 07:37:48 pm
Post by: bplus on February 15, 2021, 07:50:09 pm
Post by: bplus on February 16, 2021, 11:18:15 pm
Before you could only exit a loop from inside an if block
i condition 'IF condition
x 'exit
f 'end if
3 lines
now,
jump condition, exits to outside loop
Code: [Select]
' Test 3 new j for jump command for SB1.txt b+ 2021-02-16
LoopCount = 0
[
LoopCount = LoopCount + 1
j LoopCount > 14
k = 0
[
; *;
' oh dang this is bad i need i for indexes back to If for that command!
k = k + 1
' dang I cant use k = LoopCount but >= works!
j k >= LoopCount
]
.
]
. And we are out of the loop and done with this test with 14 lines of stars?Also realized it a mistake to use single letter commands specially i for IF
Post by: bplus on February 18, 2021, 02:17:30 am
Code: [Select]
' Test 4 Arithmetics.txt b+ 2021-02-17
a = 1
b = 2
c = 3
d = 4
e = 5
' yeah when I get to arrays...
f = e + a
g = e + b
h = e + c
i = e + d
j = e * 2
. a = ;a;/ b = ;b;/ c = ;c;/ d = ;d;/ e = ;e;/ f = ;f;/ g = ;g;/ h = ;h;/ i = ;i;/ j = ;j
+ result;a;b;c;d;e;f;g;h;i;j
. a + b +... + j = ;result
* result;a;b;c;d;e;f;g;h;i;j
. a * b *... * j = ;result
& result;a;b;c;d;e;f;g;h;i;j
. a & b &... & j = ;result
a = 7
. a = ;a
+= a;3.3
. a += 3.3 is ;a
-= a;3.3
. a -= 3.3 is ;a
*= a;3.3
. a *= 3.3 is ;a
/= a;3.3
. a /= 3.3 is ;a
Such commands might save on some typing.
a = a + 10
a += 10
a = 1 + 6 + 7 - 3
+ a;1;6;7;-3
& for String Concatenate.
Also am rid all single letter commands, here is a peak at the program shown earlier in this thread, 2 letter If Block commands:
Code: [Select]
'Test 6 the New ei command.txt b+ 2021-02-12 ei AKA ElseIf
' name change update If, It, Io, Ix
' may be read: If, If True, If Otherwise, If eXit
. Let's examine the common factors of some numbers:
[
? num; (Enter only will end Run) Please enter a number to test >
If num < 2
Exit
Io
If num % 2 = 0
. / ; num; is Even.
It num % 3 = 0
. / ;num ; is Triple.
It num % 5 = 0
. / ; num; is Pentacle.
It num % 7 = 0
. / ; num ; is Septacle.
Io
remaining = 1 - 1/2 - 1/6 - 1/30 - 1/210
. / ;The probability of ; num; not having a First Factor of 2, 3, 4, 5 or 7 is ; remaining;.
Ix
.
Ix
]
.
. Thanks for playing.
Post by: bplus on February 22, 2021, 05:20:26 pm
Code: [Select]
' Test 3 new j for jump command for SB1.txt b+ 2021-02-16 mod 2-21
[
+= loopCount;1
Jmp loopCount > 14
k = 0
[
; *;
+= k;1
Jmp k = LoopCount
]
.
]
. And we are out of the loop and done with this test with 14 lines of stars?
Here is Simple Prime Sieve using new Set and Get:
Code: [Select]
' Test ad Simple Prime Sieve.txt rev from SB.exe 2018-09-14 adopted from:
' Simple sieve 2.bas SmallBASIC 2015-04-29 found a faster sieve with BASIC 256
topN = 1000
limit = topN ^ .5
. Primes to ;topN
' take care of even numbers first
' prime the pump
[
+= i;1
Jmp i > topN
Set 0; i; composites
]
i = 4
[
Set 2; i; composites
+= i;2
Jmp i > topN
]
' now do odd numbers
i = 3
[
Get test; i; composites
If test = 0
If i < limit
j = 2 * i
[
Set i; j; composites
+= j;i
Jmp j > topN
]
Fi
Fi
i = i + 2
Jmp i > limit
]
i = 2
pCount = 0
[
Get test; i; composites
If test = 0
+= pCount;1
, i
Fi
+= i;1
Jmp i > topN
]
.
.
. / There are ;pCount;/ primes for the first ; topN;/ integers.
Here is one that was a tough nut to crack but found interesting problem with Execution Flow when a Loop ends ] just before an EI (ElseIF) or EL (Else) when flow is supposed to jump to FI (End If AKA Final If line sB uses that, its IF in reverse, I thought clever)
The Monkey Problem a tough nut to crack:
Code: [Select]
' Test ab ...and 1 for the monkey.txt rev for SB.exe convert 2021-02-20
' from ... and 1 for the monkey problem.bas for JB 2.0 b 2018-02-11
' Completely rewritten 2021-02-21.
People = 5
nutStart = 100
[
. / ... and one for the Monkey
.
. / There are 5 people and 1 monkey on an island.
. / Yesterday the amount of coconuts they collect is ; nutStart
' track nut inventory with:
nutsNow = nutStart
. / Last night, each person goes to the pile, takes a fith
. / gives 1 coconut to the monkey and hides the remaining.
. / (No coconuts are cut into parts in this problem.)
.
p = 0
monkey = 0
nutsNow = nutStart
[
+= p;1
Jmp p > People
fith = Int( nutsNow / People )
If fith >= 1
-= nutsNow; fith
+= monkey; 1
-= fith;1
Fi
+= fith;0
set fith; p; piles
. / For person ;p;/ their pile is ; fith; coconut(s).
]
. / So the remaining coconuts after last night is ;nutsNow
. / ... and the monkey has ;monkey
.
. / This morning, they give the monkey a coconut and divide
. / the remaining pile by number of people, what is the size
. / of everyone's pile?
.
. / Coconuts starting today is ; nutsNow
If nutsNow > 0
monkey = monkey + 1
nutsNow = nutsNow -1
Fi
fith = int( nutsNow / People )
. / So each person gets ; fith;/ more coconuts.
p = 0
[
+= p;1
Jmp p > People
Get curr; p; piles
total = curr + fith
. / Person ;p; had hidden ;curr; and gets ;fith; so has ; total
-= nutsNow; fith
]
. / The monkey has ; monkey;/ coconuts.
. / There remains ; nutsNow; nuts for this author.
.
-= NutStart; 10
If nutStart > 0
loc 34; 5
. ZZZ... press any to see day with 10 less coconuts to start
Zzz
Cls
El
Exit
Fi
]
. / Good bye!
End
So SB1 rewrite almost caught up to SB, better with ElseIf equaivalent but 200 lines more, programMap took about 100 so there is no searching for the place to go next while running and using split for everything so there is no running down a string over and over looking for delimiter #x, so overall should be faster performance.
Would like string function system added for this version to have significant update.
Post by: NOVARSEG on February 22, 2021, 11:46:26 pm
Quote
a = a + 10
a += 10
what about a = 10 + a
a = 10 + ??
The complier might think a variable is missing.
Post by: bplus on February 22, 2021, 11:56:57 pm
a += 10
looks better than
+= a;10
which is what I have working now in my Interpreter built from QB64.
I agree, I will put on my ToDo List to change.
Post by: NOVARSEG on February 23, 2021, 12:25:33 am
a$ = a$ + z$ is not the same as a$ = z$ + a$
but
a = a + b is the same as a = b + a
Post by: bplus on February 23, 2021, 12:47:41 am
String Concatenation will use & symbol.
Post by: SMcNeill on February 23, 2021, 12:57:18 am
a$ = a$ + z$ is not the same as a$ = z$ + a$
but
a = a + b is the same as a = b + a
Wouldn’t this just be a case of:
a$ += z$
Verses:
a$ = z$ + a$
Post by: NOVARSEG on February 23, 2021, 01:03:11 am
a$ = z$ + a$
Post by: bplus on February 23, 2021, 01:46:19 am
and yes that <>
b &= a > ba
That will go in for sure.
Post by: SMcNeill on February 23, 2021, 02:29:37 am
guess so but what is the short hand for
a$ = z$ + a$
a$ =+ z$
VS
a$ += z$
I mean, why not?
Post by: NOVARSEG on February 23, 2021, 04:06:21 am
Ok that'll work, but we got more than 640 K of memory now a days.
Post by: bplus on February 23, 2021, 08:04:48 am
Quote
a$ =+ z$
VS
a$ += z$
I mean, why not?
@SMcNeill
Yeah, why not? What could possibly go wrong with that? ;-)) on my ToDo List
Originally += was a first argument in string command and those are fairly easy to code but I should be able to work in variable first commands I started for strings. But =+ makes more sense reading wise.
Quote
Ok that'll work, but we got more than 640 K of memory now a days.
@NOVARSEG
Yeah we have extended memory devices but our own memory has a deadline.
Today I was going to see if I can just run SB1 from Notepad++ like I can with JB. Then I could Edit/Run repeat without the drag drop in between, that's such a drag. I think I can just setup a tiny script to SB1.exe with a -f to call with active NP++ file and Notepad++ will add the filename for SB1 to Run. That way I can put programs in different folders. Then I have tabbed files at my fingertips.
Post by: bplus on February 23, 2021, 02:03:15 pm
Had fully pathed exe and filename loaded on console line (npp has exec extension that runs a console window in a split window at bottom of screen) click OK from the script to run, there is a little jiggle in npp but no sign of the running program except when I try to exit npp or try again to run something. Then I am informed console is still running and I can't even exit npp until I kill whatever invisible thing is going on in the console. Oh, should have checked Task Master see what exactly was going on... Todo
I try other combinations of commands and curse Windows inability to use chm files where the Manual for Notepad resides without some fix to Windows, result big headache. I also tried Run from npp and SB1 loads and runs the default internal program not much help there but when try to add filename to Run command > file not found error: something. ToDo Nap, Done!
Also ToDo try _ClipBoard if there is nothing coming in on command line.
Post by: SMcNeill on February 23, 2021, 02:29:14 pm
@SMcNeill
Yeah, why not? What could possibly go wrong with that? ;-)) on my ToDo List
Originally += was a first argument in string command and those are fairly easy to code but I should be able to work in variable first commands I started for strings. But =+ makes more sense reading wise.
Honestly, if I was to adopt such shortcuts, I’d keep the implementation very simple.
+= says whatever is in front of the + goes to the left on what’s on the right of the equal sign.
=+ says whatever is left of the equal sign goes to the far right of the plus sign.
a += b + c would be the equivalent of a = a + b + c
a =+ b + c would be the equivalent of a = b + c + a
If you wanted a = b + a + c, then you’d just have to type that out without any shorthand.
a = “butter”
b = “pea”
c = “nut”
a =+ b + c
a is now “peanutbutter”. ;)
Post by: bplus on February 23, 2021, 04:27:35 pm
Honestly, if I was to adopt such shortcuts, I’d keep the implementation very simple.
+= says whatever is in front of the + goes to the left on what’s on the right of the equal sign.
=+ says whatever is left of the equal sign goes to the far right of the plus sign.
a += b + c would be the equivalent of a = a + b + c
a =+ b + c would be the equivalent of a = b + c + a
If you wanted a = b + a + c, then you’d just have to type that out without any shorthand.
a = “butter”
b = “pea”
c = “nut”
a =+ b + c
a is now “peanutbutter”. ;)
Dang! Not how I was figuring it, my line of interpretation is
a$ = itself + whatever else you want to tack onto it.
a$ would have to be = "pea"
b$ = "nut" '(of course)
c$ = "butter"
a$ =+ b$ + c$
Well we can toss this around for awhile, more important fish to fry.
Update:
If Command$ turns up empty or Command$ file not found I have added a check of clipboard contents, display 100 chars from it, if that looks like something runnable to user he may approve it else default test program is offered up.
You can now edit a program in npp or your favorite txt editor, select all and copy to Clip, Run SB1 and those contents will be offered up to run.
You can write an SB1 program in your bas program and store it in clipboard in code, Shell a call to SB1 and see the offer of running the program from your app's Shell (theoretically, haven't tested yet.) Thus you can create and run SB1 programs on the fly in your bas app.
Post by: bplus on February 24, 2021, 07:08:56 pm
Code: [Select]
' Test ag First String Functions.txt b+ 2021-02-23& 24 reworked $ functionName arg1, arg2,...
. Ways to assign a var
. var = numeric expression (this is for a variable expected to be a number)
. var ""literal (starts immediately after 2nd ") probably fastest and cleanest, remember no space!
.
. Introducing: First String Functions Case Insensitive !!! put all literals right next to comma !!!
. HEAD Syntax: var $ Head source$, endCharPos# > var = mid$(source, 1, endCharPos)
. TAIL Syntax: var $ Tail source$, headEndPos# > var = mid$(source$, headEndPos + 1)
. MID1 Syntax: var $ Mid1 source$, charPos# > var = mid$(source$, charPos#, 1)
. MID$ Syntax: var $ Mid$ source$, startPos#, nChars# > var = Mid$(source$, startPos#, nChars#)
. INSTR2 Syntax: var $ Instr2 source$,literalMatch > var = TS$(Instr(source$, find$)
. INSTR3 Syntax: var $ Instr3 start#, source$,literalMatch > var = TS$(Instr(start#,source$, match$))
. LEN Syntax: var $ Len source$ > var = TS$(Len(source$))
. SPC Syntax: var $ Spc amountOfSpaces# > var = SPC(amountOfSpaces)
. & Syntax: var $ & a1,a2,a3,... > var = a1 + a2 + a3 + ...
hw ""Hello World!
char_H ""H
char_W ""W
. Did it take? show how hw was set in code:
' dot in next line should prevent activating "", it does.
. hw ""Hello World!
' test the "" method of variable assignment
. And hw has the value: ;hw;/ and char_H: ;char_H;/ and char_W: ;char_W
hwLen $ len hw
. And hw has the len of: ;hwLen
.
. Here we try String Functions involving MID$: Head, Tail, Mid$, Mid1
hello $ Head hw, 6
world $ Tail hw, 6
low $ Mid$ hw, 4, 4
first $ mid1 hw,1
' actually if the literal is numeric and positive you can have a space after comma.
seventh $ mid1 hw, 7
. / Head 6 chars = *; hello ;*
. / Tail from 6 + 1 = *; world ;*
. / Mid$ from 4, 4 chars = *; low ;*
. / What's at the first (first $ mid1 hw,1)and seventh positions? answer: ;first;/ and ;seventh
.
find_lh $ instr2 hw,h
find_UH $ instr2 hw, char_H
find_W $ instr2 hw, char_W
. / Instr2 has 2 arguments: Search string and the item to match.
. / Instr3 has 3 arguments: startPlaceOfSearch, the StringToSearch, theItemToFind.
. Instr2 Tests:
. Any h's in ;hw;? Answer: ;find_lh
. Any H's in ;hw;? Answer: ;find_UH
. Any W's in ;hw;? Answer: ;find_W
. The original variable hw was derived from 1st letters at (find H) ;find_uH; and at (find W);find_W;.
. / What the L? find all the places it's located, using Instr2, Instr3
. Instr3 Test:
place $ Instr2 hw,l
[
If place
+= cnt;1
. #;cnt; l resides at ;place;# in ;hw;.
+= place;1
place $ Instr3 place, hw,l
El
. / That's all the L, we found.
Exit
Fi
]
. / Testing $ spc n for spaces and $ & arg1,arg2,arg3... concatenate with &
[
+= n;1
space $ spc n
bind $ & hw, space
; bind
chars = chars + hwLen + n
Jmp chars + hwlen + n + 1 > 128
]
.
. Goodnight!
zzz
My strategy is getting strings with all kinds of troublesome potential parsing characters on the loose, contained as values under variable names ASAP! Then! we can use normal parsing characters eg, spaces and commas, even ()'s (but not yet, that's for SB2 with a super evaluator).
PS There was an error in the code output seen in screen shot that I fixed in code. Today's quiz, can you find it?
Post by: bplus on February 26, 2021, 01:52:51 pm
myStr$ = "assign this value"
in SB1 now
mystr "assign this value
mySect$ = mid$(myStr$, 13)
mySect tail 12
Edit: not 13, tail starts +1 from Head end, probably will replace tail with tail$ = rightOf$(source$, OfThisStr$)
mySect$ Tail this (which has a space on the end *this *)
A little story I was going to post an message about overhaul this morning and ran into bug with simple demo, now I have made it easier still to assign a variable, now a demo: attached
Ha! I wonder if the only person who might appreciate all these efforts is WhatsHisNameNow? that I knew from 3 forums now gone. But then there is Aurel and Ed and maybe Steve :)
Well back to the grindstone of testing...
BTW this is why I don't post code yet, I am overhauling everything when I see the slightest improvement in ease of use, one little detail "get rid of the silly looking $'s (that aren't that easy to type in first place)" and massive over haul. Then I have to check that the change doesn't mess up tests already working which require rewriting the effected sections... it is a bit of a grind.
Post by: bplus on February 26, 2021, 03:03:48 pm
I know our favorite Basic uses ? for short hand for PRINT in the IDE and I don't like to break with tradition without very good reason. IMHO ? is perfect for Input, you are asking for something and waiting for an answer.
I have been going round and round trying to deal with nothing, the user just presses enter. If run nothing through my numeric Eval it pitches a fit about not having a second operand for a binary operation, so the quick fix was make nothing 0 works fine for the numeric eval but! now I want to have all kinds of dealings with strings and Input has been setup to receive a String by varType$ because in coding when you get down to it, everything is string until you make something more of it by giving certain strings numeric significance, rising above nothing in value...
(I think that was "Run on" sentence, sorry. )
Btw switched over to Line Input which only takes 1 string but here come commas and potentially longer things. Yeah that's the right Input to use for SB1 and of course the thing with just enter is still there and setting it to 0 is terrible fix because maybe "" is the right answer so, this is 4 AM in morning last night...
So now I need a function empty to say in Boolean that the answer was no string return -1
isEmpty empty myAnswerFromInput?
If isEmpty
GoTo label:
(or) Exit
(or) End
(just don't do anything numeric with it to piss off Eval!)
Fi
or Jmp isEmpty
So now the coder of the Interpreter can decide WTH to do with "just enter" as it should be. :)
Post by: SMcNeill on February 26, 2021, 06:46:37 pm
Post by: bplus on February 26, 2021, 10:13:18 pm
SB1 doesn't have String Eval so it handles strings in clunky way better than the nothing that SB had (except for Array-Strings) :)
String Eval is for SB2 when I go study Ed's code. At the moment all variables are string until they are needed to be numbers then they are and it's up to coder to use them carefully :)
This is not for great apps but for ad hoc help on the fly at Run Time.
Post by: bplus on February 27, 2021, 11:04:44 am
Post by: bplus on February 28, 2021, 07:34:37 am
I finally killed a bug way back from original parsing of program line that has been dogging me since first written in ParseProgramStr the same routine that maps the program. It came from a misremembering of what I thought a Filter function, written for the Sub, was doing. I didn't even know the bug existed and had been working around problems by reparsing program lines for numeric expression and string function processing. Again with the redundant processing of what should have been processed right the first time. I first became aware of it when I was trying to allow crazy spacing between first cmd/var of line and the next cmd/var. Along with case insensitive for commands, variables and labels I wanted as much space insensitive as possible as all literals will be picky enough to get right without dbl quote containment. Plus I learned Notpad++ likes to throw invisible tab chars at the end of lines. Such are invisible unless you highlight text for selection, then you see extra fat endings on the lines. The Filter was taking out tabs but it was also doing a trim to save time. Trouble was it was trimming every space out of the program line! ;-)) Yikes! I never noticed because I did a LeftOf$ the first space first before the filter. Then on case by case basis did more leftOf$ next spaces or ... anyway the fix was to filter out the whole program line of chars <32 and then parse by leftof$ stuff or splits on case by case basis.
Anyway the present list of string functions is:
Len, SPC, Mid$, Mid1, Head (revised yesterday), Tail(rev), Instr2, Instr3, $= for string comparison Boolean return
Head now looks for first string in source$ and returns all before that string or whole string if match not found
Tail takes the back end or nothing if match$ not found.
Head, Tail is like Mid$ with a string instead of number positions.
Empty was dumped for a line like this:
isEmpty $= a1,
(leaving no 2nd argument, Eval pissed off would Err$ = " Error: Binary Op missing operand." but not Str Functions ;-))
And proposed additions (Looking at Ed's list for quick start):
Date
Time
Ucase
Lcase
Chr
Asc
Ltrim
Rtrim
String - not to be, Unicorned
Val - not to be, Unicorned (I think) might need in SB2 with Super Evaluator
B+:
Trim
Copy + is replacement for String which only does 1 char, let's offer to copy more than 1 char, imagine an Astring copied that's like copying arrays. Astrings are array-like but you can insert items, delete items, append items without too much more coding like with DIM or REDIM _Preserve.
A$Sort + Ascending String sort
D$Sort
A#Sort
D#Sort
Split - with Astrings instead of arrays
Join - with Astrings instead of arrays
So am I missing anything obvious?
PS Yes, I already have concatenation:
CASE "&" ' Syntax: var & a1,a2,a3...
Post by: bplus on February 28, 2021, 11:10:26 am
Code: QB64: [Select]
Here is the sort interface with SB1:
Code: QB64: [Select]
- ' 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$
- 'now pack it backup in an Astring$
Next up see what wacky thing I did not anticipate '-))
MileStone: LOC just exceeded 1K, the 4 different sorts kind of expensive and redundant but I think faster than a one size fits all Variable Types and Sort Types.
Already I see I will need to REDIM NA# to SA$ bounds, after lunch.
EDIT: code above needed two fixes as pointed at with Commented Edit lines.
Post by: bplus on February 28, 2021, 09:49:13 pm
Sort Test Code:
Code: [Select]
[
cnt = cnt + 1
jmp cnt > 20
rLen = int(rnd * 10) + 2
b "
cnt2 = 0
[
cnt2 = cnt2 + 1
jmp cnt2 > rLen
rChar = int(rnd * 26) + 65
rStr chr rChar
b & b, rstr
]
set AstringS, cnt, b
r = int(rnd * 100 * 100)
set AstringN, cnt, r
loc cnt, 1
; b
row = cnt + 21
loc row, 1
; r
]
saSort a$Sort AstringS
sdSort d$Sort AstringS
naSort a#sort AstringN
ndSort d#Sort AstringN
cnt = 0
[
+= cnt,1
jmp cnt > 20
get sa, saSort, cnt
get sd, sdSort, cnt
get na, naSort, cnt
get nd, ndSort, cnt
at 20, cnt
; sa
at 40, cnt
; sd
row = cnt + 21
at 20, row
; na
at 40, row
; nd
]
Zzz
Those were the String Functions I was most concerned working OK. Next up is to test the remainder of the functions using v 1.5 now. :)
Post by: Aurel on March 01, 2021, 03:42:38 am
You have more string functions than I in m(A)...well ..fine !!!
heh you say LOC over 1K...dude use more spaghetti code to minimize amount of lines..ok?
Post by: bplus on March 01, 2021, 01:40:36 pm
What's micro(A) in LOC?
Do you have ElseIf equivalent? Do you map your program out before execution of lines?
Both new for me in SB1.
Today's update, just have Join to work out, there may be several different ones. Then will post code for you all to test drive.
BTW I notice all the functions in my Numeric Eval and Ed Davis more versatile Eval have 0 (Rnd) or 1 Arguments, what do we do for 2 or more? ;-))
Post by: Ed Davis on March 01, 2021, 03:08:09 pm
BTW I notice all the functions in my Numeric Eval and Ed Davis more versatile Eval have 0 (Rnd) or 1 Arguments, what do we do for 2 or more? ;-))
Something like this:
Code: QB64: [Select]
- nextsym userstr, sym ' skip fun
- expect "(", userstr, sym
- n1 = numeric_expr(0, userstr, sym)
- expect ",", userstr, sym
- n2 = numeric_expr(0, userstr, sym)
- expect ")", userstr, sym
And then in primary():
Code: QB64: [Select]
Post by: bplus on March 01, 2021, 11:51:31 pm
Test and demo code:
Code: [Select]
' Test ak Remaining SFunctions 2-28.txt
' along with testing regular "easy to code" SFunctions get more practice with
' Set and Get our array substitute.
' oh try another way to assign with &
day date
clock time
xpix = xmax - 200
tag xpix, 10, clock
tag xpix, 30, day
sp1 chr 32
sp7 ncopy 7, sp1
test & sp7, B is Fat Left and Right!, sp7
. test string: ";test;"
bltrim ltrim test
brtrim rtrim test
btrim trim test
bshout ucase test
bwhisper lcase test
.
. ltrim B ";bltrim;"
.
. rtrim B ";brtrim;"
.
. B is looking trim ";btrim;"
.
. SHOUTING: ";bshout;"
.
. whisper: ";bwhisper;"
.
' Building an Astring with nCopy of embedded delimiter (space) to split it, brilliant!
fatx10 ncopy 10, fat!
'trim the fat
fatx10 trim fatx10
.
. fatx10
x10 split fatx10, sp1
. x10 split fatx10, sp1 is;
cnt = 1
hyph chr 45
[
x get x10, cnt
. / ; cnt;.;/ ; x
'OK for fun lets mod with concatenation (binding I am calling it)
x & cnt,hyph,x
'test modified x debug
'. x
' and back into the Astring changed
' set is like a(i) = change ( I was doing change first )
set x10, cnt, x
'debug
'. x10
+= cnt, 1
jmp cnt > 10
]
'another way to assign a string
& c,+,
. & c,+, is ;c
'checks on our new join delimiter
c1 asc c
. c1 asc c is ;c1
c2 chr c1
. c2 chr c1 is ;c2
'' this needs fixed I am too tired to think straight
'' I think it was x10 that needed a trim, YES!
'' and this kind of join is really a rejoin
'' that converts an Astring into another type of Astring
j join x10,c
. j join x10, c is ; j
Oh I changed the ps (_PrintString) clone and renamed it Tag Syntax: Tag Xpix, Ypix, Label$
Also more news on the ? Input front, I now have 2 cmds n? and ?n because who the hell's going to remember which side the n is supposed to go ? And n? or ?n is to inform the Input code that we want a 0 instead of an empty string if user just presses Enter key. And that reminds me of another change, I am preloading the variables Table, names and values with MT for empty string, Xmax for screen width, Ymax for screen height, Rmax for max Row number and Cmax for At or Loc commands, At is Locate with Col, Row reversed to match Basic graphics where X comes before Y just like in the alphabet. :) Have it both ways dang it!
So Steve there is our answer to += or =+ we shall offer both and not challenge 60+ year minds with pickiness of left or right placement. ;-))
And screen shot:
And after taking nap today, I got an idea for surprise package to include with SB1, I am eager about.
Post by: Aurel on March 02, 2021, 01:07:06 am
currently cca 1400
Do you have ElseIf equivalent?
no ..i have only ELSE
Do you map your program out before execution of lines?
well yes i transform code into array of tokens and array of token types.
Mark i will try your...SB1
Post by: bplus on March 02, 2021, 12:13:50 pm
Code: QB64: [Select]
- Mark i will try your...SB1
Oh thanks Aurel, that's nice. I will be sure that it requires Stable v 1.5 because you should like that too! ;-))
Post by: bplus on March 02, 2021, 12:37:50 pm
[Bplus off on a tangent:
(instead of () to maintain the a goal of SB to avoid top row keys that need shift, maybe I should call this one handed Basic, or Basic with one arm tied behind my back, dang this could actually be a Basic for the one handed not a bad idea ) More ToDO then to be consistent with that idea, there goes any $ what so ever! no more!!!! crap also ha, ha.]
as a program line to do first! How simple is that! well we'll see.
Connecting to Ed Davis, Numeric/String Eval functions, here because he is helping me think about how to handle SFunctions like I have already with numeric Evaluations. I started to post there but here is more appropriate, I think, they are obviously intertwined subjects in my mind.
https://www.qb64.org/forum/index.php?topic=3697.msg130605#msg130605
Post by: bplus on March 02, 2021, 12:55:24 pm
oh, qm no more ? too, now qm, no # sign now n, no $ sign now v or s? v for variable as all is string anyway, exclamation mark, em...
bplus you are some kind of nut, em
Yeah so who is doing basic with one hand tied behind their back, qm bplus. Oh wait + is up there too, oh no em.
bt then qm ok so + is shifty too. ewh what about all those symbols for math? Yikes! =,- still ok. t for + can it be done qm
x for *
one handed or oh hell em
maybe 2 for 1 like qm, em, cm.. + then is tw as + is The Way to be. The Tao would be proud if it had feelings.
next up ^
or &
qm
Post by: bplus on March 02, 2021, 01:45:27 pm
Stx would say ^ is hat but I like "up" for power symbol.
Any one see this?
Post by: Aurel on March 03, 2021, 03:59:40 am
BpAkaMark...you should call it SB (pssst...script...pssstBasic ) ..he he
so you say that i must use new 1.5 hmm..i can ask why but better not ..L:O:L (Y)
by the way where is complete code ?
Post by: bplus on March 03, 2021, 09:34:15 am
Quote
by the way where is complete code ?
Here with some untested, undocumented graphics commands:(attached)
OK I tested download and seems to be working on my machine OK.
All the Tests included in Folder are working on my machine.
New untested graphics:
Ink command for setting drawing or printing color
Ink 3 arg _RGB or 4 arg _RGB
eg Ink 255, 0, 0 'for red
eg Ink 255, 255, 0, 128 'for yellow alpha layer
Paper command for back color, 3 arg only
for white:
Paper 255, 255, 255
This was late last night I forgot if Paper does a Cls or just sets Shared as _unsigned long Paper, Ink
So for pset use:
Pix x, y
Line:
Line x1, y1, x2, y2
Box:
Box x1, y1, Width, Height
FBox (filled box)
FBox x1, y1, w, h
Circle:
Circ x, y, r
Filled Circle:
Fcirc x, y, r
Filled Triangle (you can make your own triangles with 3 lines)
Ftri x1, y1, x2, y2, x3, y3
Man was I in crazy state yesterday, low blood sugar? We were testing mom's heart monitor for over an hour trying to get the thing to send a test reading. Get to try again later this week with more tech guys on the other end of phone. Every minute of test mom asks how long is this going to take why are we doing this, meanwhile the is beeping like a loud annoying timer gone off, eventually the dog joins in with barking Yikes! what a symphony.
So my mind got a bit scattered for posts above.
Oh crap, I do want transparent paper available too, for printing with clear background color.
Yeah so I was testing random pix with random color and got such an unrandom result I threw in the towel for the day. This was after a session of updating Help for SB1 in which the words would not line up for me in head and not working well with Notepad++ on extra wide because I don't know what width others would be reading the text.
WARNING: the only places where numeric expressions are evaluated are:
Main:
var = expression
+ Sumvar, a2, a3, a4... and Sumvar = total of Args after first
- MinusVar, a2, a3, a4 MinusVar = a2 - a3 - a4...
* Prodvar, a
+= var, change < literal number only, change would be easy to run through eval
Yeah run numeric args through eval for Loc, At, Tag,... why am I not doing this?
Post by: bplus on March 03, 2021, 10:45:24 am
Quote
so you say that i must use new 1.5 hmm..i can ask why but better not ..L:O:L (Y)
'sOK
Which would you rather do:
b4 v1.5
Code: QB64: [Select]
'aftr v 1.5
Code: QB64: [Select]
Post by: Aurel on March 03, 2021, 02:06:27 pm
u use same as me in ruben interpreter...!""#%$#$%$&
he he
So for pset use:
Pix x, y
ok Mark i will...
I am using old 1.3 portable version 32bit...
WOW you use lot of SUBS and FUNCTIONS...
Post by: Aurel on March 03, 2021, 02:40:58 pm
foe some examples i am not sure that work properly ...but ok!
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: bplus on March 03, 2021, 04:02:39 pm
Post by: bplus on March 04, 2021, 12:53:34 pm
ToDo get the rest of the numeric arguments to work that way or confirm they refuse to play nice amongst non numeric arguments and comma splitters and variable substitutions... that would be really helpful for Loc, At, Tag and All the graphics commands. Then I think I can setup a similar thing for String Evaluation but wait and see how numeric evals fit in other commands.
Re:Random points on a SB1 screen
Holy moley the thing Luke showed us in discussion of getting random points struck in full force trying to do random pixels and even random boxes on SB1 screens way way way too regular diagonal patterns, Yikes!
I was so desperate to get rid of that, I set up a PtDeck in SB1 with a shuffle Sub (I tried this first in an SB1 program but it ran way too slow to be of any practical use, and I got a good taste of just how slow things run in the Interpreter!). So the PtDeck puts 1024 * 672 numbers into an array, 1 for each point on screen. then I shuffle them and have a shared index to pass through the deck so each point is visited once before we repeat the same point after reshuffling the deck. So, much nicer randomness, still some streaks but that is from regularity of coloring, I hope. And if I want more true randomness I think all I have to do is shuffle the deck of points before each draw so theoretically you could draw the same point twice in row or 5 times or 1,000,000 but don't bet on it.
So now I have everything messing up very nicely, thank you very much!
New (case insensitive) command for SB1 is Syntax: RndPt varContainer
example of use:
RndPt xy
RndX = xy % xmax
RndY = int( xy / ymax )
Qb64 does this stuff instantly compared to SB1 that is still working to fill a screen:
Code: QB64: [Select]
Another fine mess!
(see attachment)
SB1 equivalent:
Code: QB64: [Select]
- ' Test al First Graphics Test.txt b+ 2021-03-03
- ' OK dang it! I made some special arrangements in SB1 to make a deck of pts
- ' to shuffle those points and to access the next point to be dealt with rndPt command
- paper 0, 0, 0
- ratio = ymax / xmax
- top = 688217
- [
- += cnt, 1
- 'ink 0, 0, 0, 1
- 'fbox 0, 0, xmax, ymax
- 'jmp cnt > 300
- rndpt rp
- x1 = rp % xmax
- 'x2 = ( rnd * xmax + c ) % xmax
- 'y2 = ( rnd * ymax + c ) % xmax
- 'w = rnd * 100
- 'h = rnd * 67
- 'every 3rd color is green white or blue with rnd? alpha
- r = 0
- g = 190
- b = 0
- ei (( cnt %3)= 1)
- r = 255
- g = 255
- b = 255
- el
- r = 0
- g = 0
- b = 255
- fi
- ink r, g, b, a
- 'box x1, y1, w, h
- 'pix x1, y1
- fcirc x1, y1, 1
- 'fbox x1, y1, w, h
- ]
SB1 Labors for same mess:
(compare 2 attched screen shots)
Post by: Aurel on March 05, 2021, 07:45:34 am
but why you insist on rnd * 255...
it is simplier to made rand(255) i have that made using api
infact i have RND(1) - from 0 to 1 ,and RAND(max) from 0 to max
just thinking aloud.....
Also Mark may i ask you why you have so many ReDim in your code..??
It is strange to me ...by the way do you have array implemented ?
Post by: bplus on March 05, 2021, 11:31:02 am
Quote
but why you insist on rnd * 255...
it is simplier to made rand(255) i have that made using api
infact i have RND(1) - from 0 to 1 ,and RAND(max) from 0 to max
just thinking aloud.....
Yeah maybe Rnd() would be better, now when code sees Rnd it substitutes a RND value as if it were another var to substitute in a value or sees pi and puts in 3.1415.. or sees e puts in 2.7182... Maybe same difference?
All the Redim's is because using OPTION _EXPLICIT and never have to use DIM when REDIM covers everything.
Arrays are single dimension use SET to store a value
SET Astring index isValue
same as A(i) = isValue
and then GET a value from an Astring:
myVar Get Astring index
compare to:
myVar = A(i)
The Prime Sieve Test used Get and Set for storing First Factors (no I think it was last factors to avoid check if array had a value stored already) you could continue Prime Sieve by factoring any given number up to 1000.
If you want 2D of more use calculated indexes to convert to single number then Get or Set that index.
Just have to track row width for the Astring.
say screen is 1024 x 700
Then index of (x, y) = (5, 327) is 5 + 327 * 1024 = 334853
Post by: Aurel on March 05, 2021, 02:52:32 pm
Quote
All the Redim's is because using OPTION _EXPLICIT and never have to use DIM when REDIM covers everything.
oh ..i don't know that ..
ok so you have array ..that is nice ....shame on me I still don't have it in m(A)
thanks for reply...
Post by: bplus on March 05, 2021, 03:31:01 pm
oh ..i don't know that ..With these tools you can turn strings into arrays:
ok so you have array ..that is nice ....shame on me I still don't have it in m(A)
thanks for reply...
https://www.qb64.org/forum/index.php?topic=1511.msg129084#msg129084
And NOT have to worry about DIM keyword or "Subscript out of bounds errors"
On the same principle as above I am using variable length strings
https://www.qb64.org/forum/index.php?topic=3681.0
Post by: Aurel on March 05, 2021, 05:53:22 pm
Quote
Subscript out of bounds errors
in a compiler i am using there is no such a type of errors
also i don't use any kind of UDT in microA
but thanks ..something similar u was use in ruben
well i have in plan to use different container for array...assoc
Post by: bplus on March 15, 2021, 03:10:47 pm
I had a great breakthrough March 7, 2021 (and in memory of my Father's B-Day!) with the Fval$ evaluator that does all strings and that includes numbers! It's simple, it's versatile, it's easy and no recursive calls to evaluate a line of code. It does put a greater burden on the coder to write a numeric expression but it's a cool new challenge.
I have restarted my little interpreter with Fval$ as my base evaluator and we go from Shorthand to One Handed!
You should be able to write all your code for interpreter with one hand, no capitals required nor upper row shifted characters. One handed? What should we call such a thing? One handed, One Handed... OH! LOL
Anyway this project continues here:
https://www.qb64.org/forum/index.php?topic=3723.0
Transformed! It no longer looks like Basic specially on the Right side of an variable = expression.