<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <link rel="stylesheet" href="../coverage.css"/> <title> beowulf/oblist.clj </title> </head> <body> <span class="covered" title="1 out of 1 forms covered"> 001 (ns beowulf.oblist </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 002 "A namespace mainly devoted to the object list and other top level </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 003 global variables. </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 004 </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 005 Yes, this makes little sense, but if you put them anywhere else you end </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 006 up in cyclic dependency hell." </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 007 ) </span><br/> <span class="blank" title="0 out of 0 forms covered"> 008 </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 009 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 010 ;;; </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 011 ;;; Copyright (C) 2022-2023 Simon Brooke </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 012 ;;; </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 013 ;;; This program is free software; you can redistribute it and/or </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 014 ;;; modify it under the terms of the GNU General Public License </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 015 ;;; as published by the Free Software Foundation; either version 2 </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 016 ;;; of the License, or (at your option) any later version. </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 017 ;;; </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 018 ;;; This program is distributed in the hope that it will be useful, </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 019 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 020 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 021 ;;; GNU General Public License for more details. </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 022 ;;; </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 023 ;;; You should have received a copy of the GNU General Public License </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 024 ;;; along with this program; if not, write to the Free Software </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 025 ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 026 ;;; </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 027 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; </span><br/> <span class="blank" title="0 out of 0 forms covered"> 028 </span><br/> <span class="covered" title="2 out of 2 forms covered"> 029 (def NIL </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 030 "The canonical empty list symbol. </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 031 </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 032 TODO: this doesn't really work, because (from Clojure) `(empty? NIL)` throws </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 033 an exception. It might be better to subclass beowulf.cons_cell.ConsCell to create </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 034 a new singleton class Nil which overrides the `empty` method of </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 035 IPersistentCollection?" </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 036 'NIL) </span><br/> <span class="blank" title="0 out of 0 forms covered"> 037 </span><br/> <span class="covered" title="1 out of 1 forms covered"> 038 (def oblist </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 039 "The default environment." </span><br/> <span class="covered" title="3 out of 3 forms covered"> 040 (atom NIL)) </span><br/> <span class="blank" title="0 out of 0 forms covered"> 041 </span><br/> <span class="covered" title="1 out of 1 forms covered"> 042 (def ^:dynamic *options* </span><br/> <span class="not-tracked" title="0 out of 0 forms covered"> 043 "Command line options from invocation." </span><br/> <span class="covered" title="1 out of 1 forms covered"> 044 {}) </span><br/> <span class="blank" title="0 out of 0 forms covered"> 045 </span><br/> </body> </html>