From 5622e77df8160c6e808c88f2f4ce7f12a5158dab Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Wed, 28 Nov 2001 23:18:18 +0000 Subject: [PATCH] * src/bin/overrides/gnucash-make-guids: new file -- mostly content of ../gnucash-make-guids.in. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6130 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/bin/overrides/gnucash-make-guids | 36 ++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100755 src/bin/overrides/gnucash-make-guids diff --git a/src/bin/overrides/gnucash-make-guids b/src/bin/overrides/gnucash-make-guids new file mode 100755 index 0000000000..a983334b4b --- /dev/null +++ b/src/bin/overrides/gnucash-make-guids @@ -0,0 +1,36 @@ +#!/bin/sh +exec gnucash-env guile -s "$0" "$@" +!# + +(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: