---

main.c

Go to the documentation of this file.

 /*
 * Initial main.c file generated by Glade. Edit as required.
 * Glade will not overwrite this file.
 */

/* main.c - where everything start...
 *
 * Copyright (C) 2000  Franck Martin <franck@sopac.org>
 *
 * 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
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU General Public
 * License along with this Program; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

/*
 * Modified by the FMaps Team and others 2000.  See the AUTHORS
 * file for a list of people on the FMaps Team.  See the ChangeLog
 * files for a list of changes.  These files are distributed with
 * FMaps at http://FMaps.sourceforge.net/.
 */

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

#ifndef LIBPQ_H
#  include "libpq-fe.h"
#  define LIBPQ_H
#endif

#include <gnome.h>

#include "interface.h"
#include "support.h"

#include "fmaps.h"

void
FM_Create_Map_Tables(const gchar *tablename)
{
  gchar *buffer;

  if (conn==NULL)
  {
        buffer = g_strdup_printf("No connection to database: %s",dbName);
    FM_MessageBox(buffer);
    g_free(buffer);
    return;
  }

  FM_MessageBox("Function not yet implemented");
}

int FM_Create_System_Table(PGconn *conn,gchar *tablename,gchar *tablestructure)
{
  gchar *buffer;
  PGresult *qryResult;
  gint nbtuples;        
  gint result;

  g_return_val_if_fail (conn!=NULL,FALSE);
  g_return_val_if_fail (tablename!=NULL,FALSE);
  g_return_val_if_fail (tablestructure!=NULL,FALSE);
    
  result = FALSE;
        buffer = g_strdup_printf("SELECT tablename FROM pg_tables WHERE tablename='%s'",tablename);
  qryResult = PQexec(conn,buffer);
  nbtuples = PQntuples(qryResult);
  PQclear(qryResult);
  g_free(buffer);

  if (nbtuples==0)
  {
    buffer = g_strdup(tablestructure);  /* make the database fmaps compatible */
    qryResult = PQexec(conn,buffer);

    /* debug */
    if (!(g_str_equal(PQresultErrorMessage(qryResult),"")))
    {
      g_warning("%s : %s",buffer, PQresultErrorMessage(qryResult));
    }
    
    g_free(buffer);
    PQclear(qryResult);
    result = TRUE;
  }
  return (result);
}


/* FM_CheckDB
 * Check that the database is compatible with FMaps
 *  For the moment check that the system tables exists, if not create them
 *  The Procedure should check for the structure of the tables also
 *  And Perform upgrades if needed
 *
 */
 
void FM_CheckDB(PGconn *conn)
{
  gint result;
  
  g_return_if_fail (conn!=NULL);
  
  /* Create the Metadata tables ISO 15046-15 Conformance Level 1 */
  
  result = FM_Create_System_Table(conn,"f_catalogue",F_CATALOGUE_TABLE);

  result = FM_Create_System_Table(conn,"f_catalogue_initiative",F_CATALOGUE_INITITATIVE_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_party",F_CATALOGUE_PARTY_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_extents",F_CATALOGUE_EXTENTS_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_resolution_code",F_CATALOGUE_RESOLUTION_CODE_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_lang_data_code",F_CATALOGUE_LANG_DATA_CODE_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_theme_code",F_CATALOGUE_THEME_CODE_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_keyword_info",F_CATALOGUE_KEYWORD_INFO_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_spatial_rep_type_code",F_CATALOGUE_SPATIAL_REP_TYPE_CODE_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_distrib_id",F_CATALOGUE_DISTRIB_ID_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_format_code",F_CATALOGUE_FORMAT_CODE_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_media",F_CATALOGUE_MEDIA_TABLE);
  result = FM_Create_System_Table(conn,"f_catalogue_resource_url",F_CATALOGUE_RESOURCE_URL_TABLE);

    
  /* Create the Projection/Datum reference tables */
  result = FM_Create_System_Table(conn,"f_projection",F_PROJ_TABLE);

  result = FM_Create_System_Table(conn,"f_datum",F_DATUM_TABLE);
  
  result = FM_Create_System_Table(conn,"f_ellipsoid",F_ELLIPSOID_TABLE);

  result = FM_Create_System_Table(conn,"f_projdatum",F_PROJDATUM_TABLE);
  
}

