# HG changeset patch
# User e165727 <e165727@ie.u-ryukyu.ac.jp>
# Date 1579189768 -32400
# Node ID f176dbb8a43c58017dfe2522cca7415d8ce0accb
# Parent  c69958482abf8bf0df037c6494fc0431b0119971
add code folder

diff -r c69958482abf -r f176dbb8a43c Paper/.DS_Store
Binary file Paper/.DS_Store has changed
diff -r c69958482abf -r f176dbb8a43c Paper/code/abyss.p6
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Paper/code/abyss.p6	Fri Jan 17 00:49:28 2020 +0900
@@ -0,0 +1,17 @@
+unit class Abyss::Server:ver<0.0.1>;
+use MONKEY-SEE-NO-EVAL;
+
+method readeval {
+  my $listen = IO::Socket::INET.new( 
+    :listen,
+    :localhost<localhost>,
+    :localport(3333) 
+    );
+  loop {
+    my $conn = $listen.accept;
+    while my $buf = $conn.read(1024) {
+      EVALFILE $buf.decode;
+    }
+    $conn.close;
+  }
+}
diff -r c69958482abf -r f176dbb8a43c Paper/code/client.p6
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Paper/code/client.p6	Fri Jan 17 00:49:28 2020 +0900
@@ -0,0 +1,5 @@
+my $conn = IO::Socket::INET.new( :host<localhost>,
+                                 :port(3333) );
+
+$conn.print: 'FILEPASS';
+
diff -r c69958482abf -r f176dbb8a43c Paper/code/eval.p6
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Paper/code/eval.p6	Fri Jan 17 00:49:28 2020 +0900
@@ -0,0 +1,3 @@
+use MONKEY-SEE-NO-EVAL; 
+ 
+EVAL "say { 5 + 5 }";   # OUTPUT: 10