[gnucash-de] QIF import crash

[Chris Shoemaker]

[moved to gnucash-devel, cc'ed gnucash-de]

On Mon, Nov 20, 2006 at 09:54:11PM -0600, Tom Cunningham wrote:
> Backtrace:
> In unknown file:
>    ?:  0* [qif-file:parse-fields #]
> In /usr/share/gnucash/scm/qif-import/qif-file.scm:
>  505:  1* (let* (# # # #) (and # # # ...) (cond # #))
>  520:  2* (and # # # ...)
>  574:  3* [parse-field #<procedure qif-xtn:action #> ...]
>  628:  4* [for-each #<procedure #f (obj)> (# # # # ...)]
> In unknown file:
>    ?:  5* [#<procedure #f #> #]
> In /usr/share/gnucash/scm/qif-import/qif-file.scm:
>  630:  6* (let* ((unparsed #)) (if (and unparsed #) (setter obj #)))
>  631:  7  (if (and unparsed (string? unparsed)) (setter obj (parser
> unparsed)))
>  632:  8  [qif-xtn:set-action! # ...
>  632:  9*  [qif-parse:parse-action-field "ShrsIn"]
> In /usr/share/gnucash/scm/qif-import/qif-parse.scm:
>  190: 10   (if read-value (let* (#) (case action-symbol # # ...)) #f)
>      ...
>  192: 11   (case action-symbol ((buy kauf) (quote buy)) ...)
> 
> /usr/share/gnucash/scm/qif-import/qif-parse.scm:192:9: In procedure
> memoization in expression (case action-symbol (# #) ...):
> /usr/share/gnucash/scm/qif-import/qif-parse.scm:192:9: In file
> "/usr/share/gnucash/scm/qif-import/qif-parse.scm", line 191: Duplicate case
> label aktzu in expression (case action-symbol ((buy kauf) (quote buy))
> ((buyx kaufx) (quote buyx)) ((cglong kapgew) (quote cglong)) ((cglongx
> kapgewx) (quote cglongx)) ((cgmid) (quote cgmid)) ((cgmidx) (quote cgmidx))
> ((cgshort k.gewsp) (quote cgshort)) ((cgshortx k.gewspx) (quote cgshortx))
> ...).

This is a duplicate-case-label bug:  The offending cases are
 (case action-symbol
...
     ((int intinc aktzu) ;; zinsen
           'intinc)
...
     ((shrsin aktzu)
           'shrsin)



I think it's the first one that should be removed.  IOW, I think
"aktzu" means "an increase in the number of shares".

Any comments from the Germans?

-chris