From a78a58f0f47d0a848ffcd12df9bf8a59619143f9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Sat, 10 Nov 2012 00:28:01 +0000 Subject: [PATCH] [COMPILER] * BUG: As usual, forgot to add the new source files. git-svn-id: svn://localhost/gambas/trunk@5312 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- main/gbc/gbc_help.c | 179 ++++++++++++++++++++++++++++++++++++++++++++ main/gbc/gbc_help.h | 40 ++++++++++ 2 files changed, 219 insertions(+) create mode 100644 main/gbc/gbc_help.c create mode 100644 main/gbc/gbc_help.h diff --git a/main/gbc/gbc_help.c b/main/gbc/gbc_help.c new file mode 100644 index 000000000..a74143da1 --- /dev/null +++ b/main/gbc/gbc_help.c @@ -0,0 +1,179 @@ +/*************************************************************************** + + gbc_help.c + + (c) 2000-2012 Benoît Minisini + + 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_HELP_C + +#include "gb_common.h" +#include "gb_error.h" +#include "gb_file.h" + +#include "gbc_compile.h" +#include "gbc_help.h" + +//#define DEBUG_ME 1 + +static bool get_help_at(int i, const char **help, int *len) +{ + const char *p; + int n = 0; + + if (i < 0 || i >= ARRAY_count(JOB->help)) + return TRUE; + + p = JOB->help[i]; + if (!p) + return TRUE; + + if (HELP_is_void_line(p)) + { + *help = p; + n = 0; + } + else + { + while (*p == '\'') + p++; + if (*p == ' ') + p++; + *help = p; + while (*p++ != '\n') + n++; + } + + *len = n; + return FALSE; +} + +void HELP_add_at_current_line(const char *help) +{ + int count = ARRAY_count(JOB->help); + int new_max; + + if (!count) + { + if (HELP_is_void_line(help)) + return; + + ARRAY_create_inc(&JOB->help, 256); + + JOB->help_first_line = JOB->line; + } + else + { + new_max = JOB->line - JOB->help_first_line; + + if (new_max < count) // Already added! + return; + + if (new_max > count) + ARRAY_add_many_void(&JOB->help, new_max - count); + } + + *ARRAY_add(&JOB->help) = help; + + #if DEBUG_ME + int len; + get_help_at(JOB->line - JOB->help_first_line, &help, &len); + fprintf(stderr, "add help comment: %d %p %d: %.*s\n", JOB->line, help, ARRAY_count(JOB->help), len, help); + #endif +} + +void HELP_search_and_print(FILE *file, int line) +{ + const char *help; + int len, i, ii; + + if (!JOB->help) + return; + + #if DEBUG_ME + fprintf(stderr, "HELP_search_and_print: %s: %d\n", FILE_get_name(JOB->name), line); + #endif + + i = line - JOB->help_first_line; + + if (i < 0) + return; + + if (JOB->help[i]) + { + if (!get_help_at(i, &help, &len)) + { + #if DEBUG_ME + fprintf(stderr, "[%d] '' %.*s\n", line, len, help); + #endif + fprintf(file, "'%.*s\n", len, help); + JOB->help[i] = NULL; + } + } + else + { + ii = i; + i--; + while (i >= 0) + { + if (!JOB->help[i] || HELP_is_for_class(JOB->help[i])) + break; + i--; + } + + for (i++; i < ii; i++) + { + if (HELP_is_void_line(JOB->help[i])) + continue; + + if (get_help_at(i, &help, &len)) + continue; + + #if DEBUG_ME + fprintf(stderr, "{%d} ''%.*s\n", line + i - ii, len, help); + #endif + fprintf(file, "'%.*s\n", len, help); + } + } +} + +void HELP_search_and_print_for_class(FILE *file) +{ + int i; + const char *help; + int len; + + if (!JOB->help) + return; + + for (i = 0; i < ARRAY_count(JOB->help); i++) + { + if (!JOB->help[i] || !HELP_is_for_class(JOB->help[i])) + break; + + if (get_help_at(i, &help, &len)) + break; + + #if DEBUG_ME + fprintf(stderr, "[%d] '''%.*s\n", JOB->help_first_line + i, len, help); + #endif + fprintf(file, "'%.*s\n", len, help); + } +} + diff --git a/main/gbc/gbc_help.h b/main/gbc/gbc_help.h new file mode 100644 index 000000000..a97936c35 --- /dev/null +++ b/main/gbc/gbc_help.h @@ -0,0 +1,40 @@ +/*************************************************************************** + + gbc_help.h + + (c) 2000-2012 Benoît Minisini + + 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. + +***************************************************************************/ + +#ifndef __GBC_HELP_H +#define __GBC_HELP_H + +#include + +#ifndef __GBC_HELP_C +#endif + +void HELP_add_at_current_line(const char *help); +void HELP_search_and_print(FILE *file, int line); +void HELP_search_and_print_for_class(FILE *file); + +#define HELP_is_help_comment(_ptr) ((_ptr)[0] == '\'' && ((_ptr)[1] == ' ' || ((_ptr)[1] == '\'' && (_ptr)[2] == ' '))) +#define HELP_is_for_class(_help) ((_help)[0] == '\'' && (_help)[1] == '\'') +#define HELP_is_void_line(_help) ((_help)[0] == '\n' && (_help)[1] == 0) + +#endif