MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-08-28 12:56:36 -04:00
Code Issues Packages Projects Releases Wiki Activity

Implement $MATCH

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2024-12-03 18:16:59 +09:00
parent 5ec19acc0e
commit b9c34297a9
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
global.go
+3 -1
View File
@@ -14,6 +14,7 @@ import (
var (
symTimeout = gmnlisp.NewSymbol("timeout")
symInterval = gmnlisp.NewSymbol("interval")
symMatch = gmnlisp.NewSymbol("$MATCH")
)
var ErrCtrlC = errors.New("^C")
@@ -173,7 +174,8 @@ func (g *Global) expectX(ctx context.Context, w *gmnlisp.World, node gmnlisp.Nod
if result == EventCtrlC {
return nil, ErrCtrlC
} else if result >= 0 {
return gmnlisp.Progn(ctx, w, actions[result])
_w := w.Let(&gmnlisp.Pair{Key: symMatch, Value: gmnlisp.String(patterns[result])})
return gmnlisp.Progn(ctx, _w, actions[result])
} else {
return gmnlisp.Progn(ctx, w, timeoutAct)
}