(use-modules (ice-9 lineio))
(use-modules (geda page))

; Процедуры ввода/вывода
; Читает файл FILE и выводит строку
(define (file->string file)
  (let* ((port (make-line-buffering-input-port (open-file file "r"))))
    (do ((line "" (read-string port))
         (s "" (string-append s line)))
      ((eof-object? line) ; тест
       (close-port port)  ; выражение(я) для вычисления в конце
       s)                 ; возвращаемое значение
      ; empty body
      )))

; читает файл схемы FILE и возвращает объект страницы PAGE
(define (schematic-file->page file)
    (string->page file (file->string file)))

; сохраняет страницу схемы PAGE в файл FILE
(define (page->schematic-file page file)
  (with-output-to-file file
    (lambda () (display (page->string page)))))