diff options
| author | Drahflow <drahflow@gmx.de> | 2013-09-02 11:27:01 +0200 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2013-09-02 11:27:01 +0200 |
| commit | 92b6155a1c3a209936dddebb8bf3372ebee78f94 (patch) | |
| tree | 8680757163dc8dbbea513b60f27945ec9c021af9 /compiler | |
| parent | dd98844bd4968664f9dd7be996df596873733ecd (diff) | |
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
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/standard.ey | 6 | ||||
| -rw-r--r-- | compiler/standardClient.ey | 4 |
2 files changed, 5 insertions, 5 deletions
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 |