gambas-source-code/main/gbc/gbc_compile.c

489 lines
8.7 KiB
C
Raw Normal View History

/***************************************************************************
gbc_compile.c
(c) 2000-2012 Benoît Minisini <gambas@users.sourceforge.net>
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
the Free Software Foundation; either version 2, or (at your option)
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., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
***************************************************************************/
#define __GBC_COMPILE_C
#include "config.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <fcntl.h>
#include <sys/types.h>
#include <dirent.h>
#include <pwd.h>
#include <unistd.h>
#include "gb_common.h"
#include "gb_error.h"
#include "gb_str.h"
#include "gb_file.h"
#include "gb_component.h"
#include "gbc_compile.h"
#include "gb_reserved.h"
#include "gbc_read.h"
#include "gbc_trans.h"
#include "gbc_header.h"
#include "gb_code.h"
#include "gbc_output.h"
#include "gbc_form.h"
#include "gbc_chown.h"
#include "gb_arch.h"
/*#define DEBUG*/
char *COMP_root = NULL;
char *COMP_project;
char *COMP_project_name;
char *COMP_info_path;
static char *COMP_classes = NULL;
COMPILE COMP_current;
const FORM_FAMILY COMP_form_families[] =
{
{ "form", FORM_NORMAL },
{ "report", FORM_NORMAL },
{ "webpage", FORM_WEBPAGE },
{ NULL }
};
static bool read_line(FILE *f, char *dir, int max)
{
char *p;
int c;
p = dir;
for(;;)
{
max--;
c = fgetc(f);
if (c == EOF)
return TRUE;
if (c == '\n' || max == 0)
{
*p = 0;
return FALSE;
}
*p++ = (char)c;
}
}
static void add_memory_list(char *p, int size)
{
char *pe = p + size;
char *p2;
int len;
for(;;)
{
if (p >= pe)
break;
p2 = p;
while (p2 < pe && *p2 != '\n')
p2++;
if (p2 >= pe)
break;
len = p2 - p;
if (len > 2 && p[len - 1] == '?')
len--;
COMPILE_add_class(p, len);
p = p2 + 1;
}
}
static void add_file_list(FILE *fi)
{
char line[256];
int len;
for(;;)
{
if (read_line(fi, line, sizeof(line)))
break;
len = strlen(line);
if (len > 2 && line[len - 1] == '?')
len--;
COMPILE_add_class(line, len);
}
}
static void add_library_list_file(const char *path)
{
ARCH *arch;
ARCH_FIND find;
if (FILE_exist(path))
{
arch = ARCH_open(path);
if (!ARCH_find(arch, ".list", 0, &find))
add_memory_list(&arch->addr[find.pos], find.len);
ARCH_close(arch);
}
}
static void add_component_list_file(char *name)
{
char *path;
FILE *fi;
path = (char *)FILE_cat(COMP_info_path, name, NULL);
strcat(path, ".list");
fi = fopen(path, "r");
if (!fi)
{
// Do not raise an error if a component self-reference is not found
if (strcmp(name, COMP_project_name))
//fprintf(stderr, "warning: cannot read component list file: %s.list\n", name);
THROW("Component not found: &1", name);
return;
}
add_file_list(fi);
fclose(fi);
}
[DEVELOPMENT ENVIRONMENT] * NEW: Some little fixes in the hall of fame animations. * BUG: Fix the layout of the property sheet text edit dialog. * NEW: A new highlighting theme, named 'Quick'. * NEW: The '(Scaled)' virtual property has been renamed as 'Scaled'. * BUG: Fix the "quit" icon in the quit dialog. * BUG: Correctly raise an error when making an executable fails for any reason. * BUG: Extract the property help better. [WIKI CGI SCRIPT] * BUG: Auto link now really makes one identical link between two titles. [INTERPRETER] * OPT: Optimization of additions of small integers. * BUG: INC and DEC now toggle boolean values. * NEW: Use the new '.startup' file to run a project. The old '.project' file can be used for older projects. But its support will be removed in the final version. [COMPILER] * NEW: A '.startup' file is now created at each compilation. It contains an extract of the '.project' file with just what the interpreter needs to run the application. [GB.GTK] * BUG: Void items are correctly handled by ComboBox without crashing now. [GB.EVAL] * BUG: Quoted symbols, i.e. symbols between braces, are now correctly colorized by using the identifier colors. [GB.FORM] * BUG: Removed the useless Tag property from the DatePicker control. * BUG: Fix the height of the DateChooser toolbar. * NEW: Wizard.ShowIndex is a new property that makes the wizard control automatically display the index of the current step. This index takes into account if some steps are disabled. [GB.FORM.DIALOG] * NEW: Dialog.SelectDate() is a new method that allows the user to select a date in a dialog box having a date chooser. [GB.QT] * BUG: You can now resize a non resizable window without having to change its Border property first. [GB.QT.EXT] * BUG: Editor correctly goes to the end of file when pressing CTRL+END. Consequently, SelectAll() works correctly too now. * NEW: Comments just before a procedure are now never folded. git-svn-id: svn://localhost/gambas/trunk@1317 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-04-17 12:18:25 +02:00
static void startup_print(FILE *fs, const char *key, const char *def)
{
FILE *fp;
char line[256];
int len = strlen(key);
bool print = FALSE;
[DEVELOPMENT ENVIRONMENT] * NEW: Some little fixes in the hall of fame animations. * BUG: Fix the layout of the property sheet text edit dialog. * NEW: A new highlighting theme, named 'Quick'. * NEW: The '(Scaled)' virtual property has been renamed as 'Scaled'. * BUG: Fix the "quit" icon in the quit dialog. * BUG: Correctly raise an error when making an executable fails for any reason. * BUG: Extract the property help better. [WIKI CGI SCRIPT] * BUG: Auto link now really makes one identical link between two titles. [INTERPRETER] * OPT: Optimization of additions of small integers. * BUG: INC and DEC now toggle boolean values. * NEW: Use the new '.startup' file to run a project. The old '.project' file can be used for older projects. But its support will be removed in the final version. [COMPILER] * NEW: A '.startup' file is now created at each compilation. It contains an extract of the '.project' file with just what the interpreter needs to run the application. [GB.GTK] * BUG: Void items are correctly handled by ComboBox without crashing now. [GB.EVAL] * BUG: Quoted symbols, i.e. symbols between braces, are now correctly colorized by using the identifier colors. [GB.FORM] * BUG: Removed the useless Tag property from the DatePicker control. * BUG: Fix the height of the DateChooser toolbar. * NEW: Wizard.ShowIndex is a new property that makes the wizard control automatically display the index of the current step. This index takes into account if some steps are disabled. [GB.FORM.DIALOG] * NEW: Dialog.SelectDate() is a new method that allows the user to select a date in a dialog box having a date chooser. [GB.QT] * BUG: You can now resize a non resizable window without having to change its Border property first. [GB.QT.EXT] * BUG: Editor correctly goes to the end of file when pressing CTRL+END. Consequently, SelectAll() works correctly too now. * NEW: Comments just before a procedure are now never folded. git-svn-id: svn://localhost/gambas/trunk@1317 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-04-17 12:18:25 +02:00
fp = fopen(COMP_project, "r");
if (!fp)
return;
for(;;)
{
if (read_line(fp, line, sizeof(line)))
break;
if (strncmp(line, key, len) == 0)
{
fprintf(fs, "%s\n", &line[len]);
print = TRUE;
}
}
fclose(fp);
if (!print && def)
fprintf(fs, "%s\n", def);
[DEVELOPMENT ENVIRONMENT] * NEW: Some little fixes in the hall of fame animations. * BUG: Fix the layout of the property sheet text edit dialog. * NEW: A new highlighting theme, named 'Quick'. * NEW: The '(Scaled)' virtual property has been renamed as 'Scaled'. * BUG: Fix the "quit" icon in the quit dialog. * BUG: Correctly raise an error when making an executable fails for any reason. * BUG: Extract the property help better. [WIKI CGI SCRIPT] * BUG: Auto link now really makes one identical link between two titles. [INTERPRETER] * OPT: Optimization of additions of small integers. * BUG: INC and DEC now toggle boolean values. * NEW: Use the new '.startup' file to run a project. The old '.project' file can be used for older projects. But its support will be removed in the final version. [COMPILER] * NEW: A '.startup' file is now created at each compilation. It contains an extract of the '.project' file with just what the interpreter needs to run the application. [GB.GTK] * BUG: Void items are correctly handled by ComboBox without crashing now. [GB.EVAL] * BUG: Quoted symbols, i.e. symbols between braces, are now correctly colorized by using the identifier colors. [GB.FORM] * BUG: Removed the useless Tag property from the DatePicker control. * BUG: Fix the height of the DateChooser toolbar. * NEW: Wizard.ShowIndex is a new property that makes the wizard control automatically display the index of the current step. This index takes into account if some steps are disabled. [GB.FORM.DIALOG] * NEW: Dialog.SelectDate() is a new method that allows the user to select a date in a dialog box having a date chooser. [GB.QT] * BUG: You can now resize a non resizable window without having to change its Border property first. [GB.QT.EXT] * BUG: Editor correctly goes to the end of file when pressing CTRL+END. Consequently, SelectAll() works correctly too now. * NEW: Comments just before a procedure are now never folded. git-svn-id: svn://localhost/gambas/trunk@1317 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-04-17 12:18:25 +02:00
}
void COMPILE_init(void)
{
const char *root;
FILE *fp;
char line[256];
//DIR *dir;
//struct dirent *dirent;
const char *name;
//struct passwd *info;
FILE *fs;
RESERVED_init();
if (COMP_root)
root = COMP_root;
else
root = FILE_get_dir(FILE_get_dir(FILE_find_gambas()));
// Component directory
COMP_info_path = STR_copy(FILE_cat(root, "share/gambas" GAMBAS_VERSION_STRING "/info", NULL));
// Project name
COMP_project_name = STR_copy(FILE_get_name(FILE_get_dir(COMP_project)));
// Project classes
BUFFER_create(&COMP_classes);
add_component_list_file("gb");
fp = fopen(COMP_project, "r");
if (!fp)
THROW(E_OPEN, COMP_project);
for(;;)
{
if (read_line(fp, line, sizeof(line)))
break;
/*printf("%s\n", line);*/
if (strncmp(line, "Component=", 10) == 0)
add_component_list_file(&line[10]);
else if (strncmp(line, "Library=", 8) == 0)
add_library_list_file(&line[8]);
}
fclose(fp);
name = FILE_cat(FILE_get_dir(COMP_project), ".startup", NULL);
fs = fopen(name, "w");
if (!fs)
THROW("Cannot create .startup file");
[DEVELOPMENT ENVIRONMENT] * NEW: Some little fixes in the hall of fame animations. * BUG: Fix the layout of the property sheet text edit dialog. * NEW: A new highlighting theme, named 'Quick'. * NEW: The '(Scaled)' virtual property has been renamed as 'Scaled'. * BUG: Fix the "quit" icon in the quit dialog. * BUG: Correctly raise an error when making an executable fails for any reason. * BUG: Extract the property help better. [WIKI CGI SCRIPT] * BUG: Auto link now really makes one identical link between two titles. [INTERPRETER] * OPT: Optimization of additions of small integers. * BUG: INC and DEC now toggle boolean values. * NEW: Use the new '.startup' file to run a project. The old '.project' file can be used for older projects. But its support will be removed in the final version. [COMPILER] * NEW: A '.startup' file is now created at each compilation. It contains an extract of the '.project' file with just what the interpreter needs to run the application. [GB.GTK] * BUG: Void items are correctly handled by ComboBox without crashing now. [GB.EVAL] * BUG: Quoted symbols, i.e. symbols between braces, are now correctly colorized by using the identifier colors. [GB.FORM] * BUG: Removed the useless Tag property from the DatePicker control. * BUG: Fix the height of the DateChooser toolbar. * NEW: Wizard.ShowIndex is a new property that makes the wizard control automatically display the index of the current step. This index takes into account if some steps are disabled. [GB.FORM.DIALOG] * NEW: Dialog.SelectDate() is a new method that allows the user to select a date in a dialog box having a date chooser. [GB.QT] * BUG: You can now resize a non resizable window without having to change its Border property first. [GB.QT.EXT] * BUG: Editor correctly goes to the end of file when pressing CTRL+END. Consequently, SelectAll() works correctly too now. * NEW: Comments just before a procedure are now never folded. git-svn-id: svn://localhost/gambas/trunk@1317 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-04-17 12:18:25 +02:00
startup_print(fs, "Startup=", "");
startup_print(fs, "Title=", "");
startup_print(fs, "Stack=", "0");
startup_print(fs, "StackTrace=", "0");
startup_print(fs, "Version=", "");
fputc('\n', fs);
startup_print(fs, "Component=", NULL);
startup_print(fs, "Library=", NULL);
[DEVELOPMENT ENVIRONMENT] * NEW: Some little fixes in the hall of fame animations. * BUG: Fix the layout of the property sheet text edit dialog. * NEW: A new highlighting theme, named 'Quick'. * NEW: The '(Scaled)' virtual property has been renamed as 'Scaled'. * BUG: Fix the "quit" icon in the quit dialog. * BUG: Correctly raise an error when making an executable fails for any reason. * BUG: Extract the property help better. [WIKI CGI SCRIPT] * BUG: Auto link now really makes one identical link between two titles. [INTERPRETER] * OPT: Optimization of additions of small integers. * BUG: INC and DEC now toggle boolean values. * NEW: Use the new '.startup' file to run a project. The old '.project' file can be used for older projects. But its support will be removed in the final version. [COMPILER] * NEW: A '.startup' file is now created at each compilation. It contains an extract of the '.project' file with just what the interpreter needs to run the application. [GB.GTK] * BUG: Void items are correctly handled by ComboBox without crashing now. [GB.EVAL] * BUG: Quoted symbols, i.e. symbols between braces, are now correctly colorized by using the identifier colors. [GB.FORM] * BUG: Removed the useless Tag property from the DatePicker control. * BUG: Fix the height of the DateChooser toolbar. * NEW: Wizard.ShowIndex is a new property that makes the wizard control automatically display the index of the current step. This index takes into account if some steps are disabled. [GB.FORM.DIALOG] * NEW: Dialog.SelectDate() is a new method that allows the user to select a date in a dialog box having a date chooser. [GB.QT] * BUG: You can now resize a non resizable window without having to change its Border property first. [GB.QT.EXT] * BUG: Editor correctly goes to the end of file when pressing CTRL+END. Consequently, SelectAll() works correctly too now. * NEW: Comments just before a procedure are now never folded. git-svn-id: svn://localhost/gambas/trunk@1317 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-04-17 12:18:25 +02:00
fputc('\n', fs);
if (fclose(fs))
THROW("Cannot create .startup file");
FILE_set_owner(name, COMP_project);
[DEVELOPMENT ENVIRONMENT] * NEW: Some little fixes in the hall of fame animations. * BUG: Fix the layout of the property sheet text edit dialog. * NEW: A new highlighting theme, named 'Quick'. * NEW: The '(Scaled)' virtual property has been renamed as 'Scaled'. * BUG: Fix the "quit" icon in the quit dialog. * BUG: Correctly raise an error when making an executable fails for any reason. * BUG: Extract the property help better. [WIKI CGI SCRIPT] * BUG: Auto link now really makes one identical link between two titles. [INTERPRETER] * OPT: Optimization of additions of small integers. * BUG: INC and DEC now toggle boolean values. * NEW: Use the new '.startup' file to run a project. The old '.project' file can be used for older projects. But its support will be removed in the final version. [COMPILER] * NEW: A '.startup' file is now created at each compilation. It contains an extract of the '.project' file with just what the interpreter needs to run the application. [GB.GTK] * BUG: Void items are correctly handled by ComboBox without crashing now. [GB.EVAL] * BUG: Quoted symbols, i.e. symbols between braces, are now correctly colorized by using the identifier colors. [GB.FORM] * BUG: Removed the useless Tag property from the DatePicker control. * BUG: Fix the height of the DateChooser toolbar. * NEW: Wizard.ShowIndex is a new property that makes the wizard control automatically display the index of the current step. This index takes into account if some steps are disabled. [GB.FORM.DIALOG] * NEW: Dialog.SelectDate() is a new method that allows the user to select a date in a dialog box having a date chooser. [GB.QT] * BUG: You can now resize a non resizable window without having to change its Border property first. [GB.QT.EXT] * BUG: Editor correctly goes to the end of file when pressing CTRL+END. Consequently, SelectAll() works correctly too now. * NEW: Comments just before a procedure are now never folded. git-svn-id: svn://localhost/gambas/trunk@1317 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-04-17 12:18:25 +02:00
// Adds a separator to make the difference between classes from components
// (they must be searched in the global symbol table) and classes from the
// project (they must be searched in the project symbol table)
COMPILE_add_class("-", 1);
/*
dir = opendir(FILE_get_dir(COMP_project));
if (dir)
{
while ((dirent = readdir(dir)) != NULL)
{
name = dirent->d_name;
if (*name == '.')
continue;
if ((strcasecmp(FILE_get_ext(name), "module") == 0)
|| (strcasecmp(FILE_get_ext(name), "class") == 0))
{
name = FILE_get_basename(name);
BUFFER_add(&COMP_classes, name, strlen(name));
BUFFER_add(&COMP_classes, "\n", 1);
}
}
closedir(dir);
}
BUFFER_add(&COMP_classes, "\n", 1);
*/
}
void COMPILE_begin(const char *file, bool trans, bool debug)
{
struct stat info;
off_t size;
CLEAR(JOB);
JOB->name = STR_copy(file);
JOB->debug = debug;
JOB->form = FORM_get_file_family(JOB->name, &JOB->family);
JOB->output = OUTPUT_get_file(JOB->name);
if (trans)
{
JOB->trans = TRUE;
JOB->tname = OUTPUT_get_trans_file(JOB->name);
}
BUFFER_create(&JOB->source);
CLASS_create(&JOB->class);
JOB->default_library = NO_SYMBOL;
size = 0;
if (stat(JOB->name, &info))
ERROR_warning("cannot stat file: %s", JOB->name);
else
size += info.st_size;
if (JOB->form)
{
if (stat(JOB->form, &info))
ERROR_warning("cannot stat file: %s", JOB->form);
else
size += info.st_size * 2;
}
ALLOC(&JOB->pattern, sizeof(PATTERN) * (16 + size));
JOB->pattern_count = 0;
}
void COMPILE_load(void)
{
if (BUFFER_load_file(&JOB->source, JOB->name))
THROW("Cannot load source file: &1", strerror(errno));
//BUFFER_add(&JOB->source, "\n", 1);
}
void COMPILE_end(void)
{
CLASS_delete(&JOB->class);
BUFFER_delete(&JOB->source);
FREE(&JOB->pattern);
if (JOB->help)
ARRAY_delete(&JOB->help);
STR_free(JOB->name);
STR_free(JOB->form);
STR_free(JOB->output);
if (JOB->trans)
STR_free(JOB->tname);
if (JOB->help)
STR_free(JOB->hname);
}
void COMPILE_exit(void)
{
RESERVED_exit();
BUFFER_delete(&COMP_classes);
STR_free(COMP_project_name);
STR_free(COMP_project);
STR_free(COMP_info_path);
STR_free(COMP_root);
}
void COMPILE_add_class(const char *name, int len)
{
unsigned char clen = len;
if (clen != len)
ERROR_panic("Class name is too long");
BUFFER_add(&COMP_classes, &clen, 1);
BUFFER_add(&COMP_classes, name, len);
}
void COMPILE_end_class(void)
{
unsigned char clen = 0;
BUFFER_add(&COMP_classes, &clen, 1);
}
void COMPILE_enum_class(char **name, int *len)
{
char *p = *name;
if (!p)
p = COMP_classes;
else
p += p[-1];
*len = *p;
*name = p + 1;
}
void COMPILE_print(int type, int line, const char *msg, ...)
{
int i;
va_list args;
const char *arg[4];
bool col;
if (!JOB->warnings && type == MSG_WARNING)
return;
va_start(args, msg);
if (line < 0)
{
line = JOB->line;
col = JOB->column;
}
else
col = FALSE;
if (JOB->name)
{
const char *name = FILE_get_name(JOB->name);
if (line)
{
if (line > JOB->max_line && JOB->form)
{
name = FILE_get_name(JOB->form);
fprintf(stderr, "%s:%d: ", name, line - FORM_FIRST_LINE + 1);
}
else
{
if (col)
fprintf(stderr, "%s:%d:%d: ", name, line, READ_get_column());
else
fprintf(stderr, "%s:%d: ", name, line);
}
}
else
fprintf(stderr, "%s: ", name);
}
else
fprintf(stderr, "gbc: ");
fprintf(stderr, "%s: ", type ? "warning" : "error");
if (msg)
{
for (i = 0; i < 4; i++)
arg[i] = va_arg(args, const char *);
ERROR_define(msg, arg);
fputs(ERROR_info.msg, stderr);
putc('\n', stderr);
}
va_end(args);
}