mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-08 19:35:13 +00:00
Extends the new DIM syntax to SHARED (subs)
e.g. SHARED AS _BYTE array(), index
This commit is contained in:
parent
61796209bd
commit
fd0b44aee4
106
source/qb64.bas
106
source/qb64.bas
|
@ -7009,8 +7009,10 @@ DO
|
||||||
'get variable name
|
'get variable name
|
||||||
n$ = getelement$(ca$, i): i = i + 1
|
n$ = getelement$(ca$, i): i = i + 1
|
||||||
|
|
||||||
IF n$ = "" THEN a$ = "Expected SHARED variable-name": GOTO errmes
|
IF n$ = "" THEN a$ = "Expected SHARED variable-name or SHARED AS type variable-name": GOTO errmes
|
||||||
|
|
||||||
|
IF UCASE$(n$) <> "AS" THEN
|
||||||
|
'traditional dim syntax for SHARED
|
||||||
s$ = removesymbol(n$)
|
s$ = removesymbol(n$)
|
||||||
IF Error_Happened THEN GOTO errmes
|
IF Error_Happened THEN GOTO errmes
|
||||||
l2$ = s$ 'either symbol or nothing
|
l2$ = s$ 'either symbol or nothing
|
||||||
|
@ -7070,6 +7072,7 @@ DO
|
||||||
s$ = defineextaz(v)
|
s$ = defineextaz(v)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
NormalSharedBlock:
|
||||||
'switch to main module
|
'switch to main module
|
||||||
oldsubfunc$ = subfunc$
|
oldsubfunc$ = subfunc$
|
||||||
subfunc$ = ""
|
subfunc$ = ""
|
||||||
|
@ -7125,7 +7128,16 @@ DO
|
||||||
'note: variable created!
|
'note: variable created!
|
||||||
|
|
||||||
shrfound:
|
shrfound:
|
||||||
|
IF newSharedSyntax = 0 THEN
|
||||||
l$ = l$ + sp + RTRIM$(id.cn) + l2$
|
l$ = l$ + sp + RTRIM$(id.cn) + l2$
|
||||||
|
ELSE
|
||||||
|
IF sharedAsLayoutAdded = 0 THEN
|
||||||
|
sharedAsLayoutAdded = -1
|
||||||
|
l$ = l$ + l2$ + sp$ + RTRIM$(id.cn) + l3$
|
||||||
|
ELSE
|
||||||
|
l$ = l$ + sp$ + RTRIM$(id.cn) + l3$
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
|
|
||||||
ids(currentid).share = ids(currentid).share OR 2 'set as temporarily shared
|
ids(currentid).share = ids(currentid).share OR 2 'set as temporarily shared
|
||||||
|
|
||||||
|
@ -7145,11 +7157,94 @@ DO
|
||||||
CLOSE #13: OPEN tmpdir$ + "data" + str2$(subfuncn) + ".txt" FOR APPEND AS #13
|
CLOSE #13: OPEN tmpdir$ + "data" + str2$(subfuncn) + ".txt" FOR APPEND AS #13
|
||||||
CLOSE #19: OPEN tmpdir$ + "free" + str2$(subfuncn) + ".txt" FOR APPEND AS #19
|
CLOSE #19: OPEN tmpdir$ + "free" + str2$(subfuncn) + ".txt" FOR APPEND AS #19
|
||||||
|
|
||||||
|
IF newSharedSyntax THEN RETURN
|
||||||
|
|
||||||
IF getelement$(a$, i) = "," THEN i = i + 1: l$ = l$ + sp2 + ",": GOTO subfuncshr
|
IF getelement$(a$, i) = "," THEN i = i + 1: l$ = l$ + sp2 + ",": GOTO subfuncshr
|
||||||
IF getelement$(a$, i) <> "" THEN a$ = "Expected ,": GOTO errmes
|
IF getelement$(a$, i) <> "" THEN a$ = "Expected ,": GOTO errmes
|
||||||
|
|
||||||
layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$
|
layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$
|
||||||
GOTO finishedline
|
GOTO finishedline
|
||||||
|
ELSE
|
||||||
|
'new dim syntax for SHARED!
|
||||||
|
i = i - 1 'relocate back to "AS"
|
||||||
|
|
||||||
|
'estabilish the data type:
|
||||||
|
t$ = ""
|
||||||
|
ts$ = ""
|
||||||
|
t3$ = ""
|
||||||
|
n$ = ""
|
||||||
|
previousElement$ = ""
|
||||||
|
l2$ = sp + "AS"
|
||||||
|
sharedAsLayoutAdded = 0
|
||||||
|
getshrtyp2:
|
||||||
|
i = i + 1
|
||||||
|
t2$ = getelement$(a$, i)
|
||||||
|
IF t2$ <> "," AND t2$ <> "(" AND t2$ <> "" THEN
|
||||||
|
'get first variable name
|
||||||
|
n$ = getelement$(ca$, i)
|
||||||
|
|
||||||
|
IF LEN(previousElement$) THEN
|
||||||
|
IF t$ = "" THEN t$ = previousElement$ ELSE t$ = t$ + " " + previousElement$
|
||||||
|
IF t3$ = "" THEN t3$ = previousElement$ ELSE t3$ = t3$ + sp + previousElement$
|
||||||
|
END IF
|
||||||
|
previousElement$ = t2$
|
||||||
|
GOTO getshrtyp2
|
||||||
|
END IF
|
||||||
|
IF t$ = "" THEN a$ = "Expected SHARED AS type variable-name or SHARED variable-name AS type": GOTO errmes
|
||||||
|
|
||||||
|
t = typname2typ(t$)
|
||||||
|
IF Error_Happened THEN GOTO errmes
|
||||||
|
IF t AND ISINCONVENTIONALMEMORY THEN t = t - ISINCONVENTIONALMEMORY
|
||||||
|
IF t AND ISPOINTER THEN t = t - ISPOINTER
|
||||||
|
IF t AND ISREFERENCE THEN t = t - ISREFERENCE
|
||||||
|
tsize = typname2typsize
|
||||||
|
method = 0
|
||||||
|
IF (t AND ISUDT) = 0 THEN
|
||||||
|
ts$ = type2symbol$(t$)
|
||||||
|
ELSE
|
||||||
|
t3$ = RTRIM$(udtxcname(t AND 511))
|
||||||
|
IF RTRIM$(udtxcname(t AND 511)) = "_MEM" AND UCASE$(t$) = "MEM" AND qb64prefix_set = 1 THEN
|
||||||
|
t3$ = MID$(RTRIM$(udtxcname(t AND 511)), 2)
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
|
IF Error_Happened THEN GOTO errmes
|
||||||
|
l2$ = l2$ + sp + t3$
|
||||||
|
|
||||||
|
subfuncshr2:
|
||||||
|
s$ = removesymbol(n$)
|
||||||
|
IF Error_Happened THEN GOTO errmes
|
||||||
|
IF s$ <> "" THEN
|
||||||
|
a$ = "Cannot use type symbol with SHARED AS type variable-name (" + s$ + ")"
|
||||||
|
GOTO errmes
|
||||||
|
END IF
|
||||||
|
|
||||||
|
'array?
|
||||||
|
a = 0
|
||||||
|
l3$ = ""
|
||||||
|
IF getelement$(a$, i) = "(" THEN
|
||||||
|
IF getelement$(a$, i + 1) <> ")" THEN a$ = "Expected ()": GOTO errmes
|
||||||
|
i = i + 2
|
||||||
|
a = 1
|
||||||
|
l3$ = sp2 + "(" + sp2 + ")"
|
||||||
|
END IF
|
||||||
|
|
||||||
|
newSharedSyntax = -1
|
||||||
|
GOSUB NormalSharedBlock
|
||||||
|
newSharedSyntax = 0
|
||||||
|
|
||||||
|
IF getelement$(a$, i) = "," THEN
|
||||||
|
i = i + 1
|
||||||
|
l$ = l$ + sp2 + ","
|
||||||
|
|
||||||
|
'get next variable name
|
||||||
|
n$ = getelement$(ca$, i): i = i + 1
|
||||||
|
GOTO subfuncshr2
|
||||||
|
END IF
|
||||||
|
IF getelement$(a$, i) <> "" THEN a$ = "Expected ,": GOTO errmes
|
||||||
|
|
||||||
|
layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$
|
||||||
|
GOTO finishedline
|
||||||
|
END IF
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -7509,7 +7604,7 @@ DO
|
||||||
'look for new dim syntax: DIM AS variabletype var1, var2, etc....
|
'look for new dim syntax: DIM AS variabletype var1, var2, etc....
|
||||||
e$ = getelement$(a$, i)
|
e$ = getelement$(a$, i)
|
||||||
IF e$ <> "AS" THEN
|
IF e$ <> "AS" THEN
|
||||||
'no "AS", so this is the standard dim syntax
|
'no "AS", so this is the traditional dim syntax
|
||||||
dimnext:
|
dimnext:
|
||||||
notype = 0
|
notype = 0
|
||||||
listarray = 0
|
listarray = 0
|
||||||
|
@ -7519,7 +7614,7 @@ DO
|
||||||
'chaincommonarray=0
|
'chaincommonarray=0
|
||||||
|
|
||||||
varname$ = getelement(ca$, i): i = i + 1
|
varname$ = getelement(ca$, i): i = i + 1
|
||||||
IF varname$ = "" THEN a$ = "Expected DIM variable-name or DIM AS data-type variable-name": GOTO errmes
|
IF varname$ = "" THEN a$ = "Expected " + firstelement$ + " variable-name or " + firstelement$ + " AS type variable-name": GOTO errmes
|
||||||
|
|
||||||
'get the next element
|
'get the next element
|
||||||
IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1
|
IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1
|
||||||
|
@ -8077,6 +8172,7 @@ DO
|
||||||
newDimSyntaxTypePassBack = 0
|
newDimSyntaxTypePassBack = 0
|
||||||
|
|
||||||
'estabilish the data type:
|
'estabilish the data type:
|
||||||
|
appendname$ = ""
|
||||||
appendtype$ = sp + "AS"
|
appendtype$ = sp + "AS"
|
||||||
typ$ = ""
|
typ$ = ""
|
||||||
varname$ = ""
|
varname$ = ""
|
||||||
|
@ -8099,7 +8195,7 @@ DO
|
||||||
notype = 0
|
notype = 0
|
||||||
listarray = 0
|
listarray = 0
|
||||||
|
|
||||||
IF typ$ = "" OR varname$ = "" THEN a$ = "Expected " + firstelement$ + " AS data-type variable-name or " + firstelement$ + " variable-name AS data-type": GOTO errmes
|
IF typ$ = "" OR varname$ = "" THEN a$ = "Expected " + firstelement$ + " AS type variable-name or " + firstelement$ + " variable-name AS type": GOTO errmes
|
||||||
|
|
||||||
'get the next element
|
'get the next element
|
||||||
IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1
|
IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1
|
||||||
|
@ -8149,7 +8245,7 @@ DO
|
||||||
IF validname(varname$) = 0 THEN a$ = "Invalid variable name": GOTO errmes
|
IF validname(varname$) = 0 THEN a$ = "Invalid variable name": GOTO errmes
|
||||||
|
|
||||||
IF s$ <> "" THEN
|
IF s$ <> "" THEN
|
||||||
a$ = "Cannot use type symbol with DIM AS data-type variable-name (" + s$ + ")"
|
a$ = "Cannot use type symbol with " + firstelement$ + " AS type variable-name (" + s$ + ")"
|
||||||
GOTO errmes
|
GOTO errmes
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue