Add missing file for the commodity matcher.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7343 57a11ea4-9604-0410-9ed3-97b8803252fd

src/import-export/Commodity-matcher.c

@@ -0,0 +1,132 @@
+/********************************************************************\
+ * Commodity-matcher.c --       * 
+ * See file generic-import-design.txt for         *
+ * description                                                      *
+ *                        (GnuCash)                                 *
+ * Copyright (C) 2002 Benoit Grégoire <bock@step.polymtl.ca>        *
+ *                                                                  *
+ * This program is free software; you can redistribute it and/or    *
+ * modify it under the terms of the GNU General Public License as   *
+ * published by the Free Software Foundation; either version 2 of   *
+ * the License, or (at your option) any later version.              *
+ *                                                                  *
+ * This program is distributed in the hope that it will be useful,  *
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of   *
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    *
+ * GNU General Public License for more details.                     *
+ *                                                                  *
+ * You should have received a copy of the GNU General Public License*
+ * along with this program; if not, contact:                        *
+ *                                                                  *
+ * Free Software Foundation           Voice:  +1-617-542-5942       *
+ * 59 Temple Place - Suite 330        Fax:    +1-617-542-2652       *
+ * Boston, MA  02111-1307,  USA       gnu@gnu.org                   *
+\********************************************************************/
+
+#define _GNU_SOURCE
+
+#include "config.h"
+
+
+#include <glib.h>
+#include <gmodule.h>
+
+#include <glade/glade.h>
+
+#include <stdlib.h>
+#include <math.h>
+#include "gnc-generic-import.h"
+#include "Account.h"
+#include "Transaction.h"
+#include "dialog-commodity.h"
+#include "dialog-utils.h"
+
+#include "gnc-engine-util.h"
+
+#include "gnc-ui-util.h"
+
+/********************************************************************\
+ *   Constants   *
+\********************************************************************/
+
+
+/********************************************************************\
+ *   Constants, should ideally be defined a user preference dialog    *
+\********************************************************************/
+
+static short module = MOD_IMPORT;
+
+
+
+gnc_commodity * gnc_import_select_commodity(char * exchange_code,
+				    char auto_create,
+				    char * default_fullname,
+				    char * default_mnemonic)
+{
+  gnc_commodity_table * commodity_table = gnc_get_current_commodities ();
+  gnc_commodity * retval = NULL;
+  gnc_commodity * tmp_commodity = NULL;
+  char * tmp_namespace = NULL;
+  GList * commodity_list=NULL;
+  GList * namespace_list=NULL;
+  DEBUG("Default fullname received: %s", default_fullname);
+  DEBUG("Default mnemonic received: %s", default_mnemonic);
+  
+  DEBUG("Looking for commodity with exchange_code: %s", exchange_code);
+
+  namespace_list = gnc_commodity_table_get_namespaces(commodity_table);
+
+
+  namespace_list = g_list_first(namespace_list);
+  while( namespace_list!=NULL&&retval==NULL)
+    {
+      tmp_namespace=namespace_list->data;
+      DEBUG("Looking at namespace %s",tmp_namespace);
+      
+
+      /*Nested loop*/
+      commodity_list = gnc_commodity_table_get_commodities(commodity_table,
+							   tmp_namespace);
+      commodity_list  = g_list_first(commodity_list);
+      while( commodity_list!=NULL&&retval==NULL)
+	{
+	  tmp_commodity=commodity_list->data;
+	  DEBUG("Looking at commodity %s",gnc_commodity_get_fullname(tmp_commodity));
+	  
+	  if(strncmp(gnc_commodity_get_exchange_code(tmp_commodity),exchange_code,strlen(exchange_code))==0)
+	    {
+	      retval = tmp_commodity;
+	      DEBUG("Commodity %s%s",gnc_commodity_get_fullname(retval)," matches.");
+	    }    
+	  commodity_list=g_list_next(commodity_list);
+	}  
+      /*End nested loop*/
+
+      namespace_list=g_list_next(namespace_list);
+    }  
+  
+
+
+  
+  g_list_free(commodity_list);
+  g_list_free(namespace_list);
+
+  if(retval==NULL && auto_create != 0)
+    {
+      retval=gnc_ui_select_commodity_modal_full(NULL,
+						NULL,
+						_("Please select a commodity to match the following exchange code.\nPlease note that the exchange code of the commodity you select will be overwritten."),
+						exchange_code,
+						default_fullname,
+						default_mnemonic,
+						0);
+      
+    }
+  if (retval != NULL&&(strncmp(gnc_commodity_get_exchange_code(retval),exchange_code,strlen(exchange_code))!=0))
+    {
+      gnc_commodity_set_exchange_code(retval,
+				      exchange_code);
+    }
+  return retval;
+};
+