/usr/share/rep/lisp/rep.jl is in librep-dev 0.92.5-3+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | #| bootstrap for rep module
$Id$
Copyright (C) 1993, 1994, 2000 John Harper <john@dcs.warwick.ac.uk>
This file is part of librep.
librep is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
librep is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with librep; see the file COPYING. If not, write to
the Free Software Foundation, 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
|#
(declare (in-module rep))
(open-structures '(rep.module-system
rep.lang.interpreter
rep.lang.symbols
rep.lang.math
rep.lang.debug
rep.vm.interpreter
rep.io.streams
rep.io.files
rep.io.processes
rep.io.file-handlers
rep.data
rep.regexp
rep.system))
;;(setq backtrace-on-error '(void-value invalid-function bad-arg missing-arg))
(defvar standard-output (stdout-file)
"Stream that `prin?' writes its output to by default.")
(defvar standard-input (stdin-file)
"Stream that `read' takes its input from by default.")
(defvar standard-error (stderr-file)
"Standard stream for error output.")
;; null i18n function until gettext is loaded
(defun _ (arg) arg)
(export-bindings '(_))
;; These functions get exported by 'rep' module, so available
;; virtually without explicit import.
(export-bindings (parse-interface '(compound-interface
(structure-interface rep.lang.interpreter)
(structure-interface rep.lang.symbols)
(structure-interface rep.lang.math)
(structure-interface rep.lang.debug)
(structure-interface rep.data)
(structure-interface rep.io.streams)
(structure-interface rep.vm.interpreter)
(structure-interface rep.module-system)
(export backquote))))
;; later changed to 'user
(setq *user-structure* 'rep)
(require 'rep.lang.backquote)
(require 'rep.io.file-handlers.tilde)
(defvar debug-entry (make-autoload 'debug-entry "rep/lang/debugger"))
(defvar debug-exit)
(defvar debug-error-entry (make-autoload 'debug-error-entry "rep/lang/debugger"))
|