Add char-whitespace?

Author: dvanhorn

langs/outlaw/compile-ops.rkt

@@ -146,6 +146,13 @@
           (pad-stack)
           (Call 'is_char_alphabetic)
           (unpad-stack))]
+    ['char-whitespace?
+     (seq (assert-char rax)
+          (Sar rax char-shift)
+          (Mov rdi rax)
+          (pad-stack)
+          (Call 'is_char_whitespace)
+          (unpad-stack))]
 
     ;; Op2
     ['+

langs/outlaw/compile.rkt

@@ -80,7 +80,7 @@
          string->uninterned-symbol
          open-input-file
          write-char error integer?
-         eq-hash-code char-alphabetic?
+         eq-hash-code char-alphabetic? char-whitespace?
          ;; Op2
          + - < = cons eq? make-vector vector-ref
          make-string string-ref string-append
@@ -103,6 +103,7 @@
          read_byte_port
          peek_byte_port
          is_char_alphabetic
+         is_char_whitespace
          system_type)))
 
 (define cons-function

langs/outlaw/parse.rkt

@@ -291,7 +291,6 @@
     [(? symbol? xs)
      (LamRest (gensym 'lamrest) '() xs (parse-e e))]
     [_
-     (eprintf "xs: ~a e: ~a\n" xs e)
      (error "parse parameter list error")]))
 
 ;; Datum -> Datum
@@ -337,7 +336,7 @@
          write-char
          error integer?
          eq-hash-code
-         char-alphabetic?))
+         char-alphabetic? char-whitespace?))
 (define op2
   '(+ - < = cons eq? make-vector vector-ref make-string string-ref
       string-append set-box! quotient remainder

langs/outlaw/print.c

@@ -19,7 +19,9 @@ val_t is_char_alphabetic(val_char_t c) {
   return val_wrap_bool(uc_is_property_alphabetic(c));
 }
 
-
+val_t is_char_whitespace(val_char_t c) {
+  return val_wrap_bool(uc_is_property_white_space(c));
+}
 
 void print_result(val_t x)
 {

langs/outlaw/stdlib.rkt

@@ -13,7 +13,7 @@
          not
          findf
          read-line
-         char-alphabetic?
+         char-alphabetic? char-whitespace?
          ; unimplemented
          exact->inexact / expt string->keyword
          ;; Op0
@@ -553,6 +553,7 @@
         (read-line/a (cons c cs)))))
 
 (define (char-alphabetic? x) (%char-alphabetic? x))
+(define (char-whitespace? x) (%char-whitespace? x))
 
 (define (exact->inexact x)
   (error "exact->inexact not implemented"))

langs/outlaw/test/test-runner.rkt

@@ -594,6 +594,8 @@
   (check-equal? (run '(findf odd? '(2 4 3 7))) 3)
   (check-equal? (run '(char-alphabetic? #\a)) #t)
   (check-equal? (run '(char-alphabetic? #\space)) #f)
+  (check-equal? (run '(char-whitespace? #\a)) #f)
+  (check-equal? (run '(char-whitespace? #\space)) #t)
   (check-equal? (run '(begin 1)) 1)
   (check-equal? (run '(begin 1 2)) 2)
   (check-equal? (run '(begin 1 2 3)) 3)