void
FM_ConnectDB(void)
{
  GtkWidget *Message;
  GtkWidget *Entry;
  gchar *buffer;

  Entry=gtk_object_get_data(GTK_OBJECT(Fmaps),"appbarfmaps");

  if (conn==NULL)
  {
    /* make a connection to the database */
    conn = PQsetdbLogin(pghost, pgport, pgoptions, pgtty, dbName, username, password);
  }
    /*
    * check to see that the backend connection was successfully made
    */
  if (PQstatus(conn) == CONNECTION_BAD)
  {
    buffer = g_strdup_printf("Connection to database '%s' failed\n %s",dbName,PQerrorMessage(conn));
    Message = gnome_error_dialog(buffer);
    PQfinish(conn);
    gnome_appbar_set_default(GNOME_APPBAR(Entry),"Connection Failed");
    return;
  }
  gnome_appbar_set_default(GNOME_APPBAR(Entry),"Connected");

  /* Check if f_tables exists, if not creates it...*/

  FM_CheckDB(conn);

  /* retreive the list of tables and store it in ctree_table_list*/

  FM_Rebuild_Directory();
  
}

void
fmaps_quit(void)
{
  if(conn!=NULL)
  {
        PQfinish(conn); /* terminate the connection to database */
  }
  gtk_main_quit();
}

void
fmaps_init(void)
{

  /*
  * begin, by setting the parameters for a backend connection if the
  * parameters are null, then the system will try to use reasonable
  * defaults by looking up environment variables or, failing that,
  * using hardwired constants
  */
  pghost = NULL;                        /* host name of the backend server */
  pgport = NULL;                        /* port of the backend server */
  pgoptions = NULL;                     /* special options to start up the backend server */
  pgtty = NULL;                         /* debugging tty for the backend server */
  dbName = NULL;                        /* name of your database */
  username = NULL;                      /* automatic authentication */
  password = NULL;                      /* automatic authentication */

  conn=NULL;

  /* Let's use gnome configuration functions */

  gnome_config_push_prefix("FMaps/connection/");

  pghost = gnome_config_get_string("pghost");
  pgport = gnome_config_get_string("pgport");
  pgoptions = gnome_config_get_string("pgoptions");
  pgtty = gnome_config_get_string("pgtty");
  dbName = gnome_config_get_string("dbName");
  username = gnome_config_get_string("username");
  password = gnome_config_get_string("password");

  gnome_config_pop_prefix();

  /* load some defaults */
  if (dbName==NULL || strcmp(dbName,"")==0)
  {
    dbName=g_strdup("gisdata");
  }
  if (username==NULL || strcmp(username,"")==0)
  {
    username=NULL;
  }

}


int
main (int argc, char *argv[])
{

  bindtextdomain (PACKAGE, PACKAGE_LOCALE_DIR);
  textdomain (PACKAGE);

  gnome_init ("fmaps", VERSION, argc, argv);
  fmaps_init();

  /* display the main window */
  Fmaps = create_Fmaps ();

  gtk_widget_show (Fmaps);
  gtk_main ();
  return 0;
}

void FM_MessageBox(const char *message)
{
  GtkWidget *messagebox;
  gint key;

        messagebox=gnome_message_box_new(message,GNOME_MESSAGE_BOX_WARNING,GNOME_STOCK_BUTTON_OK,NULL);
        gtk_window_set_position(GTK_WINDOW(messagebox),GTK_WIN_POS_CENTER);
        key=gnome_dialog_run(GNOME_DIALOG(messagebox));
        return;
}

/* This procedure create or rebuild the directory in the main application window
 * It should be called each time an import or deletion is called
 */

