On Wed, 13 Oct 1999 18:45:25 PDT, the world broke into rejoicing as
Dave Peticolas <[EMAIL PROTECTED]> said:
>
> Wow, thanks for such a complete reply!
> But, I have more questions :)
>
> > If that's the guile code that Christopher (I think it was) was working
> > on just before the server went down, then it's intended to be much
> > more complete than the current C code, but I don't know if it's
>
> Complete in what sense?
More complete in the sense that it has a mechanism for detecting what
categories already exist, and providing decent defaults for an automated
translation from what was in QIF to what's in GnuCash.
More complete in that it does a fair bit of extra analysis of the data
that the C code doesn't.
More complete in that it should process dates nicely regardless of what
country you're from. (99/01/01, 03.02.99, 04-02-99 being distinct date
formats that the Guile code will successfully cope with...)
Unfortunately, less complete in that:
a) Lack of time to get to completion, and
b) I haven't been able to get accounts or transactions to get "committed"
in from the Guile side of things. (e.g. - see test.scm, which I *think*
has gotten committed into CVS... Attached below...)
> I have some patches for the C QIF importing that fix several
> problems. Some of the problems aren't related to QIF importing
> per se, but involve code that only seems to be used when importing
> QIFs. Should I bother sending them in?
If it's for code in the engine in general, I'd say "certainly yes."
It's never wrong to fix something that's broken :-).
> A general question on patches -- Several patches have been submitted
> since the list came back up. Is someone with CVS access monitoring
> them?
Good question.
Methinks I may have some issues with gnc.gwp, as I've had lots of
functions I've been adding to it...
> And, finally, you mentioned that people were working on the gnome
> sections when the server went down. Can you tell me where they
> were working, so we don't overlap? The register window seems
> to have some problems, and I'd like to take a crack at that.
>
> >
> > Hope this helps.
>
> It does, thank you.
>
> dave
>
test.scm:
(display "Create some accounts:")(newline)
(define (test-load account-group)
(let ((session (gnc:main-window-get-session))
(group (gnc:session-get-group session))
(cash
(list (gnc:malloc-account)
"Sample Cash"
"Sample Cash Description"
"No notes - this is just a sample"
1))
(inc1
(list (gnc:malloc-account)
"Misc Income"
"Miscellaneous Income"
"Just a dumb income account"
8))
(exp1
(list (gnc:malloc-account)
"Misc Exp"
"Miscellaneous Expenses"
"Just a dumb expense account"
9)))
(display "Samples: ") (newline)
(display (list cash inc1 exp1)) (newline)
(apply gnc:create-account cash)
(apply gnc:create-account inc1)
(apply gnc:create-account exp1)
(display "group:") (display group) (newline)
(gnc:group-insert-account group (car cash))
(gnc:group-insert-account group (car inc1))
(gnc:group-insert-account group (car exp1)))
(display "Tried creation")(newline))
(display "loaded test.scm")(newline)
(display "---------------------------------------------------")(newline)
and samp.scm:
(define (gnc:create-account AccPtr name description notes type)
(display "start creation")(newline)
(gnc:xaccAccountBeginEdit AccPtr 0)
(display "edit")(newline)
(display (string-append "Name:" name)) (newline)
(gnc:xaccAccountSetName AccPtr name)
(display (string-append "Descr:" description)) (newline)
(gnc:xaccAccountSetDescription AccPtr description)
(display (string-append "notes:" notes)) (newline)
(gnc:xaccAccountSetNotes AccPtr notes)
(display (string-append "Type:" (number->string type))) (newline)
(gnc:xaccAccountSetType AccPtr type)
(gnc:xaccAccountCommitEdit AccPtr)
(display "committed")(newline)
)
(display "Create some accounts:")(newline)
(let ((cash
(list (gnc:malloc-account)
"Sample Cash"
"Sample Cash Description"
"No notes - this is just a sample"
1))
(inc1
(list (gnc:malloc-account)
"Misc Income"
"Miscellaneous Income"
"Just a dumb income account"
8))
(exp1
(list (gnc:malloc-account)
"Misc Exp"
"Miscellaneous Expenses"
"Just a dumb expense account"
9)))
(display "Samples: ") (newline)
(display (list cash inc1 exp1)) (newline)
(apply gnc:create-account cash)
(apply gnc:create-account inc1)
(apply gnc:create-account exp1))
(display "Tried creation")(newline)
--
Rules of the Evil Overlord #71. "Before employing any captured
artifacts or machinery, I will carefully read the owner's manual."
<http://www.eviloverlord.com/lists/overlord.html>
[EMAIL PROTECTED] <http://www.hex.net/~cbbrowne/lsf.html>
--
Gnucash Developer's List
To unsubscribe send empty email to: [EMAIL PROTECTED]
