Mercurial > org > docs / core/api/readme.org

 {{{header(Core API Docs,Richard Westhaver,ellis@rwest.io)}}}
 #+OPTIONS: ^:nil toc:nil num:nil html-postamble:nil
 #+EXPORT_FILE_NAME: index
 
 =TODO=
 
 This documentation is automatically generated based on the default
 branch of the [[https://vc.compiler.company/comp/core][core]].
 
 #+begin_src lisp :results silent
 (ql:quickload :dot)
 #+end_src
 
 #+begin_src lisp :results output replace
   (defmethod dot:graph-object-node ((graph (eql 'core-api)) (obj cons))
     (make-instance 'dot:node 
       :attributes '(:shape :box)))
 
   (defmethod dot:graph-object-points-to ((graph (eql 'core-api)) (obj cons))
     (list (car obj)
           (make-instance 'dot:attributed
             :object (cdr obj)
             :attributes '(:weight 3))))
 
   (defmethod graph-object-node ((graph (eql 'core-api)) (obj symbol))
     (make-instance 'dot:node
       :attributes `(:label ,obj
                     :shape :hexagon)))
 
 
   (dot:print-graph 
    (dot:generate-graph-from-roots 'core-api (list)
                                   '(:rankdir "LR" :layout "twopi" :labelloc "t")))
 #+end_src
 
 #+RESULTS:
 : digraph {
 : rankdir=LR;
 : layout="twopi";
 : labelloc="t";
 : }