void FM_Rebuild_Directory(void)
{
  GtkCTree *ctree;
  gchar *buffer;
  PGresult *qryResult;
  PGresult *qryResult2;
  gint i;
  gint j;
  gint nbtuples;
  gint nbtuples2;
  gchar *col[3];
  GtkCTreeNode *gtktreenode=NULL;
  GtkCTreeNode *node;
  FM_RowStatus *newrowstatus;
  FM_RowStatus *rowstatus;
  FM_RowStatus *subrowstatus;
  gint result;
  gchar *tablename;
  gchar *itemname;
  
  ctree=GTK_CTREE(gtk_object_get_data(GTK_OBJECT(Fmaps),"ctree_table_list"));
  
  buffer=g_strdup("SELECT DISTINCT series from f_catalogue ORDER BY series");
  qryResult = PQexec(conn,buffer);
  g_free(buffer);

  nbtuples = PQntuples(qryResult);

  node = gtk_ctree_node_nth(GTK_CTREE(ctree),0);

  /* There are no nodes in the tree so we create the ctree */
  if (node==NULL)
  {

    gtktreenode = NULL;

    for (i=0;i<nbtuples;i++)
    {
      buffer = PQgetvalue(qryResult,i,0);
      col[0] = g_strdup(buffer);
      col[1] = g_strdup("two");
      col[2] = g_strdup("three");
      gtktreenode = gtk_ctree_insert_node(GTK_CTREE(ctree),NULL,gtktreenode,col,8,NULL,NULL,NULL,NULL,FALSE,FALSE);
      newrowstatus = g_malloc(sizeof(FM_RowStatus));
      newrowstatus->expandedbefore=FALSE;
      newrowstatus->selectable=FALSE;
      newrowstatus->selected=FALSE;
      gtk_ctree_node_set_row_data_full(GTK_CTREE(ctree),gtktreenode,newrowstatus,g_free);
    }

  } else  /* there are nodes so we refresh the ctree */
  {


    i=0;
    while (i<nbtuples || node!=NULL)
    {
      rowstatus = gtk_ctree_node_get_row_data(GTK_CTREE(ctree),node);
      /* this an item and not a table so we check what to do*/
      if (!rowstatus->selectable)
      {
        result = gtk_ctree_node_get_pixtext(GTK_CTREE(ctree),node,0,col,NULL,NULL,NULL);
        tablename = g_strchomp(*col);
        itemname = PQgetvalue(qryResult,i,0);
g_warning("%s %s",tablename,itemname);

        /* there is a new item it needs to be inserted */
        if (strcmp(tablename,itemname)>0)
        {
g_warning("insert: %s",itemname);      
          i++; 
        }
        /* item and table match so we refresh the list */
        if (strcmp(tablename,itemname)==0)
        {
g_warning("matching");
          /* it has been expanded before so we refresh */
          if (rowstatus->expandedbefore)
          {
g_warning("refreshing table list of item: %s",itemname);

            /*remove the node (prune the tree*/
            gtk_ctree_remove_node(ctree,node);
            
            /*re insert the node */
            col[0] = g_strdup(itemname);
            col[1] = g_strdup("two");
            col[2] = g_strdup("three");
            gtktreenode = gtk_ctree_insert_node(GTK_CTREE(ctree),NULL,gtktreenode,col,8,NULL,NULL,NULL,NULL,FALSE,FALSE);
            newrowstatus = g_malloc(sizeof(FM_RowStatus));
            newrowstatus->expandedbefore=FALSE;
            newrowstatus->selectable=FALSE;
            newrowstatus->selected=FALSE;
            gtk_ctree_node_set_row_data_full(GTK_CTREE(ctree),gtktreenode,newrowstatus,g_free);
      
            /* and expand */

            buffer=g_strdup_printf("SELECT DISTINCT meta_file_id,series FROM f_catalogue WHERE series='%s' ORDER BY meta_file_id",itemname);
            qryResult2 = PQexec(conn,buffer);
            g_free(buffer);

            nbtuples2 = PQntuples(qryResult2);
            gtktreenode = NULL;

            for (j=0;j<nbtuples2;j++)
            {
              buffer = PQgetvalue(qryResult2,j,0);
              col[0] = g_strdup(buffer);
              col[1] = NULL;
              col[2] = NULL;
              gtktreenode = gtk_ctree_insert_node(ctree,GTK_CTREE_NODE(node),gtktreenode,col,8,NULL,NULL,NULL,NULL,TRUE,FALSE);
              /*subrowstatus = gtk_ctree_node_get_row_data(ctree,GTK_CTREE_NODE(gtktreenode));*/
              subrowstatus=g_malloc(sizeof(FM_RowStatus));
              subrowstatus->expandedbefore=TRUE;
              subrowstatus->selectable=TRUE;
              subrowstatus->selected=FALSE;
              gtk_ctree_node_set_row_data_full(ctree,GTK_CTREE_NODE(gtktreenode),subrowstatus,g_free);
            }
            newrowstatus=g_malloc(sizeof(FM_RowStatus));
            newrowstatus->expandedbefore=TRUE;
            newrowstatus->selectable=FALSE;
            newrowstatus->selected=FALSE;
            gtk_ctree_node_set_row_data_full(ctree,GTK_CTREE_NODE(node),newrowstatus,g_free);
            gtk_ctree_expand(ctree,GTK_CTREE_NODE(node));

            PQclear(qryResult2);
                    
          }
          node=GTK_CTREE_NODE_NEXT(node);
          i++;
        }
        /* this item does not exist anymore so delete*/
        if (strcmp(tablename,itemname)<0)
        {
g_warning("delete: %s",tablename);        
          node=GTK_CTREE_NODE_NEXT(node);
        }      
      } else
      {
        node=GTK_CTREE_NODE_NEXT(node); 
      }
    }
  }  
  PQclear(qryResult);  
}

