IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

i2002-10-28 Christian Stimming <stimming@tuhh.de>

Browse Source 
* intl-scm/xgettext.scm: Add the file name of scheme files to
	translation messages.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7421 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2002-10-28 18:48:09 +00:00
parent 78beaf4876
commit 3b8bed6ad1
2 changed files with 24 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2002-10-28 Christian Stimming <stimming@tuhh.de>
* intl-scm/xgettext.scm: Add the file name of scheme files to
translation messages.
2002-10-28 Chris Lyttle <chris@wilddev.net> 2002-10-28 Chris Lyttle <chris@wilddev.net>
* NEWS: update for new release * NEWS: update for new release

26
intl-scm/xgettext.scm
View File

@ -25,12 +25,15 @@
(else (else
(loop (cdr chars) (cons (car chars) accum)))))) (loop (cdr chars) (cons (car chars) accum))))))
(define (write-string string out-port) (define (write-string string out-port filename line-number)
(display (string-append "/* " (substring filename 3)) out-port)
;;(display line-number out-port)
(display " */\n" out-port)
(display "_(" out-port) (display "_(" out-port)
(expand-newlines string out-port) (expand-newlines string out-port)
(display ")\n" out-port)) (display ")\n" out-port))
(define (find-strings-in-item item out-port in-port) (define (find-strings-in-item item out-port filename line-no)
(define (find-internal rest) (define (find-internal rest)
(cond (cond
((and (list? rest) ; if it's a list ((and (list? rest) ; if it's a list
@ -40,7 +43,7 @@
(or (eqv? '_ (car rest)) ; and the symbol is _ (or (eqv? '_ (car rest)) ; and the symbol is _
(eqv? 'N_ (car rest)) ; or N_ (eqv? 'N_ (car rest)) ; or N_
(eqv? 'gnc:_ (car rest)))) ; or gnc:_ (eqv? 'gnc:_ (car rest)))) ; or gnc:_
(write-string (cadr rest) out-port)) ; then write it out (write-string (cadr rest) out-port filename line-no)) ; then write it out
((pair? rest) ; otherwise, recurse ((pair? rest) ; otherwise, recurse
(find-internal (car rest)) (find-internal (car rest))
@ -48,14 +51,23 @@
(find-internal item)) (find-internal item))
(define (find-strings in-port out-port) (define (count-newlines string)
(do ((item (read in-port) (read in-port))) (define (count-internal from)
(let ((index (string-index string #\newline from)))
(if index
(+ 1 (count-internal (+ 1 index)))
0)))
(count-internal 0))
(define (find-strings in-port out-port filename)
(do ((item (read in-port) (read in-port))
(line-no 1 (+ 1 line-no)))
((eof-object? item) #t) ((eof-object? item) #t)
(find-strings-in-item item out-port in-port))) (find-strings-in-item item out-port filename line-no)))
(let ((out-port (open "guile-strings.c" (logior O_WRONLY O_CREAT O_TRUNC))) (let ((out-port (open "guile-strings.c" (logior O_WRONLY O_CREAT O_TRUNC)))
(in-files (cdr (command-line)))) (in-files (cdr (command-line))))
(for-each (lambda (file) (for-each (lambda (file)
(call-with-input-file file (lambda (port) (call-with-input-file file (lambda (port)
(find-strings port out-port)))) (find-strings port out-port file))))
in-files)) in-files))