progrm_nme.c

Go to the documentation of this file.
00001 #include "gis.h"
00002 /**********************************************************************
00003  *
00004  *   char *
00005  *   G_program_name()
00006  *
00007  *   returns the current program name
00008  *
00009  **********************************************************************
00010  *
00011  *   G_set_program_name(name)
00012  *        char *name 
00013  *
00014  *   program name set to name (name will be returned by G_program_name
00015  *
00016  **********************************************************************/
00017 #include <string.h>
00018 static char *name = "?" ;
00019 
00020 
00031 char *G_program_name()
00032 {
00033     return name;
00034 }
00035 
00036 int G_set_program_name ( char *s)
00037 {
00038     char *G_store();
00039     int i;
00040 
00041     i = strlen (s);
00042     while (--i >= 0)
00043     {
00044         if (s[i] == '/')
00045         {
00046             s += i+1;
00047             break;
00048         }
00049     }
00050     name = G_store (s);
00051 
00052     return 0;
00053 }

Generated on Mon Jan 1 19:49:25 2007 for GRASS by  doxygen 1.5.1