;;; -*- Gerbil -*-
;;; Â© vyzo
;;; inline operations
;;; gsc inlines peek-char, read-char, and write-char; we can do the same
(import :std/sugar
        ../interface
        ./types
        ./input
        ./output)
(export #t)

(defrule (is-string-input-buffer? reader)
  (string-input-buffer? (&interface-instance-object reader)))

(defrule (is-string-output-buffer? reader)
  (string-output-buffer? (&interface-instance-object reader)))

(defrule (&BufferedStringReader-peek-char-inline reader)
  (if (is-string-input-buffer? reader)
    (let ()
      (declare (not interrupts-enabled))
      (let (strbuf (&interface-instance-object reader))
        (let ((rlo (&string-input-buffer-rlo strbuf))
              (rhi (&string-input-buffer-rhi strbuf))
              (buf (&string-input-buffer-buf strbuf)))
          (if (fx< rlo rhi)
            (string-ref buf rlo)
            ;; empty buffer, fall back to the method
            (strbuf-peek-char strbuf)))))
    (&BufferedStringReader-peek-char reader)))

(defrule (BufferedStringReader-peek-char-inline reader)
  (let (reader (BufferedStringReader reader))
    (&BufferedStringReader-peek-char-inline reader)))

(defrule (&BufferedStringReader-read-char-inline reader)
  (if (is-string-input-buffer? reader)
    (let ()
      (declare (not interrupts-enabled))
      (let (strbuf (&interface-instance-object reader))
        (let ((rlo (&string-input-buffer-rlo strbuf))
              (rhi (&string-input-buffer-rhi strbuf))
              (buf (&string-input-buffer-buf strbuf)))
          (if (fx< rlo rhi)
            (let ((char (string-ref buf rlo))
                  (rlo+1 (fx+ rlo 1)))
              (strbuf-input-advance! strbuf rlo+1 rhi)
              char)
            ;; empty buffer, fall back to the method
            (strbuf-read-char strbuf)))))
    (&BufferedStringReader-read-char reader)))

(defrule (BufferedStringReader-read-char-inline reader)
  (let (reader (BufferedStringReader reader))
    (&BufferedStringReader-read-char-inline reader)))

(defrule (&BufferedStringWriter-write-char-inline writer char)
  (if (is-string-output-buffer? writer)
    (let ()
      (declare (not interrupts-enabled))
      (let (strbuf (&interface-instance-object writer))
        (let* ((whi (&string-output-buffer-whi strbuf))
               (buf (&string-output-buffer-buf strbuf))
               (buflen (string-length buf)))
          (if (fx< whi buflen)
            (let (whi+1 (fx+ whi 1))
              (string-set! buf whi char)
              (strbuf-output-advance! strbuf whi+1)
              1)
            ;; full buffer, fall back to the method
            (strbuf-write-char  strbuf char)))))
    (&BufferedStringWriter-write-char writer char)))

(defrule (BufferedStringWriter-write-char-inline writer char)
  (let (writer (BufferedStringWriter writer))
    (&BufferedStringWriter-write-char-inline writer char)))
