00001 #include "gis.h"
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
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 }