IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-16 10:15:22 -06:00
Code Issues Packages Projects Releases Wiki Activity

* intl-scm/xgettext.scm: remove the absolute path from filenames

Browse Source 
* intl-scm/Makefile.am: pass the absolute path to xgettext.scm



git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13291 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2006-02-18 14:39:21 +00:00
parent f80dfa5a28
commit d6b618a92d
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2006-02-18 Derek Atkins <derek@ihtfp.com>
* intl-scm/xgettext.scm: remove the absolute path from filenames
* intl-scm/Makefile.am: pass the absolute path to xgettext.scm
2006-02-17 David Hampton <hampton@employees.org>
* src/register/register-gnome/gnucash-sheet.c:

2
intl-scm/Makefile.am
View File

@ -16,5 +16,5 @@ SCMFILES = $(shell find ${abs_top_srcdir}/src -name test -prune -o -name '*.scm'
guile-strings.c: $(SCMFILES)
rm -f guile-strings.c
cd ${srcdir} && rm -f guile-strings.c \
&& ${GUILE} -s ./xgettext.scm $(SCMFILES)
&& ${GUILE} -s ./xgettext.scm ${abs_top_srcdir} $(SCMFILES)

7
intl-scm/xgettext.scm
View File

@ -1,4 +1,5 @@
;; Find translatable strings in guile files
(define *base-dir-len* 0)
(define (expand-newlines string out-port)
(define (output-prefix-newlines chars)
@ -26,7 +27,7 @@
(loop (cdr chars) (cons (car chars) accum))))))
(define (write-string string out-port filename line-number)
(display (string-append "/* " filename) out-port)
(display (string-append "/* " (substring filename *base-dir-len*)) out-port)
;;(display line-number out-port)
(display " */\n" out-port)
(display "_(" out-port)
@ -66,7 +67,9 @@
(find-strings-in-item item out-port filename line-no)))
(let ((out-port (open "guile-strings.c" (logior O_WRONLY O_CREAT O_TRUNC)))
(in-files (cdr (command-line))))
(base-dir (cadr (command-line)))
(in-files (cddr (command-line))))
(set! *base-dir-len* (+ (string-length base-dir) 1))
(for-each (lambda (file)
(call-with-input-file file (lambda (port)
(find-strings port out-port file))))