From 92b6155a1c3a209936dddebb8bf3372ebee78f94 Mon Sep 17 00:00:00 2001 From: Drahflow Date: Mon, 2 Sep 2013 11:27:01 +0200 Subject: I CAN HAZ TCP/IP CONNECTION! Very crappy HTTP client: "drahflow.name:80" net .tcp .connect "+" via "GET / HTTP/1.0\n\n" +writeall 4096 +read dump --- compiler/standard.ey | 6 ++---- compiler/standardClient.ey | 4 +++- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 'compiler') diff --git a/compiler/standard.ey b/compiler/standard.ey index caf9b0e..f440fb0 100644 --- a/compiler/standard.ey +++ b/compiler/standard.ey @@ -11,11 +11,9 @@ } quoted { } { * } ? * } "}_" defq -{ deffst }' " globalDeff" deffd # this is not for public usage { - { -01 < ==o { o -01 . } > -12 } quoted { } { * } ? * - quoted { |deffst } " globalDeff" | ? * -} /via defq + { -01 < ==o { o -01 . } > -12 deffst }" quoted { }" { * }" ? * +}" /via defq { -1110 ; ==f =*a len _ { diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey index 940b974..3d93aa5 100644 --- a/compiler/standardClient.ey +++ b/compiler/standardClient.ey @@ -455,7 +455,9 @@ } /eachLine deff > > -- } /makefile deff - |makefile /fdToFile sys .deff + { + RDWR 511 makefile + } /fdToFile sys .deff { # 0777 = 511 1 neg RDONLY 511 makefile -- cgit v1.2.3