void FM_Rebuild_Clist(GtkCList *clist,gint type)
{
  gchar *buffer;
  gchar *buffer2;
  PGresult *qryResult;
  PGresult *qryResult2;
  gchar *col[13];
  gint nbtuples;
  gint nbtuples2;
  gint i;
  gint j;
  GtkFMapsDatumType dattype;

  g_return_if_fail(clist!=NULL);
  g_return_if_fail(conn!=NULL);

  gtk_clist_clear(clist);

  switch (type)
  {
  case 0:       /* datum */
    buffer=g_strdup("SELECT DISTINCT * FROM f_datum");
    qryResult = PQexec(conn,buffer);
    g_free(buffer);

    nbtuples = PQntuples(qryResult);
    buffer2=NULL;
    i=0;
    while(i<nbtuples)
    {
        for(j=0;j<12;j++)
        {
          buffer = PQgetvalue(qryResult,i,j);
          if (j==2)     /* type */
          {
            dattype=atoi(buffer);
            switch(dattype)
            {
              case DAT_NONE:
                col[j]=g_strdup("NONE");
                break;
              case DAT_MOLENDENSKY:
                col[j]=g_strdup("Molendensky");
                break;
              case DAT_BURSA_WOLFE:
                col[j]=g_strdup("Bursa-Wolfe");
                break;
            }
          }else if (j==3)       /* ellipsoidid */
          {
            /* retreive ellipsoid name*/
            buffer2=g_strdup_printf("SELECT DISTINCT name FROM f_ellipsoid WHERE ellipsoidid=%s",buffer);
            qryResult2 = PQexec(conn,buffer2);
            g_free(buffer2);
            nbtuples2 = PQntuples(qryResult2);
            if (nbtuples2!=0)
            {   
              col[j]=g_strdup(PQgetvalue(qryResult2,0,0));
            } else
            {
              col[j]=g_strdup("NONE");
            }
            PQclear(qryResult2);
          } else
          {
            col[j]=g_strdup(buffer);
          }
        }
        gtk_clist_append(clist,col);
        for(j=0;j<12;j++)
        {
           g_free(col[j]);;
        }       
        i++;
    }
    PQclear(qryResult);
    break;

  case 1:       /* ellipsoid */
    buffer=g_strdup("SELECT DISTINCT * FROM f_ellipsoid");
    qryResult = PQexec(conn,buffer);
    g_free(buffer);

    nbtuples = PQntuples(qryResult);
    i=0;
    while(i<nbtuples)
    {
          buffer = PQgetvalue(qryResult,i,0);
          col[0]=g_strdup(buffer);
          buffer = PQgetvalue(qryResult,i,1);
          col[1]=g_strdup(buffer);
          buffer = PQgetvalue(qryResult,i,2);
          col[2]=g_strdup(buffer);
          buffer = PQgetvalue(qryResult,i,3);
          col[3]=g_strdup(buffer);
        gtk_clist_append(GTK_CLIST(clist),col);
      g_free(col[0]);
      g_free(col[1]);
      g_free(col[2]);
      g_free(col[3]);
        i++;
    }

    PQclear(qryResult);
    break;
  case 2:       /* projection */
    buffer=g_strdup("SELECT DISTINCT * FROM f_projection");
    qryResult = PQexec(conn,buffer);
    g_free(buffer);

    nbtuples = PQntuples(qryResult);
    i=0;
    while(i<nbtuples)
    {
      for(j=0;j<=12;j++)
      {
            buffer = PQgetvalue(qryResult,i,j);
        if(j==2)
        {
          switch(atoi(buffer))
          {
          case 0:
            col[j]=g_strdup("NONE");
            break;
          case 1:
            col[j]=g_strdup("Longitude/Latitude");
            break;
          case 2:
            col[j]=g_strdup("Mercator");
            break;
          }
        } else
        {
            col[j]=g_strdup(buffer);
              }
      }
      gtk_clist_append(GTK_CLIST(clist),col);
          for(j=0;j<=12;j++)
          {
        g_free(col[j]);
      }
        i++;
    }

    PQclear(qryResult);
    break;
  }
}

---