diff options
| author | Camil Staps | 2016-07-01 19:37:38 +0200 |
|---|---|---|
| committer | Camil Staps | 2016-07-01 19:37:38 +0200 |
| commit | b3f1e3ff0404a5182b6eed2d88014b4b4fbd69c2 (patch) | |
| tree | c2dbd5b0a43fffc6119510bdc2f5324aa3a0e3b5 /ABC/AStack.dcl | |
| parent | Assembler (diff) | |
Moved to directory, added test program
Diffstat (limited to 'ABC/AStack.dcl')
| -rw-r--r-- | ABC/AStack.dcl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/ABC/AStack.dcl b/ABC/AStack.dcl new file mode 100644 index 0000000..423b81c --- /dev/null +++ b/ABC/AStack.dcl @@ -0,0 +1,18 @@ +definition module ABC.AStack + +from StdOverloaded import class toString +from ABC.Def import ::NodeId, ::NrArgs + +:: ASrc :== Int +:: ADst :== Int +:: AStack (:== [NodeId]) + +instance toString AStack + +as_get :: ASrc AStack -> NodeId +as_init :: AStack +as_popn :: NrArgs AStack -> AStack +as_push :: NodeId AStack -> AStack +as_pushn :: [NodeId] AStack -> AStack +as_topn :: NrArgs AStack -> [NodeId] +as_update :: ADst NodeId AStack -> AStack |