2007-12-30 17:41:49 +01:00
|
|
|
/***************************************************************************
|
|
|
|
|
2009-08-17 12:41:51 +02:00
|
|
|
gbc_archive.c
|
2007-12-30 17:41:49 +01:00
|
|
|
|
2009-08-17 12:41:51 +02:00
|
|
|
(c) 2000-2009 Benoît Minisini <gambas@users.sourceforge.net>
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
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
|
2009-08-17 12:41:51 +02:00
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
2007-12-30 17:41:49 +01:00
|
|
|
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 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., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
|
|
|
|
***************************************************************************/
|
|
|
|
|
|
|
|
#define __GBC_ARCHIVE_C
|
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <fcntl.h>
|
|
|
|
#include <errno.h>
|
|
|
|
|
|
|
|
#include <sys/stat.h>
|
|
|
|
#include <sys/types.h>
|
|
|
|
#include <unistd.h>
|
|
|
|
|
|
|
|
#include "gb_common.h"
|
|
|
|
#include "gb_error.h"
|
|
|
|
#include "gb_str.h"
|
|
|
|
#include "gb_file.h"
|
|
|
|
#include "gb_magic.h"
|
|
|
|
#include "gb_common_swap.h"
|
2008-05-11 20:07:16 +02:00
|
|
|
#include "gbc_chown.h"
|
2007-12-30 17:41:49 +01:00
|
|
|
#include "gbc_archive.h"
|
|
|
|
|
|
|
|
/*#define DEBUG*/
|
|
|
|
|
2009-07-08 21:57:50 +02:00
|
|
|
char *ARCH_project;
|
|
|
|
char *ARCH_project_name;
|
|
|
|
char *ARCH_output = NULL;
|
|
|
|
bool ARCH_verbose = FALSE;
|
|
|
|
bool ARCH_swap = FALSE;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
static int arch_dir_pos;
|
|
|
|
static TABLE *arch_table;
|
|
|
|
static FILE *arch_file = NULL;
|
|
|
|
static char *arch_buffer;
|
|
|
|
|
|
|
|
static int pos_start;
|
|
|
|
|
2008-01-06 19:49:23 +01:00
|
|
|
static void write_int(uint val)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
if (ARCH_swap)
|
2008-01-05 15:07:21 +01:00
|
|
|
SWAP_int((int *)&val);
|
2007-12-30 17:41:49 +01:00
|
|
|
if (fwrite(&val, sizeof(uint), 1, arch_file) < 1)
|
|
|
|
THROW("Write error");
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void write_short(ushort val)
|
|
|
|
{
|
|
|
|
if (ARCH_swap)
|
|
|
|
SWAP_short((short *)&val);
|
|
|
|
if (fwrite(&val, sizeof(ushort), 1, arch_file) < 1)
|
|
|
|
THROW("Write error");
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static int get_pos(void)
|
|
|
|
{
|
|
|
|
return ftell(arch_file);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2008-01-06 19:49:23 +01:00
|
|
|
static void write_int_at(int pos, uint val)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
int old_pos = get_pos();
|
|
|
|
|
|
|
|
fseek(arch_file, pos, SEEK_SET);
|
2008-01-06 19:49:23 +01:00
|
|
|
write_int(val);
|
2007-12-30 17:41:49 +01:00
|
|
|
fseek(arch_file, old_pos, SEEK_SET);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void write_string(const char *str, int len)
|
|
|
|
{
|
|
|
|
if (fwrite(str, sizeof(char), len, arch_file) < len)
|
|
|
|
THROW("Write error");
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void make_executable(void)
|
|
|
|
{
|
|
|
|
struct stat info;
|
|
|
|
|
|
|
|
if (stat(ARCH_output, &info) == 0)
|
|
|
|
if (chmod(ARCH_output, info.st_mode | S_IXUSR | S_IXGRP | S_IXOTH) == 0)
|
2008-05-11 20:07:16 +02:00
|
|
|
{
|
|
|
|
FILE_set_owner(ARCH_output, FILE_cat(FILE_get_dir(ARCH_project), ".project", NULL));
|
2007-12-30 17:41:49 +01:00
|
|
|
return;
|
2008-05-11 20:07:16 +02:00
|
|
|
}
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
THROW("Cannot make executable: &1", strerror(errno));
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2009-07-08 21:57:50 +02:00
|
|
|
void ARCH_define_output(const char *path)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
STR_free(ARCH_output);
|
|
|
|
ARCH_output = STR_copy(path);
|
|
|
|
}
|
|
|
|
|
2009-07-08 21:57:50 +02:00
|
|
|
void ARCH_define_project(const char *project)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
char *name;
|
|
|
|
char *dir;
|
2008-04-17 12:18:25 +02:00
|
|
|
const char *path;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
if (project == NULL)
|
|
|
|
project = FILE_get_current_dir();
|
|
|
|
|
|
|
|
chdir(project);
|
|
|
|
dir = STR_copy(FILE_get_current_dir());
|
|
|
|
|
|
|
|
arch_dir_pos = strlen(dir) + 1;
|
|
|
|
|
2008-04-17 12:18:25 +02:00
|
|
|
path = FILE_cat(dir, ".startup", NULL);
|
|
|
|
if (FILE_exist(path))
|
|
|
|
ARCH_project = STR_copy(path);
|
|
|
|
else
|
|
|
|
ARCH_project = STR_copy(FILE_cat(dir, ".project", NULL));
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
name = STR_copy(FILE_get_name(dir));
|
|
|
|
|
|
|
|
/*ARCH_project_name = STR_copy(FILE_set_ext(name, NULL));*/
|
|
|
|
ARCH_project_name = STR_copy(name);
|
|
|
|
|
|
|
|
if (!ARCH_output)
|
2008-02-19 00:07:24 +01:00
|
|
|
ARCH_define_output(strcat((char *)FILE_cat(dir, ARCH_project_name, NULL), ".gambas"));
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
STR_free(name);
|
|
|
|
STR_free(dir);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2009-07-08 21:57:50 +02:00
|
|
|
void ARCH_init(void)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
TABLE_create(&arch_table, sizeof(ARCH_SYMBOL), TF_NORMAL);
|
|
|
|
|
|
|
|
ALLOC(&arch_buffer, 4096, "ARCH_init");
|
|
|
|
|
|
|
|
arch_file = fopen(ARCH_output, "w");
|
|
|
|
if (arch_file == NULL)
|
|
|
|
THROW("Cannot create temporary archive file: &1", ARCH_output);
|
|
|
|
|
|
|
|
fputs("#! /usr/bin/env gbr" GAMBAS_VERSION_STRING "\n", arch_file);
|
|
|
|
|
|
|
|
while (get_pos() < 31)
|
|
|
|
fprintf(arch_file, " ");
|
|
|
|
fprintf(arch_file, "\n");
|
|
|
|
|
2008-01-06 19:49:23 +01:00
|
|
|
write_int(ARCH_MAGIC);
|
|
|
|
write_int(ARCH_VERSION);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
if (ARCH_verbose)
|
|
|
|
printf("Format version: %d\n", ARCH_VERSION);
|
|
|
|
|
|
|
|
pos_start = get_pos();
|
2008-01-06 19:49:23 +01:00
|
|
|
write_int(0);
|
|
|
|
write_int(0);
|
|
|
|
write_int(0);
|
|
|
|
write_int(0);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
2008-01-06 19:49:23 +01:00
|
|
|
write_int_at(pos_start, get_pos());
|
2007-12-30 17:41:49 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#if ARCH_VERSION == 2
|
|
|
|
static void compress_file_name(const char *src, int lsrc, char **dst, int *ldst)
|
|
|
|
{
|
|
|
|
char *p;
|
|
|
|
char tpath[MAX_PATH];
|
|
|
|
char tpath2[MAX_PATH];
|
|
|
|
int len;
|
|
|
|
int ind;
|
|
|
|
ARCH_SYMBOL *sym;
|
|
|
|
|
|
|
|
strncpy(tpath, src, lsrc);
|
|
|
|
tpath[lsrc] = 0;
|
|
|
|
len = lsrc;
|
|
|
|
|
|
|
|
if (ARCH_verbose)
|
|
|
|
printf("%s", tpath);
|
|
|
|
|
|
|
|
for(;;)
|
|
|
|
{
|
|
|
|
p = index(tpath + 1, '/');
|
|
|
|
if (!p)
|
|
|
|
break;
|
|
|
|
|
|
|
|
if (!TABLE_find_symbol(arch_table, tpath, p - tpath, (SYMBOL **)(void *)&sym, &ind))
|
|
|
|
{
|
|
|
|
*p = 0;
|
|
|
|
THROW("&1: not in archive!\n", tpath);
|
|
|
|
}
|
|
|
|
|
2008-01-06 21:06:44 +01:00
|
|
|
len = snprintf(tpath2, sizeof(tpath2), "/%d:%s", ind, p + 1);
|
2008-02-19 00:07:24 +01:00
|
|
|
strcpy(tpath, tpath2);
|
2007-12-30 17:41:49 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
if (ARCH_verbose)
|
|
|
|
printf(" -> %s\n", tpath);
|
|
|
|
|
|
|
|
*dst = tpath;
|
|
|
|
*ldst = len;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
2009-07-08 21:57:50 +02:00
|
|
|
void ARCH_exit(void)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
int i;
|
|
|
|
ARCH_SYMBOL *sym;
|
|
|
|
int pos_str;
|
|
|
|
|
|
|
|
/* Write strings */
|
|
|
|
|
2008-01-06 19:49:23 +01:00
|
|
|
write_int_at(pos_start + sizeof(int), get_pos());
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
pos_str = 0;
|
|
|
|
|
|
|
|
for (i = 0; i < TABLE_count(arch_table); i++)
|
|
|
|
{
|
|
|
|
sym = (ARCH_SYMBOL *)TABLE_get_symbol(arch_table, i);
|
|
|
|
write_string(sym->symbol.name, sym->symbol.len);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Write file names */
|
|
|
|
|
2008-01-06 19:49:23 +01:00
|
|
|
write_int_at(pos_start + sizeof(int) * 2, get_pos());
|
2007-12-30 17:41:49 +01:00
|
|
|
|
2008-01-06 19:49:23 +01:00
|
|
|
write_int_at(pos_start + sizeof(int) * 3, TABLE_count(arch_table));
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
for (i = 0; i < TABLE_count(arch_table); i++)
|
|
|
|
{
|
|
|
|
sym = (ARCH_SYMBOL *)TABLE_get_symbol(arch_table, i);
|
|
|
|
//write_short((ushort)i);
|
|
|
|
write_short(sym->symbol.sort);
|
|
|
|
write_short(sym->symbol.len);
|
2008-01-06 19:49:23 +01:00
|
|
|
write_int(pos_str);
|
|
|
|
write_int(sym->pos);
|
|
|
|
write_int(sym->len);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
pos_str += sym->symbol.len;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Close file */
|
|
|
|
|
|
|
|
fclose(arch_file);
|
|
|
|
|
|
|
|
make_executable();
|
|
|
|
|
|
|
|
/* Free everything */
|
|
|
|
|
|
|
|
for (i = 0; i < TABLE_count(arch_table); i++)
|
|
|
|
STR_free(TABLE_get_symbol(arch_table, i)->name);
|
|
|
|
|
|
|
|
TABLE_delete(&arch_table);
|
|
|
|
|
|
|
|
STR_free(ARCH_output);
|
|
|
|
STR_free(ARCH_project);
|
|
|
|
STR_free(ARCH_project_name);
|
|
|
|
|
|
|
|
FREE(&arch_buffer, "ARCH_exit");
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2009-07-08 21:57:50 +02:00
|
|
|
int ARCH_add_file(const char *path)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
char *rel_path;
|
|
|
|
ARCH_SYMBOL *sym;
|
|
|
|
FILE *file;
|
|
|
|
struct stat info;
|
|
|
|
int len, len_read;
|
|
|
|
|
|
|
|
int ind;
|
|
|
|
|
|
|
|
#if ARCH_VERSION == 2
|
|
|
|
compress_file_name(&path[arch_dir_pos], strlen(&path[arch_dir_pos]), &rel_path, &len);
|
|
|
|
rel_path = STR_copy(rel_path);
|
|
|
|
#else
|
|
|
|
rel_path = STR_copy(&path[arch_dir_pos]);
|
|
|
|
len = strlen(rel_path);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
TABLE_add_symbol(arch_table, rel_path, len, (SYMBOL **)(void *)&sym, &ind);
|
|
|
|
sym->pos = get_pos();
|
|
|
|
|
|
|
|
file = fopen(path, "r");
|
|
|
|
if (file == NULL)
|
|
|
|
THROW("Cannot open file '&1'", path);
|
|
|
|
|
|
|
|
fstat(fileno(file), &info);
|
|
|
|
|
|
|
|
if (S_ISDIR(info.st_mode))
|
|
|
|
{
|
|
|
|
sym->pos = -1;
|
|
|
|
sym->len = 0;
|
|
|
|
fclose(file);
|
|
|
|
if (ARCH_verbose)
|
|
|
|
printf("Adding directory %s", rel_path);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
sym->len = info.st_size;
|
|
|
|
|
|
|
|
len = sym->len;
|
|
|
|
while (len > 0)
|
|
|
|
{
|
|
|
|
len_read = fread(arch_buffer, 1, sizeof(arch_buffer), file);
|
|
|
|
if (len_read > 0)
|
|
|
|
fwrite(arch_buffer, 1, len_read, arch_file);
|
|
|
|
|
|
|
|
if (len_read < sizeof(arch_buffer))
|
|
|
|
{
|
|
|
|
if (ferror(file))
|
|
|
|
THROW("Cannot read file '&1': &2", path, strerror(errno));
|
|
|
|
else
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
fclose(file);
|
|
|
|
|
|
|
|
if (ARCH_verbose)
|
|
|
|
printf("Adding file %s (%d bytes)", rel_path, sym->len);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (ARCH_verbose)
|
|
|
|
printf(" -> %d\n", ind);
|
|
|
|
|
|
|
|
return ind;
|
|
|
|
}
|