r22639 - gnucash/trunk/src/scm - Remove now unused scm file
Geert Janssens
gjanssens at code.gnucash.org
Wed Dec 12 12:42:43 EST 2012
Author: gjanssens
Date: 2012-12-12 12:42:43 -0500 (Wed, 12 Dec 2012)
New Revision: 22639
Trac: http://svn.gnucash.org/trac/changeset/22639
Removed:
gnucash/trunk/src/scm/doc.scm
Modified:
gnucash/trunk/src/scm/Makefile.am
gnucash/trunk/src/scm/main.scm
Log:
Remove now unused scm file
Modified: gnucash/trunk/src/scm/Makefile.am
===================================================================
--- gnucash/trunk/src/scm/Makefile.am 2012-12-12 17:42:33 UTC (rev 22638)
+++ gnucash/trunk/src/scm/Makefile.am 2012-12-12 17:42:43 UTC (rev 22639)
@@ -9,7 +9,6 @@
gnc_regular_scm_files = \
string.scm \
command-line.scm \
- doc.scm \
fin.scm \
main-window.scm \
substring-search.scm \
Deleted: gnucash/trunk/src/scm/doc.scm
===================================================================
--- gnucash/trunk/src/scm/doc.scm 2012-12-12 17:42:33 UTC (rev 22638)
+++ gnucash/trunk/src/scm/doc.scm 2012-12-12 17:42:43 UTC (rev 22639)
@@ -1,68 +0,0 @@
-;; This program 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 of
-;; the License, or (at your option) any later version.
-;;
-;; This program 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 this program; if not, contact:
-;;
-;; Free Software Foundation Voice: +1-617-542-5942
-;; 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652
-;; Boston, MA 02110-1301, USA gnu at gnu.org
-
-(define (build-path . elements)
- (string-join elements "/"))
-
-(define (gnc:find-file file directories)
- "Find file named 'file' anywhere in 'directories'. 'file' must be a
-string and 'directories' must be a list of strings."
-
- (gnc:debug "gnc:find-file looking for " file " in " directories)
-
- (do ((rest directories (cdr rest))
- (finished? #f)
- (result #f))
- ((or (null? rest) finished?) result)
-
- (let ((file-name (build-path (car rest) file)))
- (gnc:debug " checking for " file-name)
- (if (access? file-name F_OK)
- (begin
- (gnc:debug "found file " file-name)
- (set! finished? #t)
- (set! result file-name))))))
-
-(define (gnc:find-localized-file file base-directories)
- ;; Find file in path in base directories, or in any localized subdir
- ;; thereof.
-
- (define (locale-prefixes)
- ;; Mac OS X. 10.1 and earlier don't have LC_MESSAGES. Fall back to
- ;; LC_ALL for those systems.
- (let* ((locale (or (false-if-exception (setlocale LC_MESSAGES))
- (setlocale LC_ALL)))
- (strings (cond ((not (string? locale)) '())
- ((equal? locale "C") '())
- ((<= (string-length locale) 4) (list locale))
- (else (list (substring locale 0 2)
- (substring locale 0 5)
- locale)))))
- (reverse (cons "C" strings))))
-
- (let loop ((prefixes (locale-prefixes))
- (dirs base-directories))
- (if (null? dirs)
- #f
- (or (gnc:find-file file (map (lambda (prefix)
- (build-path (car dirs) prefix))
- prefixes))
- (gnc:find-file file (list (car dirs)))
- (loop prefixes (cdr dirs))))))
-
-(define (gnc:find-doc-file file)
- (gnc:find-localized-file file (gnc:config-var-value-get gnc:*doc-path*)))
Modified: gnucash/trunk/src/scm/main.scm
===================================================================
--- gnucash/trunk/src/scm/main.scm 2012-12-12 17:42:33 UTC (rev 22638)
+++ gnucash/trunk/src/scm/main.scm 2012-12-12 17:42:43 UTC (rev 22639)
@@ -35,7 +35,6 @@
;; files we can load from the top-level because they're "well behaved"
;; (these should probably be in modules eventually)
(load-from-path "string.scm")
-(load-from-path "doc.scm")
(load-from-path "main-window.scm") ;; depends on app-utils (N_, etc.)...
(load-from-path "fin.scm")
@@ -55,12 +54,6 @@
(re-export hash-fold)
-;; from command-line.scm
-(export gnc:*doc-path*)
-
-;; from doc.scm
-(export gnc:find-doc-file)
-
;; from main-window.scm
(export gnc:main-window-properties-cb)
More information about the gnucash-changes
mailing list