patch for bug 95844(Re: was howto submit patch)

[Derek Atkins]

Ok, I just started looking at this.  There is a better patch (which
was already done in qif-io-core/qif-parse.scm) which I am back-porting
to qif-import/qif-parse.scm.

I just committed the change.  Can you test it and let me know if I should
close out bug# 95844?

-derek

Larry Evans <jcampbell3@prodigy.net> writes:

> Larry Evans wrote:
> 
> > I "reattached" the attachment.
> 
> [snip]
> 
> >------------------------------------------------------------------------
> >
> >This message has been 'sanitized'.  This means that potentially
> >dangerous content has been rewritten or removed.  The following
> >log describes which actions were taken.
> >
> [snip]
> I'll try again just using cut&past:
> <------------- begin diff -u --------------------------->
> --- qif-parse.scm    Fri Oct 18 13:18:53 2002
> +++ qif-parse.scm.old    Fri Oct 18 18:00:07 2002
> @@ -491,17 +491,13 @@
>               (string-remove-char
>                (string-remove-char value-string #\,)
>                #\$))
> -           (has-radix
> -             ( if (regexp-exec (make-regexp "^.*[.].*$") filtered-string)
> -                 1
> -                 0))
> -           (read-val
> +            (read-val
>               (with-input-from-string filtered-string
>                 (lambda () (read)))))
>         (if (number? read-val)
>             (gnc:double-to-gnc-numeric
>              (+ 0.0 read-val) GNC-DENOM-AUTO
> -            (logior (GNC-DENOM-SIGFIGS (- (string-length
> filtered-string) has-radix))
> +            (logior (GNC-DENOM-SIGFIGS (- (string-length
> filtered-string) 1))
>                      GNC-RND-ROUND))
>             (gnc:numeric-zero))))
>      ((comma)
> @@ -511,17 +507,13 @@
>                 (string-remove-char value-string #\.)
>                 #\, #\.)
>                #\$))            -           (has-radix
> -             ( if (regexp-exec (make-regexp "^.*[,].*$") filtered-string)
> -                 1
> -                 0))
>              (read-val
>               (with-input-from-string filtered-string
>                 (lambda () (read)))))
>         (if (number? read-val)
>             (gnc:double-to-gnc-numeric
>              (+ 0.0 read-val) GNC-DENOM-AUTO
> -            (logior (GNC-DENOM-SIGFIGS (- (string-length
> filtered-string) has-radix))
> +            (logior (GNC-DENOM-SIGFIGS (- (string-length
> filtered-string) 1))
>                      GNC-RND-ROUND))
>             (gnc:numeric-zero))))
>      ((integer)
>  >------------- end diff -u ------------------------------<
> 
> 
> _______________________________________________
> gnucash-patches mailing list
> gnucash-patches@lists.gnucash.org
> https://lists.gnucash.org/mailman/listinfo/gnucash-patches

-- 
       Derek Atkins, SB '93 MIT EE, SM '95 MIT Media Laboratory
       Member, MIT Student Information Processing Board  (SIPB)
       URL: http://web.mit.edu/warlord/    PP-ASEL-IA     N1NWH
       warlord@MIT.EDU                        PGP key available