"Fossies" - the Fresh Open Source Software Archive

Member "gnucash-3.7/gnucash/import-export/qif-imp/qif-import.scm" (7 Sep 2019, 3572 Bytes) of package /linux/misc/gnucash-3.7.tar.bz2:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Lisp source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. See also the latest Fossies "Diffs" side-by-side code changes report for "qif-import.scm": 3.6_vs_3.7.

    1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    2 ;;;  qif-import.scm
    3 ;;;  virtual loader for QIF import facility
    4 ;;;
    5 ;;;  Bill Gribble <grib@billgribble.com> 20 Feb 2000
    6 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    8 ;; This program is free software; you can redistribute it and/or
    9 ;; modify it under the terms of the GNU General Public License as
   10 ;; published by the Free Software Foundation; either version 2 of
   11 ;; the License, or (at your option) any later version.
   12 ;;
   13 ;; This program is distributed in the hope that it will be useful,
   14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
   15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   16 ;; GNU General Public License for more details.
   17 ;;
   18 ;; You should have received a copy of the GNU General Public License
   19 ;; along with this program; if not, contact:
   20 ;;
   21 ;; Free Software Foundation           Voice:  +1-617-542-5942
   22 ;; 51 Franklin Street, Fifth Floor    Fax:    +1-617-542-2652
   23 ;; Boston, MA  02110-1301,  USA       gnu@gnu.org
   24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   25 
   26 
   27 (define-module (gnucash import-export qif-import))
   28 (use-modules (gnucash utilities)) 
   29 (use-modules (gnucash app-utils))
   30 
   31 ;; We do this initialization here because src/gnome isn't a real module.
   32 ;; Note: Guile 2 needs to find the symbols from the extension at compile time already
   33 (eval-when (compile load eval expand)
   34   (load-extension "libgnc-gnome" "scm_init_sw_gnome_module"))
   35 
   36 (use-modules (sw_gnome))
   37 
   38 (use-modules (gnucash gnc-module))
   39 (use-modules (ice-9 regex))
   40 (use-modules (srfi srfi-1))
   41 
   42 (debug-enable 'backtrace)
   43 
   44 (gnc:module-load "gnucash/engine" 0)
   45 (gnc:module-load "gnucash/app-utils" 0)
   46 (gnc:module-load "gnucash/gnome-utils" 0)
   47 
   48 (load-from-path "qif-import/qif-objects")      ;; class definitions
   49 (load-from-path "qif-import/qif-parse")        ;; string-to-value
   50 (load-from-path "qif-import/qif-utils")
   51 (load-from-path "qif-import/qif-file")         ;; actual file reading
   52 (load-from-path "qif-import/qif-dialog-utils") ;; build displays
   53 (load-from-path "qif-import/qif-guess-map")    ;; build acct mappings
   54 (load-from-path "qif-import/qif-to-gnc")       ;; conv QIF xtns to GNC
   55 (load-from-path "qif-import/qif-merge-groups") ;; merge into user's acct
   56 
   57 (export make-qif-file)
   58 (export make-ticker-map)
   59 (export qif-import:get-all-accts)
   60 (export qif-import:fix-from-acct)
   61 (export qif-import:any-new-accts?)
   62 (export qif-import:update-security-hash)
   63 (export qif-import:refresh-match-selection)
   64 (export qif-import:save-map-prefs)
   65 (export qif-import:load-map-prefs)
   66 (export qif-import:qif-to-gnc)
   67 (export qif-import:qif-to-gnc-undo)
   68 (export qif-import:reset-cancel-pause)
   69 (export qif-import:cancel)
   70 (export qif-import:toggle-pause)
   71 
   72 (export qif-map-entry:gnc-name)
   73 (export qif-map-entry:set-gnc-name!)
   74 (export qif-map-entry:clone)
   75 (export qif-map-entry:qif-name)
   76 (export qif-map-entry:new-acct?)
   77 
   78 (export qif-file:read-file)
   79 (export qif-file:parse-fields)
   80 (export qif-file:parse-fields-results)
   81 (export qif-file:check-from-acct)
   82 (export qif-file:reparse-dates)
   83 (export qif-file:check-from-acct)
   84 (export qif-file:path-to-accountname)
   85 (export qif-file:path)
   86 
   87 (export qif-dialog:qif-file-loaded?)
   88 (export qif-dialog:unload-qif-file)
   89 (export qif-dialog:make-account-display)
   90 (export qif-dialog:make-category-display)
   91 (export qif-dialog:make-memo-display)
   92 
   93 (export gnc:account-tree-find-duplicates)
   94 (export gnc:account-tree-catenate-and-merge)
   95 (export gnc:prune-matching-transactions)