🎉 Added files

raydium/file.c

@@ -0,0 +1,230 @@
+/*
+    Raydium - CQFD Corp.
+    http://raydium.org/
+    License: GPL - GNU General Public License, see "gpl.txt" file.
+*/
+
+#ifndef DONT_INCLUDE_HEADERS
+#include "index.h"
+#else
+#include "headers/file.h"
+#endif 
+
+// proto
+void raydium_path_resolv(char *in, char *out, char mode);
+
+
+// far better than glibc's 'dirname' (and portable)
+void raydium_file_dirname(char *dest,char *from)
+{
+char *c;
+int n;
+
+c=strrchr(from,'/'); // Unix
+if(!c)
+      c=strrchr(from,'\\'); // win32
+
+if(!c)
+    {
+    strcpy(dest,"./");
+    return;
+    }
+n=c-from;
+memcpy(dest,from,n+1);
+dest[n+1]=0;
+}
+
+void raydium_file_basename(char *dest,char *from)
+{
+char *c;
+int n;
+
+c=strrchr(from,'/'); // Unix
+if(!c)
+    c=strrchr(from,'\\'); // win32
+      
+if(!c)
+    {
+    strcpy(dest,from);
+    return;
+    }
+n=(c-from+1);
+
+if(n==strlen(from))
+    {
+    dest[0]=0;
+    return;
+    }
+
+strcpy(dest,from+n);
+}
+
+void raydium_file_ext(char *dest, char *from)
+{
+char name[RAYDIUM_MAX_DIR_LEN];
+char *c;
+
+dest[0]=0;
+
+raydium_file_basename(name,from);
+if( (c=strrchr(name,'.')) )
+    if(c[1]!=0)
+	strcpy(dest,c+1);
+}
+
+
+signed char raydium_file_directory_writable(char *path)
+{
+char file[RAYDIUM_MAX_NAME_LEN];
+FILE *fp;
+
+sprintf(file,"%s/RAYDIUM-WRITE-TEST.delme",path);
+fp=fopen(file,"wb");
+if(!fp)
+    return 0;
+
+fclose(fp);
+unlink(file);
+return 1;
+}
+
+signed char raydium_file_readable(char *filename)
+{
+FILE *fp;
+fp=fopen(filename,"r");
+if(!fp)
+    return 0;
+fclose(fp);
+return 1;
+}
+
+void raydium_file_log_fopen_display(void)
+{
+int i;
+
+raydium_log("List of all opended files:");
+
+for(i=0;i<raydium_file_log_fopen_index;i++)
+    raydium_log("%s",raydium_file_log_fopen[i]);
+
+}
+
+FILE *raydium_file_fopen(char *file, char *mode)
+{
+FILE *fp;
+int i;
+char found=0;
+char file2[RAYDIUM_MAX_DIR_LEN];
+
+if(!file || !strlen(file))
+    return NULL;
+
+for(i=0;i<raydium_file_log_fopen_index;i++)
+    if(!strcmp(raydium_file_log_fopen[i],file))
+	{
+	found=1;
+	break;
+	}
+
+if(!found) strcpy(raydium_file_log_fopen[raydium_file_log_fopen_index++],file);
+
+// use paths
+raydium_path_resolv(file,file2,mode[0]);
+
+// local mode ?
+if(strchr(mode,'l') || raydium_init_cli_option("repository-disable",NULL))
+    {
+    return fopen(file2,mode);
+    }
+
+if(strchr(mode,'w'))
+    {
+    return fopen(file2,mode);
+    }
+
+if( !raydium_init_cli_option("repository-refresh",NULL) && 
+    !raydium_init_cli_option("repository-force",NULL) )
+{
+ fp=fopen(file2,mode);
+ if(fp) return fp;
+}
+raydium_rayphp_repository_file_get(file2);
+fp=fopen(file2,mode);
+
+return fp;
+}
+
+unsigned long raydium_file_sum_simple_mode(char *filename,char *mode)
+{
+unsigned long total=0;
+unsigned long cpt=0;
+int c;
+FILE *fp;
+
+fp=raydium_file_fopen(filename,mode);
+if(!fp)
+    {
+    raydium_log("file simple sum: error: cannot open file '%s'",filename);
+    return 0;
+    }
+
+while( (c=fgetc(fp))!=EOF )
+    {
+    c*=cpt;
+    total+=c;
+    cpt++;
+    }
+
+fclose(fp);
+return total;
+}
+
+unsigned long raydium_file_sum_simple(char *filename)
+{
+return raydium_file_sum_simple_mode(filename,"rb");
+}
+
+char * raydium_file_home_path(char *file)
+{
+static char path[RAYDIUM_MAX_DIR_LEN];
+sprintf(path,"%s/%s",raydium_homedir,file);
+return path;
+}
+
+void raydium_file_home_path_cpy(char *file, char *dest)
+{
+strcpy(dest,raydium_file_home_path(file));
+}
+
+char *raydium_file_load(char *filename)
+{
+int len;
+FILE *fp;
+char *mem;
+
+fp=raydium_file_fopen(filename,"rb");
+if(!fp)
+    return NULL;
+
+fseek(fp,0,SEEK_END);
+len=ftell(fp);
+mem=malloc(len+1);
+if(!mem)
+    {
+    fclose(fp);
+    return NULL;
+    }
+
+mem[len]=0;
+fseek(fp,0,SEEK_SET);
+
+if(fread(mem,len,1,fp)!=1)
+    {
+    fclose(fp);
+    free(mem);
+    return NULL;
+    }
+
+fclose(fp);
+return mem;
+}