;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.projectional-editor)

;;;;;;
;;; Projection

(def (projection e) preserving ()
  ())

;;;;;;
;;; Construction

(def (function e) make-projection/preserving ()
  (make-projection 'preserving))

;;;;;;
;;; Construction

(def (macro e) preserving ()
  '(make-projection/preserving))

;;;;;;
;;; Printer

(def printer preserving (projection recursion input input-reference output-reference)
  (declare (ignore projection recursion))
  (if (stringp input)
      (make-iomap/recursive input input
                            (list (make-iomap/object input input-reference input output-reference)
                                  (make-iomap/string input input-reference 0 input output-reference 0 (length input))))
      (make-iomap/object input input-reference input output-reference)))

;;;;;;
;;; Reader

(def reader preserving (projection recursion input input-reference output-reference)
  (declare (ignore projection recursion input input-reference output-reference))
  nil)