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

* src/bin/gnucash-make-guids.in: removed.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6109 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-11-28 22:51:23 +00:00
parent abff7140e4
commit 89ebeee6fa
1 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/bin/gnucash-make-guids.in
View File

@ -1,36 +0,0 @@
#!/bin/sh
exec @-GNUCASH_RUN_SCRIPT-@ @-THIS_SCRIPT-@ "$@"
!#
(define (usage)
(display "Usage: gnucash-make-guids [number-to-make (default is 100)]\n")
(exit 1))
(define args (cdr (program-arguments)))
(define num-to-make 100)
;; Too many arguments
(if (> (length args) 1)
(usage))
(if (= (length args) 1)
(let ((arg (string->number (car args))))
(if (not (number? arg))
(usage))
(set! arg (inexact->exact arg))
(if (<= arg 0)
(usage))
(set! num-to-make arg)))
(use-modules (gnucash gnc-module))
(gnc:module-system-init)
(gnc:module-load "gnucash/engine" 0)
(let loop ((remaining num-to-make))
(display (gnc:guid-new)) (newline)
(if (> remaining 1)
(loop (- remaining 1))))
;; Local Variables:
;; mode: scheme
;; End: