blob: 77a21fd8e838fe96f6ceb8c77598e8bf585693a9 [file] [log] [blame]
/***************************************************************************
* __________ __ ___.
* Open \______ \ ____ ____ | | _\_ |__ _______ ___
* Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
* Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
* Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
* \/ \/ \/ \/ \/
* $Id$
*
* Copyright (C) 2010 Robert Bieber
*
* 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
* of the License, or (at your option) any later version.
*
* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
* KIND, either express or implied.
*
****************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "skin_parser.h"
#include "skin_debug.h"
#include "tag_table.h"
/* Global variables for debug output */
int debug_indent_level = 0;
extern int skin_line;
extern char* skin_start;
extern char* skin_buffer;
/* Global error variables */
static int error_line;
static int error_col;
static const char *error_line_start;
static char* error_message;
static inline struct skin_element*
get_child(OFFSETTYPE(struct skin_element**) children, int child)
{
if ((void*)children == NULL) // Stupid type shenanigans
return NULL;
struct skin_element **kids = SKINOFFSETTOPTR(skin_buffer, children);
return kids[child];
}
/* Debugging functions */
void skin_error(enum skin_errorcode error, const char* cursor)
{
error_col = 0;
while(cursor > skin_start && *cursor != '\n')
{
cursor--;
error_col++;
}
error_line_start = cursor+1;
error_line = skin_line;
switch(error)
{
case MEMORY_LIMIT_EXCEEDED:
error_line_start = NULL;
printf("Error: Memory limit exceeded at Line %d\n", skin_line);
error_message = "Memory limit exceeded";
break;
case NEWLINE_EXPECTED:
error_message = "Newline expected";
break;
case ILLEGAL_TAG:
error_message = "Illegal tag";
break;
case ARGLIST_EXPECTED:
error_message = "Argument list expected";
break;
case TOO_MANY_ARGS:
error_message = "Too many arguments given";
break;
case DEFAULT_NOT_ALLOWED:
error_message = "Argument can not be set to default";
break;
case UNEXPECTED_NEWLINE:
error_message = "Unexpected newline";
break;
case INSUFFICIENT_ARGS:
error_message = "Not enough arguments";
break;
case INT_EXPECTED:
error_message = "Expected integer";
break;
case DECIMAL_EXPECTED:
error_message = "Expected decimal";
break;
case SEPARATOR_EXPECTED:
error_message = "Expected argument separator";
break;
case CLOSE_EXPECTED:
error_message = "Expected list close";
break;
case MULTILINE_EXPECTED:
error_message = "Expected subline separator";
break;
case GOT_CALLBACK_ERROR:
error_message = "Parser callback returned error";
break;
};
}
int skin_error_line()
{
return error_line;
}
int skin_error_col()
{
return error_col;
}
char* skin_error_message()
{
return error_message;
}
void skin_clear_errors()
{
error_line = 0;
error_col = 0;
error_message = NULL;
}
#if !defined(ROCKBOX) || defined(__PCTOOL__)
void skin_debug_tree(struct skin_element* root)
{
int i;
char *text;
struct skin_element* current = root;
while(current)
{
skin_debug_indent();
switch(current->type)
{
case UNKNOWN:
printf("* Unknown element.. error *\n");
break;
case VIEWPORT:
printf("{ Viewport \n");
debug_indent_level++;
skin_debug_tree(get_child(current->children, 0));
debug_indent_level--;
printf("}");
break;
case TEXT:
text = SKINOFFSETTOPTR(skin_buffer, current->data);
printf("* Plain text on line %d: \"%s\"\n", current->line, text);
break;
case COMMENT:
printf("# Comment on line %d\n ", current->line);
break;
case TAG:
if (current->params_count)
{
printf("( %%%s tag on line %d with %d arguments\n",
current->tag->name,
current->line, current->params_count);
debug_indent_level++;
skin_debug_params(current->params_count, SKINOFFSETTOPTR(skin_buffer, current->params));
debug_indent_level--;
skin_debug_indent();
printf(")\n");
}
else
{
printf("[ %%%s tag on line %d ]\n",
current->tag->name, current->line);
}
break;
case LINE_ALTERNATOR:
printf("[ Alternator on line %d with %d sublines \n", current->line,
current->children_count);
debug_indent_level++;
for(i = 0; i < current->children_count; i++)
{
skin_debug_tree(get_child(current->children, i));
}
debug_indent_level--;
skin_debug_indent();
printf("]\n");
break;
case CONDITIONAL:
printf("< Conditional tag %%?%s on line %d with %d enumerations \n",
current->tag->name, current->line, current->children_count);
debug_indent_level++;
for(i = 0; i < current->children_count; i++)
{
skin_debug_indent();
printf("[ Enumeration %d\n", i);
debug_indent_level++;
skin_debug_tree(get_child(current->children, i));
debug_indent_level--;
skin_debug_indent();
printf("]\n");
}
debug_indent_level--;
skin_debug_indent();
printf(">\n");
break;
case LINE:
printf("[ Logical line on line %d\n", current->line);
debug_indent_level++;
if (current->children)
skin_debug_tree(get_child(current->children, 0));
debug_indent_level--;
skin_debug_indent();
printf("]\n");
break;
}
current = SKINOFFSETTOPTR(skin_buffer, current->next);
}
}
void skin_debug_params(int count, struct skin_tag_parameter params[])
{
int i;
for(i = 0; i < count; i++)
{
skin_debug_indent();
switch(params[i].type)
{
case DEFAULT:
printf("-");
break;
case STRING:
printf("string: \"%s\"", SKINOFFSETTOPTR(skin_buffer, params[i].data.text));
break;
case INTEGER:
printf("integer: %d", params[i].data.number);
break;
case DECIMAL:
printf("decimal: %d.%d", params[i].data.number/10,
params[i].data.number%10);
break;
case CODE:
printf("Skin Code: \n");
debug_indent_level++;
skin_debug_tree(SKINOFFSETTOPTR(skin_buffer, params[i].data.code));
debug_indent_level--;
skin_debug_indent();
break;
}
printf("\n");
}
}
void skin_debug_indent(void)
{
int i;
for(i = 0; i < debug_indent_level; i++)
printf(" ");
}
#endif
#define MIN(a,b) ((a<b)?(a):(b))
void skin_error_format_message(void)
{
int i;
char text[128];
if (!error_line_start)
return;
char* line_end = strchr(error_line_start, '\n');
int len = MIN(line_end - error_line_start, 80);
if (!line_end)
len = strlen(error_line_start);
printf("Error on line %d.\n", error_line);
error_col--;
if (error_col <= 10)
{
strncpy(text, error_line_start, len);
text[len] = '\0';
}
else
{
int j;
/* make it fit nicely.. "<start few chars>...<10 chars><error>" */
strncpy(text, error_line_start, 6);
i = 5;
text[i++] = '.';
text[i++] = '.';
text[i++] = '.';
for (j=error_col-10; j < len && error_line_start[j] && error_line_start[j] != '\n'; j++)
text[i++] = error_line_start[j];
text[i] = '\0';
error_col = 18;
}
printf("%s\n", text);
for (i=0; i<error_col; i++)
text[i] = ' ';
snprintf(&text[i],64, "^ \'%s\' Here", error_message);
printf("%s\n", text);
}