;;; -*- Package: ALTER-USER; Mode: SCHEME; Base: 10; Syntax: Scheme; -*-
(in-package "ALTER-USER")
;;; -------------------------------------------------------------------
;;; --- File:        umlxml.sty
;;; --- Created:     [ggrossmann:20070128.1134AEST]
;;; --- Last Update: [ggrossmann:20070128.1134AEST]
;;; --- System:      DoME 5.3
;;; --- Version:     1.0
;;; ---
;;; --- This Alter module provides the definitions for a stylesheet
;;; --- that provides instructions to a formatter on how to format
;;; --- an instance of the UML Class Diagram 1.5 DTD.
;;; ---
;;; --- Revision History:
;;; ---
;;; --- [1] 
;;; ---
;;; -------------------------------------------------------------------

;;; -------------------------------------------------------------------
;;; the name of the operation can be anything
;;; but be careful not to redefine a pre-existing operation that
;;; you use in this stylesheet or elsewhere
;;; -------------------------------------------------------------------
(find-operation style-op)

;;; -------------------------------------------------------------------
;;; implementation for each of the ELEMENT types in the DTD
;;; -------------------------------------------------------------------
(add-method (style-op (sgml-node) a-sgml-node formatter)
    (process-children formatter style-op a-sgml-node) )

;(add-method (style-op (xml-umlclass) a-xml-umlclass formatter)
;    (process-children formatter style-op a-xml-umlclass) )

;(add-method (style-op (xml-umloperation) a-xml-umloperation formatter)
;    (process-node formatter style-op (car (select (children a-xml-umloperation) (lambda (a-child) (eq? (get-type a-child) xml-name))))) )

;(add-method (style-op (xml-umlassociation) a-xml-umlassociation formatter)
;    (process-node formatter style-op (car (select (children a-xml-umlassociation) (lambda (a-child) (eq? (get-type a-child) xml-origin)))))
;    (process-node formatter style-op (car (select (children a-xml-umlassociation) (lambda (a-child) (eq? (get-type a-child) xml-destination))))) )

;(add-method (style-op (xml-umlinheritsfrom) a-xml-umlinheritsfrom formatter)
;    (process-node formatter style-op (car (select (children a-xml-umlinheritsfrom) (lambda (a-child) (eq? (get-type a-child) xml-origin)))))
;    (process-node formatter style-op (car (select (children a-xml-umlinheritsfrom) (lambda (a-child) (eq? (get-type a-child) xml-destination))))) )

style-op          ; stylesheet operation
