mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-21 14:49:18 +02:00
13 lines
507 B
Text
13 lines
507 B
Text
|
|
(define-c non-null-string (%read-line "fgets")
|
|
((result (array char arg1)) int (default (current-input-port) input-port)))
|
|
|
|
(define-c size_t (%read-string "fread")
|
|
((result (array char arg2)) (value 1 size_t) size_t (default (current-input-port) input-port)))
|
|
|
|
(define-c size_t (read-string! "fread")
|
|
(string size_t (value 1 size_t) (default (current-input-port) input-port)))
|
|
|
|
(define-c size_t (write-string "fwrite")
|
|
(string size_t (value 1 size_t) (default (current-output-port) output-port)))
|
|
|