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

[price-quotes] compact gnc:fq-check-sources

Browse Source 
improve locality of vars.
This commit is contained in:
Christopher Lam 2019-08-09 22:49:04 +08:00
parent fab1c8db3e
commit d5122c97ea
1 changed files with 15 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
libgnucash/scm/price-quotes.scm
View File

@ -68,35 +68,28 @@
(string-append (gnc-path-get-bindir) "/gnc-fq-check"))
(define (gnc:fq-check-sources)
(let ((program '())
(from-child #f))
(let ((program #f))
(define (start-program)
(if (not (string-null? gnc:*finance-quote-check*))
(set! program (gnc-spawn-process-async
(list "perl" "-w" gnc:*finance-quote-check*) #t))))
(set! program
(gnc-spawn-process-async
(list "perl" "-w" gnc:*finance-quote-check*) #t)))
(define (get-sources)
(if (not (null? program))
(let ((results #f))
(set! from-child (fdes->inport (gnc-process-get-fd program 1)))
(catch
#t
(lambda ()
(set! results (read from-child))
(gnc:debug "results: " results)
results)
(lambda (key . args)
key)))))
(when program
(catch #t
(lambda ()
(let ((results (read (fdes->inport (gnc-process-get-fd program 1)))))
(gnc:debug "gnc:fq-check-sources results: " results)
results))
(lambda (key . args) key))))
(define (kill-program)
(if (not (null? program))
(gnc-detach-process program #t)))
(when program
(gnc-detach-process program #t)
(set! program #f)))
(dynamic-wind
start-program
get-sources
kill-program)))
(dynamic-wind start-program get-sources kill-program)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;