;;; -*- 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) ordering ()
  ((key :type function)
   (predicate :type function)))

;;;;;;
;;; Construction

(def (function e) make-projection/ordering (key predicate)
  (make-projection 'ordering :key key :predicate predicate))

;;;;;;
;;; Construction

(def (macro e) ordering (key predicate)
  `(make-projection/ordering :key ,key :predicate ,predicate))

;;;;;;
;;; Printer

(def printer ordering (projection recursion input input-reference output-reference)
  (declare (ignore projection recursion input input-reference output-reference))
  nil)

;;;;;;
;;; Reader

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