NalaGinrut

;; All hail the RECV form
(define-syntax-rule (recv . clauses)
  (let ((msg  (gensym "msg"))   ;; the current mailbox message
        (loop (gensym "loop"))) ;; the mailbox seeking loop
    
    ;; check the last clause to see if it's a timeout
    (let ((sesualc (reverse clauses)))
      (if (and (pair? (car sesualc))
               (eq? (caar sesualc) 'after))

NalaGinrut

#include <sys/times.h>
#include <stdio.h>
#include <stdlib.h>

int main()
{
  struct tms buf;
  if (times(&buf) < 0)
    exit(115);

NalaGinrut

(use-modules (ice-9 match))

(define test
  '((begin-program self1180 ())
    (label kentry1181)
    (begin-kw-arity (x y) () #f () #f 3 #f)
    (label kargs1182)
    (add 1 1 2)
    (label ktail1189)
    (return 1)

NalaGinrut

String sStart = "1111111110000000000";
String sStop = "0";
int data_to_spoof[64];
int coil_pin = 9; // we use 9th pin
int a,b,c,d;
unsigned long id;
char hex_code[8];

void setup()
{

NalaGinrut

def str_to_playframe(s0):
    ss = s0.decode("utf-8")
    l = "%c%c" % ((len(ss)&0xff00)>>8, len(ss)&0xff)
    s = ss.encode("GB2312")
    op = "\x01\x00"
    return "\xfd" + l + op + s

NalaGinrut

(define *stpl-SRE* '(or (=> dollar "$$")
                        (: "${" (=> name (+ (~ #\}))) "}")))
(define (make-string-template str . opts)
  (define ll '())
  (define lv '())
  (define template
    (irregex-replace/all 
     ;;"(\\$\\{([^$])+\\})"
     *stpl-SRE* str
     (lambda (m) 

NalaGinrut

(define-module (test-suite web-client)
  #:use-module (web client)
  #:use-module (web request)
  #:use-module (web response)
  #:use-module (ice-9 iconv)
  #:use-module (ice-9 binary-ports)
  #:use-module (test-suite lib))


(define get-request-headers:www.gnu.org/software/guile/

NalaGinrut

diff --git a/test-suite/tests/web-client.test b/test-suite/tests/web-client.test
index 3133b73..6038398 100644
--- a/test-suite/tests/web-client.test
+++ b/test-suite/tests/web-client.test
@@ -299,13 +299,28 @@ Content-Language: en
 ")
 
 ;; Unfortunately, POST to http://www.gnu.org/software/guile/ succeeds!
+(define post-request-headers-null:www.apache.org/
+  "POST / HTTP/1.1

NalaGinrut

(use-modules (srfi srfi-1) (ice-9 control))
(define (either . args) (shift k (for-each k args)))
(define (sq x) (* x x))
(define (choice from to) 
  (reset (let ((ll (iota to from))) 
           (let ((x (apply either ll))(y (apply either ll))(z (apply either ll))) 
             (if (= (sq z) (+ (sq x) (sq y))) 
                 (format #t "~a^2 + ~a^2 = ~a^2~%" x y z))))))

NalaGinrut

(for-each (lambda (s) 
  (let ((p (module-ref (current-module) s))) 
   (if (procedure? p) 
       (format #t "[~a]~%~@[~a~%~]" p (procedure-documentation p))))) 
 (apropos-internal ".*"))