logos-storage/questionable
1
0
Fork 0
mirror of https://github.com/logos-storage/questionable.git synced 2026-01-09 01:03:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

support tuple binding in nim < 1.6

Browse Source
This commit is contained in:
Eric Mastro 2023-02-13 17:10:10 +11:00
parent 7a3d3430a4
commit e7afaeac49
No known key found for this signature in database
GPG Key ID: 141E3048D95A4E63
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
questionable/binding.nim
View File

@ -48,13 +48,17 @@ macro bindTuple(name, expression): bool =
bindFailed(evaluated) bindFailed(evaluated)
placeholder(`T`) placeholder(`T`)
# build tuple unpacking statement, eg:
# let (a, b) = `valueNode`
let tplNode = nnkVarTuple.newTree()
for i in 0..<name.len:
tplNode.add name[i]
tplNode.add newEmptyNode()
tplNode.add valueNode
stmtList.add nnkStmtList.newTree( stmtList.add nnkStmtList.newTree(
nnkLetSection.newTree( nnkLetSection.newTree(
nnkVarTuple.newTree( tplNode
name.children.toSeq.concat(
@[newEmptyNode(), valueNode]
)
)
) )
) )
stmtList.add quote do: `opt`.isSome stmtList.add quote do: `opt`.isSome
@ -65,10 +69,14 @@ macro `=?`*(name, expression): bool =
## new variable. It can be used inside of a conditional expression, for ## new variable. It can be used inside of a conditional expression, for
## instance in an `if` statement. ## instance in an `if` statement.
name.expectKind({nnkIdent, nnkVarTy, nnkTupleConstr}) when (NimMajor, NimMinor) < (1, 6):
name.expectKind({nnkIdent, nnkVarTy, nnkTupleConstr, nnkPar})
else:
name.expectKind({nnkIdent, nnkVarTy, nnkTupleConstr})
if name.kind == nnkIdent: if name.kind == nnkIdent:
quote do: bindLet(`name`, `expression`) quote do: bindLet(`name`, `expression`)
elif name.kind == nnkTupleConstr: elif name.kind == nnkTupleConstr or name.kind == nnkPar:
quote do: bindTuple(`name`, `expression`) quote do: bindTuple(`name`, `expression`)
else: else:
let name = name[0] let name = name[0]