diff --git a/src/bin/gnucash-make-guids.in b/src/bin/gnucash-make-guids.in deleted file mode 100644 index 870748ced5..0000000000 --- a/src/bin/gnucash-make-guids.in +++ /dev/null @@ -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: