GnuCash 2.4.99
gncmod-qif-import.c
00001 /*********************************************************************
00002  * gncmod-qif-import.c
00003  * module definition/initialization for old QIF importer (deprecated)
00004  *
00005  * Copyright (c) 2001 Linux Developers Group, Inc.
00006  *********************************************************************/
00007 
00008 #include "config.h"
00009 #include <gmodule.h>
00010 #include <libguile.h>
00011 
00012 #include "gnc-module.h"
00013 #include "gnc-module-api.h"
00014 #include "assistant-qif-import.h"
00015 #include "dialog-new-user.h"
00016 
00017 #include "gnc-plugin-qif-import.h"
00018 
00019 GNC_MODULE_API_DECL(libgncmod_qif_import)
00020 
00021 /* version of the gnc module system interface we require */
00022 int libgncmod_qif_import_gnc_module_system_interface = 0;
00023 
00024 /* module versioning uses libtool semantics. */
00025 int libgncmod_qif_import_gnc_module_current  = 0;
00026 int libgncmod_qif_import_gnc_module_revision = 0;
00027 int libgncmod_qif_import_gnc_module_age      = 0;
00028 
00029 
00030 char *
00031 libgncmod_qif_import_gnc_module_path(void)
00032 {
00033     return g_strdup("gnucash/import-export/qif-import");
00034 }
00035 
00036 char *
00037 libgncmod_qif_import_gnc_module_description(void)
00038 {
00039     return g_strdup("Gnome GUI and Scheme code for QIF importer");
00040 }
00041 
00042 int
00043 libgncmod_qif_import_gnc_module_init(int refcount)
00044 {
00045     if (!gnc_module_load("gnucash/engine", 0))
00046     {
00047         return FALSE;
00048     }
00049 
00050     if (!gnc_module_load("gnucash/app-utils", 0))
00051     {
00052         return FALSE;
00053     }
00054 
00055     if (!gnc_module_load("gnucash/gnome-utils", 0))
00056     {
00057         return FALSE;
00058     }
00059 
00060     /* If the recount == 0 then register the qif-import-assistant for the new-user
00061      * dialog.
00062      */
00063     if (refcount == 0)
00064     {
00065         gnc_new_user_dialog_register_qif_assistant
00066         ((void (*)())gnc_file_qif_import);
00067     }
00068 
00069     scm_c_eval_string("(use-modules (gnucash import-export qif-import))");
00070 
00071     gnc_plugin_qif_import_create_plugin();
00072 
00073     return TRUE;
00074 }
00075 
00076 int
00077 libgncmod_qif_import_gnc_module_end(int refcount)
00078 {
00079     return TRUE;
00080 }
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Defines