From 4259255af1287794a7c5ea9c327ed1e56f381507 Mon Sep 17 00:00:00 2001 From: John Ralls Date: Sat, 12 Sep 2015 12:02:28 -0700 Subject: [PATCH] Export the price-source enums to Guile and use them in price-quotes.scm. --- src/engine/engine.i | 11 ++++++++++- src/scm/price-quotes.scm | 4 ++-- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/src/engine/engine.i b/src/engine/engine.i index 99a10390691..6f51011740c 100644 --- a/src/engine/engine.i +++ b/src/engine/engine.i @@ -334,7 +334,7 @@ KvpValue * kvp_frame_get_slot_path_gslist (KvpFrame *frame, GSList *key_path); SET_ENUM("TRANS-DATE-POSTED"); SET_ENUM("TRANS-DESCRIPTION"); SET_ENUM("TRANS-NUM"); - + SET_ENUM("KVP-OPTION-PATH"); SET_ENUM("OPTION-SECTION-ACCOUNTS"); @@ -355,6 +355,15 @@ KvpValue * kvp_frame_get_slot_path_gslist (KvpFrame *frame, GSList *key_path); SET_ENUM("GNC-HOW-RND-ROUND"); SET_ENUM("GNC-HOW-RND-NEVER"); + SET_ENUM("PRICE-SOURCE-EDIT-DLG"); + SET_ENUM("PRICE-SOURCE-FQ"); + SET_ENUM("PRICE-SOURCE-USER-PRICE"); + SET_ENUM("PRICE-SOURCE-XFER-DLG-VAL"); + SET_ENUM("PRICE-SOURCE-SPLIT-REG"); + SET_ENUM("PRICE-SOURCE-STOCK-SPLIT"); + SET_ENUM("PRICE-SOURCE-INVOICE"); + SET_ENUM("PRICE-SOURCE-INVALID"); + #undef SET_ENUM } diff --git a/src/scm/price-quotes.scm b/src/scm/price-quotes.scm index e72fdae78f0..c078822df26 100644 --- a/src/scm/price-quotes.scm +++ b/src/scm/price-quotes.scm @@ -429,7 +429,7 @@ (begin (gnc-price-begin-edit saved-price) (gnc-price-set-time saved-price gnc-time) - (gnc-price-set-source-string saved-price "Finance::Quote") + (gnc-price-set-source saved-price PRICE-SOURCE-FQ) (gnc-price-set-typestr saved-price price-type) (gnc-price-set-value saved-price price) (gnc-price-commit-edit saved-price) @@ -443,7 +443,7 @@ (gnc-price-set-commodity gnc-price commodity) (gnc-price-set-currency gnc-price currency) (gnc-price-set-time gnc-price gnc-time) - (gnc-price-set-source-string gnc-price "Finance::Quote") + (gnc-price-set-source gnc-price PRICE-SOURCE-FQ) (gnc-price-set-typestr gnc-price price-type) (gnc-price-set-value gnc-price price) (gnc-price-commit-edit gnc-price)