geda/graphman/filetool.c

   1 /* $Id$ */
   2
   3 /*******************************************************************************/
   4 /*                                                                             */
   5 /* gEDA Suite Project Manager                                                  */
   6 /*                                                                             */
   7 /* Copyright (C) 2002 Piotr Miarecki, sp9rve@eter.ariadna.pl                   */
   8 /*                                                                             */
   9 /* This program is free software; you can redistribute it and/or               */
  10 /* modify it under the terms of the GNU General Public License                 */
  11 /* as published by the Free Software Foundation version 2.                     */
  12 /*                                                                             */
  13 /* This program is distributed in the hope that it will be useful,             */
  14 /* but WITHOUT ANY WARRANTY; without even the implied warranty of              */
  15 /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               */
  16 /* GNU General Public License for more details.                                */
  17 /*                                                                             */
  18 /* You should have received a copy of the GNU General Public License           */
  19 /* along with this program; if not, write to the Free Software                 */
  20 /* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. */
  21 /*                                                                             */
  22 /*******************************************************************************/
  23
  24 #ifdef HAVE_CONFIG_H
  25 #include "config.h"
  26 #endif
  27
  28 #define GTK_ENABLE_BROKEN
  29 #include <gtk/gtk.h>
  30 #include <stdio.h>
  31
  32 #ifdef HAVE_STRING_H
  33 #include <string.h>
  34 #endif
  35
  36 #include <sys/types.h>
  37 #include <sys/wait.h>
  38
  39 #ifdef HAVE_UNISTD_H
  40 #include <unistd.h>
  41 #endif
  42
  43 #include "filetool.h"
  44 #include "global.h"
  45 #include "support.h"
  46
  47
  48
  49 /* PID of last thread created by FileExec() */
  50 static pid_t Pid = -1;
  51
  52
  53
  54 /*
  55         check if file exists
  56 */
  57
  58 int FileIsExisting(const char *szFileName)
  59 {
  60         FILE *fp;
  61
  62         fp = fopen(szFileName, "r");
  63         if (fp == NULL)
  64                 return FAILURE;
  65
  66         fclose(fp);
  67
  68         return SUCCESS;
  69 }
  70
  71
  72
  73 /*
  74         copy file
  75 */
  76
  77 int FileCopy(const char *szSource, const char *szDest)
  78 {
  79         FILE *Source, *Dest;
  80
  81         Source = fopen(szSource, "r");
  82         if (Source == NULL)
  83         {
  84                 /* TODO: error handling */
  85                 return FAILURE;
  86         }
  87
  88         Dest = fopen(szDest, "w");
  89         if (Dest == NULL)
  90         {
  91                 /* TODO: error handling */
  92                 return FAILURE;
  93         }
  94
  95         while (!feof(Source))
  96                 fputc(fgetc(Source), Dest);
  97
  98         fclose(Dest);
  99         fclose(Source);
 100
 101         return SUCCESS;
 102 }
 103
 104
 105
 106 /*
 107         get file name, extension and directory from full path
 108 */
 109
 110 char *FileGetName(const char *szFilename)
 111 {
 112         static char szName[TEXTLEN];
 113         int i, j;
 114
 115         /* extract only filename with extension */
 116         for (i = strlen(szFilename) - 1; i >= 0 && szFilename[i] != G_DIR_SEPARATOR; i --)
 117                 ;
 118         if (i < 0)
 119                 i = 0;
 120         if (szFilename[i] == G_DIR_SEPARATOR)
 121                 i ++;
 122         if (i > strlen(szFilename) - 1)
 123                 i = strlen(szFilename) - 1;
 124         strcpy(szName, szFilename + i);
 125
 126         /* remove extension */
 127         for (j = strlen(szName) - 1; j >= 0 && szName[j] != '.'; j --)
 128                 ;
 129         if (j >= 0)
 130                 szName[j] = 0;
 131
 132         return szName;
 133 }
 134
 135
 136 char *FileGetExt(const char *szFilename)
 137 {
 138         static char szExt[TEXTLEN];
 139         int i;
 140
 141         szExt[0] = 0;
 142         for (i = strlen(szFilename) - 1; i >= 0 && szFilename[i] != '/' && szFilename[i] != '.'; i --)
 143                 ;
 144         if (szFilename[i] == '.')
 145         {
 146                 if (strlen(szFilename + i + 1) < TEXTLEN)
 147                         strcpy(szExt, szFilename + i + 1);
 148         }
 149
 150         return szExt;
 151 }
 152
 153
 154 char *FileGetDir(const char *szFilename)
 155 {
 156         static char szDir[TEXTLEN];
 157         int i;
 158
 159         strncpy(szDir, szFilename, TEXTLEN - 1);
 160         for (i = strlen(szDir) - 1; i >= 0 && szDir[i] != '/'; i --)
 161                 ;
 162         if (szDir[i] == '/' && i < TEXTLEN)
 163                 szDir[i] = 0;
 164         else
 165                 szDir[0] = 0;
 166
 167         return szDir;
 168 }
 169
 170
 171
 172
 173 char *FileGetRel(const char *szFilename)
 174 {
 175         int i, j, k;
 176         static char szRel[TEXTLEN];
 177         char szDirectory[TEXTLEN], *pResult;
 178
 179         /* get current directory */
 180         pResult = getcwd(szDirectory, TEXTLEN - 1);
 181         if (pResult == NULL)
 182         {
 183                 strcpy(szRel, "");
 184                 return szRel;
 185         }
 186
 187
 188         /* if file name is a relative one */
 189         if (szFilename[0] != '/')
 190         {
 191                 strcpy(szRel, szFilename);
 192         }
 193
 194         /* if the file exists in a subdirectory */
 195         else if (!strncmp(szFilename, szDirectory, strlen(szDirectory)))
 196         {
 197                 strcpy(szRel, szFilename + strlen(szDirectory) + 1);
 198         }
 199
 200         /* if the file exists in a different directory tree */
 201         else
 202         {
 203                 for (i = 0; i < strlen(szFilename); i ++)
 204                         if (strncmp(szFilename, szDirectory, i))
 205                                 break;
 206                 if (i > 0)
 207                         i --;
 208
 209                 for (j = i, k = 1; j < strlen(szDirectory); j ++)
 210                         if (szDirectory[j] == '/')
 211                                 k ++;
 212
 213                 strcpy(szRel, "");
 214                 for (j = 0; j < k; j ++)
 215                         strcat(szRel, "../");
 216                 strcat(szRel, szFilename + i);
 217         }
 218
 219         return szRel;
 220 }
 221
 222
 223
 224 int FileExec(const char *szCommand)
 225 {
 226         GtkText *pText;
 227         FILE *hStdOut, *hStdErr;
 228         char szValue[TEXTLEN], szText[2000];
 229         int iResult, i, j;
 230
 231         /* create a new process to execute external shell commands) */
 232         Pid = fork();
 233         if (Pid < 0)
 234         {
 235                 return FAILURE;
 236         }
 237
 238         /* run the command in the child process */
 239         if (Pid == 0)
 240         {
 241                 Pid = getpid();
 242
 243                 /* redirecting stdout */
 244                 sprintf(szValue, "/%s/%s-stdout-%ld", GM_TMPDIR, GM_TMPNAME, (long) Pid);
 245                 hStdOut = freopen(szValue, "w", stdout);
 246                 if (hStdOut == NULL)
 247                 {
 248                         _exit(0);
 249                 }
 250
 251                 /* redirecting stderr */
 252                 sprintf(szValue, "/%s/%s-stderr-%ld", GM_TMPDIR, GM_TMPNAME, (long) Pid);
 253                 hStdErr = freopen(szValue, "w", stderr);
 254                 if (hStdErr == NULL)
 255                 {
 256                         _exit(0);
 257                 }
 258
 259                 /* execute command */
 260                 execl("/bin/sh", "sh", "-c", szCommand, NULL);
 261
 262                 /* end child process */
 263                 _exit(0);
 264         }
 265
 266         /* wait for death of child in the parent process */
 267         while (waitpid(Pid, NULL, WNOHANG) == 0)
 268         {
 269                 sleep(1);
 270                 while (g_main_iteration(FALSE));
 271         }
 272
 273         /* copy stderr to sterr window */
 274         pText = GTK_TEXT(lookup_widget(GTK_WIDGET(pWindowMain), "StatusText"));
 275         if (pText == NULL)
 276         {
 277                 /* TODO: error handling */
 278         }
 279         else
 280         {
 281                 /* print stderr */
 282                 sprintf(szValue, "/%s/%s-stderr-%ld", GM_TMPDIR, GM_TMPNAME, (long) Pid);
 283                 hStdErr = fopen(szValue, "r");
 284                 if (hStdErr == NULL)
 285                 {
 286                         /* TODO */
 287                 }
 288                 else
 289                 {
 290                         j = 0;
 291                         while (!feof(hStdErr))
 292                         {
 293                                 i = fgetc(hStdErr);
 294                                 if (i < 0)
 295                                         break;
 296
 297                                 szText[j++] = (char) '*';
 298                         }
 299
 300                         szText[j] = 0;
 301                                 gtk_text_set_point(pText, 0);
 302                                 gtk_text_forward_delete(pText, gtk_text_get_length(pText));
 303                                 gtk_text_insert(pText, NULL, NULL, NULL, szText, strlen(szText));
 304                                 gtk_widget_show(GTK_WIDGET(pText));
 305                                 while (g_main_iteration(FALSE));
 306                         fclose(hStdErr);
 307                 }
 308         }
 309
 310         /* remove last stdout file */
 311         sprintf(szValue, "/%s/%s-stdout-%ld", GM_TMPDIR, GM_TMPNAME, (long) Pid);
 312         iResult = remove(szValue);
 313         if (iResult != 0)
 314         {
 315                 /* TODO: error handling */
 316         }
 317
 318         /* remove last stderr file */
 319         sprintf(szValue, "/%s/%s-stderr-%ld", GM_TMPDIR, GM_TMPNAME, (long) Pid);
 320         iResult = remove(szValue);
 321         if (iResult != 0)
 322         {
 323                 /* TODO: error handling */
 324         }
 325
 326         /* TODO: in this manner the function never return failure, fix it */
 327
 328         return SUCCESS;
 329 }
 330
 331