[librep: 1/5] All control-l are deleted.
- From: Christopher Bratusek <chrisb src gnome org>
- To: svn-commits-list gnome org
- Cc:
- Subject: [librep: 1/5] All control-l are deleted.
- Date: Tue, 5 Jan 2010 09:45:33 +0000 (UTC)
commit bdbd5fcf988d818e4768ae7130c4d8882038de7e
Author: Teika kazura <teika lavabit com>
Date: Tue Jan 5 15:01:59 2010 +0900
All control-l are deleted.
TODO | 6 ++--
intl/l10nflist.c | 4 +-
lisp/rep/data.jl | 8 +++---
lisp/rep/data/trie.jl | 6 ++--
lisp/rep/io/file-handlers/remote/ftp.jl | 16 +++++-----
lisp/rep/io/file-handlers/remote/rcp.jl | 4 +-
lisp/rep/io/file-handlers/remote/rep.jl | 14 +++++-----
lisp/rep/io/file-handlers/tar.jl | 10 +++---
lisp/rep/lang/doc.jl | 4 +-
lisp/rep/lang/interpreter.jl | 18 ++++++------
lisp/rep/module-system.jl | 6 ++--
lisp/rep/threads/condition-variable.jl | 2 +-
lisp/rep/threads/message-port.jl | 2 +-
lisp/rep/util/date.jl | 2 +-
lisp/rep/util/repl.jl | 4 +-
lisp/rep/vm/compiler.jl | 4 +-
lisp/rep/vm/compiler/basic.jl | 8 +++---
lisp/rep/vm/compiler/bindings.jl | 4 +-
lisp/rep/vm/compiler/modules.jl | 6 ++--
lisp/rep/vm/compiler/rep.jl | 10 +++---
lisp/rep/vm/compiler/utils.jl | 12 ++++----
lisp/rep/www/cgi-get.jl | 2 +-
lisp/rep/www/quote-url.jl | 2 +-
src/bytecodes.h | 6 ++--
src/continuations.c | 12 ++++----
src/datums.c | 6 ++--
src/ffi.c | 2 +-
src/files.c | 18 ++++++------
src/find.c | 6 ++--
src/fluids.c | 6 ++--
src/gettext.c | 2 +-
src/lisp.c | 4 +-
src/lispmach.c | 4 +-
src/lispmach.h | 4 +-
src/numbers.c | 12 ++++----
src/readline.c | 2 +-
src/record-profile.c | 8 +++---
src/rep-remote.c | 6 ++--
src/rep-xgettext.jl | 2 +-
src/rep_gh.h | 2 +-
src/rep_lisp.h | 44 +++++++++++++++---------------
src/rep_regexp.h | 2 +-
src/repgdbm.c | 2 +-
src/repint.h | 12 ++++----
src/repsdbm.c | 2 +-
src/safemach.c | 4 +-
src/sockets.c | 16 +++++-----
src/structures.c | 14 +++++-----
src/symbols.c | 8 +++---
src/tables.c | 8 +++---
src/timers.c | 8 +++---
src/unix_files.c | 6 ++--
src/unix_main.c | 10 +++---
src/unix_processes.c | 2 +-
src/values.c | 20 +++++++-------
55 files changed, 207 insertions(+), 207 deletions(-)
---
diff --git a/TODO b/TODO
index 15c7f83..255043c 100644
--- a/TODO
+++ b/TODO
@@ -6,7 +6,7 @@ TODO list for librep
Bugs are marked !, things that should be done soon are marked +,
and more long-term ideas are marked -
-
+
Outstanding bugs
================
@@ -71,7 +71,7 @@ Outstanding bugs
* 0xNN and 0NN integer syntaxes [0.13+]
* &optional and &rest (replaced by #!optional and #!rest) [0.13+]
-
+
General programming tasks:
==========================
@@ -235,7 +235,7 @@ General programming tasks:
now the lisp is mostly lexically scoped, there should be much
more potential for aggressive optimisation
-
+
Manual tasks:
=============
diff --git a/intl/l10nflist.c b/intl/l10nflist.c
index 9c7dc18..2d00c64 100644
--- a/intl/l10nflist.c
+++ b/intl/l10nflist.c
@@ -167,7 +167,7 @@ pop (x)
return x;
}
-
+
struct loaded_l10nfile *
_nl_make_l10nflist (l10nfile_list, dirlist, dirlist_len, mask, language,
territory, codeset, normalized_codeset, modifier, special,
@@ -346,7 +346,7 @@ _nl_make_l10nflist (l10nfile_list, dirlist, dirlist_len, mask, language,
return retval;
}
-
+
/* Normalize codeset name. There is no standard for the codeset
names. Normalization allows the user to use any of the common
names. */
diff --git a/lisp/rep/data.jl b/lisp/rep/data.jl
index 5d22d19..8fc624a 100644
--- a/lisp/rep/data.jl
+++ b/lisp/rep/data.jl
@@ -74,7 +74,7 @@ returns false."
(export-bindings '(assoc-regexp setcar setcdr string= string<
member-if remove-if remove-if-not remove remq))
-
+
;; cons accessors
(defun caar (x) (car (car x)))
@@ -113,7 +113,7 @@ returns false."
caaadr cadadr caaddr cadddr cdaaar cddaar cdadar
cdddar cdaadr cddadr cdaddr cddddr))
-
+
;; vector utils
(defun vector->list (vec)
@@ -126,7 +126,7 @@ returns false."
(export-bindings '(vector->list list->vector))
-
+
;; guardian wrapper
(defun make-guardian ()
@@ -147,7 +147,7 @@ exist that have not already been returned."
(export-bindings '(make-guardian))
-
+
;; autoloads
(autoload 'string-upper-case-p "rep/data/string-util")
diff --git a/lisp/rep/data/trie.jl b/lisp/rep/data/trie.jl
index 3c85a96..b3682f0 100644
--- a/lisp/rep/data/trie.jl
+++ b/lisp/rep/data/trie.jl
@@ -34,7 +34,7 @@
rep.io.files
rep.regexp)
-
+
;; tree nodes
;; each node is a list (node (CHAR . VALUE) ...) VALUE is typically
@@ -51,7 +51,7 @@
(rplacd cell v)
(rplacd node (cons (cons key v) (cdr node))))))
-
+
;; trees of tokens
(define make-trie make-node)
@@ -77,7 +77,7 @@
tree
(trie-insert! (trie-insert-1! tree (car keys)) (cdr keys))))
-
+
;; string handling
(defconst word-terminator eow)
diff --git a/lisp/rep/io/file-handlers/remote/ftp.jl b/lisp/rep/io/file-handlers/remote/ftp.jl
index 83cda19..9da67c4 100644
--- a/lisp/rep/io/file-handlers/remote/ftp.jl
+++ b/lisp/rep/io/file-handlers/remote/ftp.jl
@@ -44,7 +44,7 @@
(define-structure-alias remote-ftp rep.io.file-handlers.remote.ftp)
-
+
;; Configuration:
(defvar ftp-program "ftp"
@@ -99,7 +99,7 @@ time.")
(defvar remote-ftp-sessions nil
"List of FTP structures defining all running FTP sessions.")
-
+
;; Output templates, mostly copied from ange-ftp..!
(defvar remote-ftp-prompt-regexp "([Ff]tp> *)+"
@@ -144,7 +144,7 @@ FTP process should be abandoned, and a new session started.")
"Alist associating characters in the first column of `ls -l' output with
file types.")
-
+
;; ftp structure
(defconst remote-ftp-host 0)
@@ -239,7 +239,7 @@ file types.")
(and (eq (aref s remote-ftp-process) process) (throw 'return s)))
remote-ftp-sessions)))
-
+
;; Communicating with ftp sessions
(defun remote-ftp-write (session fmt arg-list)
@@ -409,7 +409,7 @@ file types.")
(when remote-ftp-show-messages
(write standard-output (substring string start end)))))
-
+
;; FTP commands
;; SESSION has been started, wait for the connection to
@@ -489,7 +489,7 @@ file types.")
(remote-ftp-invalidate-directory
session (file-name-directory file))))
-
+
;; Directory handling/caching
(defconst remote-ftp-file-name 0)
@@ -660,7 +660,7 @@ file types.")
(mapc (lambda (ses)
(aset ses remote-ftp-dircache nil)) remote-ftp-sessions))
-
+
;; Password caching
(defun remote-ftp-get-passwd (user host #!optional retrying)
@@ -686,7 +686,7 @@ file types.")
(setq remote-ftp-passwd-alist (cons (cons joined passwd)
remote-ftp-passwd-alist)))))
-
+
;; Backend handler
(defun remote-ftp-handler (split-name op args)
diff --git a/lisp/rep/io/file-handlers/remote/rcp.jl b/lisp/rep/io/file-handlers/remote/rcp.jl
index 4b60204..0a91c8d 100644
--- a/lisp/rep/io/file-handlers/remote/rcp.jl
+++ b/lisp/rep/io/file-handlers/remote/rcp.jl
@@ -33,13 +33,13 @@
;; Don't use this. It needs a lot of work. Use the FTP backend instead.
-
+
;; Configuration:
(defvar rcp-program "rcp"
"The name of the `rcp' program used to copy files from host to host.")
-
+
;; Code:
(defun remote-rcp-command (#!rest args)
diff --git a/lisp/rep/io/file-handlers/remote/rep.jl b/lisp/rep/io/file-handlers/remote/rep.jl
index bc25012..412ac42 100644
--- a/lisp/rep/io/file-handlers/remote/rep.jl
+++ b/lisp/rep/io/file-handlers/remote/rep.jl
@@ -37,7 +37,7 @@
(define-structure-alias remote-rep rep.io.file-handlers.remote.rep)
-
+
;; Configuration
;; rsh doesn't ask for passwords when changing uids,
@@ -83,7 +83,7 @@
(setq i (1+ i)))
map))
-
+
;; session structure
(defconst remote-rep-host 0)
@@ -180,7 +180,7 @@
(throw 'return s)))
remote-rep-sessions)))
-
+
;; Communicating with the remote process
(defun remote-rep-write (session fmt #!rest args)
@@ -315,7 +315,7 @@
(aset session remote-rep-callback nil)
(setq remote-rep-sessions (delq session remote-rep-sessions)))))
-
+
;; Commands
;; SESSION has been started, wait for the connection to
@@ -461,7 +461,7 @@
(aset session remote-rep-callback nil))
remote-rep-link))
-
+
;; Directory handling/caching
(defconst remote-rep-file-name 0)
@@ -611,7 +611,7 @@
(mapc (lambda (ses)
(aset ses remote-rep-dircache nil)) remote-rep-sessions))
-
+
;; Password caching
(defun remote-rep-get-passwd (user host)
@@ -636,7 +636,7 @@
(setq remote-rep-passwd-alist (cons (cons joined passwd)
remote-rep-passwd-alist)))))
-
+
;; Backend handler
(defun remote-rep-handler (split-name op args)
diff --git a/lisp/rep/io/file-handlers/tar.jl b/lisp/rep/io/file-handlers/tar.jl
index c47a9cc..36fb039 100644
--- a/lisp/rep/io/file-handlers/tar.jl
+++ b/lisp/rep/io/file-handlers/tar.jl
@@ -48,7 +48,7 @@
;; Before using any more tar options, make sure that the `emulate-gnu-tar'
;; script can support them.
-
+
;; configuration
(defvar tarfh-gnu-tar-program "tar"
@@ -94,7 +94,7 @@
;; guards tarfh-created file handles
(define tarfh-fh-guardian (make-guardian))
-
+
;; Interface to tar program
(defun tarfh-check-tar-program ()
@@ -127,7 +127,7 @@
(zerop (apply call-process process input-file
tarfh-gnu-tar-program all-args)))))
-
+
;; extracting files (with caching)
(define cached-file nil) ;name of file
@@ -166,7 +166,7 @@
(add-hook 'idle-hook empty-file-cache)
(add-hook 'before-exit-hook empty-file-cache)
-
+
;; directory caching
(defconst tarfh-file-full-name 0)
@@ -361,7 +361,7 @@
(add-hook 'after-gc-hook tarfh-after-gc)
-
+
;; file handler
(defun tarfh-split-filename (name)
diff --git a/lisp/rep/lang/doc.jl b/lisp/rep/lang/doc.jl
index 1bf44b5..193a17c 100644
--- a/lisp/rep/lang/doc.jl
+++ b/lisp/rep/lang/doc.jl
@@ -95,7 +95,7 @@ NAME is true, then it should be the symbol that is associated with VALUE."
(format standard-output "\(%s%s\)\n" (or name value) arg-doc)
(format standard-output "%s\n" (or name value))))))
-
+
;;; GDBM doc-file access
(defun make-key (prefix name #!optional structure)
@@ -133,7 +133,7 @@ NAME is true, then it should be the symbol that is associated with VALUE."
(gdbm-store db key value 'replace)
(gdbm-close db)))))
-
+
;;; Accessing doc strings
(defun documentation-property (#!optional structure)
diff --git a/lisp/rep/lang/interpreter.jl b/lisp/rep/lang/interpreter.jl
index 6f39efa..033877a 100644
--- a/lisp/rep/lang/interpreter.jl
+++ b/lisp/rep/lang/interpreter.jl
@@ -43,7 +43,7 @@
(export-bindings '(nil t #F #T #undefined))
-
+
;; function syntax
(%define defmacro
@@ -113,7 +113,7 @@ When applied to a symbol, the symbol's value is returned."
(export-bindings '(defmacro defun defconst defsubst function
%make-binding-immutable))
-
+
;; Binding syntax
(defmacro let args
@@ -189,7 +189,7 @@ not the variables containing the fluids."
(export-bindings '(let let* letrec let-fluids))
-
+
;; Conditional syntax
(defmacro if (condition then #!rest else)
@@ -267,7 +267,7 @@ is returned from the `and' form."
(export-bindings '(if case when unless or and))
-
+
;; set syntax
(defmacro setq-default args
@@ -302,7 +302,7 @@ string associated with VARIABLE."
(export-bindings '(setq-default define-special-variable))
-
+
;; Misc syntax
(defmacro do (vars test . body)
@@ -397,7 +397,7 @@ of the possible declaration types.")
(export-bindings '(do while prog1 prog2 with-object declare))
-
+
;; exception handling and syntax
;; Call and return value of THUNK with a catch for TAG
@@ -506,7 +506,7 @@ DATA)' while the handler is evaluated (these are the arguments given to
call-with-error-handlers catch throw
unwind-protect condition-case default-error-handler))
-
+
;; Function to allow easy creation of autoload stubs
(defmacro make-autoload (symbol-form file . rest)
@@ -528,7 +528,7 @@ by loading FILE."
(export-bindings '(make-autoload autoload autoload-macro))
-
+
;; some scheme compatibility functions
(%define call-with-current-continuation call/cc)
@@ -548,7 +548,7 @@ of THUNK) each function will be called exactly once."
(export-bindings '(call-with-current-continuation dynamic-wind))
-
+
;; misc
(defun error (#!rest args)
diff --git a/lisp/rep/module-system.jl b/lisp/rep/module-system.jl
index ae28e17..0a213a1 100644
--- a/lisp/rep/module-system.jl
+++ b/lisp/rep/module-system.jl
@@ -34,7 +34,7 @@
(%define %external-structure-ref external-structure-ref)
(%define %alias-structure alias-structure)
-
+
;; module syntax
(defmacro define-interface (name sig)
@@ -132,7 +132,7 @@ When read, the syntax `FOO#BAR' expands to `(structure-ref FOO BAR)'."
(list '%external-structure-ref
(list 'quote struct-name) (list 'quote var-name)))
-
+
;; `%meta' structure used for configuring modules
;; helper definitions
@@ -162,7 +162,7 @@ When read, the syntax `FOO#BAR' expands to `(structure-ref FOO BAR)'."
(structure-define meta-struct '%structure-exports-all structure-exports-all)
(structure-define meta-struct '%current-structure current-structure))
-
+
;; exports
(export-bindings '(define-interface structure define-structure
diff --git a/lisp/rep/threads/condition-variable.jl b/lisp/rep/threads/condition-variable.jl
index 9284297..335b0ff 100644
--- a/lisp/rep/threads/condition-variable.jl
+++ b/lisp/rep/threads/condition-variable.jl
@@ -72,7 +72,7 @@
;; wake in fifo order
(mapc thread-wake (nreverse threads)))))
-
+
#| Test program:
(structure ()
diff --git a/lisp/rep/threads/message-port.jl b/lisp/rep/threads/message-port.jl
index dc8768e..4cdb2ab 100644
--- a/lisp/rep/threads/message-port.jl
+++ b/lisp/rep/threads/message-port.jl
@@ -79,7 +79,7 @@ defined. Returns the message, or false if no message could be read."
(condition-variable-signal (port-condition port)))
(release-mutex (port-mutex port)))))
-
+
#| Test function:
(define (test)
diff --git a/lisp/rep/util/date.jl b/lisp/rep/util/date.jl
index 7ee8baa..e74f93b 100644
--- a/lisp/rep/util/date.jl
+++ b/lisp/rep/util/date.jl
@@ -62,7 +62,7 @@
only have two, lower order, digits. This is picked up automatically from
the current year, i.e. 1997 -> \"19\", 2001 -> \"20\".")
-
+
;; Date parsing
;; Constants defining date structure fields
diff --git a/lisp/rep/util/repl.jl b/lisp/rep/util/repl.jl
index 8e9e1b9..ee81a8c 100644
--- a/lisp/rep/util/repl.jl
+++ b/lisp/rep/util/repl.jl
@@ -153,7 +153,7 @@
(let-fluids ((current-repl repl))
(completion-generator word)))
-
+
;;; module utils
(define (module-exports-p name var)
@@ -170,7 +170,7 @@
(get-structure (repl-struct (fluid current-repl))) name)
(repl-struct (fluid current-repl)))))
-
+
;;; commands
(define repl-commands '())
diff --git a/lisp/rep/vm/compiler.jl b/lisp/rep/vm/compiler.jl
index 3f7af8d..2c3d4b6 100644
--- a/lisp/rep/vm/compiler.jl
+++ b/lisp/rep/vm/compiler.jl
@@ -73,7 +73,7 @@
;; since we default to rep langauge..
(intern-structure 'rep.vm.compiler.rep)
-
+
#| Notes:
Modules
@@ -211,7 +211,7 @@ we would like. This is due to the view of folded functions as
;; so I need to do all those funky lexical scope optimisation now..
-
+
;;; Top level entrypoints
(define (report-progress filename)
diff --git a/lisp/rep/vm/compiler/basic.jl b/lisp/rep/vm/compiler/basic.jl
index 233d2f0..f39f1ef 100644
--- a/lisp/rep/vm/compiler/basic.jl
+++ b/lisp/rep/vm/compiler/basic.jl
@@ -90,7 +90,7 @@ their position in that file.")
;; list of lambda records
(define lambda-stack (make-fluid))
-
+
;;; lambda management
(define (find-lambda name)
@@ -113,7 +113,7 @@ their position in that file.")
(define (current-lambda)
(or (car (fluid lambda-stack)) (error "No current lambda!")))
-
+
;;; driver function
;; stop macroexpanding if we come across a function with a special handler
@@ -248,7 +248,7 @@ their position in that file.")
(decrement-stack))
(setq body (cdr body)))))
-
+
;;; creating assembly code
(define (call-with-initial-env thunk)
@@ -385,7 +385,7 @@ their position in that file.")
(assemble-assembly-to-form
(compile-form-to-asm form (lambda-label (current-lambda)))))))
-
+
;;; compiling lambdas
;; From LST, `(lambda (ARGS) [DOC-STRING] BODY ...)' returns a byte-code
diff --git a/lisp/rep/vm/compiler/bindings.jl b/lisp/rep/vm/compiler/bindings.jl
index 60c7057..c274a34 100644
--- a/lisp/rep/vm/compiler/bindings.jl
+++ b/lisp/rep/vm/compiler/bindings.jl
@@ -203,7 +203,7 @@
;; It's not bound, so just update the global value
(emit-insn `(refg ,form)))))
-
+
;; allocation of bindings, either on stack or in heap
(define (heap-binding-p cell)
@@ -291,7 +291,7 @@
(identify-captured-bindings asm (fluid lex-bindings))
(allocate-bindings-1 asm (fluid lex-bindings)))
-
+
;; declarations
;; (declare (bound VARIABLE))
diff --git a/lisp/rep/vm/compiler/modules.jl b/lisp/rep/vm/compiler/modules.jl
index 9f321b6..c31e02f 100644
--- a/lisp/rep/vm/compiler/modules.jl
+++ b/lisp/rep/vm/compiler/modules.jl
@@ -312,7 +312,7 @@
(fluid open-modules))
(fluid-set current-language 'no-lang)))
-
+
;;; declarations
;; (declare (in-module STRUCT))
@@ -328,7 +328,7 @@
(fluid-set current-language (cadr form)))
(put 'language 'compiler-decl-fun declare-language)
-
+
;;; module compilers
(defun compile-structure (form)
@@ -412,7 +412,7 @@
(emit-insn '(structure-ref))
(decrement-stack)))
-
+
;;; exported top-level functions
(defun compile-function (function #!optional name)
diff --git a/lisp/rep/vm/compiler/rep.jl b/lisp/rep/vm/compiler/rep.jl
index 2ab911c..279bea7 100644
--- a/lisp/rep/vm/compiler/rep.jl
+++ b/lisp/rep/vm/compiler/rep.jl
@@ -65,7 +65,7 @@
'(defun defmacro defvar defconst defsubst %define require
declare eval-when-compile define-structure structure))
-
+
;;; pass 1 support
(defun pass-1 (forms) (add-progns (pass-1* forms)))
@@ -153,7 +153,7 @@
form))
-
+
;;; pass 2 support
(defun pass-2 (forms)
@@ -240,7 +240,7 @@
(compile-form form)
form)))))
-
+
;;; Source code transformations. These are basically macros that are only
;;; used at compile-time.
@@ -292,7 +292,7 @@
`(not (= ,@(cdr form))))
(put '/= 'rep-compile-transform trans-/=)
-
+
;;; Functions which compile non-standard functions (ie special-forms)
;; module compilers from compiler-modules
@@ -1064,7 +1064,7 @@
;; But that doesn't always evaluate all arguments..
(compile-funcall (cons 'funcall form)))))
-
+
;;; Opcode properties for the generic instructions, in a progn for compiled
;;; speed
diff --git a/lisp/rep/vm/compiler/utils.jl b/lisp/rep/vm/compiler/utils.jl
index 98312d3..099d546 100644
--- a/lisp/rep/vm/compiler/utils.jl
+++ b/lisp/rep/vm/compiler/utils.jl
@@ -76,7 +76,7 @@
(defvar *compiler-warnings* '(unused bindings parameters misc deprecated))
(define silence-compiler (make-fluid nil))
-
+
;;; Message output
(define last-current-file t)
@@ -147,7 +147,7 @@
(apply compiler-warning 'deprecated (concat "deprecated - " fmt) args)
(setq deprecated-seen (cons id deprecated-seen))))
-
+
;;; Code to handle warning tests
;; Note that there's a function or macro NAME with lambda-list ARGS
@@ -283,7 +283,7 @@
'parameters "too many arguments to `%s' (%d given, %d used)"
name nargs (+ required (or optional 0)))))))))))
-
+
;;; stack handling
;; Increment the current stack size, setting the maximum stack size if
@@ -311,7 +311,7 @@
(defun decrement-b-stack ()
(fluid-set current-b-stack (1- (fluid current-b-stack))))
-
+
;; Remove all keywords from a lambda list ARGS, returning the list of
;; variables that would be bound (in the order they would be bound)
@@ -326,7 +326,7 @@
(setq args (cdr args)))
(nreverse vars)))
-
+
;;; constant forms
;; Return t if FORM is a constant
@@ -368,7 +368,7 @@
((eq (car form) 'function)
(nth 1 form))))
-
+
;;; declarations
(defun note-declaration (form)
diff --git a/lisp/rep/www/cgi-get.jl b/lisp/rep/www/cgi-get.jl
index 25a64bf..45e2ca1 100644
--- a/lisp/rep/www/cgi-get.jl
+++ b/lisp/rep/www/cgi-get.jl
@@ -79,7 +79,7 @@
(setq frags (cons (substring string point) frags))
(apply concat (nreverse frags)))))
-
+
;; Tests
(define (self-test)
diff --git a/lisp/rep/www/quote-url.jl b/lisp/rep/www/quote-url.jl
index f267649..aa88e03 100644
--- a/lisp/rep/www/quote-url.jl
+++ b/lisp/rep/www/quote-url.jl
@@ -56,7 +56,7 @@ internet drafts directory for a copy.")
(string->number (expand-last-match "\\1") 16))
string))
-
+
;; Tests
(define (self-test)
diff --git a/src/bytecodes.h b/src/bytecodes.h
index 846d5df..bd8c2bc 100644
--- a/src/bytecodes.h
+++ b/src/bytecodes.h
@@ -41,7 +41,7 @@
first opcode is the high bits, the second the low bits. */
#define OP_ARG_2BYTE 7
-
+
/* Opcodes which have an argument encoded in them */
#define OP_SLOT_REF 0x00
@@ -97,7 +97,7 @@
#define OP_LAST_WITH_ARGS 0x3f
-
+
/* Opcodes without arguments. */
#define OP_REF 0x40 /* push (symbol-value pop) */
@@ -267,7 +267,7 @@
#define OP_OPTIONAL_ARG_ 0xce
#define OP_KEYWORD_ARG_ 0xcf
-
+
/* Jump opcodes */
#define OP_LAST_BEFORE_JMPS 0xf7
diff --git a/src/continuations.c b/src/continuations.c
index abc3b29..95117d7 100644
--- a/src/continuations.c
+++ b/src/continuations.c
@@ -300,7 +300,7 @@ fixup (char *addr, rep_continuation *c)
static void thread_delete (rep_thread *t);
-
+
/* barriers */
/* Create a barrier (closed if CLOSED is true, open otherwise), then
@@ -447,7 +447,7 @@ common_ancestor (rep_barrier *current, rep_barrier **dest_hist, int dest_depth)
return 0;
}
-
+
/* continuations */
/* save the original stack for continuation C */
@@ -772,7 +772,7 @@ control immediately back to the statement following the call to the
return primitive_call_cc (inner_call_cc, (void *) fun, 0);
}
-
+
/* threads */
static inline void
@@ -1181,7 +1181,7 @@ rep_max_sleep_for (void)
}
}
-
+
/* type hooks */
static void
@@ -1412,7 +1412,7 @@ rep_max_sleep_for (void)
#endif /* !WITH_CONTINUATIONS */
-
+
/* misc lisp functions */
/* Bind one object, returning the handle to later unbind by. */
@@ -1868,7 +1868,7 @@ Return the name of the thread THREAD.
#endif
}
-
+
/* dl hooks */
void
diff --git a/src/datums.c b/src/datums.c
index 32a2219..05b85af 100644
--- a/src/datums.c
+++ b/src/datums.c
@@ -43,7 +43,7 @@ static repv printer_alist;
/* This is what Qnil points to */
rep_tuple rep_eol_datum;
-
+
/* type hooks */
static int
@@ -79,7 +79,7 @@ datum_print (repv stream, repv arg)
}
}
-
+
/* lisp functions */
DEFUN ("make-datum", Fmake_datum,
@@ -150,7 +150,7 @@ created using the `make-datum' function).
return (DATUMP (arg) && DATUM_ID (arg) == id) ? Qt : Qnil;
}
-
+
/* dl hooks */
void
diff --git a/src/ffi.c b/src/ffi.c
index 555327e..5633f50 100644
--- a/src/ffi.c
+++ b/src/ffi.c
@@ -939,7 +939,7 @@ DEFUN ("ffi-lookup-symbol", Fffi_lookup_symbol,
return ptr != NULL ? rep_make_pointer (ptr) : Qnil;
}
-
+
/* dl hooks */
DEFSYM (ffi_type_void, "ffi-type-void");
diff --git a/src/files.c b/src/files.c
index abfbdcf..695c719 100644
--- a/src/files.c
+++ b/src/files.c
@@ -158,7 +158,7 @@ int rep_op_write_buffer_contents = op_write_buffer_contents;
int rep_op_read_file_contents = op_read_file_contents;
int rep_op_insert_file_contents = op_insert_file_contents;
-
+
DEFSYM (rep_io_file_handlers, "rep.io.file-handlers");
@@ -369,7 +369,7 @@ rep_localise_and_get_handler(repv *file_namep, int op)
return handler;
}
-
+
/* File name handling */
DEFUN("file-name-absolute-p", Ffile_name_absolute_p,
@@ -575,7 +575,7 @@ _remove_ any terminating directory separator.
Qdirectory_file_name, 1, file);
}
-
+
/* input handlers */
struct input_handler {
@@ -658,7 +658,7 @@ mark_input_handlers (void)
}
}
-
+
/* File structures */
static repv
@@ -801,7 +801,7 @@ Set the handler-specific data of file object FILE to DATA.
return data;
}
-
+
/* Low level file handling Lisp functions */
DEFUN("open-file", Fopen_file, Sopen_file,
@@ -1012,7 +1012,7 @@ DEFUN("set-file-ignore-errors", Fset_file_ignore_errors,
return rep_undefined_value;
}
-
+
/* General file operations */
DEFUN_INT("delete-file", Fdelete_file, Sdelete_file, (repv file_name),
@@ -1171,7 +1171,7 @@ Create a new copy of the file called SOURCE, as the file called DESTINATION.
return res;
}
-
+
/* File attribute operations */
DEFUN("file-readable-p", Ffile_readable_p, Sfile_readable_p,
@@ -1525,7 +1525,7 @@ CONTENTS may be relative to the directory containing FILENAME.
Qmake_symlink, 2, file, contents);
}
-
+
/* Utility functions */
repv
@@ -1630,7 +1630,7 @@ set-file-handler-environment ENV
return Fstructure_define (structure, Qfh_env_key, env);
}
-
+
/* init */
void
diff --git a/src/find.c b/src/find.c
index ff4eb3d..6f9ec6f 100644
--- a/src/find.c
+++ b/src/find.c
@@ -31,7 +31,7 @@
void (*rep_regsub_fun)(int, rep_regsubs *, char *, char *, void *);
int (*rep_regsublen_fun)(int, rep_regsubs *, char *, void *);
-
+
/* Compiling regexps. */
/* A linked list is used to store all recently-used regexps in MRU
@@ -172,7 +172,7 @@ release_cached_regexps(void)
}
}
-
+
/* Storing regexp context. */
/* Storage for remembering where the last match was.
@@ -263,7 +263,7 @@ rep_pop_regexp_data(void)
memcpy(&last_matches, &sd->matches, sizeof(rep_regsubs));
}
-
+
/* Simple string matching */
DEFUN("string-match", Fstring_match, Sstring_match, (repv re, repv str, repv start, repv nocasep), rep_Subr4) /*
diff --git a/src/fluids.c b/src/fluids.c
index 0b50e16..9bb71eb 100644
--- a/src/fluids.c
+++ b/src/fluids.c
@@ -29,7 +29,7 @@ DEFSYM (fluid, "fluid");
#define FLUIDP(x) rep_CONSP(x)
#define FLUID_GLOBAL_VALUE(x) rep_CDR(x)
-
+
/* from symbols.c */
static inline repv
@@ -50,7 +50,7 @@ search_special_bindings (repv sym)
return inlined_search_special_bindings (sym);
}
-
+
DEFUN ("make-fluid", Fmake_fluid, Smake_fluid, (repv value), rep_Subr1) /*
::doc:rep.lang.interpreter#make-fluid::
@@ -151,7 +151,7 @@ signalled.
return ret;
}
-
+
void
rep_fluids_init (void)
diff --git a/src/gettext.c b/src/gettext.c
index 37ea212..233abc3 100644
--- a/src/gettext.c
+++ b/src/gettext.c
@@ -102,7 +102,7 @@ DEFUN("textdomain", Ftextdomain, Stextdomain, (repv dom), rep_Subr1)
return out ? rep_string_dup (out) : Qnil;
}
-
+
/* DL hooks */
diff --git a/src/lisp.c b/src/lisp.c
index acbb999..a6ca120 100644
--- a/src/lisp.c
+++ b/src/lisp.c
@@ -205,7 +205,7 @@ void (*rep_test_int_fun)(void) = default_test_int;
static int current_frame_id (void);
-
+
/* Reading */
/* The `c' variable which keeps coming up is the lookahead character,
@@ -1125,7 +1125,7 @@ rep_readl (repv stream, int *c_p)
return form;
}
-
+
/* Evaluating */
/* Evaluates each element of `list' and builds them into a new list. */
diff --git a/src/lispmach.c b/src/lispmach.c
index 1b23d30..d817986 100644
--- a/src/lispmach.c
+++ b/src/lispmach.c
@@ -54,7 +54,7 @@ char *alloca ();
DEFSYM(bytecode_error, "bytecode-error");
-
+
/* pull in the generic interpreter */
#ifdef BYTECODE_PROFILE
@@ -71,7 +71,7 @@ static int bytecode_profile[256];
#include "lispmach.h"
-
+
/* interface */
repv
diff --git a/src/lispmach.h b/src/lispmach.h
index 2d91cc3..ec3fd68 100644
--- a/src/lispmach.h
+++ b/src/lispmach.h
@@ -59,7 +59,7 @@ static repv vm (repv code, repv consts, int argc, repv *argv,
# define inline_Fcons Fcons
#endif
-
+
/* Helper functions
Note the careful use of inlining.. the icache is crucial, we want
@@ -148,7 +148,7 @@ search_special_bindings (repv sym)
*s__++ = 0; \
} while (0)
-
+
/* Lisp VM. */
static maybe_inline repv
diff --git a/src/numbers.c b/src/numbers.c
index 29dd100..2713459 100644
--- a/src/numbers.c
+++ b/src/numbers.c
@@ -89,7 +89,7 @@ DEFSTRING(domain_error, "Domain error");
# define HAVE_STRTOLL 1
#endif
-
+
/* Private type definitions */
typedef struct {
@@ -153,7 +153,7 @@ typedef struct rep_number_block_struct {
#define ZEROP(x) \
(rep_INTP (x) ? (x) == rep_MAKE_INT (0) : Fzerop (x) != Qnil)
-
+
/* number object handling */
static rep_number_block *number_block_chain[3];
@@ -280,7 +280,7 @@ number_sweep(void)
}
}
-
+
/* Promotion */
static repv
@@ -1218,7 +1218,7 @@ number_prin (repv stream, repv obj)
}
}
-
+
/* lisp functions */
repv
@@ -2912,7 +2912,7 @@ in base 10.
return rep_box_string (out, strlen (out));
}
-
+
/* Random number generation */
#if defined (HAVE_GMP) && defined (HAVE_GMP_RANDINIT) && __GNU_MP__ >= 4
@@ -3047,7 +3047,7 @@ generator is seeded with the current time of day.
return random_new (limit);
}
-
+
/* init */
void
diff --git a/src/readline.c b/src/readline.c
index 5977a6d..7ba3a96 100644
--- a/src/readline.c
+++ b/src/readline.c
@@ -212,7 +212,7 @@ DEFUN("readline", Freadline, Sreadline,
#endif
}
-
+
/* DL hooks */
diff --git a/src/record-profile.c b/src/record-profile.c
index 3a717de..186f80a 100644
--- a/src/record-profile.c
+++ b/src/record-profile.c
@@ -66,7 +66,7 @@ static void (*chained_test_interrupt)(void);
static int profile_interval = 10; /* microseconds */
-
+
/* SIGPROF handling */
#ifdef HAVE_SETITIMER
@@ -100,7 +100,7 @@ clear_timer (void)
#endif
}
-
+
/* profile recording */
static void
@@ -157,7 +157,7 @@ test_interrupt (void)
(*chained_test_interrupt) ();
}
-
+
/* interface */
DEFUN ("start-profiler", Fstart_profiler, Sstart_profiler, (void), rep_Subr0)
@@ -189,7 +189,7 @@ DEFUN ("profile-interval", Fprofile_interval,
return ret;
}
-
+
/* init */
repv
diff --git a/src/rep-remote.c b/src/rep-remote.c
index 2eebc3c..f55101a 100644
--- a/src/rep-remote.c
+++ b/src/rep-remote.c
@@ -73,7 +73,7 @@
#define PROTOCOL_VERSION 1
-
+
/* trivia */
static void
@@ -238,7 +238,7 @@ output_mode_string (char *out, unsigned long perms)
return out + 10;
}
-
+
/* commands */
static void
@@ -476,7 +476,7 @@ do_readdir (int argc, char **argv)
send_errno (errno);
}
-
+
/* entry point */
static void
diff --git a/src/rep-xgettext.jl b/src/rep-xgettext.jl
index 6c7d5d7..5db6a26 100644
--- a/src/rep-xgettext.jl
+++ b/src/rep-xgettext.jl
@@ -24,7 +24,7 @@
(defvar *write-c-file* nil)
-
+
;; entry point
(when (get-command-line-option "--help")
diff --git a/src/rep_gh.h b/src/rep_gh.h
index d8c83b4..8248f7b 100644
--- a/src/rep_gh.h
+++ b/src/rep_gh.h
@@ -38,7 +38,7 @@
* If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */
-
+
#ifndef REP_GH_H
#define REP_GH_H
diff --git a/src/rep_lisp.h b/src/rep_lisp.h
index d65c667..33fb8c5 100644
--- a/src/rep_lisp.h
+++ b/src/rep_lisp.h
@@ -33,7 +33,7 @@
#define rep_CONCAT(x, y) rep_CONCAT__(x, y)
#define rep_CONCAT__(x, y) x##y
-
+
/* Lisp values. */
/* A `repv' is a lisp value, perhaps a pointer to an object, but not a real
@@ -46,7 +46,7 @@ typedef unsigned rep_PTR_SIZED_INT repv;
/* Get the integer constant X in the lisp value type */
#define rep_VALUE_CONST(x) rep_CONCAT(x, rep_PTR_SIZED_INT_SUFFIX)
-
+
/* Structure of Lisp objects and the pointers to them. */
/* Bit definitions for repv pointers. The lowest bit is always zero
@@ -141,7 +141,7 @@ typedef unsigned rep_PTR_SIZED_INT repv;
(rep_INTEGERP(v) \
|| (rep_CONSP(v) && rep_INTP(rep_CAR(v)) && rep_INTP(rep_CDR(v))))
-
+
/* Structure of a cell */
typedef struct {
@@ -202,7 +202,7 @@ typedef struct {
#define rep_SET_CELL16_TYPE(v, t) \
(rep_PTR(v)->car = (rep_PTR(v)->car & rep_CELL16_TYPE_MASK) | (t))
-
+
/* Structure of a cons cell, the only non-cell8 ptr type */
typedef struct {
@@ -231,7 +231,7 @@ typedef struct {
(! (rep_CONS(v) >= rep_dumped_cons_start \
&& rep_CONS(v) < rep_dumped_cons_end))
-
+
/* Type data */
/* Information about each type */
@@ -320,7 +320,7 @@ typedef struct rep_type_struct {
/* true if V is of type T. */
#define rep_TYPEP(v, t) (rep_TYPE(v) == t)
-
+
/* tuples, cells containing two values */
typedef struct {
@@ -330,7 +330,7 @@ typedef struct {
#define rep_TUPLE(v) ((rep_tuple *) rep_PTR (v))
-
+
/* Numbers (private defs in numbers.c) */
/* Is V a non-fixnum number? */
@@ -359,7 +359,7 @@ typedef rep_cell rep_number;
#define rep_INTEGERP(v) \
(rep_INTP(v) || (rep_NUMBERP(v) && rep_NUMBER_BIGNUM_P(v)))
-
+
/* Strings */
typedef struct rep_string_struct {
@@ -401,7 +401,7 @@ typedef struct rep_string_struct {
/* Use this to get a newline into a DEFSTRING */
#define rep_DS_NL "\n"
-
+
/* Symbols */
/* symbol object, actual allocated as a tuple */
@@ -453,7 +453,7 @@ typedef struct {
#define rep_SYMBOL_LITERAL_P(v) ((rep_SYM(v)->car & rep_SF_LITERAL) != 0)
-
+
/* Vectors */
typedef struct rep_vector_struct {
@@ -475,7 +475,7 @@ typedef struct rep_vector_struct {
#define rep_VECTOR_WRITABLE_P(v) (!rep_CELL_STATIC_P(v))
-
+
/* Compiled Lisp functions; this is a vector. Some of these definitions
are probably hard coded into lispmach.c */
@@ -501,7 +501,7 @@ typedef struct rep_vector_struct {
#define rep_COMPILED_INTERACTIVE(v) ((rep_VECT_LEN(v) >= 5) \
? rep_VECTI(v, 4) : Qnil)
-
+
/* Files */
/* A file object. */
@@ -542,7 +542,7 @@ typedef struct rep_file_struct {
#define rep_LOCAL_FILE_P(v) (rep_FILE(v)->handler == Qt)
-
+
/* Built-in subroutines */
/* Calling conventions are straightforward, returned value is result
@@ -591,7 +591,7 @@ typedef struct {
#define rep_SUBRVFUN(v) (rep_SUBR(v)->fun.funv)
#define rep_SFFUN(v) (rep_SUBR(v)->fun.fun2)
-
+
/* Closures */
typedef struct rep_funarg_struct {
@@ -607,13 +607,13 @@ typedef struct rep_funarg_struct {
#define rep_FUNARG_WRITABLE_P(v) (!rep_CELL_STATIC_P(v))
-
+
/* Guardians */
#define rep_GUARDIAN(v) ((rep_guardian *) rep_PTR(v))
#define rep_GUARDIANP(v) rep_CELL16_TYPEP(v, rep_guardian_type)
-
+
/* Other definitions */
/* Macros for other types */
@@ -657,7 +657,7 @@ typedef struct rep_funarg_struct {
#define rep_CADDDR(obj) rep_CAR (rep_CDR (rep_CDR (rep_CDR (obj))))
#define rep_CDDDDR(obj) rep_CDR (rep_CDR (rep_CDR (rep_CDR (obj))))
-
+
/* Garbage collection definitions */
/* gc macros for cell8/16 values */
@@ -764,7 +764,7 @@ typedef struct rep_gc_n_roots {
#endif
-
+
/* Macros for declaring functions */
/* Define a function named NAME (a string), whose function body will
@@ -817,7 +817,7 @@ typedef struct rep_gc_n_roots {
#define rep_ERROR(x) \
Fput(Q ## x, Qerror_message, rep_VAL(& err_ ## x))
-
+
/* Macros for ensuring an object is of a certain type i.e. to ensure
first arg `foo' is a string, rep_DECLARE1(foo, rep_STRINGP); */
@@ -842,7 +842,7 @@ typedef struct rep_gc_n_roots {
#define rep_DECLARE4_OPT(x,t) rep_DECLARE(4, x, (x) == Qnil || t(x))
#define rep_DECLARE5_OPT(x,t) rep_DECLARE(5, x, (x) == Qnil || t(x))
-
+
/* Macros for interrupt handling */
#define rep_MAY_YIELD \
@@ -890,7 +890,7 @@ typedef struct rep_gc_n_roots {
should exit as soon as possible, returning rep_NULL. */
#define rep_INTERRUPTP (rep_throw_value != rep_NULL)
-
+
/* End-of-list / false value
The canonical method of getting '() is to access the `Qnil' variable.
@@ -912,7 +912,7 @@ extern repv Qnil;
# endif
#endif
-
+
/* Storing timestamps */
#define rep_MAKE_TIME(time) \
diff --git a/src/rep_regexp.h b/src/rep_regexp.h
index 5385bfd..9dbce90 100644
--- a/src/rep_regexp.h
+++ b/src/rep_regexp.h
@@ -61,7 +61,7 @@ extern int rep_regmatch_string(rep_regexp *, char *, int);
extern int rep_regexp_max_depth;
-
+
/* Only include the internal stuff if it's explicitly requested, since
it comtaminates the namespace.. */
diff --git a/src/repgdbm.c b/src/repgdbm.c
index fac9217..a540aaa 100644
--- a/src/repgdbm.c
+++ b/src/repgdbm.c
@@ -186,7 +186,7 @@ Returns t if ARG is an gdbm object (created by `gdbm-open').
return rep_DBMP(arg) ? Qt : Qnil;
}
-
+
static void
dbm_mark (repv val)
diff --git a/src/repint.h b/src/repint.h
index b6f031b..08fc631 100644
--- a/src/repint.h
+++ b/src/repint.h
@@ -105,7 +105,7 @@ struct blocked_op {
extern struct blocked_op *rep_blocked_ops[op_MAX];
-
+
/* module system */
typedef struct rep_struct_node_struct rep_struct_node;
@@ -156,7 +156,7 @@ extern int rep_structure_type;
#define rep_STRUCT_HASH(x,n) (((x) >> 3) % (n))
-
+
/* binding tracking */
#define rep_MARK_LEX_BINDING(x) (x + (1 << rep_VALUE_INT_SHIFT))
@@ -177,7 +177,7 @@ extern int rep_structure_type;
rep_structure = rep_default_structure; \
} while (0)
-
+
/* call history */
/* Keeps a backtrace of all lisp functions called. */
@@ -206,7 +206,7 @@ struct rep_Call {
rep_call_stack = (lc).next; \
} while (0)
-
+
/* guardians */
typedef struct rep_guardian_struct {
@@ -216,7 +216,7 @@ typedef struct rep_guardian_struct {
repv inaccessible;
} rep_guardian;
-
+
/* cons' */
#define rep_CONSBLK_SIZE 1022 /* ~8k */
@@ -232,7 +232,7 @@ typedef struct rep_cons_block_struct {
rep_cons cons[rep_CONSBLK_SIZE];
} rep_cons_block;
-
+
/* prototypes */
#include "repint_subrs.h"
diff --git a/src/repsdbm.c b/src/repsdbm.c
index 460f7e1..ecadcea 100644
--- a/src/repsdbm.c
+++ b/src/repsdbm.c
@@ -194,7 +194,7 @@ Returns t if ARG is an sdbm object (created by `sdbm-open').
return rep_DBMP(arg) ? Qt : Qnil;
}
-
+
static void
dbm_mark (repv val)
diff --git a/src/safemach.c b/src/safemach.c
index 0c92c18..f1218bc 100644
--- a/src/safemach.c
+++ b/src/safemach.c
@@ -42,7 +42,7 @@ char *alloca ();
#include "repint.h"
-
+
/* pull in the generic interpreter */
#define BC_APPLY_SELF safe_apply_bytecode
@@ -63,7 +63,7 @@ static repv safe_apply_bytecode (repv subr, int nargs, repv *args);
#include "lispmach.h"
-
+
/* interface */
static repv
diff --git a/src/sockets.c b/src/sockets.c
index fd669d3..94708c2 100644
--- a/src/sockets.c
+++ b/src/sockets.c
@@ -76,7 +76,7 @@ struct rep_socket_struct {
#define ACTIVE_SOCKET_P(x) (SOCKETP (x) \
&& (SOCKET_IS_ACTIVE (SOCKET (x))))
-
+
/* data structure management */
static rep_socket *
@@ -159,7 +159,7 @@ socket_for_fd (int fd)
abort ();
}
-
+
/* clients */
static void
@@ -208,7 +208,7 @@ make_client_socket (int namespace, int style, void *addr, size_t length)
return 0;
}
-
+
/* servers */
static void
@@ -244,7 +244,7 @@ make_server_socket (int namespace, int style, void *addr, size_t length)
return 0;
}
-
+
/* Unix domain sockets */
static repv
@@ -328,7 +328,7 @@ socket as its only argument.
return make_local_socket (addr, make_server_socket, callback, sentinel);
}
-
+
/* Internet domain sockets */
static repv
@@ -413,7 +413,7 @@ socket as its only argument.
make_server_socket, callback, sentinel);
}
-
+
/* Misc lisp functions */
DEFUN ("close-socket", Fclose_socket, Sclose_socket, (repv sock), rep_Subr1) /*
@@ -635,7 +635,7 @@ Return true if ARG is an unclosed socket object.
return (SOCKETP (arg) && SOCKET_IS_ACTIVE (SOCKET (arg))) ? Qt : Qnil;
}
-
+
/* type hooks */
DEFSTRING (inactive_socket, "Inactive socket");
@@ -749,7 +749,7 @@ socket_print (repv stream, repv arg)
rep_stream_puts (stream, "#<socket>", -1, rep_FALSE);
}
-
+
/* dl hooks */
repv
diff --git a/src/structures.c b/src/structures.c
index 4e6dfe5..9b40373 100644
--- a/src/structures.c
+++ b/src/structures.c
@@ -147,7 +147,7 @@ DEFSYM(local, "local");
static rep_struct_node *lookup_or_add (rep_struct *s, repv var);
-
+
/* cached lookups */
#ifdef DEBUG
@@ -391,7 +391,7 @@ cache_flush (void)
#endif /* !SINGLE_DM_CACHE */
-
+
/* type hooks */
static void
@@ -466,7 +466,7 @@ structure_print (repv stream, repv arg)
}
}
-
+
/* utilities */
/* Return true iff structure S exports a binding of symbol VAR that it
@@ -636,7 +636,7 @@ rep_search_imports (rep_struct *s, repv var)
}
}
-
+
/* lisp functions */
DEFUN("get-structure", Fget_structure,
@@ -1376,7 +1376,7 @@ DEFUN ("export-bindings", Fexport_bindings,
return Qnil;
}
-
+
/* features */
DEFUN("featurep", Ffeaturep, Sfeaturep, (repv feature), rep_Subr1) /*
@@ -1463,7 +1463,7 @@ loaded is either FILE (if given), or the print name of FEATURE.
return Qt;
}
-
+
/* C interface for structure building */
repv
@@ -1653,7 +1653,7 @@ rep_documentation_property (repv structure)
return Fintern (rep_string_dup (buf), Qnil);
}
-
+
/* init */
void
diff --git a/src/symbols.c b/src/symbols.c
index 778e286..9b879d2 100644
--- a/src/symbols.c
+++ b/src/symbols.c
@@ -95,7 +95,7 @@ repv rep_scm_t, rep_scm_f;
repv rep_undefined_value;
-
+
/* Symbol management */
DEFUN("make-symbol", Fmake_symbol, Smake_symbol, (repv name), rep_Subr1) /*
@@ -349,7 +349,7 @@ Removes SYMBOL from OBARRAY (or the default). Use this with caution.
return(sym);
}
-
+
/* Closures */
DEFUN("make-closure", Fmake_closure, Smake_closure,
@@ -580,7 +580,7 @@ rep_call_with_closure (repv closure, repv (*fun)(repv arg), repv arg)
return ret;
}
-
+
/* Symbol binding */
repv
@@ -662,7 +662,7 @@ rep_add_binding_to_env (repv env, repv sym, repv value)
return Fcons (Fcons (LEXTAG, Fcons (sym, value)), env);
}
-
+
/* More lisp functions */
DEFUN("defvar", Fdefvar, Sdefvar, (repv args, repv tail_posn), rep_SF) /*
diff --git a/src/tables.c b/src/tables.c
index 6d1b5e4..9fe68f8 100644
--- a/src/tables.c
+++ b/src/tables.c
@@ -60,7 +60,7 @@ static table *all_tables;
/* ensure X is +ve and in an int */
#define TRUNC(x) (((x) << (rep_VALUE_INT_SHIFT+1)) >> (rep_VALUE_INT_SHIFT+1))
-
+
/* type hooks */
static void
@@ -130,7 +130,7 @@ table_print (repv stream, repv arg)
rep_stream_putc (stream, '>');
}
-
+
/* hash functions */
static inline hash_value
@@ -227,7 +227,7 @@ implies (= (equal-hash X) (equal-hash Y)).
return rep_MAKE_INT (rep_TYPE (x) * 255);
}
-
+
/* table functions */
DEFUN("make-table", Fmake_table, Smake_table,
@@ -532,7 +532,7 @@ DEFUN("tables-after-gc", Ftables_after_gc, Stables_after_gc, (void), rep_Subr0)
return Qnil;
}
-
+
/* dl hooks */
repv
diff --git a/src/timers.c b/src/timers.c
index f447fe9..92da30b 100644
--- a/src/timers.c
+++ b/src/timers.c
@@ -80,7 +80,7 @@ static int pipe_fds[2];
/* Contains SIGALRM */
static sigset_t alrm_sigset;
-
+
static RETSIGTYPE
timer_signal_handler (int sig)
@@ -231,7 +231,7 @@ timer_fd_handler (int fd)
rep_POPGCN;
}
-
+
/* Lisp interface */
DEFUN("make-timer", Fmake_timer, Smake_timer,
@@ -297,7 +297,7 @@ duration. Otherwise, the existing values are preserved.
return timer;
}
-
+
/* Type hooks */
static void
@@ -354,7 +354,7 @@ timer_print (repv stream, repv arg)
rep_stream_puts (stream, buf, -1, rep_FALSE);
}
-
+
/* DL hooks */
repv
diff --git a/src/unix_files.c b/src/unix_files.c
index 840eb8e..1befe7c 100644
--- a/src/unix_files.c
+++ b/src/unix_files.c
@@ -63,7 +63,7 @@
#define S_ISSOCK(mode) (((mode) & S_IFMT) == S_IFSOCK)
#endif
-
+
/* Support functions */
DEFSTRING(dot, ".");
@@ -95,7 +95,7 @@ rep_file_length(repv file)
return 0;
}
-
+
/* File ops */
repv
@@ -591,7 +591,7 @@ rep_getpwd(void)
}
}
-
+
/* module name conversion */
repv
diff --git a/src/unix_main.c b/src/unix_main.c
index 5817420..dd37ef7 100644
--- a/src/unix_main.c
+++ b/src/unix_main.c
@@ -63,7 +63,7 @@ void (*rep_redisplay_fun)(void);
long (*rep_wait_for_input_fun)(void *inputs, unsigned long timeout_msecs);
int rep_input_timeout_secs = 1;
-
+
/* Support functions */
#ifndef HAVE_STRERROR
@@ -254,7 +254,7 @@ rep_system_name(void)
return system_name;
}
-
+
/* Main input loop */
/* This is the set of fds we're waiting for input from. */
@@ -658,7 +658,7 @@ rep_poll_input(int fd)
return wait_for_input(&in, 0);
}
-
+
/* Memory allocation; most of these are normally macros in unix_defs.h */
#ifdef DEBUG_SYS_ALLOC
@@ -771,7 +771,7 @@ Output a list of all allocated memory blocks to standard error.
}
#endif
-
+
/* Standard signal handlers */
static volatile rep_bool in_fatal_signal_handler;
@@ -869,7 +869,7 @@ usr_signal_handler (int sig)
signal (sig, usr_signal_handler);
}
-
+
/* Initialisation */
/* This function is called _before_ almost anything else; but
diff --git a/src/unix_processes.c b/src/unix_processes.c
index 5e1c71b..4c6eb18 100644
--- a/src/unix_processes.c
+++ b/src/unix_processes.c
@@ -172,7 +172,7 @@ DEFSTRING(not_local, "Need a local file");
DEFSTRING(forkstr, "fork");
DEFSTRING(nosig, "Unknown signal");
-
+
static RETSIGTYPE
sigchld_handler(int sig)
diff --git a/src/values.c b/src/values.c
index efacabd..8721af7 100644
--- a/src/values.c
+++ b/src/values.c
@@ -71,7 +71,7 @@ int rep_guardian_type;
DEFSYM(after_gc_hook, "after-gc-hook");
-
+
/* Type handling */
#define TYPE_HASH_SIZE 32
@@ -153,7 +153,7 @@ rep_get_data_type(unsigned int code)
return t;
}
-
+
/* General object handling */
/* Returns zero if V1 == V2, less than zero if V1 < V2, and greater than
@@ -206,7 +206,7 @@ rep_type_cmp(repv val1, repv val2)
return !(rep_TYPE(val1) == rep_TYPE(val2));
}
-
+
/* Strings */
static rep_string_block *string_block_chain;
@@ -406,7 +406,7 @@ rep_set_string_len(repv str, long len)
return rep_FALSE;
}
-
+
/* Misc */
int
@@ -452,7 +452,7 @@ rep_unbox_pointer (repv v)
return 0;
}
-
+
/* Cons */
rep_cons_block *rep_cons_block_chain;
@@ -585,7 +585,7 @@ rep_list_5(repv v1, repv v2, repv v3, repv v4, repv v5)
return rep_LIST_5(v1, v2, v3, v4, v5);
}
-
+
/* Vectors */
static rep_vector *vector_chain;
@@ -643,7 +643,7 @@ vector_cmp(repv v1, repv v2)
return rc;
}
-
+
/* Guardians */
static rep_guardian *guardians;
@@ -764,7 +764,7 @@ print_guardian (repv stream, repv obj)
rep_stream_puts (stream, "#<guardian>", -1, rep_FALSE);
}
-
+
/* Garbage collection */
static repv **static_roots;
@@ -1065,7 +1065,7 @@ last garbage-collection is greater than `garbage-threshold'.
return Qt;
}
-
+
void
rep_pre_values_init(void)
{
@@ -1152,7 +1152,7 @@ rep_values_kill(void)
string_block_chain = NULL;
}
-
+
/* Support for dumped Lisp code */
#ifdef ENABLE_BROKEN_DUMPING
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]
