From f29471fb7cf8cfb2321ac653666315e944b585ed Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Tue, 5 Jan 2021 16:05:07 +0900
Subject: [PATCH] Add "v" to python-implementation

---
 others/planck.py | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/others/planck.py b/others/planck.py
index 5b265fe..756e6b3 100644
--- a/others/planck.py
+++ b/others/planck.py
@@ -119,6 +119,16 @@ def add_binary_operator(name, op):
 write(HERE_CELL, 2*CELL)
 write(LATEST_CELL, 0)
 
+# Store command line arguments
+argv_addrs = []
+for arg in sys.argv:
+    argv_addrs.append(read(HERE_CELL))
+    comma_string(arg)
+align()
+ARGV_ADDR = read(HERE_CELL)
+for addr in argv_addrs:
+    comma(addr)
+
 def docol(ip, np):
     rpush(np)
     return next(ip + CELL)
@@ -170,6 +180,10 @@ add_binary_operator('|', operator.or_)
 add_binary_operator('^', operator.xor)
 add_binary_operator('<', operator.lt)
 add_binary_operator('=', operator.eq)
+def argv():
+    push(ARGV_ADDR)
+    push(len(sys.argv))
+add_simple_operator('v', argv)
 
 start = read(HERE_CELL)
 comma(find('k'))