OpenBIOS October 2006

openbios@openbios.org

14 participants
38 discussions

r98 - in fcode-utils: . detok testsuite testsuite/TokMisc testsuite/TokeCommon toke
by svn＠openbios.org 15 Oct '06

15 Oct '06

Author: stepan Date: 2006-10-15 20:54:09 +0200 (Sun, 15 Oct 2006) New Revision: 98 Removed: fcode-utils/testsuite/TokMisc/OneBeer.fc fcode-utils/testsuite/TokeCommon/OneBeer.fl Modified: fcode-utils/Makefile fcode-utils/detok/Makefile fcode-utils/testsuite/Makefile fcode-utils/toke/Makefile Log: clean up build system Modified: fcode-utils/Makefile =================================================================== --- fcode-utils/Makefile 2006-10-15 16:37:02 UTC (rev 97) +++ fcode-utils/Makefile 2006-10-15 18:54:09 UTC (rev 98) @@ -42,6 +42,8 @@ make -C detok distclean make -C romheaders distclean make -C testsuite distclean + find . -name "*.gcda" -exec rm -f \{\} \; + find . -name "*.gcno" -exec rm -f \{\} \; tests: all cp toke/toke testsuite Modified: fcode-utils/detok/Makefile =================================================================== --- fcode-utils/detok/Makefile 2006-10-15 16:37:02 UTC (rev 97) +++ fcode-utils/detok/Makefile 2006-10-15 18:54:09 UTC (rev 98) @@ -27,10 +27,19 @@ CC = gcc STRIP = strip INCLUDES = -I../shared -#CFLAGS = -O2 -g -Wall -CFLAGS = -Os -Wall -Wno-pointer-sign + +# Normal Flags: +CFLAGS = -O2 -Wall -Wno-pointer-sign LDFLAGS = +# Coverage: +#CFLAGS := $(CFLAGS) -fprofile-arcs -ftest-coverage +#LDFLAGS := $(LDFLAGS) -lgcov + +# Debugging: +#CFLAGS := $(CFLAGS) -g + + OBJS = addfcodes.o decode.o detok.o dictionary.o pcihdr.o printformats.o \ stream.o ../shared/classcodes.o Modified: fcode-utils/testsuite/Makefile =================================================================== --- fcode-utils/testsuite/Makefile 2006-10-15 16:37:02 UTC (rev 97) +++ fcode-utils/testsuite/Makefile 2006-10-15 18:54:09 UTC (rev 98) @@ -4,9 +4,9 @@ clean: - find . -name "*.DeTok" -exec rm -f \{\} \; - find . -name "*.Log" -a ! -name "*..OldTkzr.Log" -exec rm -f \{\} \; - find . -name "*.fc" -exec rm -f \{\} \; + find . -name "*.DeTok" -a ! -name "*.OldTkzr.DeTok" -exec rm -f \{\} \; + find . -name "*.Log" -a ! -name "*.OldTkzr.Log" -exec rm -f \{\} \; + find . -name "*.fc" -a ! -name "*.OldTkzr.fc" -exec rm -f \{\} \; find . -name "*.fl" -exec rm -f \{\} \; find . -name "*.RomHdr" -exec rm -f \{\} \; find . -name "*.P" -exec rm -f \{\} \; Deleted: fcode-utils/testsuite/TokMisc/OneBeer.fc =================================================================== Deleted: fcode-utils/testsuite/TokeCommon/OneBeer.fl =================================================================== Modified: fcode-utils/toke/Makefile =================================================================== --- fcode-utils/toke/Makefile 2006-10-15 16:37:02 UTC (rev 97) +++ fcode-utils/toke/Makefile 2006-10-15 18:54:09 UTC (rev 98) @@ -28,15 +28,17 @@ STRIP = strip INCLUDES = -I../shared -# No coverage: -#CFLAGS = -O2 -g -Wall -CFLAGS = -Os -Wall -Wno-pointer-sign -fno-strict-aliasing -DSYS_IS_GNU_Linux +# Normal flags +CFLAGS = -O2 -Wall -Wno-pointer-sign -fno-strict-aliasing -DSYS_IS_GNU_Linux LDFLAGS = # Coverage: -#CFLAGS = -O2 -fprofile-arcs -ftest-coverage -Wall -Wno-pointer-sign -DSYS_IS_GNU_Linux -#LDFLAGS = -lgcov +#CFLAGS := $(CFLAGS) -fprofile-arcs -ftest-coverage +#LDFLAGS := $(LDFLAGS) -lgcov +# Debugging: +# CFLAGS := $(CFLAGS) -g + OBJS = clflags.o conditl.o devnode.o dictionary.o emit.o errhandler.o \ flowcontrol.o macros.o nextfcode.o parselocals.o scanner.o stack.o \ stream.o strsubvocab.o ticvocab.o toke.o tokzesc.o tracesyms.o \

1 0

r97 - in fcode-utils: . testsuite toke
by svn＠openbios.org 15 Oct '06

15 Oct '06

Author: stepan Date: 2006-10-15 18:37:02 +0200 (Sun, 15 Oct 2006) New Revision: 97 Added: fcode-utils/testsuite/Makefile Modified: fcode-utils/Makefile fcode-utils/toke/Makefile Log: add test execution to Makefile Modified: fcode-utils/Makefile =================================================================== --- fcode-utils/Makefile 2006-10-14 21:32:13 UTC (rev 96) +++ fcode-utils/Makefile 2006-10-15 16:37:02 UTC (rev 97) @@ -35,13 +35,20 @@ make -C toke clean make -C detok clean make -C romheaders clean + make -C testsuite clean distclean: clean make -C toke distclean make -C detok distclean make -C romheaders distclean + make -C testsuite distclean +tests: all + cp toke/toke testsuite + cp detok/detok testsuite + cp romheaders/romheaders testsuite + make -C testsuite all -.PHONY: all clean distclean toke detok romheaders +.PHONY: all clean distclean toke detok romheaders tests Added: fcode-utils/testsuite/Makefile =================================================================== --- fcode-utils/testsuite/Makefile (rev 0) +++ fcode-utils/testsuite/Makefile 2006-10-15 16:37:02 UTC (rev 97) @@ -0,0 +1,16 @@ +all: + @echo "starting testsuite" + @csh AutoExec + + +clean: + find . -name "*.DeTok" -exec rm -f \{\} \; + find . -name "*.Log" -a ! -name "*..OldTkzr.Log" -exec rm -f \{\} \; + find . -name "*.fc" -exec rm -f \{\} \; + find . -name "*.fl" -exec rm -f \{\} \; + find . -name "*.RomHdr" -exec rm -f \{\} \; + find . -name "*.P" -exec rm -f \{\} \; + find . -name "*.missing" -exec rm -f \{\} \; + +distclean: clean + rm -f toke detok romheaders Modified: fcode-utils/toke/Makefile =================================================================== --- fcode-utils/toke/Makefile 2006-10-14 21:32:13 UTC (rev 96) +++ fcode-utils/toke/Makefile 2006-10-15 16:37:02 UTC (rev 97) @@ -30,7 +30,7 @@ # No coverage: #CFLAGS = -O2 -g -Wall -CFLAGS = -Os -Wall -Wno-pointer-sign -DSYS_IS_GNU_Linux +CFLAGS = -Os -Wall -Wno-pointer-sign -fno-strict-aliasing -DSYS_IS_GNU_Linux LDFLAGS = # Coverage:

1 0

r96 - fcode-utils/detok
by svn＠openbios.org 15 Oct '06

15 Oct '06

Author: stepan Date: 2006-10-14 23:32:13 +0200 (Sat, 14 Oct 2006) New Revision: 96 Modified: fcode-utils/detok/addfcodes.c fcode-utils/detok/addfcodes.h fcode-utils/detok/decode.c fcode-utils/detok/detok.c fcode-utils/detok/detok.h fcode-utils/detok/dictionary.c fcode-utils/detok/pcihdr.c fcode-utils/detok/printformats.c fcode-utils/detok/stream.c fcode-utils/detok/stream.h Log: fix indentation Modified: fcode-utils/detok/addfcodes.c =================================================================== --- fcode-utils/detok/addfcodes.c 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/addfcodes.c 2006-10-14 21:32:13 UTC (rev 96) @@ -97,17 +97,15 @@ * **************************************************************************** */ -static void skip_whitespace( char **string_line_ptr) +static void skip_whitespace(char **string_line_ptr) { - char *cur_char_ptr = *string_line_ptr; - for ( ; *cur_char_ptr != 0 ; cur_char_ptr++ ) - { - if ( (*cur_char_ptr != '\t') && (*cur_char_ptr != ' ') ) - { - *string_line_ptr = cur_char_ptr; - break; + char *cur_char_ptr = *string_line_ptr; + for (; *cur_char_ptr != 0; cur_char_ptr++) { + if ((*cur_char_ptr != '\t') && (*cur_char_ptr != ' ')) { + *string_line_ptr = cur_char_ptr; + break; + } } - } } /* ************************************************************************** @@ -134,24 +132,26 @@ * **************************************************************************** */ -static bool get_next_vfc_line( void ) +static bool get_next_vfc_line(void) { - bool retval = FALSE; /* TRUE = not at end yet */ - while ( vfc_remainder < vfc_buf_end ) - { - current_vfc_line = vfc_remainder; - vfc_remainder = strchr( current_vfc_line, '\n'); - *vfc_remainder = 0; - vfc_remainder++; - vfc_line_no++; - skip_whitespace( &current_vfc_line); - if ( *current_vfc_line == 0 ) continue; /* Blank line */ - if ( *current_vfc_line == '#' ) continue; /* Comment */ - if ( *current_vfc_line == '\\' ) continue; /* Comment */ - retval = TRUE; - break; /* Found something */ - } - return( retval); + bool retval = FALSE; /* TRUE = not at end yet */ + while (vfc_remainder < vfc_buf_end) { + current_vfc_line = vfc_remainder; + vfc_remainder = strchr(current_vfc_line, '\n'); + *vfc_remainder = 0; + vfc_remainder++; + vfc_line_no++; + skip_whitespace(&current_vfc_line); + if (*current_vfc_line == 0) + continue; /* Blank line */ + if (*current_vfc_line == '#') + continue; /* Comment */ + if (*current_vfc_line == '\\') + continue; /* Comment */ + retval = TRUE; + break; /* Found something */ + } + return (retval); } /* ************************************************************************** @@ -176,20 +176,19 @@ * **************************************************************************** */ static bool did_not_splash = TRUE; -static void vfc_splash( char *vf_file_name) +static void vfc_splash(char *vf_file_name) { - if ( did_not_splash ) - { - /* Temporary substring buffer */ - /* Guarantee that the malloc will be big enough. */ - char *strbfr = malloc( strlen( vf_file_name) +65 ) ; - sprintf( strbfr, - "Reading additional FCodes from file: %s\n", - vf_file_name); - printremark( strbfr); - free( strbfr); - did_not_splash = FALSE; - } + if (did_not_splash) { + /* Temporary substring buffer */ + /* Guarantee that the malloc will be big enough. */ + char *strbfr = malloc(strlen(vf_file_name) + 65); + sprintf(strbfr, + "Reading additional FCodes from file: %s\n", + vf_file_name); + printremark(strbfr); + free(strbfr); + did_not_splash = FALSE; + } } /* ************************************************************************** @@ -240,104 +239,98 @@ * **************************************************************************** */ -bool add_fcodes_from_list( char *vf_file_name) +bool add_fcodes_from_list(char *vf_file_name) { - bool retval = FALSE; - int added_fc_count = 0; - check_tok_seq = FALSE; + bool retval = FALSE; + int added_fc_count = 0; + check_tok_seq = FALSE; - if ( verbose ) vfc_splash( vf_file_name); + if (verbose) + vfc_splash(vf_file_name); - if ( init_stream( vf_file_name) != 0 ) - { - char *strbfr = malloc( strlen( vf_file_name) +65 ); - sprintf( strbfr, - "Could not open Additional FCodes file: %s\n", - vf_file_name); - printremark( strbfr); - free( strbfr); - exit(1); - } - vfc_remainder = indata; - vfc_buf_end = indata + stream_max -1; + if (init_stream(vf_file_name) != 0) { + char *strbfr = malloc(strlen(vf_file_name) + 65); + sprintf(strbfr, + "Could not open Additional FCodes file: %s\n", + vf_file_name); + printremark(strbfr); + free(strbfr); + exit(1); + } + vfc_remainder = indata; + vfc_buf_end = indata + stream_max - 1; - while ( get_next_vfc_line() ) - { - char vs_fc_name[36]; - int vs_fc_number; - int scan_result; - char *lookup_result; - char *fc_name_cpy; + while (get_next_vfc_line()) { + char vs_fc_name[36]; + int vs_fc_number; + int scan_result; + char *lookup_result; + char *fc_name_cpy; - scan_result = sscanf( current_vfc_line, "0x%x %32s", - &vs_fc_number, vs_fc_name); + scan_result = sscanf(current_vfc_line, "0x%x %32s", + &vs_fc_number, vs_fc_name); - if ( scan_result != 2 ) /* Allow a capital 0X */ - { - scan_result = sscanf( current_vfc_line, "0X%x %32s", - &vs_fc_number, vs_fc_name); - } - if ( scan_result != 2 ) /* Try it without the 0x */ - { - scan_result = sscanf( current_vfc_line, "%x %32s", - &vs_fc_number, vs_fc_name); - } + if (scan_result != 2) { /* Allow a capital 0X */ + scan_result = sscanf(current_vfc_line, "0X%x %32s", + &vs_fc_number, vs_fc_name); + } + if (scan_result != 2) { /* Try it without the 0x */ + scan_result = sscanf(current_vfc_line, "%x %32s", + &vs_fc_number, vs_fc_name); + } - if ( scan_result != 2 ) /* That's it... */ - { - char *strbfr = malloc( strlen( current_vfc_line) +65 ); - vfc_splash( vf_file_name); - sprintf( strbfr, - "Line #%d, invalid format. Ignoring: %s\n", - vfc_line_no, current_vfc_line); - printremark( strbfr); - free( strbfr); - continue; - } + if (scan_result != 2) { /* That's it... */ + char *strbfr = + malloc(strlen(current_vfc_line) + 65); + vfc_splash(vf_file_name); + sprintf(strbfr, + "Line #%d, invalid format. Ignoring: %s\n", + vfc_line_no, current_vfc_line); + printremark(strbfr); + free(strbfr); + continue; + } - if ( ( vs_fc_number < 0x10 ) || ( vs_fc_number > 0x7ff ) ) - { - char *strbfr = malloc( 85 ); - vfc_splash( vf_file_name); - sprintf( strbfr, - "Line #%d, FCode number out of range: 0x%x Ignoring.\n", - vfc_line_no, vs_fc_number); - printremark( strbfr); - free( strbfr); - continue; + if ((vs_fc_number < 0x10) || (vs_fc_number > 0x7ff)) { + char *strbfr = malloc(85); + vfc_splash(vf_file_name); + sprintf(strbfr, + "Line #%d, FCode number out of range: 0x%x Ignoring.\n", + vfc_line_no, vs_fc_number); + printremark(strbfr); + free(strbfr); + continue; + } + + lookup_result = lookup_token((u16) vs_fc_number); + if (strcmp(lookup_result, "ferror") != 0) { + char *strbfr = malloc(strlen(lookup_result) + 85); + vfc_splash(vf_file_name); + sprintf(strbfr, + "Line #%d. FCode number 0x%x is already " + "defined as %s Ignoring.\n", + vfc_line_no, vs_fc_number, lookup_result); + printremark(strbfr); + free(strbfr); + continue; + } + + /* We've passed all the tests! */ + fc_name_cpy = strdup(vs_fc_name); + add_token((u16) vs_fc_number, fc_name_cpy); + added_fc_count++; + retval = TRUE; } - lookup_result = lookup_token( (u16)vs_fc_number); - if ( strcmp( lookup_result, "ferror") != 0 ) - { - char *strbfr = malloc( strlen( lookup_result) + 85 ); - vfc_splash( vf_file_name); - sprintf( strbfr, - "Line #%d. FCode number 0x%x is already " - "defined as %s Ignoring.\n", - vfc_line_no, vs_fc_number, lookup_result); - printremark( strbfr); - free( strbfr); - continue; + if (verbose) { + char *strbfr = malloc(85); + sprintf(strbfr, + "Added %d FCode numbers\n", added_fc_count); + printremark(strbfr); + free(strbfr); } - /* We've passed all the tests! */ - fc_name_cpy = strdup( vs_fc_name); - add_token( (u16)vs_fc_number, fc_name_cpy); - added_fc_count++; - retval = TRUE; - } - - if ( verbose ) - { - char *strbfr = malloc( 85 ); - sprintf( strbfr, - "Added %d FCode numbers\n", added_fc_count); - printremark( strbfr); - free( strbfr); - } - - close_stream(); - check_tok_seq = TRUE; - return( retval); + close_stream(); + check_tok_seq = TRUE; + return (retval); } Modified: fcode-utils/detok/addfcodes.h =================================================================== --- fcode-utils/detok/addfcodes.h 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/addfcodes.h 2006-10-14 21:32:13 UTC (rev 96) @@ -43,6 +43,6 @@ * **************************************************************************** */ -bool add_fcodes_from_list( char *vf_file_name); +bool add_fcodes_from_list(char *vf_file_name); -#endif /* _DETOK_VSFCODES_H */ +#endif /* _DETOK_VSFCODES_H */ Modified: fcode-utils/detok/decode.c =================================================================== --- fcode-utils/detok/decode.c 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/decode.c 2006-10-14 21:32:13 UTC (rev 96) @@ -39,7 +39,7 @@ #include "detok.h" #include "stream.h" -static int indent; /* Current level of indentation */ +static int indent; /* Current level of indentation */ /* ************************************************************************** * @@ -53,71 +53,71 @@ * **************************************************************************** */ -static bool ended_okay = TRUE; /* FALSE if finished prematurely */ +static bool ended_okay = TRUE; /* FALSE if finished prematurely */ -bool offs16=TRUE; +bool offs16 = TRUE; unsigned int linenum; -bool end_found=FALSE; -unsigned int token_streampos; /* Streampos() of currently-gotten token */ +bool end_found = FALSE; +unsigned int token_streampos; /* Streampos() of currently-gotten token */ u16 last_defined_token = 0; jmp_buf eof_exception; static int fclen; -static const char *unnamed = "(unnamed-fcode)" ; +static const char *unnamed = "(unnamed-fcode)"; -static void decode_indent(void) +static void decode_indent(void) { int i; - if (indent<0) { + if (indent < 0) { #ifdef DEBUG_INDENT printf("detok: error in indentation code.\n"); #endif - indent=0; + indent = 0; } - for (i=0; i<indent; i++) - printf (" "); + for (i = 0; i < indent; i++) + printf(" "); } - + /* Print forth string ( [len] char[0] ... char[len] ) */ static void pretty_print_string(void) { - u8 len; - u8 *strptr; - int indx; - bool in_parens = FALSE ; /* Are we already inside parentheses? */ + u8 len; + u8 *strptr; + int indx; + bool in_parens = FALSE; /* Are we already inside parentheses? */ - strptr = get_string( &len ); + strptr = get_string(&len); - printf("( len=%s%x", len >= 10 ? "0x":"", len); - if ( len >= 10 ) printf(" [%d bytes]", len); - printf(" )\n"); - if (show_linenumbers) printf(" "); - decode_indent(); + printf("( len=%s%x", len >= 10 ? "0x" : "", len); + if (len >= 10) + printf(" [%d bytes]", len); + printf(" )\n"); + if (show_linenumbers) + printf(" "); + decode_indent(); printf("\" "); - for ( indx = 0; indx < len; indx++ ) - { - u8 c = *strptr++; + for (indx = 0; indx < len; indx++) { + u8 c = *strptr++; if (isprint(c)) { - if ( in_parens ) - { + if (in_parens) { printf(" )"); - in_parens = FALSE; + in_parens = FALSE; } - printf("%c",c); - /* Quote-mark must escape itself */ - if ( c == '"' ) printf("%c",c); + printf("%c", c); + /* Quote-mark must escape itself */ + if (c == '"') + printf("%c", c); } else { - if ( !in_parens ) - { + if (!in_parens) { printf("\"("); - in_parens = TRUE; + in_parens = TRUE; } - printf(" %02x",c); + printf(" %02x", c); } } - if ( in_parens ) + if (in_parens) printf(" )"); printf("\""); } @@ -125,7 +125,8 @@ static void decode_lines(void) { if (show_linenumbers) { - printf("%6d: ",show_offsets ? token_streampos : linenum++); + printf("%6d: ", + show_offsets ? token_streampos : linenum++); } } @@ -176,29 +177,27 @@ char *tname; /* Run error detection only if last_defined_token was assigned */ - if ( (fcode > last_defined_token) && (last_defined_token > 0) ) - { - char temp_buf[80]; - int buf_pos; - u8 top_byte = fcode >> 8; - printf ("Invalid token: [0x%03x]\n", fcode); - sprintf(temp_buf, "Backing up over first byte, which is "); - buf_pos = strlen(temp_buf); - if ( top_byte < 10 ) - { - sprintf(&temp_buf[buf_pos], " %02x", top_byte); - }else{ - sprintf( &temp_buf[buf_pos], "0x%02x ( =dec %d)", - top_byte, top_byte); + if ((fcode > last_defined_token) && (last_defined_token > 0)) { + char temp_buf[80]; + int buf_pos; + u8 top_byte = fcode >> 8; + printf("Invalid token: [0x%03x]\n", fcode); + sprintf(temp_buf, "Backing up over first byte, which is "); + buf_pos = strlen(temp_buf); + if (top_byte < 10) { + sprintf(&temp_buf[buf_pos], " %02x", top_byte); + } else { + sprintf(&temp_buf[buf_pos], "0x%02x ( =dec %d)", + top_byte, top_byte); + } + printremark(temp_buf); + set_streampos(token_streampos + 1); + return; } - printremark(temp_buf); - set_streampos(token_streampos+1); - return; -} - + tname = lookup_token(fcode); - printf ("%s ", tname); + printf("%s ", tname); /* The fcode number is interesting * if either @@ -206,18 +205,16 @@ * or * b) detok is in verbose mode. */ - if ( strcmp( tname, unnamed) == 0 ) - { + if (strcmp(tname, unnamed) == 0) { printf("[0x%03x] ", fcode); - } else { - if ( verbose ) - { - /* If the token is named, - * show its fcode number in - * the syntax of a FORTH Comment - */ - printf("( 0x%03x ) ", fcode); - } + } else { + if (verbose) { + /* If the token is named, + * show its fcode number in + * the syntax of a FORTH Comment + */ + printf("( 0x%03x ) ", fcode); + } } } @@ -290,13 +287,13 @@ static s16 decode_offset(void) { - s16 offs; + s16 offs; int dest; bool invalid_dest; int streampos = get_streampos(); output_token(); - offs=get_offset(); + offs = get_offset(); /* The target-destination is the source-byte offset * at which the FCode-offset is found, plus @@ -311,34 +308,32 @@ * theoretically possible, so we'll treat it as valid. * An offset of zero is also, of course, invalid. */ - invalid_dest = BOOLVAL ( (dest <= 0) - || (dest > stream_max) - || (offs == 0) ); + invalid_dest = BOOLVAL((dest <= 0) + || (dest > stream_max) + || (offs == 0)); /* Show the offset in hex and again as a signed decimal number. */ - if ( offs16 ) - { - printf("0x%04x (", (u16)(offs & 0xffff) ); - }else{ - printf("0x%02x (", (u8)(offs & 0x00ff) ); + if (offs16) { + printf("0x%04x (", (u16) (offs & 0xffff)); + } else { + printf("0x%02x (", (u8) (offs & 0x00ff)); } - if ( (offs < 0) || (offs > 9) ) printf(" =dec %d", offs); + if ((offs < 0) || (offs > 9)) + printf(" =dec %d", offs); /* If we're showing source-byte offsets, show targets of offsets */ - if ( show_offsets || invalid_dest ) - { - printf(" dest = %d ",dest); + if (show_offsets || invalid_dest) { + printf(" dest = %d ", dest); } printf(")\n"); - if ( invalid_dest ) - { - if (offs == 0) - { - printremark("Error: Unresolved offset."); - }else{ - printremark("Error: Invalid offset. Ignoring..."); - set_streampos( streampos); - } + if (invalid_dest) { + if (offs == 0) { + printremark("Error: Unresolved offset."); + } else { + printremark + ("Error: Invalid offset. Ignoring..."); + set_streampos(streampos); + } } return offs; } @@ -346,7 +341,7 @@ static void decode_default(void) { output_token(); - printf ("\n"); + printf("\n"); } static void new_token(void) @@ -354,7 +349,7 @@ u16 token; output_token(); token = next_token(); - printf("0x%03x\n",token); + printf("0x%03x\n", token); add_token(token, strdup(unnamed)); } @@ -362,14 +357,14 @@ { u16 token; u8 len; - u8* string; + u8 *string; output_token(); /* get forth string ( [len] [char0] ... [charn] ) */ - string=get_name(&len); + string = get_name(&len); token = next_token(); printf("%s 0x%03x\n", string, token); - add_token(token,string); + add_token(token, string); } static void bquote(void) @@ -385,21 +380,21 @@ u32 lit; output_token(); - lit=get_num32(); - printf("0x%x\n",lit); + lit = get_num32(); + printf("0x%x\n", lit); } static void offset16(void) { decode_default(); - offs16=TRUE; + offs16 = TRUE; } static void decode_branch(void) { s16 offs; - offs=decode_offset(); - if (offs>=0) + offs = decode_offset(); + if (offs >= 0) indent++; else indent--; @@ -412,7 +407,7 @@ output_token(); token = next_token(); output_token_name(); - printf ("\n"); + printf("\n"); } /* ************************************************************************** @@ -428,37 +423,36 @@ static void decode_start(void) { - u8 fcformat; - u16 fcchecksum, checksum=0; + u8 fcformat; + u16 fcchecksum, checksum = 0; output_token(); - printf(" ( %d-bit offsets)\n", offs16 ? 16 : 8 ); - - token_streampos = get_streampos(); + printf(" ( %d-bit offsets)\n", offs16 ? 16 : 8); + + token_streampos = get_streampos(); decode_lines(); - fcformat=get_num8(); + fcformat = get_num8(); printf(" format: 0x%02x\n", fcformat); - - - /* Check for checksum correctness. */ - - token_streampos = get_streampos(); + + + /* Check for checksum correctness. */ + + token_streampos = get_streampos(); decode_lines(); - fcchecksum=get_num16(); /* Read the stored checksum */ - checksum = calc_checksum(); /* Calculate the actual checksum */ - - if ( fcchecksum==checksum ) - { + fcchecksum = get_num16(); /* Read the stored checksum */ + checksum = calc_checksum(); /* Calculate the actual checksum */ + + if (fcchecksum == checksum) { printf(" checksum: 0x%04x (Ok)\n", fcchecksum); } else { printf(" checksum should be: 0x%04x, but is 0x%04x\n", - checksum,fcchecksum); + checksum, fcchecksum); } - token_streampos = get_streampos(); + token_streampos = get_streampos(); decode_lines(); - fclen=get_num32(); - printf(" len: 0x%04x ( %d bytes)\n", fclen, fclen); + fclen = get_num32(); + printf(" len: 0x%04x ( %d bytes)\n", fclen, fclen); } @@ -476,13 +470,13 @@ static void decode_token(u16 token) { - bool handy_flag = TRUE; + bool handy_flag = TRUE; switch (token) { case 0x0b5: new_token(); break; - case 0x0b6: /* Named Token */ - case 0x0ca: /* External Token */ + case 0x0b6: /* Named Token */ + case 0x0ca: /* External Token */ named_token(); break; case 0x012: @@ -494,52 +488,52 @@ case 0x0cc: offset16(); break; - case 0x013: /* bbranch */ - case 0x014: /* b?branch */ + case 0x013: /* bbranch */ + case 0x014: /* b?branch */ decode_branch(); break; - case 0x0b7: /* b(:) */ - case 0x0b1: /* b(<mark) */ - case 0x0c4: /* b(case) */ + case 0x0b7: /* b(:) */ + case 0x0b1: /* b(<mark) */ + case 0x0c4: /* b(case) */ decode_default(); indent++; break; - case 0x0c2: /* b(;) */ - case 0x0b2: /* b(>resolve) */ - case 0x0c5: /* b(endcase) */ + case 0x0c2: /* b(;) */ + case 0x0b2: /* b(>resolve) */ + case 0x0c5: /* b(endcase) */ indent--; decode_default(); break; - case 0x015: /* b(loop) */ - case 0x016: /* b(+loop) */ - case 0x0c6: /* b(endof) */ + case 0x015: /* b(loop) */ + case 0x016: /* b(+loop) */ + case 0x0c6: /* b(endof) */ indent--; decode_offset(); break; - case 0x017: /* b(do) */ - case 0x018: /* b/?do) */ - case 0x01c: /* b(of) */ + case 0x017: /* b(do) */ + case 0x018: /* b/?do) */ + case 0x01c: /* b(of) */ decode_offset(); indent++; break; - case 0x011: /* b(') */ - case 0x0c3: /* b(to) */ + case 0x011: /* b(') */ + case 0x0c3: /* b(to) */ decode_two(); break; - case 0x0fd: /* version1 */ + case 0x0fd: /* version1 */ handy_flag = FALSE; - case 0x0f0: /* start0 */ - case 0x0f1: /* start1 */ - case 0x0f2: /* start2 */ - case 0x0f3: /* start4 */ + case 0x0f0: /* start0 */ + case 0x0f1: /* start1 */ + case 0x0f2: /* start2 */ + case 0x0f3: /* start4 */ offs16 = handy_flag; printremark("Unexpected FCode-Block Starter."); decode_start(); printremark(" Ignoring length field."); break; - case 0: /* end0 */ - case 0xff: /* end1 */ - end_found=TRUE; + case 0: /* end0 */ + case 0xff: /* end1 */ + end_found = TRUE; decode_default(); break; default: @@ -582,39 +576,38 @@ static void decode_fcode_header(void) { - long err_pos; - u16 token; + long err_pos; + u16 token; - err_pos = get_streampos(); - indent = 0; - token = next_token(); - offs16=TRUE; - switch (token) - { - case 0x0fd: /* version1 */ - offs16=FALSE; - case 0x0f0: /* start0 */ - case 0x0f1: /* start1 */ - case 0x0f2: /* start2 */ - case 0x0f3: /* start4 */ - decode_start(); + err_pos = get_streampos(); + indent = 0; + token = next_token(); + offs16 = TRUE; + switch (token) { + case 0x0fd: /* version1 */ + offs16 = FALSE; + case 0x0f0: /* start0 */ + case 0x0f1: /* start1 */ + case 0x0f2: /* start2 */ + case 0x0f3: /* start4 */ + decode_start(); break; default: - { - char temp_bufr[128] = - "Invalid FCode Start Byte. Ignoring FCode header." ; - set_streampos( err_pos ); - fclen = max - pc; - printf("\n"); - if (show_linenumbers) { - sprintf( &(temp_bufr[strlen(temp_bufr)]), - " Remaining len = 0x%04x ( %d bytes)", fclen, fclen); + char temp_bufr[128] = + "Invalid FCode Start Byte. Ignoring FCode header."; + set_streampos(err_pos); + fclen = max - pc; + printf("\n"); + if (show_linenumbers) { + sprintf(&(temp_bufr[strlen(temp_bufr)]), + " Remaining len = 0x%04x ( %d bytes)", + fclen, fclen); + } + printremark(temp_bufr); } - printremark( temp_bufr ); } } -} /* ************************************************************************** * @@ -654,45 +647,42 @@ static void decode_fcode_block(void) { u16 token; - unsigned int fc_block_start; - unsigned int fc_block_end; - - end_found = FALSE; - fc_block_start = get_streampos(); - - decode_fcode_header(); + unsigned int fc_block_start; + unsigned int fc_block_end; - fc_block_end = fc_block_start + fclen; - - while ( ( !end_found || decode_all ) - && ( get_streampos() < fc_block_end ) ) - { - token = next_token(); + end_found = FALSE; + fc_block_start = get_streampos(); + + decode_fcode_header(); + + fc_block_end = fc_block_start + fclen; + + while ((!end_found || decode_all) + && (get_streampos() < fc_block_end)) { + token = next_token(); decode_token(token); - } - if ( !end_found ) - { - printremark("FCode-ender not found"); - } - { - char temp_bufr[80]; - /* Don't use fclen here, in case it got corrupted - * by an "Unexpected FCode-Block Starter" - */ - if ( get_streampos() == fc_block_end ) + } + if (!end_found) { + printremark("FCode-ender not found"); + } { - sprintf( temp_bufr, - "Detokenization finished normally after %d bytes.", - fc_block_end - fc_block_start ); - }else{ - sprintf( temp_bufr, - "Detokenization finished prematurely after %d of %d bytes.", - get_streampos() - fc_block_start, - fc_block_end - fc_block_start ); - ended_okay = FALSE; + char temp_bufr[80]; + /* Don't use fclen here, in case it got corrupted + * by an "Unexpected FCode-Block Starter" + */ + if (get_streampos() == fc_block_end) { + sprintf(temp_bufr, + "Detokenization finished normally after %d bytes.", + fc_block_end - fc_block_start); + } else { + sprintf(temp_bufr, + "Detokenization finished prematurely after %d of %d bytes.", + get_streampos() - fc_block_start, + fc_block_end - fc_block_start); + ended_okay = FALSE; + } + printremark(temp_bufr); } - printremark( temp_bufr ); - } } /* ************************************************************************** @@ -725,35 +715,35 @@ static bool another_fcode_block(void) { - bool retval = FALSE; - u16 token; + bool retval = FALSE; + u16 token; - token = next_token(); - set_streampos( token_streampos ); + token = next_token(); + set_streampos(token_streampos); - switch (token) - { - case 0x0fd: /* version1 */ - case 0x0f0: /* start0 */ - case 0x0f1: /* start1 */ - case 0x0f2: /* start2 */ - case 0x0f3: /* start4 */ - retval = TRUE; - printremark("Subsequent FCode Block detected. Detokenizing."); - break; - case 0: /* Start of a zero-fill field */ - /* retval already = FALSE . Nothing else to be done. */ - break; + switch (token) { + case 0x0fd: /* version1 */ + case 0x0f0: /* start0 */ + case 0x0f1: /* start1 */ + case 0x0f2: /* start2 */ + case 0x0f3: /* start4 */ + retval = TRUE; + printremark + ("Subsequent FCode Block detected. Detokenizing."); + break; + case 0: /* Start of a zero-fill field */ + /* retval already = FALSE . Nothing else to be done. */ + break; default: - { - char temp_bufr[80]; - sprintf( temp_bufr, - "Unexpected token, 0x%02x, after end of FCode block.", - token); - printremark( temp_bufr); - } - } - return ( retval ); + { + char temp_bufr[80]; + sprintf(temp_bufr, + "Unexpected token, 0x%02x, after end of FCode block.", + token); + printremark(temp_bufr); + } + } + return (retval); } /* ************************************************************************** @@ -767,33 +757,29 @@ void detokenize(void) { - fclen = stream_max; + fclen = stream_max; - if ( setjmp(eof_exception) == 0 ) - { - while ( more_to_go() ) - { - if ( ended_okay ) - { - init_fcode_block(); - } - ended_okay = TRUE; + if (setjmp(eof_exception) == 0) { + while (more_to_go()) { + if (ended_okay) { + init_fcode_block(); + } + ended_okay = TRUE; - adjust_for_pci_header(); + adjust_for_pci_header(); - /* Allow for multiple FCode Blocks within the PCI image. - * The first one had better be a valid block, but the - * next may or may not be... - */ - do - { - decode_fcode_block(); - } while ( another_fcode_block() ); + /* Allow for multiple FCode Blocks within the PCI image. + * The first one had better be a valid block, but the + * next may or may not be... + */ + do { + decode_fcode_block(); + } while (another_fcode_block()); - adjust_for_pci_filler(); + adjust_for_pci_filler(); + } } - } } Modified: fcode-utils/detok/detok.c =================================================================== --- fcode-utils/detok/detok.c 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/detok.c 2006-10-14 21:32:13 UTC (rev 96) @@ -51,47 +51,47 @@ "(C) Copyright 2006 coresystems GmbH <info(a)coresystems.de>" #define IBM_COPYR "(C) Copyright 2005 IBM Corporation. All Rights Reserved." -bool verbose = FALSE ; -bool decode_all = FALSE ; -bool show_linenumbers = FALSE ; -bool show_offsets = FALSE ; +bool verbose = FALSE; +bool decode_all = FALSE; +bool show_linenumbers = FALSE; +bool show_offsets = FALSE; /* Param is FALSE when beginning to detokenize, * TRUE preceding error-exit */ static void print_copyright(bool is_error) { - typedef void (*vfunct)(); /* Pointer to function returning void */ - vfunct pfunct ; + typedef void (*vfunct) (); /* Pointer to function returning void */ + vfunct pfunct; char buffr[512]; - sprintf( buffr, - "Welcome to detok - OpenBIOS detokenizer v" DETOK_VERSION "\n" - CORE_COPYR "\n" IBM_COPYR "\n" - "Written by Stefan Reinauer, <stepan(a)openbios.org>\n" + sprintf(buffr, + "Welcome to detok - OpenBIOS detokenizer v" DETOK_VERSION "\n" + CORE_COPYR "\n" IBM_COPYR "\n" + "Written by Stefan Reinauer, <stepan(a)openbios.org>\n" "This program is free software; you may redistribute it " "under the terms of\nthe GNU General Public License v2. This " - "program has absolutely no warranty.\n\n" ); + "program has absolutely no warranty.\n\n"); - pfunct = ( is_error ? (vfunct)printf : printremark ); + pfunct = (is_error ? (vfunct) printf : printremark); - (*pfunct) ( buffr ); + (*pfunct) (buffr); } static void usage(char *name) { - printf( "usage: %s [OPTION]... [FCODE-FILE]...\n\n" - " -v, --verbose print fcode numbers\n" - " -a, --all don't stop at end0\n" - " -n, --linenumbers print line numbers\n" - " -o, --offsets print byte offsets\n" - " -f, --fcodes add FCodes from list-file\n" - " -h, --help print this help text\n\n", name); + printf("usage: %s [OPTION]... [FCODE-FILE]...\n\n" + " -v, --verbose print fcode numbers\n" + " -a, --all don't stop at end0\n" + " -n, --linenumbers print line numbers\n" + " -o, --offsets print byte offsets\n" + " -f, --fcodes add FCodes from list-file\n" + " -h, --help print this help text\n\n", name); } int main(int argc, char **argv) { int c; - const char *optstring="vhanof:?"; + const char *optstring = "vhanof:?"; int linenumbers = 0; bool add_vfcodes = FALSE; char *vfc_filnam = NULL; @@ -100,36 +100,36 @@ #ifdef __GLIBC__ int option_index = 0; static struct option long_options[] = { - { "verbose", 0, 0, 'v' }, - { "help", 0, 0, 'h' }, - { "all", 0, 0, 'a' }, - { "linenumbers", 0, 0, 'n' }, - { "offsets", 0, 0, 'o' }, - { "fcodes", 1, 0, 'f' }, - { 0, 0, 0, 0 } + {"verbose", 0, 0, 'v'}, + {"help", 0, 0, 'h'}, + {"all", 0, 0, 'a'}, + {"linenumbers", 0, 0, 'n'}, + {"offsets", 0, 0, 'o'}, + {"fcodes", 1, 0, 'f'}, + {0, 0, 0, 0} }; - c = getopt_long (argc, argv, optstring, - long_options, &option_index); + c = getopt_long(argc, argv, optstring, + long_options, &option_index); #else - c = getopt (argc, argv, optstring); + c = getopt(argc, argv, optstring); #endif if (c == -1) break; switch (c) { case 'v': - verbose=TRUE; + verbose = TRUE; break; case 'a': - decode_all=TRUE; + decode_all = TRUE; break; case 'n': - linenumbers|=1; + linenumbers |= 1; show_linenumbers = TRUE; break; case 'o': - linenumbers|=2; + linenumbers |= 2; show_linenumbers = TRUE; show_offsets = TRUE; break; @@ -141,10 +141,10 @@ case '?': print_copyright(TRUE); usage(argv[0]); - return 0; + return 0; default: print_copyright(TRUE); - printf ("%s: unknown option.\n",argv[0]); + printf("%s: unknown option.\n", argv[0]); usage(argv[0]); return 1; } @@ -152,44 +152,41 @@ if (verbose) print_copyright(FALSE); - - if (linenumbers>2) - printremark( - "Line numbers will be disabled in favour of offsets.\n"); - + + if (linenumbers > 2) + printremark + ("Line numbers will be disabled in favour of offsets.\n"); + if (optind >= argc) { print_copyright(TRUE); - printf ("%s: filename missing.\n",argv[0]); + printf("%s: filename missing.\n", argv[0]); usage(argv[0]); return 1; } - + init_dictionary(); - - if ( add_vfcodes ) - { - if ( add_fcodes_from_list( vfc_filnam) ) - { - freeze_dictionary(); - } + + if (add_vfcodes) { + if (add_fcodes_from_list(vfc_filnam)) { + freeze_dictionary(); + } } while (optind < argc) { - + if (init_stream(argv[optind])) { - printf ("Could not open file \"%s\".\n",argv[optind]); + printf("Could not open file \"%s\".\n", argv[optind]); optind++; continue; } detokenize(); close_stream(); - + optind++; reset_dictionary(); } - + printf("\n"); - + return 0; } - Modified: fcode-utils/detok/detok.h =================================================================== --- fcode-utils/detok/detok.h 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/detok.h 2006-10-14 21:32:13 UTC (rev 96) @@ -49,8 +49,8 @@ void printremark(char *str); -int handle_pci_header ( u8 *data_ptr ); -void handle_pci_filler(u8 *filler_ptr); +int handle_pci_header(u8 * data_ptr); +void handle_pci_filler(u8 * filler_ptr); /* External declarations for variables defined in or used by @@ -72,4 +72,4 @@ extern unsigned int token_streampos; extern u16 last_defined_token; -#endif /* _UTILS_DETOK_DETOK_H */ +#endif /* _UTILS_DETOK_DETOK_H */ Modified: fcode-utils/detok/dictionary.c =================================================================== --- fcode-utils/detok/dictionary.c 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/dictionary.c 2006-10-14 21:32:13 UTC (rev 96) @@ -44,16 +44,16 @@ struct token *next; } token_t; #define TOKEN_ENTRY(num, name) { name, (u16)num, (token_t *)NULL } -static token_t *dictionary; /* Initialize dynamically to accommodate AIX */ +static token_t *dictionary; /* Initialize dynamically to accommodate AIX */ -static char *fcerror="ferror"; +static char *fcerror = "ferror"; char *lookup_token(u16 number) { token_t *curr; - - for (curr=dictionary; curr!=NULL; curr=curr->next) - if (curr->fcode==number) + + for (curr = dictionary; curr != NULL; curr = curr->next) + if (curr->fcode == number) break; if (curr) @@ -110,462 +110,458 @@ { token_t *curr; - curr=malloc(sizeof(token_t)); - if(!curr) { + curr = malloc(sizeof(token_t)); + if (!curr) { printf("Out of memory while adding token.\n"); exit(-ENOMEM); } - curr->next=dictionary; - curr->fcode=number; - curr->name=name; + curr->next = dictionary; + curr->fcode = number; + curr->name = name; - dictionary=curr; + dictionary = curr; - if ( check_tok_seq ) - { - /* Error-check, but not for first time. */ - if ( (number == last_defined_token + 1) - || (last_defined_token == 0) ) - { - last_defined_token = number; - }else{ - if ( number <= last_defined_token ) - { - printremark("Warning: New token # might overlap " - "previously assigned token #(s)."); - }else{ - printremark("Warning: New token # out of sequence with " - "previously assigned token #(s)."); - /* It's increasing; update it. */ - last_defined_token = number; + if (check_tok_seq) { + /* Error-check, but not for first time. */ + if ((number == last_defined_token + 1) + || (last_defined_token == 0)) { + last_defined_token = number; + } else { + if (number <= last_defined_token) { + printremark("Warning: New token # might overlap " + "previously assigned token #(s)."); + } else { + printremark("Warning: New token # out of sequence with " + "previously assigned token #(s)."); + /* It's increasing; update it. */ + last_defined_token = number; + } } -} } } -token_t detok_table[] = { +token_t detok_table[] = { - TOKEN_ENTRY( 0x000, "end0" ), - TOKEN_ENTRY( 0x010, "b(lit)" ), - TOKEN_ENTRY( 0x011, "b(')" ), - TOKEN_ENTRY( 0x012, "b(\")" ), - TOKEN_ENTRY( 0x013, "bbranch" ), - TOKEN_ENTRY( 0x014, "b?branch" ), - TOKEN_ENTRY( 0x015, "b(loop)" ), - TOKEN_ENTRY( 0x016, "b(+loop)" ), - TOKEN_ENTRY( 0x017, "b(do)" ), - TOKEN_ENTRY( 0x018, "b(?do)" ), - TOKEN_ENTRY( 0x019, "i" ), - TOKEN_ENTRY( 0x01a, "j" ), - TOKEN_ENTRY( 0x01b, "b(leave)" ), - TOKEN_ENTRY( 0x01c, "b(of)" ), - TOKEN_ENTRY( 0x01d, "execute" ), - TOKEN_ENTRY( 0x01e, "+" ), - TOKEN_ENTRY( 0x01f, "-" ), - TOKEN_ENTRY( 0x020, "*" ), - TOKEN_ENTRY( 0x021, "/" ), - TOKEN_ENTRY( 0x022, "mod" ), - TOKEN_ENTRY( 0x023, "and" ), - TOKEN_ENTRY( 0x024, "or" ), - TOKEN_ENTRY( 0x025, "xor" ), - TOKEN_ENTRY( 0x026, "invert" ), - TOKEN_ENTRY( 0x027, "lshift" ), - TOKEN_ENTRY( 0x028, "rshift" ), - TOKEN_ENTRY( 0x029, ">>a" ), - TOKEN_ENTRY( 0x02a, "/mod" ), - TOKEN_ENTRY( 0x02b, "u/mod" ), - TOKEN_ENTRY( 0x02c, "negate" ), - TOKEN_ENTRY( 0x02d, "abs" ), - TOKEN_ENTRY( 0x02e, "min" ), - TOKEN_ENTRY( 0x02f, "max" ), - TOKEN_ENTRY( 0x030, ">r" ), - TOKEN_ENTRY( 0x031, "r>" ), - TOKEN_ENTRY( 0x032, "r@" ), - TOKEN_ENTRY( 0x033, "exit" ), - TOKEN_ENTRY( 0x034, "0=" ), - TOKEN_ENTRY( 0x035, "0<>" ), - TOKEN_ENTRY( 0x036, "0<" ), - TOKEN_ENTRY( 0x037, "0<=" ), - TOKEN_ENTRY( 0x038, "0>" ), - TOKEN_ENTRY( 0x039, "0>=" ), - TOKEN_ENTRY( 0x03a, "<" ), - TOKEN_ENTRY( 0x03b, ">" ), - TOKEN_ENTRY( 0x03c, "=" ), - TOKEN_ENTRY( 0x03d, "<>" ), - TOKEN_ENTRY( 0x03e, "u>" ), - TOKEN_ENTRY( 0x03f, "u<=" ), - TOKEN_ENTRY( 0x040, "u<" ), - TOKEN_ENTRY( 0x041, "u>=" ), - TOKEN_ENTRY( 0x042, ">=" ), - TOKEN_ENTRY( 0x043, "<=" ), - TOKEN_ENTRY( 0x044, "between" ), - TOKEN_ENTRY( 0x045, "within" ), - TOKEN_ENTRY( 0x046, "drop" ), - TOKEN_ENTRY( 0x047, "dup" ), - TOKEN_ENTRY( 0x048, "over" ), - TOKEN_ENTRY( 0x049, "swap" ), - TOKEN_ENTRY( 0x04A, "rot" ), - TOKEN_ENTRY( 0x04b, "-rot" ), - TOKEN_ENTRY( 0x04c, "tuck" ), - TOKEN_ENTRY( 0x04d, "nip" ), - TOKEN_ENTRY( 0x04e, "pick" ), - TOKEN_ENTRY( 0x04f, "roll" ), - TOKEN_ENTRY( 0x050, "?dup" ), - TOKEN_ENTRY( 0x051, "depth" ), - TOKEN_ENTRY( 0x052, "2drop" ), - TOKEN_ENTRY( 0x053, "2dup" ), - TOKEN_ENTRY( 0x054, "2over" ), - TOKEN_ENTRY( 0x055, "2swap" ), - TOKEN_ENTRY( 0x056, "2rot" ), - TOKEN_ENTRY( 0x057, "2/" ), - TOKEN_ENTRY( 0x058, "u2/" ), - TOKEN_ENTRY( 0x059, "2*" ), - TOKEN_ENTRY( 0x05a, "/c" ), - TOKEN_ENTRY( 0x05b, "/w" ), - TOKEN_ENTRY( 0x05c, "/l" ), - TOKEN_ENTRY( 0x05d, "/n" ), - TOKEN_ENTRY( 0x05e, "ca+" ), - TOKEN_ENTRY( 0x05f, "wa+" ), - TOKEN_ENTRY( 0x060, "la+" ), - TOKEN_ENTRY( 0x061, "na+" ), - TOKEN_ENTRY( 0x062, "char+" ), - TOKEN_ENTRY( 0x063, "wa1+" ), - TOKEN_ENTRY( 0x064, "la1+" ), - TOKEN_ENTRY( 0x065, "cell+" ), - TOKEN_ENTRY( 0x066, "chars" ), - TOKEN_ENTRY( 0x067, "/w*" ), - TOKEN_ENTRY( 0x068, "/l*" ), - TOKEN_ENTRY( 0x069, "cells" ), - TOKEN_ENTRY( 0x06a, "on" ), - TOKEN_ENTRY( 0x06b, "off" ), - TOKEN_ENTRY( 0x06c, "+!" ), - TOKEN_ENTRY( 0x06d, "@" ), - TOKEN_ENTRY( 0x06e, "l@" ), - TOKEN_ENTRY( 0x06f, "w@" ), - TOKEN_ENTRY( 0x070, "<w@" ), - TOKEN_ENTRY( 0x071, "c@" ), - TOKEN_ENTRY( 0x072, "!" ), - TOKEN_ENTRY( 0x073, "l!" ), - TOKEN_ENTRY( 0x074, "w!" ), - TOKEN_ENTRY( 0x075, "c!" ), - TOKEN_ENTRY( 0x076, "2@" ), - TOKEN_ENTRY( 0x077, "2!" ), - TOKEN_ENTRY( 0x078, "move" ), - TOKEN_ENTRY( 0x079, "fill" ), - TOKEN_ENTRY( 0x07a, "comp" ), - TOKEN_ENTRY( 0x07b, "noop" ), - TOKEN_ENTRY( 0x07c, "lwsplit" ), - TOKEN_ENTRY( 0x07d, "wljoin" ), - TOKEN_ENTRY( 0x07e, "lbsplit" ), - TOKEN_ENTRY( 0x07f, "bljoin" ), - TOKEN_ENTRY( 0x080, "wbflip" ), - TOKEN_ENTRY( 0x081, "upc" ), - TOKEN_ENTRY( 0x082, "lcc" ), - TOKEN_ENTRY( 0x083, "pack" ), - TOKEN_ENTRY( 0x084, "count" ), - TOKEN_ENTRY( 0x085, "body>" ), - TOKEN_ENTRY( 0x086, ">body" ), - TOKEN_ENTRY( 0x087, "fcode-revision" ), - TOKEN_ENTRY( 0x088, "span" ), - TOKEN_ENTRY( 0x089, "unloop" ), - TOKEN_ENTRY( 0x08a, "expect" ), - TOKEN_ENTRY( 0x08b, "alloc-mem" ), - TOKEN_ENTRY( 0x08c, "free-mem" ), - TOKEN_ENTRY( 0x08d, "key?" ), - TOKEN_ENTRY( 0x08e, "key" ), - TOKEN_ENTRY( 0x08f, "emit" ), - TOKEN_ENTRY( 0x090, "type" ), - TOKEN_ENTRY( 0x091, "(cr" ), - TOKEN_ENTRY( 0x092, "cr" ), - TOKEN_ENTRY( 0x093, "#out" ), - TOKEN_ENTRY( 0x094, "#line" ), - TOKEN_ENTRY( 0x095, "hold" ), - TOKEN_ENTRY( 0x096, "<#" ), - TOKEN_ENTRY( 0x097, "u#>" ), - TOKEN_ENTRY( 0x098, "sign" ), - TOKEN_ENTRY( 0x099, "u#" ), - TOKEN_ENTRY( 0x09a, "u#s" ), - TOKEN_ENTRY( 0x09b, "u." ), - TOKEN_ENTRY( 0x09c, "u.r" ), - TOKEN_ENTRY( 0x09d, "." ), - TOKEN_ENTRY( 0x09e, ".r" ), - TOKEN_ENTRY( 0x09f, ".s" ), - TOKEN_ENTRY( 0x0a0, "base" ), - TOKEN_ENTRY( 0x0a1, "convert" ), - TOKEN_ENTRY( 0x0a2, "$number" ), - TOKEN_ENTRY( 0x0a3, "digit" ), - TOKEN_ENTRY( 0x0a4, "-1" ), - TOKEN_ENTRY( 0x0a5, "0" ), - TOKEN_ENTRY( 0x0a6, "1" ), - TOKEN_ENTRY( 0x0a7, "2" ), - TOKEN_ENTRY( 0x0a8, "3" ), - TOKEN_ENTRY( 0x0a9, "bl" ), - TOKEN_ENTRY( 0x0aa, "bs" ), - TOKEN_ENTRY( 0x0ab, "bell" ), - TOKEN_ENTRY( 0x0ac, "bounds" ), - TOKEN_ENTRY( 0x0ad, "here" ), - TOKEN_ENTRY( 0x0ae, "aligned" ), - TOKEN_ENTRY( 0x0af, "wbsplit" ), - TOKEN_ENTRY( 0x0b0, "bwjoin" ), - TOKEN_ENTRY( 0x0b1, "b(<mark)" ), - TOKEN_ENTRY( 0x0b2, "b(>resolve)" ), - TOKEN_ENTRY( 0x0b3, "set-token-table" ), - TOKEN_ENTRY( 0x0b4, "set-table" ), - TOKEN_ENTRY( 0x0b5, "new-token" ), - TOKEN_ENTRY( 0x0b6, "named-token" ), - TOKEN_ENTRY( 0x0b7, "b(:)" ), - TOKEN_ENTRY( 0x0b8, "b(value)" ), - TOKEN_ENTRY( 0x0b9, "b(variable)" ), - TOKEN_ENTRY( 0x0ba, "b(constant)" ), - TOKEN_ENTRY( 0x0bb, "b(create)" ), - TOKEN_ENTRY( 0x0bc, "b(defer)" ), - TOKEN_ENTRY( 0x0bd, "b(buffer:)" ), - TOKEN_ENTRY( 0x0be, "b(field)" ), - TOKEN_ENTRY( 0x0bf, "b(code)" ), - TOKEN_ENTRY( 0x0c0, "instance" ), - TOKEN_ENTRY( 0x0c2, "b(;)" ), - TOKEN_ENTRY( 0x0c3, "b(to)" ), - TOKEN_ENTRY( 0x0c4, "b(case)" ), - TOKEN_ENTRY( 0x0c5, "b(endcase)" ), - TOKEN_ENTRY( 0x0c6, "b(endof)" ), - TOKEN_ENTRY( 0x0c7, "#" ), - TOKEN_ENTRY( 0x0c8, "#s" ), - TOKEN_ENTRY( 0x0c9, "#>" ), - TOKEN_ENTRY( 0x0ca, "external-token" ), - TOKEN_ENTRY( 0x0cb, "$find" ), - TOKEN_ENTRY( 0x0cc, "offset16" ), - TOKEN_ENTRY( 0x0cd, "evaluate" ), - TOKEN_ENTRY( 0x0d0, "c," ), - TOKEN_ENTRY( 0x0d1, "w," ), - TOKEN_ENTRY( 0x0d2, "l," ), - TOKEN_ENTRY( 0x0d3, "," ), - TOKEN_ENTRY( 0x0d4, "um*" ), - TOKEN_ENTRY( 0x0d5, "um/mod" ), - TOKEN_ENTRY( 0x0d8, "d+" ), - TOKEN_ENTRY( 0x0d9, "d-" ), - TOKEN_ENTRY( 0x0da, "get-token" ), - TOKEN_ENTRY( 0x0db, "set-token" ), - TOKEN_ENTRY( 0x0dc, "state" ), - TOKEN_ENTRY( 0x0dd, "compile" ), - TOKEN_ENTRY( 0x0de, "behavior" ), - TOKEN_ENTRY( 0x0f0, "start0" ), - TOKEN_ENTRY( 0x0f1, "start1" ), - TOKEN_ENTRY( 0x0f2, "start2" ), - TOKEN_ENTRY( 0x0f3, "start4" ), - TOKEN_ENTRY( 0x0fc, "ferror" ), - TOKEN_ENTRY( 0x0fd, "version1" ), - TOKEN_ENTRY( 0x0fe, "4-byte-id" ), - TOKEN_ENTRY( 0x0ff, "end1" ), - TOKEN_ENTRY( 0x101, "dma-alloc" ), - TOKEN_ENTRY( 0x102, "my-address" ), - TOKEN_ENTRY( 0x103, "my-space" ), - TOKEN_ENTRY( 0x104, "memmap" ), - TOKEN_ENTRY( 0x105, "free-virtual" ), - TOKEN_ENTRY( 0x106, ">physical" ), - TOKEN_ENTRY( 0x10f, "my-params" ), - TOKEN_ENTRY( 0x110, "property" ), - TOKEN_ENTRY( 0x111, "encode-int" ), - TOKEN_ENTRY( 0x112, "encode+" ), - TOKEN_ENTRY( 0x113, "encode-phys" ), - TOKEN_ENTRY( 0x114, "encode-string" ), - TOKEN_ENTRY( 0x115, "encode-bytes" ), - TOKEN_ENTRY( 0x116, "reg" ), - TOKEN_ENTRY( 0x117, "intr" ), - TOKEN_ENTRY( 0x118, "driver" ), - TOKEN_ENTRY( 0x119, "model" ), - TOKEN_ENTRY( 0x11a, "device-type" ), - TOKEN_ENTRY( 0x11b, "parse-2int" ), - TOKEN_ENTRY( 0x11c, "is-install" ), - TOKEN_ENTRY( 0x11d, "is-remove" ), - TOKEN_ENTRY( 0x11e, "is-selftest" ), - TOKEN_ENTRY( 0x11f, "new-device" ), - TOKEN_ENTRY( 0x120, "diagnostic-mode?" ), - TOKEN_ENTRY( 0x121, "display-status" ), - TOKEN_ENTRY( 0x122, "memory-test-issue" ), - TOKEN_ENTRY( 0x123, "group-code" ), - TOKEN_ENTRY( 0x124, "mask" ), - TOKEN_ENTRY( 0x125, "get-msecs" ), - TOKEN_ENTRY( 0x126, "ms" ), - TOKEN_ENTRY( 0x127, "finish-device" ), - TOKEN_ENTRY( 0x128, "decode-phys" ), - TOKEN_ENTRY( 0x12b, "interpose" ), - TOKEN_ENTRY( 0x130, "map-low" ), - TOKEN_ENTRY( 0x131, "sbus-intr>cpu" ), - TOKEN_ENTRY( 0x150, "#lines" ), - TOKEN_ENTRY( 0x151, "#columns" ), - TOKEN_ENTRY( 0x152, "line#" ), - TOKEN_ENTRY( 0x153, "column#" ), - TOKEN_ENTRY( 0x154, "inverse?" ), - TOKEN_ENTRY( 0x155, "inverse-screen?" ), - TOKEN_ENTRY( 0x156, "frame-buffer-busy?" ), - TOKEN_ENTRY( 0x157, "draw-character" ), - TOKEN_ENTRY( 0x158, "reset-screen" ), - TOKEN_ENTRY( 0x159, "toggle-cursor" ), - TOKEN_ENTRY( 0x15a, "erase-screen" ), - TOKEN_ENTRY( 0x15b, "blink-screen" ), - TOKEN_ENTRY( 0x15c, "invert-screen" ), - TOKEN_ENTRY( 0x15d, "insert-characters" ), - TOKEN_ENTRY( 0x15e, "delete-characters" ), - TOKEN_ENTRY( 0x15f, "insert-lines" ), - TOKEN_ENTRY( 0x160, "delete-lines" ), - TOKEN_ENTRY( 0x161, "draw-logo" ), - TOKEN_ENTRY( 0x162, "frame-buffer-adr" ), - TOKEN_ENTRY( 0x163, "screen-height" ), - TOKEN_ENTRY( 0x164, "screen-width" ), - TOKEN_ENTRY( 0x165, "window-top" ), - TOKEN_ENTRY( 0x166, "window-left" ), - TOKEN_ENTRY( 0x16a, "default-font" ), - TOKEN_ENTRY( 0x16b, "set-font" ), - TOKEN_ENTRY( 0x16c, "char-height" ), - TOKEN_ENTRY( 0x16d, "char-width" ), - TOKEN_ENTRY( 0x16e, ">font" ), - TOKEN_ENTRY( 0x16f, "fontbytes" ), - TOKEN_ENTRY( 0x170, "fb1-draw-character" ), - TOKEN_ENTRY( 0x171, "fb1-reset-screen" ), - TOKEN_ENTRY( 0x172, "fb1-toggle-cursor" ), - TOKEN_ENTRY( 0x173, "fb1-erase-screen" ), - TOKEN_ENTRY( 0x174, "fb1-blink-screen" ), - TOKEN_ENTRY( 0x175, "fb1-invert-screen" ), - TOKEN_ENTRY( 0x176, "fb1-insert-characters" ), - TOKEN_ENTRY( 0x177, "fb1-delete-characters" ), - TOKEN_ENTRY( 0x178, "fb1-insert-lines" ), - TOKEN_ENTRY( 0x179, "fb1-delete-lines" ), - TOKEN_ENTRY( 0x17a, "fb1-draw-logo" ), - TOKEN_ENTRY( 0x17b, "fb1-install" ), - TOKEN_ENTRY( 0x17c, "fb1-slide-up" ), - TOKEN_ENTRY( 0x180, "fb8-draw-character" ), - TOKEN_ENTRY( 0x181, "fb8-reset-screen" ), - TOKEN_ENTRY( 0x182, "fb8-toggle-cursor" ), - TOKEN_ENTRY( 0x183, "fb8-erase-screen" ), - TOKEN_ENTRY( 0x184, "fb8-blink-screen" ), - TOKEN_ENTRY( 0x185, "fb8-invert-screen" ), - TOKEN_ENTRY( 0x186, "fb8-insert-characters" ), - TOKEN_ENTRY( 0x187, "fb8-delete-characters" ), - TOKEN_ENTRY( 0x188, "fb8-insert-lines" ), - TOKEN_ENTRY( 0x189, "fb8-delete-lines" ), - TOKEN_ENTRY( 0x18a, "fb8-draw-logo" ), - TOKEN_ENTRY( 0x18b, "fb8-install" ), - TOKEN_ENTRY( 0x1a0, "return-buffer" ), - TOKEN_ENTRY( 0x1a1, "xmit-packet" ), - TOKEN_ENTRY( 0x1a2, "poll-packet" ), - TOKEN_ENTRY( 0x1a4, "mac-address" ), - TOKEN_ENTRY( 0x201, "device-name" ), - TOKEN_ENTRY( 0x202, "my-args" ), - TOKEN_ENTRY( 0x203, "my-self" ), - TOKEN_ENTRY( 0x204, "find-package" ), - TOKEN_ENTRY( 0x205, "open-package" ), - TOKEN_ENTRY( 0x206, "close-package" ), - TOKEN_ENTRY( 0x207, "find-method" ), - TOKEN_ENTRY( 0x208, "call-package" ), - TOKEN_ENTRY( 0x209, "$call-parent" ), - TOKEN_ENTRY( 0x20a, "my-parent" ), - TOKEN_ENTRY( 0x20b, "ihandle>phandle" ), - TOKEN_ENTRY( 0x20d, "my-unit" ), - TOKEN_ENTRY( 0x20e, "$call-method" ), - TOKEN_ENTRY( 0x20f, "$open-package" ), - TOKEN_ENTRY( 0x210, "processor-type" ), - TOKEN_ENTRY( 0x211, "firmware-version" ), - TOKEN_ENTRY( 0x212, "fcode-version" ), - TOKEN_ENTRY( 0x213, "alarm" ), - TOKEN_ENTRY( 0x214, "(is-user-word)" ), - TOKEN_ENTRY( 0x215, "suspend-fcode" ), - TOKEN_ENTRY( 0x216, "abort" ), - TOKEN_ENTRY( 0x217, "catch" ), - TOKEN_ENTRY( 0x218, "throw" ), - TOKEN_ENTRY( 0x219, "user-abort" ), - TOKEN_ENTRY( 0x21a, "get-my-property" ), - TOKEN_ENTRY( 0x21b, "decode-int" ), - TOKEN_ENTRY( 0x21c, "decode-string" ), - TOKEN_ENTRY( 0x21d, "get-inherited-property" ), - TOKEN_ENTRY( 0x21e, "delete-property" ), - TOKEN_ENTRY( 0x21f, "get-package-property" ), - TOKEN_ENTRY( 0x220, "cpeek" ), - TOKEN_ENTRY( 0x221, "wpeek" ), - TOKEN_ENTRY( 0x222, "lpeek" ), - TOKEN_ENTRY( 0x223, "cpoke" ), - TOKEN_ENTRY( 0x224, "wpoke" ), - TOKEN_ENTRY( 0x225, "lpoke" ), - TOKEN_ENTRY( 0x226, "lwflip" ), - TOKEN_ENTRY( 0x227, "lbflip" ), - TOKEN_ENTRY( 0x228, "lbflips" ), - TOKEN_ENTRY( 0x229, "adr-mask" ), - TOKEN_ENTRY( 0x230, "rb@" ), - TOKEN_ENTRY( 0x231, "rb!" ), - TOKEN_ENTRY( 0x232, "rw@" ), - TOKEN_ENTRY( 0x233, "rw!" ), - TOKEN_ENTRY( 0x234, "rl@" ), - TOKEN_ENTRY( 0x235, "rl!" ), - TOKEN_ENTRY( 0x236, "wbflips" ), - TOKEN_ENTRY( 0x237, "lwflips" ), - TOKEN_ENTRY( 0x238, "probe" ), - TOKEN_ENTRY( 0x239, "probe-virtual" ), - TOKEN_ENTRY( 0x23b, "child" ), - TOKEN_ENTRY( 0x23c, "peer" ), - TOKEN_ENTRY( 0x23d, "next-property" ), - TOKEN_ENTRY( 0x23e, "byte-load" ), - TOKEN_ENTRY( 0x23f, "set-args" ), - TOKEN_ENTRY( 0x240, "left-parse-string" ), + TOKEN_ENTRY(0x000, "end0"), + TOKEN_ENTRY(0x010, "b(lit)"), + TOKEN_ENTRY(0x011, "b(')"), + TOKEN_ENTRY(0x012, "b(\")"), + TOKEN_ENTRY(0x013, "bbranch"), + TOKEN_ENTRY(0x014, "b?branch"), + TOKEN_ENTRY(0x015, "b(loop)"), + TOKEN_ENTRY(0x016, "b(+loop)"), + TOKEN_ENTRY(0x017, "b(do)"), + TOKEN_ENTRY(0x018, "b(?do)"), + TOKEN_ENTRY(0x019, "i"), + TOKEN_ENTRY(0x01a, "j"), + TOKEN_ENTRY(0x01b, "b(leave)"), + TOKEN_ENTRY(0x01c, "b(of)"), + TOKEN_ENTRY(0x01d, "execute"), + TOKEN_ENTRY(0x01e, "+"), + TOKEN_ENTRY(0x01f, "-"), + TOKEN_ENTRY(0x020, "*"), + TOKEN_ENTRY(0x021, "/"), + TOKEN_ENTRY(0x022, "mod"), + TOKEN_ENTRY(0x023, "and"), + TOKEN_ENTRY(0x024, "or"), + TOKEN_ENTRY(0x025, "xor"), + TOKEN_ENTRY(0x026, "invert"), + TOKEN_ENTRY(0x027, "lshift"), + TOKEN_ENTRY(0x028, "rshift"), + TOKEN_ENTRY(0x029, ">>a"), + TOKEN_ENTRY(0x02a, "/mod"), + TOKEN_ENTRY(0x02b, "u/mod"), + TOKEN_ENTRY(0x02c, "negate"), + TOKEN_ENTRY(0x02d, "abs"), + TOKEN_ENTRY(0x02e, "min"), + TOKEN_ENTRY(0x02f, "max"), + TOKEN_ENTRY(0x030, ">r"), + TOKEN_ENTRY(0x031, "r>"), + TOKEN_ENTRY(0x032, "r@"), + TOKEN_ENTRY(0x033, "exit"), + TOKEN_ENTRY(0x034, "0="), + TOKEN_ENTRY(0x035, "0<>"), + TOKEN_ENTRY(0x036, "0<"), + TOKEN_ENTRY(0x037, "0<="), + TOKEN_ENTRY(0x038, "0>"), + TOKEN_ENTRY(0x039, "0>="), + TOKEN_ENTRY(0x03a, "<"), + TOKEN_ENTRY(0x03b, ">"), + TOKEN_ENTRY(0x03c, "="), + TOKEN_ENTRY(0x03d, "<>"), + TOKEN_ENTRY(0x03e, "u>"), + TOKEN_ENTRY(0x03f, "u<="), + TOKEN_ENTRY(0x040, "u<"), + TOKEN_ENTRY(0x041, "u>="), + TOKEN_ENTRY(0x042, ">="), + TOKEN_ENTRY(0x043, "<="), + TOKEN_ENTRY(0x044, "between"), + TOKEN_ENTRY(0x045, "within"), + TOKEN_ENTRY(0x046, "drop"), + TOKEN_ENTRY(0x047, "dup"), + TOKEN_ENTRY(0x048, "over"), + TOKEN_ENTRY(0x049, "swap"), + TOKEN_ENTRY(0x04A, "rot"), + TOKEN_ENTRY(0x04b, "-rot"), + TOKEN_ENTRY(0x04c, "tuck"), + TOKEN_ENTRY(0x04d, "nip"), + TOKEN_ENTRY(0x04e, "pick"), + TOKEN_ENTRY(0x04f, "roll"), + TOKEN_ENTRY(0x050, "?dup"), + TOKEN_ENTRY(0x051, "depth"), + TOKEN_ENTRY(0x052, "2drop"), + TOKEN_ENTRY(0x053, "2dup"), + TOKEN_ENTRY(0x054, "2over"), + TOKEN_ENTRY(0x055, "2swap"), + TOKEN_ENTRY(0x056, "2rot"), + TOKEN_ENTRY(0x057, "2/"), + TOKEN_ENTRY(0x058, "u2/"), + TOKEN_ENTRY(0x059, "2*"), + TOKEN_ENTRY(0x05a, "/c"), + TOKEN_ENTRY(0x05b, "/w"), + TOKEN_ENTRY(0x05c, "/l"), + TOKEN_ENTRY(0x05d, "/n"), + TOKEN_ENTRY(0x05e, "ca+"), + TOKEN_ENTRY(0x05f, "wa+"), + TOKEN_ENTRY(0x060, "la+"), + TOKEN_ENTRY(0x061, "na+"), + TOKEN_ENTRY(0x062, "char+"), + TOKEN_ENTRY(0x063, "wa1+"), + TOKEN_ENTRY(0x064, "la1+"), + TOKEN_ENTRY(0x065, "cell+"), + TOKEN_ENTRY(0x066, "chars"), + TOKEN_ENTRY(0x067, "/w*"), + TOKEN_ENTRY(0x068, "/l*"), + TOKEN_ENTRY(0x069, "cells"), + TOKEN_ENTRY(0x06a, "on"), + TOKEN_ENTRY(0x06b, "off"), + TOKEN_ENTRY(0x06c, "+!"), + TOKEN_ENTRY(0x06d, "@"), + TOKEN_ENTRY(0x06e, "l@"), + TOKEN_ENTRY(0x06f, "w@"), + TOKEN_ENTRY(0x070, "<w@"), + TOKEN_ENTRY(0x071, "c@"), + TOKEN_ENTRY(0x072, "!"), + TOKEN_ENTRY(0x073, "l!"), + TOKEN_ENTRY(0x074, "w!"), + TOKEN_ENTRY(0x075, "c!"), + TOKEN_ENTRY(0x076, "2@"), + TOKEN_ENTRY(0x077, "2!"), + TOKEN_ENTRY(0x078, "move"), + TOKEN_ENTRY(0x079, "fill"), + TOKEN_ENTRY(0x07a, "comp"), + TOKEN_ENTRY(0x07b, "noop"), + TOKEN_ENTRY(0x07c, "lwsplit"), + TOKEN_ENTRY(0x07d, "wljoin"), + TOKEN_ENTRY(0x07e, "lbsplit"), + TOKEN_ENTRY(0x07f, "bljoin"), + TOKEN_ENTRY(0x080, "wbflip"), + TOKEN_ENTRY(0x081, "upc"), + TOKEN_ENTRY(0x082, "lcc"), + TOKEN_ENTRY(0x083, "pack"), + TOKEN_ENTRY(0x084, "count"), + TOKEN_ENTRY(0x085, "body>"), + TOKEN_ENTRY(0x086, ">body"), + TOKEN_ENTRY(0x087, "fcode-revision"), + TOKEN_ENTRY(0x088, "span"), + TOKEN_ENTRY(0x089, "unloop"), + TOKEN_ENTRY(0x08a, "expect"), + TOKEN_ENTRY(0x08b, "alloc-mem"), + TOKEN_ENTRY(0x08c, "free-mem"), + TOKEN_ENTRY(0x08d, "key?"), + TOKEN_ENTRY(0x08e, "key"), + TOKEN_ENTRY(0x08f, "emit"), + TOKEN_ENTRY(0x090, "type"), + TOKEN_ENTRY(0x091, "(cr"), + TOKEN_ENTRY(0x092, "cr"), + TOKEN_ENTRY(0x093, "#out"), + TOKEN_ENTRY(0x094, "#line"), + TOKEN_ENTRY(0x095, "hold"), + TOKEN_ENTRY(0x096, "<#"), + TOKEN_ENTRY(0x097, "u#>"), + TOKEN_ENTRY(0x098, "sign"), + TOKEN_ENTRY(0x099, "u#"), + TOKEN_ENTRY(0x09a, "u#s"), + TOKEN_ENTRY(0x09b, "u."), + TOKEN_ENTRY(0x09c, "u.r"), + TOKEN_ENTRY(0x09d, "."), + TOKEN_ENTRY(0x09e, ".r"), + TOKEN_ENTRY(0x09f, ".s"), + TOKEN_ENTRY(0x0a0, "base"), + TOKEN_ENTRY(0x0a1, "convert"), + TOKEN_ENTRY(0x0a2, "$number"), + TOKEN_ENTRY(0x0a3, "digit"), + TOKEN_ENTRY(0x0a4, "-1"), + TOKEN_ENTRY(0x0a5, "0"), + TOKEN_ENTRY(0x0a6, "1"), + TOKEN_ENTRY(0x0a7, "2"), + TOKEN_ENTRY(0x0a8, "3"), + TOKEN_ENTRY(0x0a9, "bl"), + TOKEN_ENTRY(0x0aa, "bs"), + TOKEN_ENTRY(0x0ab, "bell"), + TOKEN_ENTRY(0x0ac, "bounds"), + TOKEN_ENTRY(0x0ad, "here"), + TOKEN_ENTRY(0x0ae, "aligned"), + TOKEN_ENTRY(0x0af, "wbsplit"), + TOKEN_ENTRY(0x0b0, "bwjoin"), + TOKEN_ENTRY(0x0b1, "b(<mark)"), + TOKEN_ENTRY(0x0b2, "b(>resolve)"), + TOKEN_ENTRY(0x0b3, "set-token-table"), + TOKEN_ENTRY(0x0b4, "set-table"), + TOKEN_ENTRY(0x0b5, "new-token"), + TOKEN_ENTRY(0x0b6, "named-token"), + TOKEN_ENTRY(0x0b7, "b(:)"), + TOKEN_ENTRY(0x0b8, "b(value)"), + TOKEN_ENTRY(0x0b9, "b(variable)"), + TOKEN_ENTRY(0x0ba, "b(constant)"), + TOKEN_ENTRY(0x0bb, "b(create)"), + TOKEN_ENTRY(0x0bc, "b(defer)"), + TOKEN_ENTRY(0x0bd, "b(buffer:)"), + TOKEN_ENTRY(0x0be, "b(field)"), + TOKEN_ENTRY(0x0bf, "b(code)"), + TOKEN_ENTRY(0x0c0, "instance"), + TOKEN_ENTRY(0x0c2, "b(;)"), + TOKEN_ENTRY(0x0c3, "b(to)"), + TOKEN_ENTRY(0x0c4, "b(case)"), + TOKEN_ENTRY(0x0c5, "b(endcase)"), + TOKEN_ENTRY(0x0c6, "b(endof)"), + TOKEN_ENTRY(0x0c7, "#"), + TOKEN_ENTRY(0x0c8, "#s"), + TOKEN_ENTRY(0x0c9, "#>"), + TOKEN_ENTRY(0x0ca, "external-token"), + TOKEN_ENTRY(0x0cb, "$find"), + TOKEN_ENTRY(0x0cc, "offset16"), + TOKEN_ENTRY(0x0cd, "evaluate"), + TOKEN_ENTRY(0x0d0, "c,"), + TOKEN_ENTRY(0x0d1, "w,"), + TOKEN_ENTRY(0x0d2, "l,"), + TOKEN_ENTRY(0x0d3, ","), + TOKEN_ENTRY(0x0d4, "um*"), + TOKEN_ENTRY(0x0d5, "um/mod"), + TOKEN_ENTRY(0x0d8, "d+"), + TOKEN_ENTRY(0x0d9, "d-"), + TOKEN_ENTRY(0x0da, "get-token"), + TOKEN_ENTRY(0x0db, "set-token"), + TOKEN_ENTRY(0x0dc, "state"), + TOKEN_ENTRY(0x0dd, "compile"), + TOKEN_ENTRY(0x0de, "behavior"), + TOKEN_ENTRY(0x0f0, "start0"), + TOKEN_ENTRY(0x0f1, "start1"), + TOKEN_ENTRY(0x0f2, "start2"), + TOKEN_ENTRY(0x0f3, "start4"), + TOKEN_ENTRY(0x0fc, "ferror"), + TOKEN_ENTRY(0x0fd, "version1"), + TOKEN_ENTRY(0x0fe, "4-byte-id"), + TOKEN_ENTRY(0x0ff, "end1"), + TOKEN_ENTRY(0x101, "dma-alloc"), + TOKEN_ENTRY(0x102, "my-address"), + TOKEN_ENTRY(0x103, "my-space"), + TOKEN_ENTRY(0x104, "memmap"), + TOKEN_ENTRY(0x105, "free-virtual"), + TOKEN_ENTRY(0x106, ">physical"), + TOKEN_ENTRY(0x10f, "my-params"), + TOKEN_ENTRY(0x110, "property"), + TOKEN_ENTRY(0x111, "encode-int"), + TOKEN_ENTRY(0x112, "encode+"), + TOKEN_ENTRY(0x113, "encode-phys"), + TOKEN_ENTRY(0x114, "encode-string"), + TOKEN_ENTRY(0x115, "encode-bytes"), + TOKEN_ENTRY(0x116, "reg"), + TOKEN_ENTRY(0x117, "intr"), + TOKEN_ENTRY(0x118, "driver"), + TOKEN_ENTRY(0x119, "model"), + TOKEN_ENTRY(0x11a, "device-type"), + TOKEN_ENTRY(0x11b, "parse-2int"), + TOKEN_ENTRY(0x11c, "is-install"), + TOKEN_ENTRY(0x11d, "is-remove"), + TOKEN_ENTRY(0x11e, "is-selftest"), + TOKEN_ENTRY(0x11f, "new-device"), + TOKEN_ENTRY(0x120, "diagnostic-mode?"), + TOKEN_ENTRY(0x121, "display-status"), + TOKEN_ENTRY(0x122, "memory-test-issue"), + TOKEN_ENTRY(0x123, "group-code"), + TOKEN_ENTRY(0x124, "mask"), + TOKEN_ENTRY(0x125, "get-msecs"), + TOKEN_ENTRY(0x126, "ms"), + TOKEN_ENTRY(0x127, "finish-device"), + TOKEN_ENTRY(0x128, "decode-phys"), + TOKEN_ENTRY(0x12b, "interpose"), + TOKEN_ENTRY(0x130, "map-low"), + TOKEN_ENTRY(0x131, "sbus-intr>cpu"), + TOKEN_ENTRY(0x150, "#lines"), + TOKEN_ENTRY(0x151, "#columns"), + TOKEN_ENTRY(0x152, "line#"), + TOKEN_ENTRY(0x153, "column#"), + TOKEN_ENTRY(0x154, "inverse?"), + TOKEN_ENTRY(0x155, "inverse-screen?"), + TOKEN_ENTRY(0x156, "frame-buffer-busy?"), + TOKEN_ENTRY(0x157, "draw-character"), + TOKEN_ENTRY(0x158, "reset-screen"), + TOKEN_ENTRY(0x159, "toggle-cursor"), + TOKEN_ENTRY(0x15a, "erase-screen"), + TOKEN_ENTRY(0x15b, "blink-screen"), + TOKEN_ENTRY(0x15c, "invert-screen"), + TOKEN_ENTRY(0x15d, "insert-characters"), + TOKEN_ENTRY(0x15e, "delete-characters"), + TOKEN_ENTRY(0x15f, "insert-lines"), + TOKEN_ENTRY(0x160, "delete-lines"), + TOKEN_ENTRY(0x161, "draw-logo"), + TOKEN_ENTRY(0x162, "frame-buffer-adr"), + TOKEN_ENTRY(0x163, "screen-height"), + TOKEN_ENTRY(0x164, "screen-width"), + TOKEN_ENTRY(0x165, "window-top"), + TOKEN_ENTRY(0x166, "window-left"), + TOKEN_ENTRY(0x16a, "default-font"), + TOKEN_ENTRY(0x16b, "set-font"), + TOKEN_ENTRY(0x16c, "char-height"), + TOKEN_ENTRY(0x16d, "char-width"), + TOKEN_ENTRY(0x16e, ">font"), + TOKEN_ENTRY(0x16f, "fontbytes"), + TOKEN_ENTRY(0x170, "fb1-draw-character"), + TOKEN_ENTRY(0x171, "fb1-reset-screen"), + TOKEN_ENTRY(0x172, "fb1-toggle-cursor"), + TOKEN_ENTRY(0x173, "fb1-erase-screen"), + TOKEN_ENTRY(0x174, "fb1-blink-screen"), + TOKEN_ENTRY(0x175, "fb1-invert-screen"), + TOKEN_ENTRY(0x176, "fb1-insert-characters"), + TOKEN_ENTRY(0x177, "fb1-delete-characters"), + TOKEN_ENTRY(0x178, "fb1-insert-lines"), + TOKEN_ENTRY(0x179, "fb1-delete-lines"), + TOKEN_ENTRY(0x17a, "fb1-draw-logo"), + TOKEN_ENTRY(0x17b, "fb1-install"), + TOKEN_ENTRY(0x17c, "fb1-slide-up"), + TOKEN_ENTRY(0x180, "fb8-draw-character"), + TOKEN_ENTRY(0x181, "fb8-reset-screen"), + TOKEN_ENTRY(0x182, "fb8-toggle-cursor"), + TOKEN_ENTRY(0x183, "fb8-erase-screen"), + TOKEN_ENTRY(0x184, "fb8-blink-screen"), + TOKEN_ENTRY(0x185, "fb8-invert-screen"), + TOKEN_ENTRY(0x186, "fb8-insert-characters"), + TOKEN_ENTRY(0x187, "fb8-delete-characters"), + TOKEN_ENTRY(0x188, "fb8-insert-lines"), + TOKEN_ENTRY(0x189, "fb8-delete-lines"), + TOKEN_ENTRY(0x18a, "fb8-draw-logo"), + TOKEN_ENTRY(0x18b, "fb8-install"), + TOKEN_ENTRY(0x1a0, "return-buffer"), + TOKEN_ENTRY(0x1a1, "xmit-packet"), + TOKEN_ENTRY(0x1a2, "poll-packet"), + TOKEN_ENTRY(0x1a4, "mac-address"), + TOKEN_ENTRY(0x201, "device-name"), + TOKEN_ENTRY(0x202, "my-args"), + TOKEN_ENTRY(0x203, "my-self"), + TOKEN_ENTRY(0x204, "find-package"), + TOKEN_ENTRY(0x205, "open-package"), + TOKEN_ENTRY(0x206, "close-package"), + TOKEN_ENTRY(0x207, "find-method"), + TOKEN_ENTRY(0x208, "call-package"), + TOKEN_ENTRY(0x209, "$call-parent"), + TOKEN_ENTRY(0x20a, "my-parent"), + TOKEN_ENTRY(0x20b, "ihandle>phandle"), + TOKEN_ENTRY(0x20d, "my-unit"), + TOKEN_ENTRY(0x20e, "$call-method"), + TOKEN_ENTRY(0x20f, "$open-package"), + TOKEN_ENTRY(0x210, "processor-type"), + TOKEN_ENTRY(0x211, "firmware-version"), + TOKEN_ENTRY(0x212, "fcode-version"), + TOKEN_ENTRY(0x213, "alarm"), + TOKEN_ENTRY(0x214, "(is-user-word)"), + TOKEN_ENTRY(0x215, "suspend-fcode"), + TOKEN_ENTRY(0x216, "abort"), + TOKEN_ENTRY(0x217, "catch"), + TOKEN_ENTRY(0x218, "throw"), + TOKEN_ENTRY(0x219, "user-abort"), + TOKEN_ENTRY(0x21a, "get-my-property"), + TOKEN_ENTRY(0x21b, "decode-int"), + TOKEN_ENTRY(0x21c, "decode-string"), + TOKEN_ENTRY(0x21d, "get-inherited-property"), + TOKEN_ENTRY(0x21e, "delete-property"), + TOKEN_ENTRY(0x21f, "get-package-property"), + TOKEN_ENTRY(0x220, "cpeek"), + TOKEN_ENTRY(0x221, "wpeek"), + TOKEN_ENTRY(0x222, "lpeek"), + TOKEN_ENTRY(0x223, "cpoke"), + TOKEN_ENTRY(0x224, "wpoke"), + TOKEN_ENTRY(0x225, "lpoke"), + TOKEN_ENTRY(0x226, "lwflip"), + TOKEN_ENTRY(0x227, "lbflip"), + TOKEN_ENTRY(0x228, "lbflips"), + TOKEN_ENTRY(0x229, "adr-mask"), + TOKEN_ENTRY(0x230, "rb@"), + TOKEN_ENTRY(0x231, "rb!"), + TOKEN_ENTRY(0x232, "rw@"), + TOKEN_ENTRY(0x233, "rw!"), + TOKEN_ENTRY(0x234, "rl@"), + TOKEN_ENTRY(0x235, "rl!"), + TOKEN_ENTRY(0x236, "wbflips"), + TOKEN_ENTRY(0x237, "lwflips"), + TOKEN_ENTRY(0x238, "probe"), + TOKEN_ENTRY(0x239, "probe-virtual"), + TOKEN_ENTRY(0x23b, "child"), + TOKEN_ENTRY(0x23c, "peer"), + TOKEN_ENTRY(0x23d, "next-property"), + TOKEN_ENTRY(0x23e, "byte-load"), + TOKEN_ENTRY(0x23f, "set-args"), + TOKEN_ENTRY(0x240, "left-parse-string"), /* FCodes from 64bit extension addendum */ - TOKEN_ENTRY( 0x22e, "rx@" ), - TOKEN_ENTRY( 0x22f, "rx!" ), - TOKEN_ENTRY( 0x241, "bxjoin" ), - TOKEN_ENTRY( 0x242, "<l@" ), - TOKEN_ENTRY( 0x243, "lxjoin" ), - TOKEN_ENTRY( 0x244, "wxjoin" ), - TOKEN_ENTRY( 0x245, "x," ), - TOKEN_ENTRY( 0x246, "x@" ), - TOKEN_ENTRY( 0x247, "x!" ), - TOKEN_ENTRY( 0x248, "/x" ), - TOKEN_ENTRY( 0x249, "/x*" ), - TOKEN_ENTRY( 0x24a, "xa+" ), - TOKEN_ENTRY( 0x24b, "xa1+" ), - TOKEN_ENTRY( 0x24c, "xbflip" ), - TOKEN_ENTRY( 0x24d, "xbflips" ), - TOKEN_ENTRY( 0x24e, "xbsplit" ), - TOKEN_ENTRY( 0x24f, "xlflip" ), - TOKEN_ENTRY( 0x250, "xlflips" ), - TOKEN_ENTRY( 0x251, "xlsplit" ), - TOKEN_ENTRY( 0x252, "xwflip" ), - TOKEN_ENTRY( 0x253, "xwflips" ), - TOKEN_ENTRY( 0x254, "xwsplit" ), + TOKEN_ENTRY(0x22e, "rx@"), + TOKEN_ENTRY(0x22f, "rx!"), + TOKEN_ENTRY(0x241, "bxjoin"), + TOKEN_ENTRY(0x242, "<l@"), + TOKEN_ENTRY(0x243, "lxjoin"), + TOKEN_ENTRY(0x244, "wxjoin"), + TOKEN_ENTRY(0x245, "x,"), + TOKEN_ENTRY(0x246, "x@"), + TOKEN_ENTRY(0x247, "x!"), + TOKEN_ENTRY(0x248, "/x"), + TOKEN_ENTRY(0x249, "/x*"), + TOKEN_ENTRY(0x24a, "xa+"), + TOKEN_ENTRY(0x24b, "xa1+"), + TOKEN_ENTRY(0x24c, "xbflip"), + TOKEN_ENTRY(0x24d, "xbflips"), + TOKEN_ENTRY(0x24e, "xbsplit"), + TOKEN_ENTRY(0x24f, "xlflip"), + TOKEN_ENTRY(0x250, "xlflips"), + TOKEN_ENTRY(0x251, "xlsplit"), + TOKEN_ENTRY(0x252, "xwflip"), + TOKEN_ENTRY(0x253, "xwflips"), + TOKEN_ENTRY(0x254, "xwsplit"), }; -static const int dictionary_indx_max = (sizeof(detok_table)/sizeof(token_t)) ; +static const int dictionary_indx_max = + (sizeof(detok_table) / sizeof(token_t)); static token_t *dictionary_reset_position; -void init_dictionary(void) +void init_dictionary(void) { - int indx; + int indx; - dictionary = &detok_table[dictionary_indx_max-1]; - dictionary_reset_position = dictionary; + dictionary = &detok_table[dictionary_indx_max - 1]; + dictionary_reset_position = dictionary; - for (indx = 1; indx < dictionary_indx_max ; indx++ ) - { - detok_table[indx].next = &detok_table[indx-1]; - } + for (indx = 1; indx < dictionary_indx_max; indx++) { + detok_table[indx].next = &detok_table[indx - 1]; + } } -void reset_dictionary(void) +void reset_dictionary(void) { - token_t *next_t; + token_t *next_t; - next_t = dictionary; - while ( next_t != dictionary_reset_position ) - { - next_t = dictionary->next ; - free( dictionary->name ); - free( dictionary ); - dictionary = next_t ; - } + next_t = dictionary; + while (next_t != dictionary_reset_position) { + next_t = dictionary->next; + free(dictionary->name); + free(dictionary); + dictionary = next_t; + } } /* If FCodes have been added by User, we need to update reset-position */ void freeze_dictionary(void) { - dictionary_reset_position = dictionary; + dictionary_reset_position = dictionary; } Modified: fcode-utils/detok/pcihdr.c =================================================================== --- fcode-utils/detok/pcihdr.c 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/pcihdr.c 2006-10-14 21:32:13 UTC (rev 96) @@ -136,18 +136,17 @@ * **************************************************************************** */ -static int is_pci_header ( rom_header_t *pci_rom_hdr ) +static int is_pci_header(rom_header_t * pci_rom_hdr) { - const u16 pci_header_signature = 0x55aa; - int retval ; + const u16 pci_header_signature = 0x55aa; + int retval; - retval = 0; + retval = 0; - if ( BIG_ENDIAN_WORD_FETCH(pci_rom_hdr->signature) == pci_header_signature ) - { - retval = LITTLE_ENDIAN_WORD_FETCH(pci_rom_hdr->data_ptr); - } - return(retval); + if (BIG_ENDIAN_WORD_FETCH(pci_rom_hdr->signature) == pci_header_signature) { + retval = LITTLE_ENDIAN_WORD_FETCH(pci_rom_hdr->data_ptr); + } + return (retval); } /* ************************************************************************** @@ -196,20 +195,19 @@ * **************************************************************************** */ -static int is_pci_data_struct ( pci_data_t *pci_data_ptr ) +static int is_pci_data_struct(pci_data_t * pci_data_ptr) { - int retval ; + int retval; - retval = 0; + retval = 0; - if (BIG_ENDIAN_LONG_FETCH(pci_data_ptr->signature) == PCI_DATA_HDR) - { - retval = LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->dlen); - } - return(retval); + if (BIG_ENDIAN_LONG_FETCH(pci_data_ptr->signature) == PCI_DATA_HDR) { + retval = LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->dlen); + } + return (retval); } - + /* ************************************************************************** * * Function name: announce_pci_hdr ( rom_header_t *pci_rom_hdr ) @@ -226,16 +224,16 @@ * **************************************************************************** */ -static void announce_pci_hdr ( rom_header_t *pci_rom_hdr ) +static void announce_pci_hdr(rom_header_t * pci_rom_hdr) { - char temp_buf[80]; - u32 temp; + char temp_buf[80]; + u32 temp; - printremark ( "PCI Header identified"); - temp=(u32)LITTLE_ENDIAN_WORD_FETCH(pci_rom_hdr->data_ptr); - sprintf(temp_buf, " Offset to Data Structure = 0x%04x (%d)\n", - temp, temp); - printremark ( temp_buf ); + printremark("PCI Header identified"); + temp = (u32) LITTLE_ENDIAN_WORD_FETCH(pci_rom_hdr->data_ptr); + sprintf(temp_buf, " Offset to Data Structure = 0x%04x (%d)\n", + temp, temp); + printremark(temp_buf); } /* ************************************************************************** @@ -266,57 +264,56 @@ * **************************************************************************** */ -static void announce_pci_data_struct ( pci_data_t *pci_data_ptr ) +static void announce_pci_data_struct(pci_data_t * pci_data_ptr) { - char temp_buf[80]; - u32 temp; + char temp_buf[80]; + u32 temp; - printremark ( "PCI Data Structure identified"); + printremark("PCI Data Structure identified"); - temp=(u32)LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->dlen); - sprintf(temp_buf, " Data Structure Length = 0x%04x (%d)\n", temp, temp); - printremark ( temp_buf ); + temp = (u32) LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->dlen); + sprintf(temp_buf, " Data Structure Length = 0x%04x (%d)\n", temp, temp); + printremark(temp_buf); - sprintf(temp_buf, " Vendor ID: 0x%04x\n", - LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->vendor)); - printremark ( temp_buf ); + sprintf(temp_buf, " Vendor ID: 0x%04x\n", + LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->vendor)); + printremark(temp_buf); - sprintf(temp_buf, " Device ID: 0x%04x\n", - LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->device)); - printremark ( temp_buf ); + sprintf(temp_buf, " Device ID: 0x%04x\n", + LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->device)); + printremark(temp_buf); - temp=(u32)CLASS_CODE_FETCH(pci_data_ptr->class_code); - sprintf(temp_buf, " Class Code: 0x%06x (%s)", - temp, pci_device_class_name(temp)); - printremark ( temp_buf ); + temp = (u32) CLASS_CODE_FETCH(pci_data_ptr->class_code); + sprintf(temp_buf, " Class Code: 0x%06x (%s)", + temp, pci_device_class_name(temp)); + printremark(temp_buf); - temp=(u32)LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->vpd); - if ( temp != 0 ) - { - sprintf(temp_buf, " Vital Prod Data: 0x%02x\n", temp); - printremark ( temp_buf ); - } + temp = (u32) LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->vpd); + if (temp != 0) { + sprintf(temp_buf, " Vital Prod Data: 0x%02x\n", temp); + printremark(temp_buf); + } - temp=(u32)LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->irevision); - if ( temp != 0 ) - { - sprintf(temp_buf, " Image Revision: 0x%02x\n", temp); - printremark ( temp_buf ); - } + temp = (u32) LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->irevision); + if (temp != 0) { + sprintf(temp_buf, " Image Revision: 0x%02x\n", temp); + printremark(temp_buf); + } - sprintf(temp_buf, " Code Type: 0x%02x (%s)\n", pci_data_ptr->code_type, - pci_code_type_name(pci_data_ptr->code_type) ); - printremark ( temp_buf ); + sprintf(temp_buf, " Code Type: 0x%02x (%s)\n", + pci_data_ptr->code_type, + pci_code_type_name(pci_data_ptr->code_type)); + printremark(temp_buf); - temp=(u32)LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->ilen); - pci_image_len = temp*512; - sprintf(temp_buf, " Image Length: 0x%04x blocks (%d bytes)\n", - temp, pci_image_len); - printremark ( temp_buf ); + temp = (u32) LITTLE_ENDIAN_WORD_FETCH(pci_data_ptr->ilen); + pci_image_len = temp * 512; + sprintf(temp_buf, " Image Length: 0x%04x blocks (%d bytes)\n", + temp, pci_image_len); + printremark(temp_buf); - sprintf(temp_buf, " %sast PCI Image.\n", - pci_data_ptr->last_image_flag&&0x80 != 0 ? "L" : "Not l"); - printremark ( temp_buf ); + sprintf(temp_buf, " %sast PCI Image.\n", + pci_data_ptr->last_image_flag && 0x80 != 0 ? "L" : "Not l"); + printremark(temp_buf); } @@ -369,46 +366,42 @@ * **************************************************************************** */ -int handle_pci_header ( u8 *data_ptr ) +int handle_pci_header(u8 * data_ptr) { - int hdrlen; - int data_struc_len; - /* int retval; */ /* Not needed until we handle error cases... */ + int hdrlen; + int data_struc_len; + /* int retval; *//* Not needed until we handle error cases... */ - data_struc_len = 0; + data_struc_len = 0; - hdrlen = is_pci_header( (rom_header_t *)data_ptr ); - /* retval = hdrlen; */ /* Not needed yet... */ - if ( hdrlen < 0 ) - { - /* Handle error case... */ - /* Leave null for now... */ - /* It might need to do a premature EXIT here... */ - } else { - /* if hdrlen == 0 then we don't need to check a Data Structure */ - if ( hdrlen > 0 ) - { - announce_pci_hdr ( (rom_header_t *)data_ptr ); - data_struc_len = is_pci_data_struct( - (pci_data_t *) &data_ptr[hdrlen] ); - /* - * A Data Structure Length of Zero would be an error - * that could be detected by is_pci_data_struct() - */ - if ( data_struc_len <= 0 ) - { - /* Handle error case... */ - /* Leave null for now... */ - /* It might need to do a premature EXIT here... */ - /* retval = -1; */ /* Not needed yet... */ - } else { - announce_pci_data_struct ( (pci_data_t *) &data_ptr[hdrlen] ); - pci_image_end = data_ptr + pci_image_len; - /* retval = hdrlen+data_struc_len; */ /* Not needed yet... */ - } - } - } - return (hdrlen+data_struc_len); + hdrlen = is_pci_header((rom_header_t *) data_ptr); + /* retval = hdrlen; *//* Not needed yet... */ + if (hdrlen < 0) { + /* Handle error case... */ + /* Leave null for now... */ + /* It might need to do a premature EXIT here... */ + } else { + /* if hdrlen == 0 then we don't need to check a Data Structure */ + if (hdrlen > 0) { + announce_pci_hdr((rom_header_t *) data_ptr); + data_struc_len = is_pci_data_struct((pci_data_t *) & data_ptr[hdrlen]); + /* + * A Data Structure Length of Zero would be an error + * that could be detected by is_pci_data_struct() + */ + if (data_struc_len <= 0) { + /* Handle error case... */ + /* Leave null for now... */ + /* It might need to do a premature EXIT here... */ + /* retval = -1; *//* Not needed yet... */ + } else { + announce_pci_data_struct((pci_data_t *) & data_ptr[hdrlen]); + pci_image_end = data_ptr + pci_image_len; + /* retval = hdrlen+data_struc_len; *//* Not needed yet... */ + } + } + } + return (hdrlen + data_struc_len); } @@ -445,34 +438,30 @@ * **************************************************************************** */ -void handle_pci_filler(u8 *filler_ptr) +void handle_pci_filler(u8 * filler_ptr) { - u8 *scan_ptr; - int filler_len; - char temp_buf[80]; - bool all_zero = TRUE; - u8 filler_byte = *filler_ptr; + u8 *scan_ptr; + int filler_len; + char temp_buf[80]; + bool all_zero = TRUE; + u8 filler_byte = *filler_ptr; - filler_len = pci_image_end - filler_ptr; + filler_len = pci_image_end - filler_ptr; - for ( scan_ptr = filler_ptr; - scan_ptr < pci_image_end; - filler_byte = *(++scan_ptr) ) - { - if ( filler_byte != 0 ) - { - all_zero = FALSE; - break; - } - } - - if ( all_zero ) - { - sprintf(temp_buf, "PCI Image padded with %d bytes of zero", filler_len); - }else{ - sprintf(temp_buf, "PCI Image padding-field of %d bytes " - "had first non-zero byte at offset %ld", - filler_len, scan_ptr - filler_ptr ); - } - printremark ( temp_buf ); + for (scan_ptr = filler_ptr; + scan_ptr < pci_image_end; filler_byte = *(++scan_ptr)) { + if (filler_byte != 0) { + all_zero = FALSE; + break; + } + } + + if (all_zero) { + sprintf(temp_buf, "PCI Image padded with %d bytes of zero", filler_len); + } else { + sprintf(temp_buf, "PCI Image padding-field of %d bytes " + "had first non-zero byte at offset %ld", + filler_len, scan_ptr - filler_ptr); + } + printremark(temp_buf); } Modified: fcode-utils/detok/printformats.c =================================================================== --- fcode-utils/detok/printformats.c 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/printformats.c 2006-10-14 21:32:13 UTC (rev 96) @@ -84,57 +84,54 @@ * **************************************************************************** */ -void printremark ( char *str) +void printremark(char *str) { - char *strtmp ; /* Temporary pointer to current substring */ - int substrlen ; /* Length of current substring */ - char *substrend ; /* Pointer to end of current substring */ - char *strend ; /* Pointer to end of given string */ + char *strtmp; /* Temporary pointer to current substring */ + int substrlen; /* Length of current substring */ + char *substrend; /* Pointer to end of current substring */ + char *strend; /* Pointer to end of given string */ - char *strbfr ; /* Temporary substring buffer */ + char *strbfr; /* Temporary substring buffer */ - /* Guarantee that the malloc will be big enough. */ - strbfr = (char *)malloc(strlen((char *)str)+1); - if ( !strbfr ) - { - printf ("No memory.\n"); - exit(-1); - } + /* Guarantee that the malloc will be big enough. */ + strbfr = (char *) malloc(strlen((char *) str) + 1); + if (!strbfr) { + printf("No memory.\n"); + exit(-1); + } - strtmp = str; - strend = &str[strlen(str)]; + strtmp = str; + strend = &str[strlen(str)]; - /* ****************************************************************** - * - * Isolate the current substring; allow that the given - * string might not be terminated with a new-line. - * - * The strend pointer provides a convenient means to - * test for when we've reached the end. - * - ******************************************************************** */ + /* ****************************************************************** + * + * Isolate the current substring; allow that the given + * string might not be terminated with a new-line. + * + * The strend pointer provides a convenient means to + * test for when we've reached the end. + * + ******************************************************************** */ - while ( strtmp < strend ) - { - substrend = strchr(strtmp , '\n'); - substrlen = ( substrend ? (substrend-strtmp) : strlen(strtmp) ); + while (strtmp < strend) { + substrend = strchr(strtmp, '\n'); + substrlen = (substrend ? (substrend - strtmp) : strlen(strtmp)); - strncpy (strbfr, strtmp, substrlen); - /* ********************************************************** - * - * strncpy() does not append a terminating null character, - * so we have to. - * - ************************************************************ */ - strbfr[substrlen] = (char)0; + strncpy(strbfr, strtmp, substrlen); + /* ********************************************************** + * + * strncpy() does not append a terminating null character, + * so we have to. + * + ************************************************************ */ + strbfr[substrlen] = (char) 0; - printf("\\ %s\n",strbfr); + printf("\\ %s\n", strbfr); - strtmp = &strtmp[ substrlen + ( substrend ? 1 : 0 ) ] ; + strtmp = &strtmp[substrlen + (substrend ? 1 : 0)]; - } + } - free(strbfr) ; + free(strbfr); } - Modified: fcode-utils/detok/stream.c =================================================================== --- fcode-utils/detok/stream.c 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/stream.c 2006-10-14 21:32:13 UTC (rev 96) @@ -82,31 +82,31 @@ { FILE *infile; struct stat finfo; - - if (stat(name,&finfo)) + + if (stat(name, &finfo)) return -1; - - indata=malloc(finfo.st_size); + + indata = malloc(finfo.st_size); if (!indata) return -1; - infile=fopen(name,"r"); - if (!infile) - return -1; + infile = fopen(name, "r"); + if (!infile) + return -1; - if (fread(indata, finfo.st_size, 1, infile)!=1) { + if (fread(indata, finfo.st_size, 1, infile) != 1) { free(indata); return -1; } fclose(infile); - - pc=indata; + + pc = indata; fc_start = indata; - max=pc+finfo.st_size; - + max = pc + finfo.st_size; + stream_max = finfo.st_size; - + return 0; } @@ -121,7 +121,7 @@ void init_fcode_block(void) { fc_start = pc; - linenum = 1 ; + linenum = 1; } @@ -133,7 +133,7 @@ int get_streampos(void) { - return (int)( pc - fc_start ); + return (int) (pc - fc_start); } void set_streampos(int pos) @@ -170,23 +170,21 @@ static void throw_eof(bool premature) { - char yoo = 'U'; - char eee = 'E'; - if ( premature) - { - printf("Premature "); - yoo = 'u'; - eee = 'e'; - } - if ( ! end_found ) - { - printf("%cnexpected ",yoo); - eee = 'e'; - } - printf("%cnd of file.\n",eee); - longjmp(eof_exception, -1); + char yoo = 'U'; + char eee = 'E'; + if (premature) { + printf("Premature "); + yoo = 'u'; + eee = 'e'; + } + if (!end_found) { + printf("%cnexpected ", yoo); + eee = 'e'; + } + printf("%cnd of file.\n", eee); + longjmp(eof_exception, -1); } - + /* ************************************************************************** * * Function name: get_bytes @@ -230,18 +228,16 @@ static u8 *get_bytes(int nbytes) { - u8 *retval = pc; - if ( pc == max ) - { - throw_eof(FALSE); - } - if ( pc + nbytes > max ) - { - throw_eof(TRUE); - } - pc += nbytes; - return( retval); - } + u8 *retval = pc; + if (pc == max) { + throw_eof(FALSE); + } + if (pc + nbytes > max) { + throw_eof(TRUE); + } + pc += nbytes; + return (retval); +} /* ************************************************************************** @@ -254,12 +250,12 @@ bool more_to_go(void) { - bool retval; - retval = INVERSE( pc == max ); - return( retval); + bool retval; + retval = INVERSE(pc == max); + return (retval); } - + /* ************************************************************************** * * Function name: next_token @@ -275,64 +271,62 @@ * token_streampos Streampos() of token just gotten * **************************************************************************** */ - + u16 next_token(void) { - u16 tok; - token_streampos = get_streampos(); - tok = *(get_bytes(1)); - if ( tok != 0x00 && tok < 0x10) - { - tok<<=8; - tok |= *(get_bytes(1)); - } - fcode=tok; - return(tok); + u16 tok; + token_streampos = get_streampos(); + tok = *(get_bytes(1)); + if (tok != 0x00 && tok < 0x10) { + tok <<= 8; + tok |= *(get_bytes(1)); + } + fcode = tok; + return (tok); } u32 get_num32(void) { - u32 retval; + u32 retval; u8 *num_str; - + num_str = get_bytes(4); retval = BIG_ENDIAN_LONG_FETCH(num_str); - - return ( retval); + + return (retval); } u16 get_num16(void) { - u16 retval; + u16 retval; u8 *num_str; - - num_str = get_bytes(2); + + num_str = get_bytes(2); retval = BIG_ENDIAN_WORD_FETCH(num_str); - - return ( retval); + + return (retval); } - + u8 get_num8(void) { - u8 inbyte; + u8 inbyte; inbyte = *(get_bytes(1)); - return(inbyte); + return (inbyte); } s16 get_offset(void) { - s16 retval; - if (offs16) - { - retval = (s16)get_num16(); - }else{ - retval = (s16)get_num8(); - /* Make sure it's sign-extended */ - retval |= ( retval & 0x80 ) ? 0xff00 : 0 ; + s16 retval; + if (offs16) { + retval = (s16) get_num16(); + } else { + retval = (s16) get_num8(); + /* Make sure it's sign-extended */ + retval |= (retval & 0x80) ? 0xff00 : 0; } - - return (retval); + + return (retval); } /* ************************************************************************** @@ -360,14 +354,14 @@ * **************************************************************************** */ -u8 *get_string(u8 *len) +u8 *get_string(u8 * len) { - char *retval; + char *retval; - *len = get_num8(); - retval = get_bytes((int)*len); - - return (retval); + *len = get_num8(); + retval = get_bytes((int) *len); + + return (retval); } @@ -405,23 +399,23 @@ * **************************************************************************** */ -char *get_name(u8 *len) +char *get_name(u8 * len) { - char *str_start; - char *retval; - u8 sav_byt; - - str_start = get_string( len ); + char *str_start; + char *retval; + u8 sav_byt; - sav_byt = *pc; - *pc = 0; + str_start = get_string(len); - retval = strdup(str_start); - *pc = sav_byt; - - return (retval); - } - + sav_byt = *pc; + *pc = 0; + + retval = strdup(str_start); + *pc = sav_byt; + + return (retval); +} + /* ************************************************************************** * * Function name: calc_checksum @@ -452,27 +446,26 @@ u16 calc_checksum(void) { - u16 retval = 0; - u8 *cksmptr; - u8 *save_pc; - u32 fc_blk_len; - int indx; + u16 retval = 0; + u8 *cksmptr; + u8 *save_pc; + u32 fc_blk_len; + int indx; - save_pc = pc; + save_pc = pc; - fc_blk_len = get_num32(); /* Read len */ - cksmptr = get_bytes(fc_blk_len-8); /* Make sure we have all our data */ + fc_blk_len = get_num32(); /* Read len */ + cksmptr = get_bytes(fc_blk_len - 8); /* Make sure we have all our data */ - for ( indx = 8; indx < fc_blk_len; indx++) - { - retval += *cksmptr++; + for (indx = 8; indx < fc_blk_len; indx++) { + retval += *cksmptr++; + } + + pc = save_pc; + return (retval); } - pc = save_pc; - return( retval); -} - /* ************************************************************************** * * Function name: adjust_for_pci_header @@ -510,7 +503,7 @@ void adjust_for_pci_header(void) { int pci_header_size; - + pci_header_size = handle_pci_header(pc); pci_image_found = pci_header_size > 0 ? TRUE : FALSE; pc += pci_header_size; @@ -543,14 +536,13 @@ void adjust_for_pci_filler(void) { - if ( pci_image_found ) - { - int pci_filler_len; - u8 *pci_filler_ptr; + if (pci_image_found) { + int pci_filler_len; + u8 *pci_filler_ptr; - pci_filler_len = pci_image_end - pc; - pci_filler_ptr = get_bytes(pci_filler_len); - handle_pci_filler( pci_filler_ptr ); - pci_image_found = FALSE; - } + pci_filler_len = pci_image_end - pc; + pci_filler_ptr = get_bytes(pci_filler_len); + handle_pci_filler(pci_filler_ptr); + pci_image_found = FALSE; + } } Modified: fcode-utils/detok/stream.h =================================================================== --- fcode-utils/detok/stream.h 2006-10-14 21:07:27 UTC (rev 95) +++ fcode-utils/detok/stream.h 2006-10-14 21:32:13 UTC (rev 96) @@ -46,16 +46,16 @@ void adjust_for_pci_filler(void); void init_fcode_block(void); -int get_streampos(void); +int get_streampos(void); void set_streampos(int pos); u16 next_token(void); -u8 get_num8(void); +u8 get_num8(void); u16 get_num16(void); u32 get_num32(void); s16 get_offset(void); -u8 *get_string(u8 *len); -char *get_name(u8 *len); +u8 *get_string(u8 * len); +char *get_name(u8 * len); u16 calc_checksum(void); /* External declarations for variables defined in stream.c */ @@ -65,4 +65,4 @@ extern u8 *pc; extern u8 *max; -#endif /* _UTILS_DETOK_STREAM_H */ +#endif /* _UTILS_DETOK_STREAM_H */

1 0

SUN OBP source code released
by Jose Renau 15 Oct '06

15 Oct '06

Hi all, SUN has released (under BSD license I believe), the source code for their OpenBoot (OPB). This includes the forth programs for many of their sun machines. This is available only starting from version 1.3 of OpenSPARC. http://opensparc-t1.sunsource.net/download_hw.html I guess that it could be a good boost on the functionality/code available at OpenBios. -- Copy from one, it is plagiarism; copy from two, it is research. - Wilson Mizner

5 5

r95 - in fcode-utils/testsuite: TokCondl TokMisc TokeErrs
by svn＠openbios.org 15 Oct '06

15 Oct '06

Author: stepan Date: 2006-10-14 23:07:27 +0200 (Sat, 14 Oct 2006) New Revision: 95 Added: fcode-utils/testsuite/TokMisc/AllBiFCTypes.fth fcode-utils/testsuite/TokeErrs/TooManyPushes.fth fcode-utils/testsuite/TokeErrs/UntermDefn.fth fcode-utils/testsuite/TokeErrs/UntermLocalAssgmnt.fth fcode-utils/testsuite/TokeErrs/UntermLocalDecl.fth Modified: fcode-utils/testsuite/TokCondl/CondMacAlias_01.fth fcode-utils/testsuite/TokMisc/TestArgs fcode-utils/testsuite/TokeErrs/DupNams.fth fcode-utils/testsuite/TokeErrs/GlobScopErrTst.fth fcode-utils/testsuite/TokeErrs/LocalTest.fth fcode-utils/testsuite/TokeErrs/MiscFeatErrs.fth fcode-utils/testsuite/TokeErrs/MulPCI_LapFC.fth fcode-utils/testsuite/TokeErrs/PCIhdrErrs.fth fcode-utils/testsuite/TokeErrs/TestArgs fcode-utils/testsuite/TokeErrs/TooLargeBranch_off08.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_off16_body.fth fcode-utils/testsuite/TokeErrs/TooLargePMessage.fth fcode-utils/testsuite/TokeErrs/TooLargePQuote.fth fcode-utils/testsuite/TokeErrs/TooLargeParen.fth fcode-utils/testsuite/TokeErrs/TooLargeQAbort.fth fcode-utils/testsuite/TokeErrs/TooLargeQMessage.fth fcode-utils/testsuite/TokeErrs/TooLargeQNoAbort.fth fcode-utils/testsuite/TokeErrs/TooLargeSQuote.fth fcode-utils/testsuite/TokeErrs/TooManyFCodes.fth Log: update test suite to v1.0.1 Modified: fcode-utils/testsuite/TokCondl/CondMacAlias_01.fth =================================================================== --- fcode-utils/testsuite/TokCondl/CondMacAlias_01.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokCondl/CondMacAlias_01.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -77,7 +77,7 @@ : [else] ." Don't do it" ; [message] Fake [else] got through create [else] [message] Fake [else] got through h# defeca8e constant [else] [message] Fake [else] got through - h# beeffece value [else] [message] Fake [else] got through + h# -41100132 value [else] [message] Fake [else] got through d# 64 buffer: [else] [message] Fake [else] got through struct /l field [else] [message] Fake [else] got through @@ -85,7 +85,7 @@ defer [else] [message] Fake [else] got through ['] [else] [message] Fake [else] got through to [else] [message] Fake [else] got through - ['] [else] + ['] [else] alias moomoo [else] is [else] [message] Fake [else] got through : say-what ( tony vinnie looie -- -- marie ) Added: fcode-utils/testsuite/TokMisc/AllBiFCTypes.fth =================================================================== --- fcode-utils/testsuite/TokMisc/AllBiFCTypes.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/AllBiFCTypes.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -0,0 +1,64 @@ +\ Test all the known Built-In FCode tokens +\ that have specific definition Types + +\ Updated Wed, 16 Aug 2006 at 14:30 PDT by David L. Paktor + +\ Applying "TO" to them ought to generate errors +\ except for the ones that legitimately take "TO", +\ namely the DEFER and VALUE definitions + +fcode-version2 + + +[message] Constants. Should generate errors +d# 10 to -1 ( CONST ) +d# 10 to -1 ( CONST ) +d# 10 to 0 ( CONST ) +d# 10 to 0 ( CONST ) +d# 10 to 0 ( CONST ) +d# 10 to 1 ( CONST ) +d# 10 to 2 ( CONST ) +d# 10 to 3 ( CONST ) +d# 10 to bell ( CONST ) +d# 10 to bl ( CONST ) +d# 10 to bs ( CONST ) + +[message] Defer Words. Should generate no errors +['] noop to blink-screen ( DEFER ) +['] noop to delete-characters ( DEFER ) +['] noop to delete-lines ( DEFER ) +['] noop to draw-character ( DEFER ) +['] noop to draw-logo ( DEFER ) +['] noop to erase-screen ( DEFER ) +['] noop to insert-characters ( DEFER ) +['] noop to insert-lines ( DEFER ) +['] noop to invert-screen ( DEFER ) +['] noop to reset-screen ( DEFER ) +['] noop to toggle-cursor ( DEFER ) + +[message] Value Words. Should generate no errors +h# 32 to #columns ( VALUE ) +h# 32 to #lines ( VALUE ) +h# 32 to char-height ( VALUE ) +h# 32 to char-width ( VALUE ) +h# 32 to column# ( VALUE ) +h# 32 to fontbytes ( VALUE ) +h# 32 to frame-buffer-adr ( VALUE ) +h# 32 to inverse-screen? ( VALUE ) +h# 32 to inverse? ( VALUE ) +h# 32 to line# ( VALUE ) +h# 32 to my-self ( VALUE ) +h# 32 to screen-height ( VALUE ) +h# 32 to screen-width ( VALUE ) +h# 32 to window-left ( VALUE ) +h# 32 to window-top ( VALUE ) + +[message] Variables. Should generate errors +h# 12 to #line ( VRBLE ) +h# 12 to #out ( VRBLE ) +h# 12 to base ( VRBLE ) +h# 12 to mask ( VRBLE ) +h# 12 to span ( VRBLE ) +h# 12 to state ( VRBLE ) + +fcode-end Modified: fcode-utils/testsuite/TokMisc/TestArgs =================================================================== --- fcode-utils/testsuite/TokMisc/TestArgs 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokMisc/TestArgs 2006-10-14 21:07:27 UTC (rev 95) @@ -8,7 +8,7 @@ # Lines that have no label, no switches, and no script # do not need any commas. -# Updated Thu, 06 Jul 2006 at 13:16 PDT by David L. Paktor +# Updated Thu, 07 Sep 2006 at 11:49 PDT by David L. Paktor MiscFeatures , , -i MiscFeatures , applabq , -i -f NOSUN-ABORT-Quote @@ -46,7 +46,9 @@ HeadrSettings , alwyshdr , -f always-heADERs HeadrSettings , alwyextl , -f alwaYS-External HeadrSettings , alwaysboth , -f always-headers -f always-external -FlagsHelp , , -f HELP +FlagsHelp , Hlp , -f HELP +FlagsHelp , , -o FlagsHelp.fc FlagsHelp.fth +FlagsHelp , UnkOpt , -Z FlagsHelp , Chg , -f noHex-remark-ESCAPE -f Always-Headers -f help FlagsHelp , noChg , -f noLocal-Values -f help FlagsHelp , chgNoHlp , -f noHex-remark-escape -f Always-Headers -f noHelp @@ -55,6 +57,7 @@ FlgReset FlgReset_1 FlgReset_2 FlgReset FlgReset_1 FlgReset_2 , AlwExt , -f Always-External AllMacros , , , ExamAllMacs.scr +AllBiFCTypes # A little more set-up for Batch Test UserMacros , , , cp UserMacros.fth UserMacros_cpy1.fth Modified: fcode-utils/testsuite/TokeErrs/DupNams.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/DupNams.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/DupNams.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -33,7 +33,7 @@ : noop ." Op? No!" ; [macro] zoop noop message" I Care." -: poop h# defeca8e ; +: poop h# -21013572 ; new-device : zoop ." Nothing like the other zoop" croop ; @@ -74,8 +74,18 @@ finish-device finish-device +start4 \ Let's just stick in an extra, and another error besides... +fcode-end +\ And a few false-starts and ends... fcode-end -\ Let's just stick in an extra... -fcode-end +start0 + ." What does this button do?" +end1 + +start2 + ." Oh, was I not supposed to touch that?" +end0 + +save-image poop.fc \ Not gonna happen anyway... Modified: fcode-utils/testsuite/TokeErrs/GlobScopErrTst.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/GlobScopErrTst.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/GlobScopErrTst.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -73,7 +73,7 @@ garbanzo ; -h# deadc0de instance value quaack [message] Instance should be legit here. +h# DEADc0de instance value quaack [message] Instance should be legit here. global-definitions Modified: fcode-utils/testsuite/TokeErrs/LocalTest.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/LocalTest.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/LocalTest.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,5 +1,5 @@ \ LocalTest.fth -\ Updated Wed, 25 Jan 2006 at 14:33 PST by David L. Paktor +\ Updated Thu, 31 Aug 2006 at 15:33 PDT by David L. Paktor fcode-version2 @@ -9,7 +9,7 @@ fload LocalValuesSupport.fth [endif] -h# deaf constant dean +h# Deaf constant dean : faber ( n3 n2 n1 -- alloc-addr size $addr,len ) { _otter _weasel _skunk ; _muskrat _mole } @@ -58,6 +58,31 @@ : ordinary ( -- ) 123 456 789 miracle ; + + { _don't _allow _this ; _ever } + F[ + { _nor _this ; _either } + ]F + +\ And the "unterminated" tests + +: ahnold ( the unterminator ) + fload UntermLocalDecl.fth + } \ Does this conclude it okay? (No, it's extraneous...) + _green _goose + dup + -> _souvenirs + fload UntermLocalAssgmnt.fth + _souvenirs +; + +\ Once more, out of context: +fload UntermLocalDecl.fth +fload UntermLocalAssgmnt.fth _souvenirs + +\ And another couple of corner-cases: + fload UntermDefn.fth moopoop +F[ fload UntermDefn.fth poop-de-moo ]F + fcode-end Modified: fcode-utils/testsuite/TokeErrs/MiscFeatErrs.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/MiscFeatErrs.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/MiscFeatErrs.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -3,10 +3,10 @@ [flag] Local-Values f[ ." This is a test" ]f -fcode-version2 +fcode-version1 fload LocalValuesSupport.fth - +noop noop noop headers [char] G emit @@ -32,8 +32,8 @@ [macro] swell bell device-definitions [macro] yell bell - -bell +offset16 +bell offset16 : factl ( n -- n! ) ?dup 0= if 1 factl control G to bell Modified: fcode-utils/testsuite/TokeErrs/MulPCI_LapFC.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/MulPCI_LapFC.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/MulPCI_LapFC.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,12 +1,12 @@ \ Combine Multiple PCI headers with overlapping FCodes. -\ Updated Wed, 14 Jun 2006 at 12:04 PDT by David L. Paktor +\ Updated Fri, 01 Sep 2006 at 12:55 PDT by David L. Paktor \ We already have a source with overlapping FCodes in two FCode blocks \ We just have to wrap it in multiple PCI headers. \ Also, we have to make sure to define NoCrash as a command-line symbol \ While we're at it, let's also create another switchable behavior: \ If the command-line symbol RangeTwo is defined, it should have -\ a value in the form of a hex number (We'll tace care of the "hex") +\ a value in the form of a hex number (We'll take care of the "hex") \ which will, in a roundabout way, become the starting FCode for \ the second loading of the common Source. \ We'll save the symbol in a roundabout manner that will test whether @@ -37,11 +37,11 @@ fload TooManyFCodes.fth -[ifdef] RangeTwo +\ Generate an error or two if RangeTwo is not DEFINED. It's harmless f[ [DEFINED] RangeTwo constant SecondRangeFCode ]f -[endif] +\ because all the other references to SecondRangeFCode are conditioned... \ Try it once before and once after... [ifndef] NoReset fcode-reset [else] #message" Not resetting..." [endif] Modified: fcode-utils/testsuite/TokeErrs/PCIhdrErrs.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/PCIhdrErrs.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/PCIhdrErrs.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,6 +1,6 @@ \ Basic PCI-Headers Errors test. -\ Updated Wed, 25 May 2005 at 17:30 by David L. Paktor +\ Updated Thu, 31 Aug 2006 at 13:27 PDT by David L. Paktor hex @@ -26,3 +26,6 @@ pci-header-end +\ This is another... + +pci-header-end Modified: fcode-utils/testsuite/TokeErrs/TestArgs =================================================================== --- fcode-utils/testsuite/TokeErrs/TestArgs 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TestArgs 2006-10-14 21:07:27 UTC (rev 95) @@ -13,11 +13,11 @@ # Most files in this category need the -i switch # Some may have additional variants. -# Updated Thu, 27 Jul 2006 at 17:55 PDT by David L. Paktor +# Updated Thu, 07 Sep 2006 at 11:49 PDT by David L. Paktor MiscFeatErrs , , -i -I. -I.. -LocalTest , NoLvSupp , -i -I. -I.. -f Local-Values -LocalTest , , -i -f Local-Values -d dont_omit_support -I. -I.. +LocalTest , NoLvSupp , -i -f Local-Values -I. -I.. +LocalTest , , -i -f Local-Values -I. -I.. -f Always-Headers -d dont_omit_support LocalTest1 , , -f Local-Values -f noLV-Legacy-Message -I. -I.. ControlMismatch , , -i SuppLocErrTest4 , , -i -f Local-Values -l -I. -I.. @@ -40,6 +40,7 @@ TooLargeBranch_off16 , V179 , -i -l -d "fld_cmd=fload TooLargeBranch_V179_body.fth" TooLargeBranch_off16 , V180 , -i -l -d "fld_cmd=fload TooLargeBranch_V180_body.fth" TooLargeBranch_off08 , , -i -l +TooLargeBranch_off08 , V180 , -i -l -d "fld_cmd=fload TooLargeBranch_V180_body.fth" TooLargeBranch_off08_to_16 , , -i -l TooTooLargeBuffer , , -i -l UserMacroErrors , , -i @@ -52,13 +53,13 @@ GlobScopErrTst_01 , , -i -f Local-Values -I. -I.. GlobScopErrTst_02 , , -i -f Local-Values -I. -I.. GlobScopErrTst_03 , , -i -f Local-Values -I. -I.. -# The script-fields below prepare for the ExpPath and InclLst tests -Frinstnce , , -i , touch ExpPath.NoV.f{c,l{,.missing}} -Frinstnce , NoI , , chmod a-rw ../TokeCommon/{MyBeerAndYouCannotHaveIt.fth,NoRead.bin} ExpPath.NoV.f{c,l{,.missing}} +# The script-fields below prepare for the ExpPath InclLst and DePList tests +Frinstnce , , -i , touch ExpPath.NoV.{P,f{c,l{,.missing}}} +Frinstnce , NoI , , chmod a-rw ../TokeCommon/{MyBeerAndYouCannotHaveIt.fth,NoRead.bin} ExpPath.NoV.{P,f{c,l{,.missing}}} -# We're now ready for the ExpPath and InclLst tests +# We're now ready for the ExpPath InclLst and DePList tests -ExpPath , NoV , -i -l , +V rm -f ExpPath.NoV.f{c,l{,.missing}} +ExpPath , NoV , -i -l -P , +V rm -f ExpPath.NoV.{P,f{c,l{,.missing}}} InclLst , , -i -l -P -I .. -I ../TokBrack -I ../TokMisc -I ../TokeCommon -I ../TokoLoco -I ../TokCondl -I ../TokProdCpy -I ../TokeErrs -I /home/dlpaktor/HeyVern/DoYuhThink/ThisIsA/LongEnuffPathName/To/Make/The/Line/Really/Overflow -I . -I /home/dlpaktor/Hey/Vern/This/Path/Just/Fills/Up/TheLine/KnowWhudI/Mean -I ../TokeCommon -f noAbort-quote @@ -68,29 +69,32 @@ # Done with the ExpPath and InclLst tests ToAtEnd , , -i +ToAtEnd , WLocSup , -i -I . -I .. ObsoFCodes , , -i ObsoFCodes , NoWarn , -f NoObsolete-FCode-Warning TooLargePMessage TooLargePQuote , , -i TooLargeQMessage -TooLargeSQuote +TooLargeSQuote , , -i TooLargeParen , , -i TooLargeQAbort -TooLargeQNoAbort +TooLargeQNoAbort , , -f Local-Values AbrtWQuotStr , , -i # The new "Trace" feature, and handling of duplicate and mis-scoped names... DupNams , , -f Local-Values -T croop -T drop -T _harpo -T dup -T noop -T zoop -T foop -TooManyFCodes , , -i +TooManyFCodes , , -l -o TooManyFCodes.fl +TooManyFCodes , Reg , -i TooManyFCodes , NoCrash , -i -d NoCrash MulPCI_LapFC , , -i -d NoCrash -MulPCI_LapFC , RngTwo , -i -d NoCrash -d RangeTwo=0ace +MulPCI_LapFC , RngTwo , -i -d NoCrash=DupDefn -d NoCrash -d OIBeenToTheOasis=Twice -d RangeTwo=0941 -d NoCrash -d RangeTwo=0ace MulPCI_LapFC , RTwoNoRst , -i -d NoCrash -d RangeTwo=0ace -d NoReset MulPCI_LapFC , NoRst , -i -d NoCrash -d NoReset +MulPCI_LapFC , NoRTwoVal , -i -d NoCrash -d NoReset -d RangeTwo RetStkDep , , -i CondlDefn , , -i Modified: fcode-utils/testsuite/TokeErrs/TooLargeBranch_off08.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooLargeBranch_off08.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooLargeBranch_off08.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,6 +1,11 @@ -\ Test case of a branch going over too large a range +\ Test case of a branch going over too large a range for eight-bit offsets \ Body generated by the "Verbal Bottles of Beer" script, -\ (Argument of 1 is enough to do it.) +\ (Verbal argument of 1 is enough to do it.) +\ Also a branch that goes over too large a range even for sixteen-bit offsets. +\ (Verbal argument of 179 is just enough to do that.) +\ (Verbal argument of N >= 180 exceeds all the branch ranges.) +\ Command-line definition of 'fld_cmd' can be used to load variable-sized bodies +\ and should be of the form 'fload <filename>' . fcode-version1 \ Eight-bit offsets. @@ -69,4 +74,36 @@ ." Here we go!" cr ; +\ Here's the do-loop that can overflow even sixteen-bit offsets. + +: too-large-case ( n -- ) + + ." Let's give it a large back-reference too." + begin ." We've just begun" + ." 1 0 do " cr 1 0 do + dup ." if " cr + if + dup ." case" + case + 0 of ." Just a short case" cr endof + ." Not my default! A Big One!" cr + +[ifndef] fld_cmd + fload TooLargeBranch_off16_body.fth +[else] + [defined] fld_cmd +[endif] + + endcase + ." then" + then + ." Loop back and forward" cr loop + + ." And here we are!" + exit + ." Well, we needed some way out!" + + again ." Back to the fuchsia." +; + fcode-end Modified: fcode-utils/testsuite/TokeErrs/TooLargeBranch_off16_body.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooLargeBranch_off16_body.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooLargeBranch_off16_body.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -118,45 +118,45 @@ ." Oh, one hundred and fifty Bottles of Beer on the wall," cr ." one hundred and fifty Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty-nine Bottles of Beer on the wall." cr -." Oh, one hundred and fourty-nine Bottles of Beer on the wall," cr -." one hundred and fourty-nine Bottles of Beer!," cr +." one hundred and forty-nine Bottles of Beer on the wall." cr +." Oh, one hundred and forty-nine Bottles of Beer on the wall," cr +." one hundred and forty-nine Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty-eight Bottles of Beer on the wall." cr -." Oh, one hundred and fourty-eight Bottles of Beer on the wall," cr -." one hundred and fourty-eight Bottles of Beer!," cr +." one hundred and forty-eight Bottles of Beer on the wall." cr +." Oh, one hundred and forty-eight Bottles of Beer on the wall," cr +." one hundred and forty-eight Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty-seven Bottles of Beer on the wall." cr -." Oh, one hundred and fourty-seven Bottles of Beer on the wall," cr -." one hundred and fourty-seven Bottles of Beer!," cr +." one hundred and forty-seven Bottles of Beer on the wall." cr +." Oh, one hundred and forty-seven Bottles of Beer on the wall," cr +." one hundred and forty-seven Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty-six Bottles of Beer on the wall." cr -." Oh, one hundred and fourty-six Bottles of Beer on the wall," cr -." one hundred and fourty-six Bottles of Beer!," cr +." one hundred and forty-six Bottles of Beer on the wall." cr +." Oh, one hundred and forty-six Bottles of Beer on the wall," cr +." one hundred and forty-six Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty-five Bottles of Beer on the wall." cr -." Oh, one hundred and fourty-five Bottles of Beer on the wall," cr -." one hundred and fourty-five Bottles of Beer!," cr +." one hundred and forty-five Bottles of Beer on the wall." cr +." Oh, one hundred and forty-five Bottles of Beer on the wall," cr +." one hundred and forty-five Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty-four Bottles of Beer on the wall." cr -." Oh, one hundred and fourty-four Bottles of Beer on the wall," cr -." one hundred and fourty-four Bottles of Beer!," cr +." one hundred and forty-four Bottles of Beer on the wall." cr +." Oh, one hundred and forty-four Bottles of Beer on the wall," cr +." one hundred and forty-four Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty-three Bottles of Beer on the wall." cr -." Oh, one hundred and fourty-three Bottles of Beer on the wall," cr -." one hundred and fourty-three Bottles of Beer!," cr +." one hundred and forty-three Bottles of Beer on the wall." cr +." Oh, one hundred and forty-three Bottles of Beer on the wall," cr +." one hundred and forty-three Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty-two Bottles of Beer on the wall." cr -." Oh, one hundred and fourty-two Bottles of Beer on the wall," cr -." one hundred and fourty-two Bottles of Beer!," cr +." one hundred and forty-two Bottles of Beer on the wall." cr +." Oh, one hundred and forty-two Bottles of Beer on the wall," cr +." one hundred and forty-two Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty-one Bottles of Beer on the wall." cr -." Oh, one hundred and fourty-one Bottles of Beer on the wall," cr -." one hundred and fourty-one Bottles of Beer!," cr +." one hundred and forty-one Bottles of Beer on the wall." cr +." Oh, one hundred and forty-one Bottles of Beer on the wall," cr +." one hundred and forty-one Bottles of Beer!," cr ." Take one down and pass it around," cr -." one hundred and fourty Bottles of Beer on the wall." cr -." Oh, one hundred and fourty Bottles of Beer on the wall," cr -." one hundred and fourty Bottles of Beer!," cr +." one hundred and forty Bottles of Beer on the wall." cr +." Oh, one hundred and forty Bottles of Beer on the wall," cr +." one hundred and forty Bottles of Beer!," cr ." Take one down and pass it around," cr ." one hundred and thirty-nine Bottles of Beer on the wall." cr ." Oh, one hundred and thirty-nine Bottles of Beer on the wall," cr @@ -518,45 +518,45 @@ ." Oh, fifty Bottles of Beer on the wall," cr ." fifty Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty-nine Bottles of Beer on the wall." cr -." Oh, fourty-nine Bottles of Beer on the wall," cr -." fourty-nine Bottles of Beer!," cr +." forty-nine Bottles of Beer on the wall." cr +." Oh, forty-nine Bottles of Beer on the wall," cr +." forty-nine Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty-eight Bottles of Beer on the wall." cr -." Oh, fourty-eight Bottles of Beer on the wall," cr -." fourty-eight Bottles of Beer!," cr +." forty-eight Bottles of Beer on the wall." cr +." Oh, forty-eight Bottles of Beer on the wall," cr +." forty-eight Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty-seven Bottles of Beer on the wall." cr -." Oh, fourty-seven Bottles of Beer on the wall," cr -." fourty-seven Bottles of Beer!," cr +." forty-seven Bottles of Beer on the wall." cr +." Oh, forty-seven Bottles of Beer on the wall," cr +." forty-seven Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty-six Bottles of Beer on the wall." cr -." Oh, fourty-six Bottles of Beer on the wall," cr -." fourty-six Bottles of Beer!," cr +." forty-six Bottles of Beer on the wall." cr +." Oh, forty-six Bottles of Beer on the wall," cr +." forty-six Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty-five Bottles of Beer on the wall." cr -." Oh, fourty-five Bottles of Beer on the wall," cr -." fourty-five Bottles of Beer!," cr +." forty-five Bottles of Beer on the wall." cr +." Oh, forty-five Bottles of Beer on the wall," cr +." forty-five Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty-four Bottles of Beer on the wall." cr -." Oh, fourty-four Bottles of Beer on the wall," cr -." fourty-four Bottles of Beer!," cr +." forty-four Bottles of Beer on the wall." cr +." Oh, forty-four Bottles of Beer on the wall," cr +." forty-four Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty-three Bottles of Beer on the wall." cr -." Oh, fourty-three Bottles of Beer on the wall," cr -." fourty-three Bottles of Beer!," cr +." forty-three Bottles of Beer on the wall." cr +." Oh, forty-three Bottles of Beer on the wall," cr +." forty-three Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty-two Bottles of Beer on the wall." cr -." Oh, fourty-two Bottles of Beer on the wall," cr -." fourty-two Bottles of Beer!," cr +." forty-two Bottles of Beer on the wall." cr +." Oh, forty-two Bottles of Beer on the wall," cr +." forty-two Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty-one Bottles of Beer on the wall." cr -." Oh, fourty-one Bottles of Beer on the wall," cr -." fourty-one Bottles of Beer!," cr +." forty-one Bottles of Beer on the wall." cr +." Oh, forty-one Bottles of Beer on the wall," cr +." forty-one Bottles of Beer!," cr ." Take one down and pass it around," cr -." fourty Bottles of Beer on the wall." cr -." Oh, fourty Bottles of Beer on the wall," cr -." fourty Bottles of Beer!," cr +." forty Bottles of Beer on the wall." cr +." Oh, forty Bottles of Beer on the wall," cr +." forty Bottles of Beer!," cr ." Take one down and pass it around," cr ." thirty-nine Bottles of Beer on the wall." cr ." Oh, thirty-nine Bottles of Beer on the wall," cr Modified: fcode-utils/testsuite/TokeErrs/TooLargePMessage.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooLargePMessage.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooLargePMessage.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,5 +1,5 @@ -\ Test a Paren-Message that is not terminated at all and the number -\ of characters until the end of file exceeds the buffer. +\ Test a Paren-Message that is not terminated at all and whose +\ number of characters until the end of file exceeds the buffer. \ A Paren-Message does not have the string-escape sequences. \ Enter Tokenizer-escape mode \ then define the required test-token as alias to .( Modified: fcode-utils/testsuite/TokeErrs/TooLargePQuote.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooLargePQuote.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooLargePQuote.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,4 +1,4 @@ -\ Test a P-Quote that is not terminated at all and the number +\ Test a P-Quote that is not terminated at all and whose number \ of characters until the end of file exceeds the buffer. \ A P-Quote has the string-escape sequences. \ Define the required test-token as alias to ." Modified: fcode-utils/testsuite/TokeErrs/TooLargeParen.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooLargeParen.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooLargeParen.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,15 +1,15 @@ -\ Test a Parenthesis-Comment that is not terminated at all and the number -\ of characters until the end of file exceeds the buffer. +\ Test a Parenthesis-Comment that is not terminated at all and whose +\ number of characters until the end of file exceeds the buffer. \ Define the required test-token as alias to ( \ then FLOAD the test-body file. -\ Updated Wed, 10 May 2006 at 10:43 PDT by David L. Paktor +\ Updated Fri, 01 Sep 2006 at 09:39 PDT by David L. Paktor global-definitions alias test-token ( -fcode-version2 +start4 headers Modified: fcode-utils/testsuite/TokeErrs/TooLargeQAbort.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooLargeQAbort.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooLargeQAbort.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,5 +1,5 @@ -\ Test an Abort-Quote whose body is not terminated at all and the number -\ of characters until the end of file exceeds the buffer. +\ Test an Abort-Quote whose body is not terminated at all and whose +\ number of characters until the end of file exceeds the buffer. \ Abort-Quote may be dis-allowed. This test allows it. \ Define the required test-token as alias to abort" \ then FLOAD the test-body file. Modified: fcode-utils/testsuite/TokeErrs/TooLargeQMessage.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooLargeQMessage.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooLargeQMessage.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,5 +1,5 @@ -\ Test a Quote-Message that is not terminated at all and the number -\ of characters until the end of file exceeds the buffer. +\ Test a Quote-Message that is not terminated at all and whose +\ number of characters until the end of file exceeds the buffer. \ A Quote-Message has the string-escape sequences. \ Define the required test-token as alias to #message" \ then FLOAD the test-body file. Modified: fcode-utils/testsuite/TokeErrs/TooLargeQNoAbort.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooLargeQNoAbort.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooLargeQNoAbort.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,5 +1,5 @@ -\ Test an Abort-Quote whose body is not terminated at all and the number -\ of characters until the end of file exceeds the buffer. +\ Test an Abort-Quote whose body is not terminated at all and whose +\ number of characters until the end of file exceeds the buffer. \ Abort-Quote may be dis-allowed. It is dis-allowed in this test. \ Define the required test-token as alias to abort" \ then FLOAD the test-body file. Modified: fcode-utils/testsuite/TokeErrs/TooLargeSQuote.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooLargeSQuote.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooLargeSQuote.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,4 +1,4 @@ -\ Test an Ess-Quote that is not terminated at all and the number +\ Test an Ess-Quote that is not terminated at all and whose number \ of characters until the end of file exceeds the buffer. \ An Ess-Quote does not have the string-escape sequences. \ Define the required test-token as alias to S" Modified: fcode-utils/testsuite/TokeErrs/TooManyFCodes.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooManyFCodes.fth 2006-10-14 20:42:30 UTC (rev 94) +++ fcode-utils/testsuite/TokeErrs/TooManyFCodes.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -1,6 +1,6 @@ \ Test overlapping FCode # error checking, and reaching the max allowable. -\ Updated Wed, 14 Jun 2006 at 12:54 PDT by David L. Paktor +\ Updated Wed, 06 Sep 2006 at 18:23 PDT by David L. Paktor \ A macro to force showing the current nextfcode global-definitions @@ -18,11 +18,11 @@ 0 constant my_zero fload OneTwoFive.fth - fcode-push + fcode-push f[ f['] eleven next-fcode ]f fcode-pop fcode-push #message" one_twenty-six" 126 constant one_hundred_and_twenty-six #message" one_twenty-seven" 127 constant one_hundred_and_twenty-seven #message" one_twenty-eight" 128 constant one_hundred_and_twenty-eight - + f[ f['] eleven emit-fcode ]f show-next-fcode new-device @@ -33,7 +33,7 @@ #message" one_twenty-seven" 127 constant one_hundred_and_twenty-seven #message" one_twenty-eight" 128 constant one_hundred_and_twenty-eight - show-next-fcode + f[ fcode-push f['] eleven next-fcode ]f fcode-pop finish-device new-device @@ -50,7 +50,7 @@ new-device fcode-pop 0 constant my_zero - fload OneTwoFive.fth + fload OneTwoFive.fth f[ fcode-push f['] eleven next-fcode fcode-pop ]f f[ fcode-push constant dev-2-lap ]f #message" one_twenty-six" 126 constant one_hundred_and_twenty-six #message" one_twenty-seven" 127 constant one_hundred_and_twenty-seven @@ -136,10 +136,13 @@ \ This next one pushes the FCode # over the limit and causes a crash. \ Let's leave ourselves a way around that, so we can use this in other ways -\ Allow a command-line symbol called nocrash to prevent this. +\ Allow a command-line symbol called NoCrash to prevent this. [ifndef] NoCrash #message" one_twenty-eight" 128 constant one_hundred_and_twenty-eight show-next-fcode +[else] \ Otherwise, let's do this test: + #message" Overflow the data-stack." + f[ decimal fload TooManyPushes.fth f] [endif] fcode-end Added: fcode-utils/testsuite/TokeErrs/TooManyPushes.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/TooManyPushes.fth (rev 0) +++ fcode-utils/testsuite/TokeErrs/TooManyPushes.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -0,0 +1,1027 @@ +1027 +1026 +1025 +1024 +1023 +1022 +1021 +1020 +1019 +1018 +1017 +1016 +1015 +1014 +1013 +1012 +1011 +1010 +1009 +1008 +1007 +1006 +1005 +1004 +1003 +1002 +1001 +1000 +999 +998 +997 +996 +995 +994 +993 +992 +991 +990 +989 +988 +987 +986 +985 +984 +983 +982 +981 +980 +979 +978 +977 +976 +975 +974 +973 +972 +971 +970 +969 +968 +967 +966 +965 +964 +963 +962 +961 +960 +959 +958 +957 +956 +955 +954 +953 +952 +951 +950 +949 +948 +947 +946 +945 +944 +943 +942 +941 +940 +939 +938 +937 +936 +935 +934 +933 +932 +931 +930 +929 +928 +927 +926 +925 +924 +923 +922 +921 +920 +919 +918 +917 +916 +915 +914 +913 +912 +911 +910 +909 +908 +907 +906 +905 +904 +903 +902 +901 +900 +899 +898 +897 +896 +895 +894 +893 +892 +891 +890 +889 +888 +887 +886 +885 +884 +883 +882 +881 +880 +879 +878 +877 +876 +875 +874 +873 +872 +871 +870 +869 +868 +867 +866 +865 +864 +863 +862 +861 +860 +859 +858 +857 +856 +855 +854 +853 +852 +851 +850 +849 +848 +847 +846 +845 +844 +843 +842 +841 +840 +839 +838 +837 +836 +835 +834 +833 +832 +831 +830 +829 +828 +827 +826 +825 +824 +823 +822 +821 +820 +819 +818 +817 +816 +815 +814 +813 +812 +811 +810 +809 +808 +807 +806 +805 +804 +803 +802 +801 +800 +799 +798 +797 +796 +795 +794 +793 +792 +791 +790 +789 +788 +787 +786 +785 +784 +783 +782 +781 +780 +779 +778 +777 +776 +775 +774 +773 +772 +771 +770 +769 +768 +767 +766 +765 +764 +763 +762 +761 +760 +759 +758 +757 +756 +755 +754 +753 +752 +751 +750 +749 +748 +747 +746 +745 +744 +743 +742 +741 +740 +739 +738 +737 +736 +735 +734 +733 +732 +731 +730 +729 +728 +727 +726 +725 +724 +723 +722 +721 +720 +719 +718 +717 +716 +715 +714 +713 +712 +711 +710 +709 +708 +707 +706 +705 +704 +703 +702 +701 +700 +699 +698 +697 +696 +695 +694 +693 +692 +691 +690 +689 +688 +687 +686 +685 +684 +683 +682 +681 +680 +679 +678 +677 +676 +675 +674 +673 +672 +671 +670 +669 +668 +667 +666 +665 +664 +663 +662 +661 +660 +659 +658 +657 +656 +655 +654 +653 +652 +651 +650 +649 +648 +647 +646 +645 +644 +643 +642 +641 +640 +639 +638 +637 +636 +635 +634 +633 +632 +631 +630 +629 +628 +627 +626 +625 +624 +623 +622 +621 +620 +619 +618 +617 +616 +615 +614 +613 +612 +611 +610 +609 +608 +607 +606 +605 +604 +603 +602 +601 +600 +599 +598 +597 +596 +595 +594 +593 +592 +591 +590 +589 +588 +587 +586 +585 +584 +583 +582 +581 +580 +579 +578 +577 +576 +575 +574 +573 +572 +571 +570 +569 +568 +567 +566 +565 +564 +563 +562 +561 +560 +559 +558 +557 +556 +555 +554 +553 +552 +551 +550 +549 +548 +547 +546 +545 +544 +543 +542 +541 +540 +539 +538 +537 +536 +535 +534 +533 +532 +531 +530 +529 +528 +527 +526 +525 +524 +523 +522 +521 +520 +519 +518 +517 +516 +515 +514 +513 +512 +511 +510 +509 +508 +507 +506 +505 +504 +503 +502 +501 +500 +499 +498 +497 +496 +495 +494 +493 +492 +491 +490 +489 +488 +487 +486 +485 +484 +483 +482 +481 +480 +479 +478 +477 +476 +475 +474 +473 +472 +471 +470 +469 +468 +467 +466 +465 +464 +463 +462 +461 +460 +459 +458 +457 +456 +455 +454 +453 +452 +451 +450 +449 +448 +447 +446 +445 +444 +443 +442 +441 +440 +439 +438 +437 +436 +435 +434 +433 +432 +431 +430 +429 +428 +427 +426 +425 +424 +423 +422 +421 +420 +419 +418 +417 +416 +415 +414 +413 +412 +411 +410 +409 +408 +407 +406 +405 +404 +403 +402 +401 +400 +399 +398 +397 +396 +395 +394 +393 +392 +391 +390 +389 +388 +387 +386 +385 +384 +383 +382 +381 +380 +379 +378 +377 +376 +375 +374 +373 +372 +371 +370 +369 +368 +367 +366 +365 +364 +363 +362 +361 +360 +359 +358 +357 +356 +355 +354 +353 +352 +351 +350 +349 +348 +347 +346 +345 +344 +343 +342 +341 +340 +339 +338 +337 +336 +335 +334 +333 +332 +331 +330 +329 +328 +327 +326 +325 +324 +323 +322 +321 +320 +319 +318 +317 +316 +315 +314 +313 +312 +311 +310 +309 +308 +307 +306 +305 +304 +303 +302 +301 +300 +299 +298 +297 +296 +295 +294 +293 +292 +291 +290 +289 +288 +287 +286 +285 +284 +283 +282 +281 +280 +279 +278 +277 +276 +275 +274 +273 +272 +271 +270 +269 +268 +267 +266 +265 +264 +263 +262 +261 +260 +259 +258 +257 +256 +255 +254 +253 +252 +251 +250 +249 +248 +247 +246 +245 +244 +243 +242 +241 +240 +239 +238 +237 +236 +235 +234 +233 +232 +231 +230 +229 +228 +227 +226 +225 +224 +223 +222 +221 +220 +219 +218 +217 +216 +215 +214 +213 +212 +211 +210 +209 +208 +207 +206 +205 +204 +203 +202 +201 +200 +199 +198 +197 +196 +195 +194 +193 +192 +191 +190 +189 +188 +187 +186 +185 +184 +183 +182 +181 +180 +179 +178 +177 +176 +175 +174 +173 +172 +171 +170 +169 +168 +167 +166 +165 +164 +163 +162 +161 +160 +159 +158 +157 +156 +155 +154 +153 +152 +151 +150 +149 +148 +147 +146 +145 +144 +143 +142 +141 +140 +139 +138 +137 +136 +135 +134 +133 +132 +131 +130 +129 +128 +127 +126 +125 +124 +123 +122 +121 +120 +119 +118 +117 +116 +115 +114 +113 +112 +111 +110 +109 +108 +107 +106 +105 +104 +103 +102 +101 +100 +99 +98 +97 +96 +95 +94 +93 +92 +91 +90 +89 +88 +87 +86 +85 +84 +83 +82 +81 +80 +79 +78 +77 +76 +75 +74 +73 +72 +71 +70 +69 +68 +67 +66 +65 +64 +63 +62 +61 +60 +59 +58 +57 +56 +55 +54 +53 +52 +51 +50 +49 +48 +47 +46 +45 +44 +43 +42 +41 +40 +39 +38 +37 +36 +35 +34 +33 +32 +31 +30 +29 +28 +27 +26 +25 +24 +23 +22 +21 +20 +19 +18 +17 +16 +15 +14 +13 +12 +11 +10 +9 +8 +7 +6 +5 +4 +3 +2 +1 Added: fcode-utils/testsuite/TokeErrs/UntermDefn.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/UntermDefn.fth (rev 0) +++ fcode-utils/testsuite/TokeErrs/UntermDefn.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -0,0 +1,7 @@ +\ Another unusual error.... +\ Not even a newbie would make this one, right? +\ Yeah, right... +\ Updated Thu, 31 Aug 2006 at 17:39 PDT by David L. Paktor + + +h# -41100132 constant Added: fcode-utils/testsuite/TokeErrs/UntermLocalAssgmnt.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/UntermLocalAssgmnt.fth (rev 0) +++ fcode-utils/testsuite/TokeErrs/UntermLocalAssgmnt.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -0,0 +1,6 @@ +\ Another corner-case error. +\ Create an unterminated simple local-values assignment +\ to be FLoaded into various contexts... +\ Updated Thu, 31 Aug 2006 at 17:09 PDT by David L. Paktor + + -> Added: fcode-utils/testsuite/TokeErrs/UntermLocalDecl.fth =================================================================== --- fcode-utils/testsuite/TokeErrs/UntermLocalDecl.fth (rev 0) +++ fcode-utils/testsuite/TokeErrs/UntermLocalDecl.fth 2006-10-14 21:07:27 UTC (rev 95) @@ -0,0 +1,7 @@ +\ Another corner-case error. +\ Create an unterminated simple local-values declaration +\ to be FLoaded into various contexts... +\ Updated Thu, 31 Aug 2006 at 15:47 PDT by David L. Paktor + + + { _green _goose | _souvenirs

1 0

r94 - in fcode-utils: detok toke
by svn＠openbios.org 14 Oct '06

14 Oct '06

Author: stepan Date: 2006-10-14 22:42:30 +0200 (Sat, 14 Oct 2006) New Revision: 94 Modified: fcode-utils/detok/detok.c fcode-utils/toke/toke.c Log: fix license printing Modified: fcode-utils/detok/detok.c =================================================================== --- fcode-utils/detok/detok.c 2006-10-14 20:36:03 UTC (rev 93) +++ fcode-utils/detok/detok.c 2006-10-14 20:42:30 UTC (rev 94) @@ -7,7 +7,8 @@ * This program is part of a free implementation of the IEEE 1275-1994 * Standard for Boot (Initialization Configuration) Firmware. * - * Copyright (C) 2001-2005 Stefan Reinauer, <stepan(a)openbios.org> + * Copyright (C) 2001-2006 Stefan Reinauer, <stepan(a)openbios.org> + * Copyright (C) 2006 coresystems GmbH <info(a)coresystems.de> * * 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 @@ -44,8 +45,10 @@ #include "stream.h" #include "addfcodes.h" -#define DETOK_VERSION "0.6.1" +#define DETOK_VERSION "1.0.0" +#define CORE_COPYR "(C) Copyright 2001-2006 Stefan Reinauer.\n" \ + "(C) Copyright 2006 coresystems GmbH <info(a)coresystems.de>" #define IBM_COPYR "(C) Copyright 2005 IBM Corporation. All Rights Reserved." bool verbose = FALSE ; @@ -62,18 +65,16 @@ char buffr[512]; sprintf( buffr, - "Welcome to the OpenBIOS detokenizer v%s\ndetok Copyright" - "(c) 2001-2005 by Stefan Reinauer.\nWritten by Stefan " - "Reinauer, <stepan(a)openbios.org>\n" "This program is " - "free software; you may redistribute it under the terms of\n" - "the GNU General Public License. This program has absolutely" - " no warranty.\n\n" ,DETOK_VERSION); + "Welcome to detok - OpenBIOS detokenizer v" DETOK_VERSION "\n" + CORE_COPYR "\n" IBM_COPYR "\n" + "Written by Stefan Reinauer, <stepan(a)openbios.org>\n" + "This program is free software; you may redistribute it " + "under the terms of\nthe GNU General Public License v2. This " + "program has absolutely no warranty.\n\n" ); pfunct = ( is_error ? (vfunct)printf : printremark ); (*pfunct) ( buffr ); - - (*pfunct) ( IBM_COPYR "\n" ); } static void usage(char *name) Modified: fcode-utils/toke/toke.c =================================================================== --- fcode-utils/toke/toke.c 2006-10-14 20:36:03 UTC (rev 93) +++ fcode-utils/toke/toke.c 2006-10-14 20:42:30 UTC (rev 94) @@ -102,7 +102,7 @@ printf( "Welcome to toke - OpenBIOS tokenizer v" TOKE_VERSION "\n" CORE_COPYR "\n" IBM_COPYR "\n" "This program is free software; you may redistribute it " - "under the terms of\nthe GNU General Public License. This " + "under the terms of\nthe GNU General Public License v2. This " "program has absolutely no warranty.\n\n"); #ifdef DEVEL /* Temporary hack during development... */

1 0

r93 - fcode-utils/testsuite
by svn＠openbios.org 14 Oct '06

14 Oct '06

Author: stepan Date: 2006-10-14 22:36:03 +0200 (Sat, 14 Oct 2006) New Revision: 93 Modified: fcode-utils/testsuite/AutoExec Log: small fix for test executor Modified: fcode-utils/testsuite/AutoExec =================================================================== --- fcode-utils/testsuite/AutoExec 2006-10-14 20:34:46 UTC (rev 92) +++ fcode-utils/testsuite/AutoExec 2006-10-14 20:36:03 UTC (rev 93) @@ -45,8 +45,8 @@ # Initial error-checking: -if ( ( ! -x ./toke ) || ( ! -x ./detok ) ) then - echo 'Starting in wrong directory. Executable toke and detok are not here.' +if ( ( ! -x ./toke ) || ( ! -x ./detok ) || ( ! -x ./romheaders ) ) then + echo 'Starting in wrong directory. Executable toke, detok and romheaders are not here.' exit 1 endif

1 0

r92 - fcode-utils/testsuite
by svn＠openbios.org 14 Oct '06

14 Oct '06

Author: stepan Date: 2006-10-14 22:34:46 +0200 (Sat, 14 Oct 2006) New Revision: 92 Added: fcode-utils/testsuite/AutoCompare fcode-utils/testsuite/AutoExec Log: add testsuite scripts Added: fcode-utils/testsuite/AutoCompare =================================================================== --- fcode-utils/testsuite/AutoCompare (rev 0) +++ fcode-utils/testsuite/AutoCompare 2006-10-14 20:34:46 UTC (rev 92) @@ -0,0 +1,183 @@ +#! /bin/csh -f +# +# Part of automation of the testing process for the Tokenizer/De-Tokenizer +# Automate Comparison of results of Auto-Execution of the various test-cases + +# Updated Fri, 16 Jun 2006 at 12:12 PDT by David L. Paktor + +# To Do: +# Conditional comparison of .DeTok files: +# Detect difference in .fc file, but do not display +# Display differences in .Log file +# If difference detected in .fc file, display mssg +# Otherwise, detect difference in .DeTok file and display mssg +# If either diff detected in .fc or in .DeTok file, show .DeTok diffs +# Display differences in .RomHdr +# +# Compare the source (.fth) files (for regression testing...) + +# Usage: +# Run this from the parent-directory of the various Test categories. +# This script uses the same TestArgs files that were used by +# (and described in) the AutoExec script. +# +# This script needs a shell environment variable called CygTestLogs +# whose value is the path to the parent-directory that contains +# the results of Auto-Execution of the various test-cases under +# Cygwin, which is the "Gold Standard" to which the other +# platforms' results will be compared. +# +# This script accepts an optional environment variable called LogFilesDiff +# which may be set to change the number of lines by which two .Log +# files are expected to differ (due to different compilation-signatures) +# If this is not supplied in the environment, a default will be provided. +# +# This script compares only one platform's results at a time; +# the parent-directory that contains the Auto-Execution results +# for the platform to be compared should be the current directory. +# +# This script displays both operational errors and detected discrepancies +# in Standard Output and also collects the same in a log file whose +# name is AutoComp.Log.<time-and-date-stamp> +# +# A secondary output file, called AutoComp.TKdiffs.<time-and-date-stamp> +# is produced; it can be "source"d to cause a sequential tkdiff of +# the detected discrepancies + + +# Set the number of lines by which two .Log files are expected to differ. +# (this is due to different compilation-signature lines) +set LogFilesDiffLines = 6 +# Over-ride with optional shell env't variable called LogFilesDiff +if ( $?LogFilesDiff ) then + set notallnumbers = `echo $LogFilesDiff | tr '0-9' ' '` + if ( "$notallnumbers" == "" ) then + set LogFilesDiffLines = $LogFilesDiff + endif +endif + +# Preliminary error checking: +if ( ! $?CygTestLogs ) then + echo 'Please define a shell environment variable called CygTestLogs' + echo ' whose value is the path to the Cygwin test-results directory.' + exit 1 +endif + +set TArgFiles = `find . -name TestArgs -exec expr {} : '\./$.*$' \;` +if ( $#TArgFiles == 0 ) then + echo 'No TestArgs files found in subdirectories.' + echo 'Starting in wrong directory?' + exit 2 +endif + +set TArgReslts = `find $CygTestLogs -name TestArgs -exec expr {} : $CygTestLogs/'$.*$' \;` +if ( $#TArgReslts != $#TArgFiles ) then + echo 'Number of TestArgs files in CygTestLogs ('$CygTestLogs') directory' + echo ' does not match those found under current directory.' + echo 'Please correct discrepancy and try again.' + exit 4 +endif + +if ( "$TArgReslts" != "$TArgFiles" ) then + echo 'List of TestArgs files in CygTestLogs ('$CygTestLogs') directory' + echo ' does not match those found under current directory.' + echo 'Please correct discrepancy and try again.' + exit 8 +endif + +# Let's save mismatch identifiers: +set datemark = `date '+%y%m%d.%H%M%S'` +set ErrResltFil = AutoComp.Log.$datemark +set ScriptResltFil = AutoComp.TKdiffs.$datemark + +# Let's show a progress-downcount +# Find the count of actual tests; leave the max number on display: +set cnt = `egrep '^[^#].*' $TArgFiles | wc -l` +echo '' +echo $cnt + +foreach TArgFil ( $TArgFiles ) + set dir = $TArgFil:h + + set lindxmax = `cat $TArgFil | wc -l` + set lindx = 0 + while ( $lindx < $lindxmax ) + @ lindx++ + set targline = `sed -n ${lindx}p $TArgFil` + if ( $#targline == 0 ) continue + if ( "$targline[1]" == "#" ) continue + set ttarg = $dir/$targline[1] +# One more error-check: + if ( ! -f ${ttarg}.fth ) then + echo File Not found: ${ttarg}.fth + echo Please update ${TArgFil} file, line $lindx + continue + endif + + set label = `echo $targline | awk -F , '{print $2}'` + if ( "$label" != "" ) set label = .$label + +# Now begins the real fun... +# Show a running down-count + echo -n X${cnt}' ' | tr X \\015 + @ cnt-- + +# Check the extensions that are text-type files + foreach txext ( Log RomHdr fl fl.missing ) +# Is the file in both? + if ( -f $CygTestLogs/${ttarg}${label}.${txext} && ! -f ${ttarg}${label}.${txext} ) then + echo Missing ${ttarg}${label}.${txext} | tee -a $ErrResltFil + else + if ( -f ${ttarg}${label}.${txext} ) then + set lim = 0 + set fxext = `echo $txext | tr '.' '_'` + if ( `eval echo '$?'${fxext}FilesDiffLines` ) then + set lim = `eval echo '$'${fxext}FilesDiffLines` + endif + set logdiff = `diff {,$CygTestLogs/}${ttarg}${label}.${txext} | wc -l` + if ( $logdiff > $lim ) then + echo ${ttarg}${label}.${txext} files differ. | tee -a $ErrResltFil + diff {$CygTestLogs/,}${ttarg}${label}.${txext} | tee -a $ErrResltFil + echo 'tkdiff {$CygTestLogs/,}'${ttarg}${label}.${txext} >> $ScriptResltFil + endif + endif + endif + end + +# Now, check the FCode file. +# If there's an FCode file in the reference directory ($CygTestLogs) +# there should be one in the directory under test. + if ( -f $CygTestLogs/${ttarg}${label}.fc && ! -f ${ttarg}${label}.fc ) then + echo Missing ${ttarg}${label}.fc | tee -a $ErrResltFil + else +# Is there an FCode file in the directory under test? + unset ShowDetokDiffs + if ( -f ${ttarg}${label}.fc ) then + set bindiff = `cmp {,$CygTestLogs/}${ttarg}${label}.fc` + if ( "$bindiff" != "" ) then + echo "$bindiff" | tee -a $ErrResltFil +# If the binaries are different, show the difference in the DeTok form +# If the DeTok form is missing, it's an even stranger error! + if ( ! -f $CygTestLogs/${ttarg}${label}.DeTok || ! -f ${ttarg}${label}.DeTok ) then + echo Missing DeTok file for ${ttarg}${label} | tee -a $ErrResltFil + else + set ShowDetokDiffs + endif + else +# Even if the binaries are not different, +# check for changes in in the DeTok form + set detokdiff = `diff {,$CygTestLogs/}${ttarg}${label}.DeTok | wc -l` + if ( $detokdiff > 0 ) set ShowDetokDiffs + endif + endif + if ( $?ShowDetokDiffs ) then + echo ${ttarg}${label}.DeTok files differ. | tee -a $ErrResltFil + diff {$CygTestLogs/,}${ttarg}${label}.DeTok | tee -a $ErrResltFil + echo 'tkdiff {$CygTestLogs/,}'${ttarg}${label}.DeTok >> $ScriptResltFil + endif + endif + + end +end + + Added: fcode-utils/testsuite/AutoExec =================================================================== --- fcode-utils/testsuite/AutoExec (rev 0) +++ fcode-utils/testsuite/AutoExec 2006-10-14 20:34:46 UTC (rev 92) @@ -0,0 +1,164 @@ +#! /bin/csh -f +# +# Part of automation of the testing process for the Tokenizer/De-Tokenizer +# Automate Execution of Tokenizing and De-Tokenizing the various test-cases + +# Updated Thu, 09 Feb 2006 at 13:10 PST by David L. Paktor + +# Run this from the parent-directory of the various Test categories. +# Sym-links to the binaries should be here. + +# Each Test category directory must have a TestArgs file, +# formatted as follows: +# Lines starting with # (Pound-sign Space) are comments, +# and are ignored +# Blank lines are also allowed, and are also ignored +# Valid lines have four comma-separated fields: +# Test-file base-name +# Result-file label +# Extra command-line switches +# A script-command, to be run after, for specific +# verification of this Test. Arguments can also +# be included in this field, as long as they have +# no commas. +# An unspecified intermediate field must be represented as +# an empty field separated by commas from the fields +# preceding and following. +# Lines that have no label, no switches, and no script +# do not need any commas. +# The -v (verbose) switch will always be used and does not need +# to be explicitly specified. However, if the "script-command" +# field starts with +V (case-sensitive), then the -v (verbose) +# switch will not be used. +# +# The Test-file base-name field may have multiple base-names, +# to run a multiple-file batch command. +# If a multiple-file batch is run: +# The Result-file label will apply only to the Log file. + +# To Do: +# Contrive a way to run the second through last input files as +# separate individual jobs (with same command-line switches) +# This needs to be co-ordinated with the Auto-Compare script: +# It will need to compare the .FC files from the batch with +# those from the individual runs. + + +# Initial error-checking: +if ( ( ! -x ./toke ) || ( ! -x ./detok ) ) then + echo 'Starting in wrong directory. Executable toke and detok are not here.' + exit 1 +endif + +set TArgFiles = `find . -name TestArgs -exec expr {} : '\./$.*$' \;` +if ( $#TArgFiles == 0 ) then + echo 'No TestArgs files found in subdirectories.' + echo 'Starting in wrong directory?' + exit 1 +endif + +set parent = `pwd` +set tokex = `pwd`/toke +set detokex = `pwd`/detok +set romhdrex = `pwd`/romheaders + +set chirren = `echo $TArgFiles | tr ' ' \\012 | sed -e 'sX/[^/]*$XXg'` + +# The "verbose" flag is now a variable. +set vflg = '-v' + +# Let's show a progress-downcount and time, stamps and elapsed. +# Find the count; leave the max number on display: +set cnt = `egrep '^[^#].*' $TArgFiles | wc -l` +echo '' +set starttime = `date +'%T'` +echo $starttime +echo $cnt + +foreach dir ( $chirren ) + cd $dir + set lindxmax = `cat TestArgs | wc -l` + set lindx = 0 + while ( $lindx < $lindxmax ) + @ lindx++ + set targline = `sed -n ${lindx}p TestArgs` + if ( $#targline == 0 ) continue + if ( "$targline[1]" == "#" ) continue + set ttargs = `echo $targline | awk -F , '{print $1}'` +# One more error-check: + set tfths = '' + set fcfils = '' + unset FMissing + foreach tfth ( $ttargs ) + if ( ! -f ${tfth}.fth ) then + echo File Not found: ${dir}/${tfth}.fth + echo Please update ${dir}/TestArgs file, line $lindx + set FMissing + endif + set tfths = ( $tfths ${tfth}.fth ) + set fcfils = ( $fcfils ${tfth}.fc ) + end + if ( $?FMissing ) continue + + set ttarg = $ttargs[1] + + set outfile = '' + set label = `echo $targline | awk -F , '{print $2}'` + if ( "$label" != "" ) then + set label = .$label + if ( $#tfths == 1 ) then + set fcfils = ${ttarg}${label}.fc + set outfile = ( -o $fcfils ) + endif + endif +# We don't set the switches as a shell-variable because we might +# need to preserve quoted groupings that have embedded spaces. + +# Collect the script-command. +# Awkward place to expect a "+V" option, but it'll have to serve.... + set scriptcmd = `echo $targline | awk -F , '{print $4}'` + if ( $#scriptcmd > 0 ) then + if ( "$scriptcmd[1]" == "+V" ) then + set vflg = "" + if ( $#scriptcmd == 1 ) then + set scriptcmd = "" + else + set scriptcmd = ( $scriptcmd[2-] ) + endif + endif + endif + + echo -n X${cnt}' ' | tr X \\015 + @ cnt-- + +# Now do it. + set doromhdr = 0 + echo toke $vflg `sed -n ${lindx}p TestArgs | awk -F , '{print $3}'` $outfile ${tfths} >& ${ttarg}${label}.Log + echo '' >>& ${ttarg}${label}.Log + eval $tokex $vflg `sed -n ${lindx}p TestArgs | awk -F , '{print $3}'` $outfile ${tfths} >>& ${ttarg}${label}.Log + set vflg = '-v' + + foreach fcfil ( $fcfils ) + if ( -f ${fcfil} ) then + $detokex -v -o ${fcfil} > ${fcfil:r}.DeTok + set doromhdr = `grep 'PCI Header identified' ${fcfil:r}.DeTok | wc -l` + if ( $doromhdr ) then + $romhdrex ${fcfil} > ${fcfil:r}.RomHdr + endif + endif + end + + + if ( "$scriptcmd" != "" ) then + eval $scriptcmd + endif + + end + cd $parent +end +# Clear the display-line +echo -n X' 'X | tr X \\015 +# Show time, stamps and elapsed. +date +'%T' +echo $starttime ' (Started)' +

1 0

r91 - in fcode-utils: . testsuite testsuite/TokBrack testsuite/TokCondl testsuite/TokMisc testsuite/TokMisc/OldTkzr testsuite/TokMisc/sub.w.dots testsuite/TokeCommon testsuite/TokeErrs testsuite/TokoLoco
by svn＠openbios.org 14 Oct '06

14 Oct '06

Author: stepan Date: 2006-10-14 22:31:53 +0200 (Sat, 14 Oct 2006) New Revision: 91 Added: fcode-utils/testsuite/ fcode-utils/testsuite/GlobalLocalValues.fth fcode-utils/testsuite/GlobalLocalValuesDevel.fth fcode-utils/testsuite/LocalValuesDevelSupport.fth fcode-utils/testsuite/LocalValuesSupport.fth fcode-utils/testsuite/TokBrack/ fcode-utils/testsuite/TokBrack/TestArgs fcode-utils/testsuite/TokBrack/TokBrkErrTst_01.fth fcode-utils/testsuite/TokBrack/TokBrkTst_01.fth fcode-utils/testsuite/TokBrack/TokBrkTst_02.fth fcode-utils/testsuite/TokBrack/TokBrkTst_03.fth fcode-utils/testsuite/TokBrack/revlev.fth fcode-utils/testsuite/TokCondl/ fcode-utils/testsuite/TokCondl/BooBalah.fth fcode-utils/testsuite/TokCondl/CondAlias.fth fcode-utils/testsuite/TokCondl/CondMacAlias.fth fcode-utils/testsuite/TokCondl/CondMacAlias_01.fth fcode-utils/testsuite/TokCondl/CondOpInIgndMssg.fth fcode-utils/testsuite/TokCondl/DefCondTst.fth fcode-utils/testsuite/TokCondl/DefCondTst2.fth fcode-utils/testsuite/TokCondl/DupLoadBody.fth fcode-utils/testsuite/TokCondl/DupLoadTst.fth fcode-utils/testsuite/TokCondl/MulFCimgFT.fth fcode-utils/testsuite/TokCondl/MulFCimgTF.fth fcode-utils/testsuite/TokCondl/MulFCimg_01.fth fcode-utils/testsuite/TokCondl/MulFCimg_01_Body.fth fcode-utils/testsuite/TokCondl/MulPCI_FC.fth fcode-utils/testsuite/TokCondl/MulPCIhdr.fth fcode-utils/testsuite/TokCondl/TestArgs fcode-utils/testsuite/TokCondl/TokCondErrs.fth fcode-utils/testsuite/TokCondl/TokCondMinTst.fth fcode-utils/testsuite/TokCondl/TokConstCondTst01.fth fcode-utils/testsuite/TokCondl/TokConstCondTst02.fth fcode-utils/testsuite/TokCondl/TokConstCondTstF.fth fcode-utils/testsuite/TokCondl/TokConstCondTstT.fth fcode-utils/testsuite/TokCondl/TokDefCondTst.fth fcode-utils/testsuite/TokCondl/TokExstCondNadaTst.fth fcode-utils/testsuite/TokCondl/TokExstCondNada_01.fth fcode-utils/testsuite/TokCondl/TokExstCondNada_02.fth fcode-utils/testsuite/TokCondl/TokExstCondTst01.fth fcode-utils/testsuite/TokCondl/TokExstCondTstN.fth fcode-utils/testsuite/TokCondl/TokExstCondTstY.fth fcode-utils/testsuite/TokMisc/ fcode-utils/testsuite/TokMisc/AbrtQuot.fth fcode-utils/testsuite/TokMisc/AllMacros.fth fcode-utils/testsuite/TokMisc/Almost_a_Buffer_of_Beer.fth fcode-utils/testsuite/TokMisc/BasicCont.fth fcode-utils/testsuite/TokMisc/BatchTst.fth fcode-utils/testsuite/TokMisc/BranchOverNewBuffer.fth fcode-utils/testsuite/TokMisc/CaseTkns.fth fcode-utils/testsuite/TokMisc/ContErr1.fth fcode-utils/testsuite/TokMisc/ContErr2.fth fcode-utils/testsuite/TokMisc/ContErr3.fth fcode-utils/testsuite/TokMisc/EncodTst.fth fcode-utils/testsuite/TokMisc/EncodeSrc fcode-utils/testsuite/TokMisc/ExamAllMacs.scr fcode-utils/testsuite/TokMisc/ExtCont.fth fcode-utils/testsuite/TokMisc/FlagSet.fth fcode-utils/testsuite/TokMisc/FlagsHelp.fth fcode-utils/testsuite/TokMisc/FlgReset.fth fcode-utils/testsuite/TokMisc/FlgReset_1.fth fcode-utils/testsuite/TokMisc/FlgReset_2.fth fcode-utils/testsuite/TokMisc/HeadrSettings.fth fcode-utils/testsuite/TokMisc/LotsOfAliases.fth fcode-utils/testsuite/TokMisc/MinPCIHtst.fth fcode-utils/testsuite/TokMisc/MiscFeatures.DOS.fth fcode-utils/testsuite/TokMisc/MiscFeatures.fth fcode-utils/testsuite/TokMisc/MiscFeaturesCopy.fth fcode-utils/testsuite/TokMisc/MiscFeaturesXtra.fth fcode-utils/testsuite/TokMisc/MulDev.fth fcode-utils/testsuite/TokMisc/MulDev_01.fth fcode-utils/testsuite/TokMisc/MulDev_02.fth fcode-utils/testsuite/TokMisc/No_Beer.fth fcode-utils/testsuite/TokMisc/OldTkzr/ fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.DeTok fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.Log fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.fc fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.fth fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.DeTok fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.Log fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.fc fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.fth fcode-utils/testsuite/TokMisc/OneBeer.fc fcode-utils/testsuite/TokMisc/StrAtEof.fld.fth fcode-utils/testsuite/TokMisc/StrAtEof.fth fcode-utils/testsuite/TokMisc/StrEscs.fth fcode-utils/testsuite/TokMisc/StrEscs_01.fth fcode-utils/testsuite/TokMisc/StringsGenl.DOS.fth fcode-utils/testsuite/TokMisc/StringsGenl.fth fcode-utils/testsuite/TokMisc/TestArgs fcode-utils/testsuite/TokMisc/TooLargeBeerBuffer_body.fth fcode-utils/testsuite/TokMisc/TooLargeBufferMulPciFcb.fth fcode-utils/testsuite/TokMisc/UserMacros.fth fcode-utils/testsuite/TokMisc/sub.w.dots/ fcode-utils/testsuite/TokMisc/sub.w.dots/MulDev fcode-utils/testsuite/TokeCommon/ fcode-utils/testsuite/TokeCommon/BinData.bin fcode-utils/testsuite/TokeCommon/MyBeerAndYouCannotHaveIt.fth fcode-utils/testsuite/TokeCommon/NoRead.bin fcode-utils/testsuite/TokeCommon/OneBeer.fl fcode-utils/testsuite/TokeCommon/OneBeer.fth fcode-utils/testsuite/TokeCommon/ZeroLen.bin fcode-utils/testsuite/TokeErrs/ fcode-utils/testsuite/TokeErrs/AbrtWQuotStr.fth fcode-utils/testsuite/TokeErrs/CStrEscOvflw.fth fcode-utils/testsuite/TokeErrs/CStrEscOvflw_body_1.fth fcode-utils/testsuite/TokeErrs/CStrEscOvflw_body_2.fth fcode-utils/testsuite/TokeErrs/CStrEscOvflw_body_3.fth fcode-utils/testsuite/TokeErrs/CommOvrRun.fth fcode-utils/testsuite/TokeErrs/CommOvrRun_01.fth fcode-utils/testsuite/TokeErrs/CommOvrRun_02.fth fcode-utils/testsuite/TokeErrs/CommOvrRun_03.fth fcode-utils/testsuite/TokeErrs/CommOvrRun_04.fth fcode-utils/testsuite/TokeErrs/CommOvrRun_05.fth fcode-utils/testsuite/TokeErrs/CondlDefn.fth fcode-utils/testsuite/TokeErrs/ControlMismatch.fth fcode-utils/testsuite/TokeErrs/DevImbal.fth fcode-utils/testsuite/TokeErrs/DevNodAli.fth fcode-utils/testsuite/TokeErrs/DevNodAli_01.fth fcode-utils/testsuite/TokeErrs/DupNams.fth fcode-utils/testsuite/TokeErrs/ExpPath.fth fcode-utils/testsuite/TokeErrs/FCShdrErrs.fth fcode-utils/testsuite/TokeErrs/Frinstnce.fth fcode-utils/testsuite/TokeErrs/GlobScopErrTst.fth fcode-utils/testsuite/TokeErrs/GlobScopErrTst_01.fth fcode-utils/testsuite/TokeErrs/GlobScopErrTst_02.fth fcode-utils/testsuite/TokeErrs/GlobScopErrTst_03.fth fcode-utils/testsuite/TokeErrs/InclLst.fth fcode-utils/testsuite/TokeErrs/LargeTextNoQte.fth fcode-utils/testsuite/TokeErrs/LitNums.fth fcode-utils/testsuite/TokeErrs/LocOvrRun.fth fcode-utils/testsuite/TokeErrs/LocOvrRun_01.fth fcode-utils/testsuite/TokeErrs/LocOvrRun_02.fth fcode-utils/testsuite/TokeErrs/LocOvrRun_03.fth fcode-utils/testsuite/TokeErrs/LocOvrRun_04.fth fcode-utils/testsuite/TokeErrs/LocalTest.fth fcode-utils/testsuite/TokeErrs/LocalTest1.fth fcode-utils/testsuite/TokeErrs/MacTest.fth fcode-utils/testsuite/TokeErrs/MiscFeatErrs.fth fcode-utils/testsuite/TokeErrs/MulPCI_LapFC.fth fcode-utils/testsuite/TokeErrs/ObsoFCodes.fth fcode-utils/testsuite/TokeErrs/OneTwoFive.fth fcode-utils/testsuite/TokeErrs/PCI_FCShdrErrs.fth fcode-utils/testsuite/TokeErrs/PCIhdrErrs.fth fcode-utils/testsuite/TokeErrs/PooPsalah.fth fcode-utils/testsuite/TokeErrs/RetStkDep.fth fcode-utils/testsuite/TokeErrs/SmlOvrRun.fth fcode-utils/testsuite/TokeErrs/SplitImbal.fth fcode-utils/testsuite/TokeErrs/SplitImbal_01.fth fcode-utils/testsuite/TokeErrs/SplitImbal_02.fth fcode-utils/testsuite/TokeErrs/SplitImbal_03.fth fcode-utils/testsuite/TokeErrs/SplitImbal_04.fth fcode-utils/testsuite/TokeErrs/SplitImbal_05.fth fcode-utils/testsuite/TokeErrs/SuppLocErrTest4.ErrMsgs.NoI fcode-utils/testsuite/TokeErrs/SuppLocErrTest4.fth fcode-utils/testsuite/TokeErrs/TestArgs fcode-utils/testsuite/TokeErrs/ToAtEnd.fth fcode-utils/testsuite/TokeErrs/TokCondUnconcF.fth fcode-utils/testsuite/TokeErrs/TokCondUnconcT.fth fcode-utils/testsuite/TokeErrs/TokCondUnconc_01.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_N231_body.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_N232_body.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_N233_body.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_V178_body.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_V179_body.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_V180_body.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_off08.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_off08_body.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_off08_to_16.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_off16.fth fcode-utils/testsuite/TokeErrs/TooLargeBranch_off16_body.fth fcode-utils/testsuite/TokeErrs/TooLargeCase.fth fcode-utils/testsuite/TokeErrs/TooLargeCase_body.fth fcode-utils/testsuite/TokeErrs/TooLargePMessage.fth fcode-utils/testsuite/TokeErrs/TooLargePQuote.fth fcode-utils/testsuite/TokeErrs/TooLargeParen.fth fcode-utils/testsuite/TokeErrs/TooLargeQAbort.fth fcode-utils/testsuite/TokeErrs/TooLargeQMessage.fth fcode-utils/testsuite/TokeErrs/TooLargeQNoAbort.fth fcode-utils/testsuite/TokeErrs/TooLargeSQuote.fth fcode-utils/testsuite/TokeErrs/TooManyFCodes.fth fcode-utils/testsuite/TokeErrs/TooTooLargeBuffer.fth fcode-utils/testsuite/TokeErrs/TooTooLargeBuffer_body.fth fcode-utils/testsuite/TokeErrs/UserMacroErrors.fth fcode-utils/testsuite/TokeErrs/errtest1.fth fcode-utils/testsuite/TokeErrs/errtest2.fth fcode-utils/testsuite/TokeErrs/testLocDevSupG.fth fcode-utils/testsuite/TokoLoco/ fcode-utils/testsuite/TokoLoco/GlobalLocalValues.fth fcode-utils/testsuite/TokoLoco/SupportedLocalTest.fth fcode-utils/testsuite/TokoLoco/SupportedLocalTest2.fth fcode-utils/testsuite/TokoLoco/SupportedLocalTest3.fth fcode-utils/testsuite/TokoLoco/SupportedLocalTest4.fth fcode-utils/testsuite/TokoLoco/TestArgs fcode-utils/testsuite/TokoLoco/testCatch.fth fcode-utils/testsuite/TokoLoco/testDevelSupport.fth fcode-utils/testsuite/TokoLoco/testNest.fth fcode-utils/testsuite/TokoLoco/testNest1.fth fcode-utils/testsuite/TokoLoco/testNest2.fth fcode-utils/testsuite/TokoLoco/testNest3.fth fcode-utils/testsuite/TokoLoco/testSupport.fth fcode-utils/testsuite/TotalLocalValuesSupport.fth Log: testsuite 1.0.0 Added: fcode-utils/testsuite/GlobalLocalValues.fth =================================================================== --- fcode-utils/testsuite/GlobalLocalValues.fth (rev 0) +++ fcode-utils/testsuite/GlobalLocalValues.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1 @@ +link ../../LocalValues/GlobalLocalValues.fth \ No newline at end of file Property changes on: fcode-utils/testsuite/GlobalLocalValues.fth ___________________________________________________________________ Name: svn:special + * Added: fcode-utils/testsuite/GlobalLocalValuesDevel.fth =================================================================== --- fcode-utils/testsuite/GlobalLocalValuesDevel.fth (rev 0) +++ fcode-utils/testsuite/GlobalLocalValuesDevel.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1 @@ +link ../../LocalValues/GlobalLocalValuesDevel.fth \ No newline at end of file Property changes on: fcode-utils/testsuite/GlobalLocalValuesDevel.fth ___________________________________________________________________ Name: svn:special + * Added: fcode-utils/testsuite/LocalValuesDevelSupport.fth =================================================================== --- fcode-utils/testsuite/LocalValuesDevelSupport.fth (rev 0) +++ fcode-utils/testsuite/LocalValuesDevelSupport.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1 @@ +link ../../LocalValues/LocalValuesDevelSupport.fth \ No newline at end of file Property changes on: fcode-utils/testsuite/LocalValuesDevelSupport.fth ___________________________________________________________________ Name: svn:special + * Added: fcode-utils/testsuite/LocalValuesSupport.fth =================================================================== --- fcode-utils/testsuite/LocalValuesSupport.fth (rev 0) +++ fcode-utils/testsuite/LocalValuesSupport.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1 @@ +link ../../LocalValues/LocalValuesSupport.fth \ No newline at end of file Property changes on: fcode-utils/testsuite/LocalValuesSupport.fth ___________________________________________________________________ Name: svn:special + * Added: fcode-utils/testsuite/TokBrack/TestArgs =================================================================== --- fcode-utils/testsuite/TokBrack/TestArgs (rev 0) +++ fcode-utils/testsuite/TokBrack/TestArgs 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,20 @@ +# Automated Test Arguments file for TokBrack category +# (That's short for "Tokenizer Bracket"; +# it refers to the Tokenizer Escape state.) + +# Valid lines have four comma-separated fields: +# Test-file base-name +# Result-file label +# Extra command-line switches +# A script-command with arguments (but no commas). +# Lines that have no label, no switches, and no script +# do not need any commas. + +# Updated Wed, 08 Mar 2006 at 19:11 PST by David L. Paktor + +# Might as well get the date-and-time one out of the way first... +TokBrkTst_02 , , -i -l +TokBrkTst_01 , , -i +TokBrkTst_01 , alwyshdr , -i -f ALWays-heADers +TokBrkTst_03 +TokBrkErrTst_01 , , -i Added: fcode-utils/testsuite/TokBrack/TokBrkErrTst_01.fth =================================================================== --- fcode-utils/testsuite/TokBrack/TokBrkErrTst_01.fth (rev 0) +++ fcode-utils/testsuite/TokBrack/TokBrkErrTst_01.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,60 @@ +\ Test of tokenizer[ ]tokenizer scope Error-Detection +\ Updated Fri, 17 Feb 2006 at 10:15 PST by David L. Paktor + +fcode-version2 + +headers + h# 30 + emit-byte +hex +tokenizer[ + rummidge + 10 emit-byte + 10 emit-byte + d# 10 emit-byte + o# 10 emit-byte + h# 10 emit-byte + 802 next-fcode + h# 1020 next-fcode + h# 3682 emit-byte + ]tokenizer +decimal 50 constant gummidge +hex +tokenizer[ gummidge + rummidge + ]tokenizer + h# 30 emit-byte + +100 constant pele_yoetz_ne'ema'an_anochi_hu_ha'omer_v'oseh_v'ain_c'moni_bchol_ha_aretz + +pele_yoetz_ne'ema'an_anochi_hu_ha'omer_v'oseh_v'ain_c'moni_bchol_ha_aretz 2 * constant clone + +b(lit) +tokenizer[ + 30 swap emit-byte + d# 20 emit-byte + o# 20 emit-byte + h# 20 emit-byte + ]tokenizer +tokenizer[ +h# defeca8e constant poopoo +h# beeffece constant moopoo + ]tokenizer + alias merde poopoo + alias couterde moopoo +tokenizer[ + merde fliteral + ]tokenizer + couterde fliteral + +tokenizer[ + fcode-push + fliteral + a# Fink + fcode-pop + ]tokenizer + +end0 + + + Added: fcode-utils/testsuite/TokBrack/TokBrkTst_01.fth =================================================================== --- fcode-utils/testsuite/TokBrack/TokBrkTst_01.fth (rev 0) +++ fcode-utils/testsuite/TokBrack/TokBrkTst_01.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,49 @@ +\ Elementary test of the tokenizer[ ]tokenizer scope functions +\ Updated Fri, 21 Oct 2005 at 16:01 PDT by David L. Paktor + +fcode-version2 + +headers +hex + +b(lit) +tokenizer[ + 10 emit-byte + d# 10 emit-byte + o# 10 emit-byte + h# 10 emit-byte + ]tokenizer +decimal +100 constant pele_yoetz_ne'ema'an_anochi_hu_ha'omer_v'oseh_v'ain_c'moni_bchol_ha_aretz + +pele_yoetz_ne'ema'an_anochi_hu_ha'omer_v'oseh_v'ain_c'moni_bchol_ha_aretz 2 * constant clone + +12 c, +tokenizer[ 12 fliteral + ]tokenizer l, +12 c, +: yuttzer 14 tokenizer[ 14 fliteral hex 14 fliteral ]tokenizer 14 ; + +hex +headerless +80 constant this_name_has_a_whole_lot_of_syllables_and_so_would_not_be_a_good_ingredient_in_ice_cream_but_at_least_you_know_what_it_means + +headers + + f[ 1cec6ea3 constant a_name_with_too_many_letters_should_not_matter_in_tokenizer_escape_mode + ]f + +: brand-x-ice-cream \ Because it uses ingredients with too many syllables + pele_yoetz_ne'ema'an_anochi_hu_ha'omer_v'oseh_v'ain_c'moni_bchol_ha_aretz + dup 20 - do i . loop cr + ." Nameless one..." this_name_has_a_whole_lot_of_syllables_and_so_would_not_be_a_good_ingredient_in_ice_cream_but_at_least_you_know_what_it_means ." equals " . cr + ." But everyone likes an " + f[ a_name_with_too_many_letters_should_not_matter_in_tokenizer_escape_mode + f] fliteral . + clone . cr +; + +end0 + + + Added: fcode-utils/testsuite/TokBrack/TokBrkTst_02.fth =================================================================== --- fcode-utils/testsuite/TokBrack/TokBrkTst_02.fth (rev 0) +++ fcode-utils/testsuite/TokBrack/TokBrkTst_02.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,94 @@ +\ Secondary test of tokenizer-escape mode functions +\ Updated Thu, 02 Mar 2006 at 17:47 PST by David L. Paktor + +[macro] where-from ." This came from " [input-file-name] type ." line " [line-number] .d cr +[macro] in_what ." In " [function-name] type cr +[macro] mess_in_what f[ [function-name] ]f + +tokenizer[ + +fload revlev.fth + +h# 020000 constant eithernet \ Class Code: 0x020000 (Ethernet) +h# 5417 constant deviouce \ Device ID: 0x5417 +h# 17d5 constant vanitor \ Vendor ID: 0x17d5 + + vanitor deviouce eithernet + i-got-a-Rev-Level + false + ]tokenizer + +not-last-image +last-img +set-last-image + SET-REV-LEVEL + pci-header + +fcode-version2 + +headers +hex +tokenizer[ + +d# 10 constant triumph + o# 40 constant trophy + h# 80 constant trumpet + ]tokenizer +b(lit) +tokenizer[ + 10 emit-byte + triumph emit-byte + trumpet emit-byte + trophy emit-byte + + ]tokenizer +b(lit) +tokenizer[ + + h# de h# fe h# ca h# 8e + 2swap swap + emit-byte emit-byte + swap emit-byte emit-byte + + ]tokenizer + +h# defeca8e constant poopoo +h# beeffece constant moopoo +alias couterde moopoo +tokenizer[ +h# defeca8e constant poopoo +h# beeffece constant moopoo +alias couterde moopoo + couterde poopoo + ]tokenizer fliteral + fliteral + + f['] moopoo \ Can't f['] couterde just yet + couterde poopoo +tokenizer[ h# feedbac4 ]tokenizer \ Leave something extra on the stack... +: merde + ['] moopoo \ Can't ['] couterde just yet, either + ' poopoo + couterde + ascii b char e [char] f +[message] About to tokenize run-time date and time stamps. Twice! + ." Date " [fcode-date] type + ." Time" [fcode-time] type cr + ." Time" [fcode-time] type + ." Date " [fcode-date] type cr +f[ [fcode-date] [fcode-time] ]f + in_what where-from mess_in_what +; +ascii f + char e + [char] c + +: terde + in_what where-from mess_in_what +; + + +end0 + +\ save-image chalupa.fc + Added: fcode-utils/testsuite/TokBrack/TokBrkTst_03.fth =================================================================== --- fcode-utils/testsuite/TokBrack/TokBrkTst_03.fth (rev 0) +++ fcode-utils/testsuite/TokBrack/TokBrkTst_03.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,18 @@ +\ Test new Aliasing algorithm + +\ Updated Tue, 31 May 2005 at 12:05 by David L. Paktor + +fcode-version2 +tokenizer[ +\ emit-date +\ alias dte emit-date +alias dq ." +dq This is a message" +\ dte +h# 00030000 constant goodmeat +goodmeat fliteral +alias goodeats goodmeat +goodeats fliteral +reset-symbols + ]tokenizer +end0 Added: fcode-utils/testsuite/TokBrack/revlev.fth =================================================================== --- fcode-utils/testsuite/TokBrack/revlev.fth (rev 0) +++ fcode-utils/testsuite/TokBrack/revlev.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,2 @@ +\ Fake out an FLOAD-able constant +h# f2ed constant i-got-a-Rev-Level Added: fcode-utils/testsuite/TokCondl/BooBalah.fth =================================================================== --- fcode-utils/testsuite/TokCondl/BooBalah.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/BooBalah.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,34 @@ +\ FLoadable body for various conditional tests, based on the value of +\ a constant named "boobalah?" (Okay, so I was running out of ideas...) + +." Begin Nested ""Constant"" Test Test" +f[ boobalah? f] [if] +[message] The TRUE path has wisely been chosen, Boobalah! + ." Is True, level 1" + f[ boobalah? f] [if] + " Is True and is True, level 2" + [else] + " Is True but is Not True. What?" + [then] + ." Middle of level 2" + f[ boobalah? 0= f] [if] + " Is True and is False. What?" + [else] + " Is True and is Not False, level 2" + [then] +[else] +[message] Oy, Boobalah. You have foolishly chosen the FALSE path. + ." Is Not True, level 1" + f[ boobalah? f] [if] + " Is Not True but is True. What?" + [else] + " Is Not True and is Not True, level 2" + [then] + ." Middle of Not level 2" + f[ boobalah? 0= f] [if] + " Is Not True and is False, level 2" + [else] + " Is Not True and is Not False. What?" + [then] +[then] + Added: fcode-utils/testsuite/TokCondl/CondAlias.fth =================================================================== --- fcode-utils/testsuite/TokCondl/CondAlias.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/CondAlias.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,42 @@ +\ Test aliasing of Conditional directives. Use Command-line-definition +\ Updated Tue, 20 Dec 2005 at 16:15 PST by David L. Paktor + +\ +\ Symbol moogoo is either defined true (-1) or false (0), or is absent + + +alias [dowegotit?] [ifdef] +alias [ifyouaintgot] [ifndef] +alias [izzatso?] [if] +alias [udderwise] [else] +alias [donewidit] [then] + f[ alias mess( .( + alias mess" ." + f] + +[ifyouaintgot] moogoo + f[ + mess( Y'gotta define MooGoo on da command-line.) + mess" "n"tIt's eider -D moogoo=true or -D moogoo=false" + f] +[udderwise] + f[ + mess( Hey! Y'got MooGoo! Good for you!) + [defined] moogoo [izzatso?] + mess" And guess what! It's TRUE! Drinks all around!" + [udderwise] + mess( So wut's it gonna be? You gonna be FLASE to me?) + [donewidit] + f] +[donewidit] + +[dowegotit?] moogoo + f[ + mess( Hey! Did I menshun dat we got MooGoo?) + mess" "n"tYeah? Well, so wut if I did? I'm gonna menshun it again! + WE GOT MooGoo!!!" + f] +[udderwise] + f[ + mess" "n"tCuz if ya don' got dat MooGoo, it don't mean a t'ing..." f] +[donewidit] Added: fcode-utils/testsuite/TokCondl/CondMacAlias.fth =================================================================== --- fcode-utils/testsuite/TokCondl/CondMacAlias.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/CondMacAlias.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,58 @@ +\ Test Conditionals and Locals with Macros and Aliases +\ without (intentional) errors, this time... +\ Updated Fri, 10 Mar 2006 at 14:26 PST by David L. Paktor + +headers +fcode-version2 + +fload GlobalLocalValues.fth + +Global-definitions + +alias // \ +alias ((( ( + +alias loc{ { + +alias [whatden] [endif] +alias [younwhudahmy] [else] +[macro] [donewidit] [whatden] +[macro] [udderwise] [younwhudahmy] + + +alias [isitdere] [ifexist] +alias [ifitaint] [ifnexist] +[macro] doIgotit [isitdere] +[macro] Iaintgotit [ifitaint] + +[macro] [ifitis] Iaintgotit gumblefritz + +device-definitions + +\ Don't define gumblefritz + +[message] Didn't define gumblefritz + +[ifitaint] gumblefritz + #message" Can't ignore fload. What if it's got a balancing [endif] ?" + [message] Or a balancing [else] + fload CondMacAlias_01.fth +[udderwise] + #message" Dis ain't gonna show even if it has an [endif] " + [message] Dere's an [endif] here too +[donewidit] + +new-device + +create gumblefritz +[message] Just defined gumblefritz + +doIgotit gumblefritz + + fload CondMacAlias_01.fth + +[donewidit] + +finish-device + +fcode-end Added: fcode-utils/testsuite/TokCondl/CondMacAlias_01.fth =================================================================== --- fcode-utils/testsuite/TokCondl/CondMacAlias_01.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/CondMacAlias_01.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,120 @@ +\ Test Conditionals and Locals with Macros and Aliases +\ without (intentional) errors. Common code... +\ Updated Fri, 10 Mar 2006 at 17:18 PST by David L. Paktor + + +( File that floads this will have to define // as an alias to \ and + also ((( as an alias to ( (open-paren) + +((( That last also acts as the close-paren that finishes the two-line + comment above. Funny... We also need a macro called [ifitis] + whose meaning may change but which will always begin the "true" + segment of a conditional, a macro called [udderwise] which will + be the equivalent of [else] and one called [donewidit] which + will be the equivalent of [then] ) +// Oh, yeah. And loc{ as an alias to { (open-curly-brace) + +// we will also have various comments, remarks and messages +\ with embedded false [else]'s and the like... + +[ifitis] + #message" Dis is da TROO side of da test. What [else] ya gonna do? + Da message goes on ta heayuh!" + f[ .( Yuh got anuddah message. + What [then] chum? ) ]f + [ifitis] + #message" Now yer in da TROO o' da TROO. What [then] ?" + [udderwise] + #message" Yer in da FLASE o' da TROO. Yer in trubble, chum!" + [donewidit] + #message" Back to da foist level o' da TROO. Let's try sump'in'..." + : contralto ((( tony vinnie looie -- marie ) + #message" No warning for multiline decl'n and none for comment" + multi-line + loc{ _ay_tony + multi-line ((( He's da ringleadah + Y'know, da leader of da pack! ) + _ay_vinnie // He's da mussel + _ay_bobby ( He's got da ringwoim ) + | _ay_marie ((( She's my goil! ) + } + _ay_tony _ay_bobby + _ay_vinnie * + -> _ay_marie + #message" Multiline warning for this comment" + ( Dey're all outa roo'beah! + Y'wanna Doctah Peppah instea'? ) \ Got used by dis instea'? + _ay_marie + ; + : alto ((( sis boom bah -- hahaha ) + #message" Warning for multiline decl'n but not comment" + loc{ _sis _boom + _bah multi-line ((( What is this anyway? + Oh, right... ) | _hahaha + } + #message" Warning for this multiline comment" ((( What is this? + It is a whiz. ) + _sis _bah * _boom - dup -> _hahaha + ; + : tenor ( jose placido luciano -- enrico josef ) + #message" No warning for multiline decl'n, but one for comment" + multi-line + loc{ _jose ((( Can you see? + Buy the Donzerly light! ) + _placido _luciano + | _enrico _josef + } + _placido _luciano + _jose / -> _josef + ; + +[udderwise] + #message" Dis is da FLASE side of da test. What ya gonna do [then] ? + Ya gonna let da message go on ta heayuh!" + f[ .( So dis is anuddah message. + What [else] chum? ) ]f + [ifitis] + #message" Dis is da TROO o' da FLASE. Y'shouldn'a'ought'a evuh be heayuh..." + f[ ." Let's try some spurious [else] action, whaddya say?" ]f + : [else] ." Don't do it" ; [message] Fake [else] got through + create [else] [message] Fake [else] got through + h# defeca8e constant [else] [message] Fake [else] got through + h# beeffece value [else] [message] Fake [else] got through + d# 64 buffer: [else] [message] Fake [else] got through + struct + /l field [else] [message] Fake [else] got through + variable [else] [message] Fake [else] got through + defer [else] [message] Fake [else] got through + ['] [else] [message] Fake [else] got through + to [else] [message] Fake [else] got through + ['] [else] + is [else] [message] Fake [else] got through + : say-what ( tony vinnie looie -- + -- marie ) +\ multi-line \ Should refer to the loc's decl'n, not to the comment + loc{ _ay_tony + multi-line \ Y'want this to refer to the comment + // but when ignoring, what happens? + ((( He's da ringleadah + Y'know, da leader of da pack! ) + _ay_vinnie // He's da mussel + [else] [message] Really bad fake [else] got through + _ay_bobby ( He's got da ringwoim ) + | _ay_marie ((( She's my goil! ) + } + _ay_tony _ay_bobby + _ay_vinnie * + -> _ay_marie + ( Dey're all outa roo'beah! + Y'wanna Doctah Peppah instea'? ) \ Got used by dis instea'? + _ay_marie + ; + .( What does an [else] do in dot-parens? ) [message] Fake [else] got through + ." What does an [else] do in dot-quotes?" [message] Fake [else] got through + s" What does an [else] do in Ess-quote?" [message] Fake [else] got through + " What does an [else] do in dbl-quotes?" [message] Fake [else] got through + + [udderwise] + #message" Dis is da FLASE o' da FLASE. Yer [then] should be absawbed bot' ways." + [donewidit] + [message] Y'should be back to the FLASE side. Okay, [then] +[donewidit] + + Added: fcode-utils/testsuite/TokCondl/CondOpInIgndMssg.fth =================================================================== --- fcode-utils/testsuite/TokCondl/CondOpInIgndMssg.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/CondOpInIgndMssg.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,41 @@ +\ Here we will demonstrate the fate of Conditional-Operators +\ that occur in the text-body of user-messages that occur +\ in conditional-compilation sections that are being ignored. +\ We will also test whether aliases to comment-delimiters are recognized: +\ in Normal mode +\ in Tokenizer-escape mode +\ inside conditional-compilation sections + +\ Updated Wed, 22 Feb 2006 at 12:52 PST by David L. Paktor + +fcode-version2 + +headers + +Global-definitions + alias // \ +device-definitions + +\ #message" This is cleanly commented-out and will be ignored" +// #message" This, too, will be ignored" +f[ \ #message" Comment safely ignored in Tok-esc mode" + // #message" Aliased comment in Tok-esc mode. Should be ignored." + ]f +[ifnexist] dup + \ This section should be ignored consistently + \ #message" This conditional commented-out message will be ignored" + [message] The next message has a brack-then + [message] [then] #message" Should be ignored but isn't" + #message" Re-balance the conditional..." [ifnexist] dup + // Unprocessed Aliased comment. [then] #message" Faked-out" [ifnexist] dup + +[else] + #message" This will not be ignored." + // #message" Aliased comment in unignored section" + +[then] + +garblegarblegarble // Force an error. + +fcode-end + Added: fcode-utils/testsuite/TokCondl/DefCondTst.fth =================================================================== --- fcode-utils/testsuite/TokCondl/DefCondTst.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/DefCondTst.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,24 @@ +\ Test Command-line-defined conditional +\ Updated Wed, 11 May 2005 at 09:45 by David L. Paktor +\ +\ Symbol moogoo is either defined true (-1) or false (0), or is absent + +[ifndef] moogoo + f[ + .( Y'gotta define MooGoo on the command-line.) + ." "!" + ." X +a line." ." Another on the line." + ." "t(Lower-case will be okay, too)" + f] + #message Use -D moogoo=true or -D moogoo=false + [message] or even -D moogoo=-1 or -D moogoo=0 + [#message] +[else] + f[ + [defined] moogoo + f] + +fload TokConstCondTst01.fth +[then] + Added: fcode-utils/testsuite/TokCondl/DefCondTst2.fth =================================================================== --- fcode-utils/testsuite/TokCondl/DefCondTst2.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/DefCondTst2.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,109 @@ +\ Modified Command-line-defined conditional test. +\ Using it to create anomalies for the detokenizer... +\ Updated Wed, 29 Jun 2005 at 13:43 by David L. Paktor +\ +\ Symbol moogoo is either defined true (-1) or false (0), or is absent + +[ifndef] moogoo + f[ + .( Y'gotta define MooGoo on the command-line.) + ." "!" + ." X +a line." ." Another on the line." + ." "t(Lower-case will be okay, too)" + f] + #message Use -D moogoo=true or -D moogoo=false + [message] or even -D moogoo=-1 or -D moogoo=0 + [#message] +[else] + + +tokenizer[ + +h# feeb \ Bogus Rev-Level + SET-REV-LEVEL + +not-last-image + +h# 1fad \ Vendor +h# c0ed \ Bogus Device ID +h# 90210 \ Bogus Class Code + pci-header + + ]tokenizer + +fcode-version2 + + f[ + [defined] moogoo + f] +fload TokConstCondTst02.fth + +fcode-end + +tokenizer[ + reset-symbols + ]tokenizer + +fcode-version2 + + f[ + [defined] moogoo 0= + f] +fload TokConstCondTst02.fth + +." De-tokenize THIS, wise-guy!"n" + +tokenizer[ + 0 emit-byte \ Fake a premature end0 + 6 emit-byte \ Just to be confusing! + h# 77 emit-byte + ]tokenizer + +fcode-end + +pci-header-end + +tokenizer[ + +h# 2a55 \ Bogus Rev-Level + SET-REV-LEVEL + + last-image + +h# 5afe \ Vendor +h# 1991 \ Bogus Device ID +h# 10203 \ Bogus Class Code + pci-header + + ]tokenizer + +fcode-version2 + +tokenizer[ reset-symbols true ]tokenizer + +fload TokConstCondTst02.fth + +tokenizer[ + \ Fake Fcode-Block header in the middle of things... + h# f1 emit-byte \ Fake start-byte + 8 emit-byte \ Fake format + h# 21 emit-byte \ Fake checksum + h# 95 emit-byte + 0 emit-byte \ Fake length + 0 emit-byte + 0 emit-byte + h# 12 emit-byte + + reset-symbols + false + ]tokenizer + reset-symbols +fload TokConstCondTst02.fth + +fcode-end + +pci-header-end + +[then] + Added: fcode-utils/testsuite/TokCondl/DupLoadBody.fth =================================================================== --- fcode-utils/testsuite/TokCondl/DupLoadBody.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/DupLoadBody.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,13 @@ +\ Source file that controls duplicate loading of itself +\ Updated Thu, 27 Jul 2006 at 15:24 PDT by David L. Paktor + + +f[ [ifnexist] DupLoadBody.fth + true constant DupLoadBody.fth f] + +." Just this one time, eh!" cr + +f[ .( Go ask your mother) ]f + + +f[ [endif] f] Added: fcode-utils/testsuite/TokCondl/DupLoadTst.fth =================================================================== --- fcode-utils/testsuite/TokCondl/DupLoadTst.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/DupLoadTst.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,17 @@ +\ Test for being able to control duplicate loading of a source file +\ Updated Thu, 27 Jul 2006 at 15:23 PDT by David L. Paktor + + +fcode-version2 + +." Going once," cr + +fload DupLoadBody.fth + +." Going twice." cr + +fload DupLoadBody.fth + +." Gone!" cr + +fcode-end Added: fcode-utils/testsuite/TokCondl/MulFCimgFT.fth =================================================================== --- fcode-utils/testsuite/TokCondl/MulFCimgFT.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/MulFCimgFT.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,28 @@ +\ Multiple FCode images under one PCI header +\ False, then True + +\ Updated Wed, 01 Jun 2005 at 14:51 by David L. Paktor + +tokenizer[ + +h# fa57 \ Bogus Rev-Level + SET-REV-LEVEL + +h# cede \ Vendor +h# 193a \ Bogus Device ID +h# 95014 \ Bogus Class Code + + ]tokenizer + pci-header + + +fload TokConstCondTstF.fth + +tokenizer[ + reset-symbols + ]tokenizer + +fload TokConstCondTstT.fth + + +pci-header-end Added: fcode-utils/testsuite/TokCondl/MulFCimgTF.fth =================================================================== --- fcode-utils/testsuite/TokCondl/MulFCimgTF.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/MulFCimgTF.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,25 @@ +\ Multiple FCode images under one PCI header +\ True, then False + +\ Updated Wed, 01 Jun 2005 at 14:51 by David L. Paktor + +tokenizer[ + +h# fa57 \ Bogus Rev-Level + SET-REV-LEVEL + +h# cede \ Vendor +h# 193a \ Bogus Device ID +h# 95014 \ Bogus Class Code + + ]tokenizer + pci-header + + +fload TokConstCondTstT.fth + + +fload TokConstCondTstF.fth + + +pci-header-end Added: fcode-utils/testsuite/TokCondl/MulFCimg_01.fth =================================================================== --- fcode-utils/testsuite/TokCondl/MulFCimg_01.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/MulFCimg_01.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,53 @@ +\ Another test of conditionals and multiple FCode blocks. +\ This is the "Wrapper" file. + +\ Updated Wed, 10 Aug 2005 at 10:57 by David L. Paktor + + +[ifndef] moogoo + f[ + .( Y'gotta define MooGoo on the command-line.) + #message Use -D moogoo=true or -D moogoo=false + f] +[else] + + tokenizer[ + + h# 5afe \ Bogus Rev-Level + SET-REV-LEVEL + + h# beef \ Vendor + h# c0de \ Bogus Device ID + h# 90210 \ Beverly Hills ZIP Code. Now that's a _Class_ Code! + + pci-header + ]tokenizer + + f[ + [defined] moogoo + constant boobalah? + f] + + fcode-version2 + + fload MulFCimg_01_Body.fth + + fcode-end + + + f[ + reset-symbols + [defined] moogoo + 0= + constant boobalah? + f] + + fcode-version2 + + fload MulFCimg_01_Body.fth + + fcode-end + + pci-header-end + +[then] Added: fcode-utils/testsuite/TokCondl/MulFCimg_01_Body.fth =================================================================== --- fcode-utils/testsuite/TokCondl/MulFCimg_01_Body.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/MulFCimg_01_Body.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,23 @@ +\ Another test of conditionals and multiple FCode blocks. +\ This is the "Body" file. + +\ Updated Wed, 10 Aug 2005 at 11:12 by David L. Paktor + + +headers + +: whatziz + ." This is the " + f[ boobalah? [if] f] ." True " f[ [else] f] ." False" f[ [then] f] + ." side of the test." cr +; + +: wherezis + fload BooBalah.fth +; + + +: whoozis whatziz wherezis ; + +: whyzis whoozis wherezis whatziz ; + Added: fcode-utils/testsuite/TokCondl/MulPCI_FC.fth =================================================================== --- fcode-utils/testsuite/TokCondl/MulPCI_FC.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/MulPCI_FC.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,36 @@ +\ Another multiple PCI and FCode test + +\ Updated Fri, 10 Jun 2005 at 09:06 by David L. Paktor + + +[ifndef] first-path \ Check to see if the symbol was defined? + F[ + ." "n"n"tAdd a command-line switch:"n"t"t-d ""first-path=<true|false>"" + "tthen run this again."n"n" + F] +[else] + F[ + b00b c0ed 90210 pci-header + [defined] first-path + F] +[message] Loading first pass + not-last-image + + fload TokConstCondTst01.fth + + pci-header-end + + +F[ reset-symbols + b00b fece 07112 pci-header + [defined] first-path 0= + F] +[message] Loading second pass + last-image + + fload TokConstCondTst01.fth + + pci-header-end + +[then] + Added: fcode-utils/testsuite/TokCondl/MulPCIhdr.fth =================================================================== --- fcode-utils/testsuite/TokCondl/MulPCIhdr.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/MulPCIhdr.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,44 @@ +\ Create an image with multiple PCI headers +\ and then let's see what still we need to do +\ +\ Updated Mon, 23 May 2005 at 16:17 by David L. Paktor + + +tokenizer[ + +h# f2a7 \ Bogus Rev-Level + SET-REV-LEVEL + +not-last-image + +h# 1fed \ Vendor +h# 9009 \ Bogus Device ID +h# 20109 \ Bogus Class Code + pci-header + + ]tokenizer + +fload TokConstCondTstT.fth + +pci-header-end + + + +tokenizer[ + +h# ea57 \ Bogus Rev-Level + SET-REV-LEVEL + + last-image + +h# deaf \ Vendor +h# 9021 \ Bogus Device ID +h# 10902 \ Bogus Class Code + pci-header + + ]tokenizer + +fload TokConstCondTstF.fth + +pci-header-end + Added: fcode-utils/testsuite/TokCondl/TestArgs =================================================================== --- fcode-utils/testsuite/TokCondl/TestArgs (rev 0) +++ fcode-utils/testsuite/TokCondl/TestArgs 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,55 @@ +# Automated Test Arguments file for TokCondl category +# (That's short for "Tokenizer Conditional"; +# it refers to the Conditional Tokenization directives.) + +# Valid lines have four comma-separated fields: +# Test-file base-name +# Result-file label +# Extra command-line switches +# A script-command with arguments (but no commas). +# Lines that have no label, no switches, and no script +# do not need any commas. + +# Updated Thu, 27 Jul 2006 at 15:20 PDT by David L. Paktor + +TokExstCondTstY , , -l +TokExstCondTstN , , -l +TokExstCondNadaTst , , -i -f Trace-Conditionals +CondOpInIgndMssg +TokCondMinTst +TokCondErrs , , -i -f Trace-Conditionals +TokConstCondTstT , , -l +TokConstCondTstF , , -l +DefCondTst , , -l +MulPCIhdr , , -l +MulPCIhdr , BERev , -f Big-End-PCI-Rev-Level +MulFCimgTF , , -l +MulFCimgFT , , -l +MulPCI_FC , , -l +MulPCI_FC , fpT , -l -d first-path=true +MulPCI_FC , fpF , -l -d first-path=false -f Trace-Conditionals + +TokDefCondTst , NotDef +TokDefCondTst , Def , -d NEStTest + +DefCondTst , NotDef , -l +DefCondTst , DefTrue , -d 'moOGOO=TRue' -l +DefCondTst , DefFalse , -d 'MOOGoo=faLSE' -l -f Trace-Conditionals + +DefCondTst2 , NotDef , -l +DefCondTst2 , MeT , -d 'MOOgoo=true' -l +DefCondTst2 , MeF , -d 'moogOO=FalsE' -l -f Trace-Conditionals + +CondAlias , NotDef , -i +CondAlias , MeT , -d 'MOOgoo=true' -i +CondAlias , MeF , -d 'moogOO=FalsE' -i -f Trace-Conditionals + +CondMacAlias , , -I . -I .. -I ../TokoLoco +CondMacAlias , NoSpc , -f Trace-Conditionals -I. -I.. -I ../TokoLoco + +MulFCimg_01 , NotDef , -l +MulFCimg_01 , MeT , -d 'moogoo=TRUe' -l +MulFCimg_01 , MeF , -d 'moogoo=false' -l + +DupLoadTst , , -f Trace-Conditionals + Added: fcode-utils/testsuite/TokCondl/TokCondErrs.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokCondErrs.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokCondErrs.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,91 @@ +\ Nested Conditionals Erorrs test + +\ Updated Fri, 07 Apr 2006 at 15:04 PDT by David L. Paktor + +fcode-version2 + +headers + +create NestTest + +#else + +[endif] + +." Begin Nested Erorrs Test" +[#ifexist] +NestTest + ." Exists, level 1" + [ifexist] NestTest + ." Exists and exists, level 2" + [else] + ." Exists but doesn't exist. What? Level 2" + [then] + ." Resumes existence, level 1" + [ifnexist] NestTest + ." Exists but not exists. What? Level 2" + [else] + ." Exists and doesn't not exist, level 2" + [then] + ." Still exists, level 1" +[else] + ." Doesn't exist, level 1" +[else] + ." Dubble elst, Wazzat?" + [ifexist] NestTest + ." Doesn't exist but exists. What? Level 2" + [else] + ." Doesn't exist and doesn't exist, level 2" +\ [then] + " Resumes non-existence, level 1" + [ifnexist] NestTest + ." Doesn't exist and not exists, level 2" + [else] + ." Doesn't exist but doesn't not exist. What? Level 2" + [then] + ." Still doesn't exist, level 1" +[then] + +." Middle of Nest Test Test" +[ifnexist] NestTest + ." Not exists, pass 2, level 1" + [ifexist] NestTest + ." Not exists but exists. What? Pass 2, Level 2" + [else] + ." Not exists and doesn't exist, pass 2, level 2" + [else] + ." Extra Else where it should be ignored, pass 2, level 2" + [then] + " Resumes non-existence, pass 2, level 1" + [ifnexist] NestTest + ." Not exists and not exists, pass 2, level 2" + [else] + ." Not exists but doesn't not exist. What? Pass 2, Level 2" + [else] + ." Extra Else where it should never be seen, pass 2, level 2" + [then] + ." Still not exists, pass 2, level 1" +[else] + ." Doesn't not exist, pass 2, level 1" + [ifexist] NestTest + ." Doesn't not exist and exists, pass 2, level 2" + [else] + ." Doesn't not exist but doesn't exist. What? Pass 2, Level 2" + [then] + " Resumes not non-existing, pass 2, level 1" + [ifnexist] NestTest + ." Doesn't not exist but not exists. What? Pass 2, Level 2" + [else] + ." Doesn't not exist and doesn't not exist, pass 2, level 1" + [else] + ." And has an extra Else where it will be seen, pass 2, level 1" + [then] + ." Still doesn't not exist, pass 2, level 1" +[then] + +." End Nest Test Test" + + +fcode-end + + Added: fcode-utils/testsuite/TokCondl/TokCondMinTst.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokCondMinTst.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokCondMinTst.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,16 @@ +\ Minimal Nested Conditionals test + +\ Updated Tue, 12 Apr 2005 at 15:55 by David L. Paktor + + +fcode-version2 + +headers + +create NestTest + +." Here is one." +[ifnexist] NestTest + ." Here is another." +[then] +fcode-end Added: fcode-utils/testsuite/TokCondl/TokConstCondTst01.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokConstCondTst01.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokConstCondTst01.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,23 @@ +\ Common code (insert obligatory sneeze here) +\ for Nested "Constant" Conditionals test + +\ Updated Sun, 09 Apr 2006 at 00:22 PDT by David L. Paktor + +\ File that FLOADs this has already put TRUE or FALSE on the stack. + +f[ constant boobalah? f] + +fcode-version2 + +: whatziz + ." This is the " + f[ boobalah? [if] f] ." True " f[ [else] f] ." False" + f[ [then] f] ." side of the test." cr +; +headers + +fload BooBalah.fth + +: whoozis whatziz ; + +fcode-end Added: fcode-utils/testsuite/TokCondl/TokConstCondTst02.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokConstCondTst02.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokConstCondTst02.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,52 @@ +\ Common code (insert obligatory sneeze here) +\ for second Nested "Constant" Conditionals test + +\ Updated Wed, 29 Jun 2005 at 13:41 by David L. Paktor + +\ File that FLOADs this has already put TRUE or FALSE on the stack. + +f[ constant boobalah? f] + +: whatziz + ." This is the " + f[ boobalah? [if] f] ." True " f[ [else] f] ." False" f[ [then] f] + ." side of the test." cr +; +headers + +: tell-me + ." Begin Nested ""Constant"" Test Test" + f[ boobalah? f] [if] + [message] The TRUE path has wisely been chosen, Boobalah! + ." Is True, level 1" + f[ boobalah? f] [if] + " Is True and is True, level 2" + [else] + " Is True but is Not True. What?" + [then] + ." Middle of level 2" + f[ boobalah? 0= f] [if] + " Is True and is False. What?" + [else] + " Is True and is Not False, level 2" + [then] + [else] + [message] Oy, Boobalah. You have foolishly chosen the FALSE path. + ." Is Not True, level 1" + f[ boobalah? f] [if] + " Is Not True but is True. What?" + [else] + " Is Not True and is Not True, level 2" + [then] + ." Middle of Not level 2" + f[ boobalah? 0= f] [if] + " Is Not True and is False, level 2" + [else] + " Is Not True and is Not False. What?" + [then] + [then] +; + +: whoozis whatziz ; + + Added: fcode-utils/testsuite/TokCondl/TokConstCondTstF.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokConstCondTstF.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokConstCondTstF.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,8 @@ +\ "False" side of Nested "Constant" Conditionals test + +\ Updated Wed, 20 Apr 2005 at 11:14 by David L. Paktor +\ + +f[ false f] + +fload TokConstCondTst01.fth Added: fcode-utils/testsuite/TokCondl/TokConstCondTstT.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokConstCondTstT.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokConstCondTstT.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,8 @@ +\ "True" side of Nested "Constant" Conditionals test + +\ Updated Wed, 20 Apr 2005 at 11:14 by David L. Paktor +\ + +f[ true f] + +fload TokConstCondTst01.fth Added: fcode-utils/testsuite/TokCondl/TokDefCondTst.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokDefCondTst.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokDefCondTst.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,73 @@ +\ Stand-alone version of Nested "Defined" Conditionals test +\ looking for command-line or [define] def'n of NestTest + +\ Updated Wed, 27 Apr 2005 at 17:59 by David L. Paktor + +fcode-version2 + +." Begin Nest Test Test" +[ifdef] NestTest + ." Is defined, level 1" + [ifdef] NestTest + ." Is defined and is defined, level 2" + [else] + ." Is defined but isn't defined. What? Level 2" + [then] + ." Resumes defined-ness, level 1" + [ifndef] NestTest + ." Is defined but is not defined. What? Level 2" + [else] + ." Is defined and isn't not defined, level 2" + [then] + ." Still is defined, level 1" +[else] + ." Isn't defined, level 1" + [ifdef] NestTest + ." Isn't defined but is defined. What? Level 2" + [else] + ." Isn't defined and isn't defined, level 2" + [then] + " Resumes non-defined-ness, level 1" + [ifndef] NestTest + ." Isn't defined and is not defined, level 2" + [else] + ." Isn't defined but isn't not defined. What? Level 2" + [then] + ." Still isn't defined, level 1" +[then] + +." Middle of Nest Test Test" +[ifndef] NestTest + ." Is not defined, pass 2, level 1" + [ifdef] NestTest + ." Is not defined but is defined. What? Pass 2, Level 2" + [else] + ." Is not defined and isn't defined, pass 2, level 2" + [then] + " Resumes non-defined-ness, pass 2, level 1" + [ifndef] NestTest + ." Is not defined and is not defined, pass 2, level 2" + [else] + ." Is not defined but isn't not defined. What? Pass 2, Level 2" + [then] + ." Still is not defined, pass 2, level 1" +[else] + ." Isn't not defined, pass 2, level 1" + [ifdef] NestTest + ." Isn't not defined and is defined, pass 2, level 2" + [else] + ." Isn't not defined but isn't defined. What? Pass 2, Level 2" + [then] + " Resumes not non-existing, pass 2, level 1" + [ifndef] NestTest + ." Isn't not defined but is not defined. What? Pass 2, Level 2" + [else] + ." Isn't not defined and isn't not defined, pass 2, level 1" + [then] + ." Still isn't not defined, pass 2, level 1" +[then] + +." End Nest Test Test" + + +fcode-end Added: fcode-utils/testsuite/TokCondl/TokExstCondNadaTst.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokExstCondNadaTst.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokExstCondNadaTst.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,60 @@ +\ What happens to "Exists" Conditionals test when the +\ target isn't on the same line? +\ "Exists" side of test + +\ Updated Tue, 21 Feb 2006 at 15:33 PST by David L. Paktor + + +fcode-version2 + +headers + +create HotNasty + +fload TokExstCondNada_01.fth + +Global-definitions + alias [yestest] [ifexist] +device-definitions + +fload TokExstCondNada_01.fth + +Global-definitions + alias [notest] [ifnexist] +device-definitions + +fload TokExstCondNada_01.fth + +\ Here we will test: +\ Whether aliases to comment-delimiters are recognized: +\ in Normal mode +\ in Tokenizer-escape mode +\ inside conditional-compilation sections +\ We will also re-demonstrate the fate of Conditional-Operators +\ that occur inside conditional-compilation sections that are +\ being ignored. + +Global-definitions + alias // \ +device-definitions + +\ #message" This is cleanly commented-out and will be ignored" +// #message" This, too, will be ignored" +f[ \ #message" Comment safely ignored in Tok-esc mode" + // #message" Aliased comment in Tok-esc mode. Should be ignored." + ]f +[ifnexist] dup + \ This section should be ignored consistently + \ #message" This conditional commented-out message will be ignored" + [message] The next message has a brack-then + [message] [then] #message" Should be ignored but isn't" + #message" Re-balance the conditional..." [ifnexist] dup + // Unprocessed Aliased comment. [then] #message" Faked-out" [ifnexist] dup + +[else] + #message" This will not be ignored." + // #message" Aliased comment in unignored section" + +[then] + +fcode-end Added: fcode-utils/testsuite/TokCondl/TokExstCondNada_01.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokExstCondNada_01.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokExstCondNada_01.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,31 @@ +\ What happens to "Exists" Conditionals test when the +\ target isn't on the same line? +\ Or the "Defined" Conditionals, for that matter +\ Preliminary test before FLoading Common code (insert obligatory sneeze here) + +\ Updated Tue, 21 Feb 2006 at 15:33 PST by David L. Paktor + + +\ File that FLoads this must define a pair of macros or aliases +\ called [yestest] and [notest] respectively, that are +\ inverses of each other. + +f[ false ]f +[ifnexist] [yestest] + [if] [endif] \ Until we have a better way to drop in tok-esc mode + f[ true ]f +[endif] + +[ifnexist] [notest] + [if] [endif] \ Until we have a better way to drop in tok-esc mode + f[ true ]f +[endif] +[#message] got this far +[if] + [#message] \ Must define macros or aliases called [yestest] and [notest] respectively +[else] +[#message] are we here + fload TokExstCondNada_02.fth +[#message] we are here +[endif] + Added: fcode-utils/testsuite/TokCondl/TokExstCondNada_02.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokExstCondNada_02.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokExstCondNada_02.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,71 @@ +\ What happens to "Exists" Conditionals test when the +\ target isn't on the same line? +\ Or the "Defined" Conditionals, for that matter +\ Common code (insert obligatory sneeze here) +\ FLoaded only after necessary preliminary test. + +\ Updated Tue, 21 Feb 2006 at 15:58 PST by David L. Paktor + +." Begin Nest Test Test" +[yestest] + ." Exists, level 1" + [yestest] + ." Exists and exists, level 2" + [else] + ." Exists but doesn't exist. What? Level 2" + [then] + ." Resumes existence, level 1" + [notest] + ." Exists but not exists. What? Level 2" + [else] + ." Exists and doesn't not exist, level 2" + [then] + ." Still exists, level 1" +[else] + ." Doesn't exist, level 1" + [yestest] + ." Doesn't exist but exists. What? Level 2" + [else] + ." Doesn't exist and doesn't exist, level 2" + [then] + " Resumes non-existence, level 1" + [notest] + ." Doesn't exist and not exists, level 2" + [else] + ." Doesn't exist but doesn't not exist. What? Level 2" + [then] + ." Still doesn't exist, level 1" +[then] + +." Middle of Nest Test Test" +[notest] + ." Not exists, pass 2, level 1" + [yestest] + ." Not exists but exists. What? Pass 2, Level 2" + [else] + ." Not exists and doesn't exist, pass 2, level 2" + [then] + " Resumes non-existence, pass 2, level 1" + [notest] + ." Not exists and not exists, pass 2, level 2" + [else] + ." Not exists but doesn't not exist. What? Pass 2, Level 2" + [then] + ." Still not exists, pass 2, level 1" +[else] + ." Doesn't not exist, pass 2, level 1" + [yestest] + ." Doesn't not exist and exists, pass 2, level 2" + [else] + ." Doesn't not exist but doesn't exist. What? Pass 2, Level 2" + [then] + " Resumes not non-existing, pass 2, level 1" + [notest] + ." Doesn't not exist but not exists. What? Pass 2, Level 2" + [else] + ." Doesn't not exist and doesn't not exist, pass 2, level 1" + [then] + ." Still doesn't not exist, pass 2, level 1" +[then] + +." End Nest Test Test" Added: fcode-utils/testsuite/TokCondl/TokExstCondTst01.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokExstCondTst01.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokExstCondTst01.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,70 @@ +\ Common code (insert obligatory sneeze here) +\ for Nested "Exists" Conditionals test + +\ Updated Tue, 12 Apr 2005 at 14:45 by David L. Paktor + + +." Begin Nest Test Test" +[ifexist] NestTest + ." Exists, level 1" + [ifexist] NestTest + ." Exists and exists, level 2" + [else] + ." Exists but doesn't exist. What? Level 2" + [then] + ." Resumes existence, level 1" + [ifnexist] NestTest + ." Exists but not exists. What? Level 2" + [else] + ." Exists and doesn't not exist, level 2" + [then] + ." Still exists, level 1" +[else] + ." Doesn't exist, level 1" + [ifexist] NestTest + ." Doesn't exist but exists. What? Level 2" + [else] + ." Doesn't exist and doesn't exist, level 2" + [then] + " Resumes non-existence, level 1" + [ifnexist] NestTest + ." Doesn't exist and not exists, level 2" + [else] + ." Doesn't exist but doesn't not exist. What? Level 2" + [then] + ." Still doesn't exist, level 1" +[then] + +." Middle of Nest Test Test" +[ifnexist] NestTest + ." Not exists, pass 2, level 1" + [ifexist] NestTest + ." Not exists but exists. What? Pass 2, Level 2" + [else] + ." Not exists and doesn't exist, pass 2, level 2" + [then] + " Resumes non-existence, pass 2, level 1" + [ifnexist] NestTest + ." Not exists and not exists, pass 2, level 2" + [else] + ." Not exists but doesn't not exist. What? Pass 2, Level 2" + [then] + ." Still not exists, pass 2, level 1" +[else] + ." Doesn't not exist, pass 2, level 1" + [ifexist] NestTest + ." Doesn't not exist and exists, pass 2, level 2" + [else] + ." Doesn't not exist but doesn't exist. What? Pass 2, Level 2" + [then] + " Resumes not non-existing, pass 2, level 1" + [ifnexist] NestTest + ." Doesn't not exist but not exists. What? Pass 2, Level 2" + [else] + ." Doesn't not exist and doesn't not exist, pass 2, level 1" + [then] + ." Still doesn't not exist, pass 2, level 1" +[then] + +." End Nest Test Test" + Added: fcode-utils/testsuite/TokCondl/TokExstCondTstN.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokExstCondTstN.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokExstCondTstN.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,14 @@ +\ "Doesn't Exist" side of Nested "Exists" Conditionals test + +\ Updated Tue, 12 Apr 2005 at 14:45 by David L. Paktor + + +fcode-version2 + +headers + +create NotTasty + +fload TokExstCondTst01.fth + +fcode-end Added: fcode-utils/testsuite/TokCondl/TokExstCondTstY.fth =================================================================== --- fcode-utils/testsuite/TokCondl/TokExstCondTstY.fth (rev 0) +++ fcode-utils/testsuite/TokCondl/TokExstCondTstY.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,14 @@ +\ "Exists" side of Nested "Exists" Conditionals test + +\ Updated Tue, 12 Apr 2005 at 14:45 by David L. Paktor + + +fcode-version2 + +headers + +create NestTest + +fload TokExstCondTst01.fth + +fcode-end Added: fcode-utils/testsuite/TokMisc/AbrtQuot.fth =================================================================== --- fcode-utils/testsuite/TokMisc/AbrtQuot.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/AbrtQuot.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,24 @@ +\ Test of Abort" with various switches, JTMS. +\ Throw in a few other misc goodies while we're at it... + + +fcode-version2 + +headers + +h# defeca8e constant poopoo +h# beeffece constant moopoo +alias couterde moopoo + +: gotta_try_it + gumfritsch \ Let's see how an unknown word is treated, before. + { \ What does this do? + } \ Or let's see what this does... + couterde poopoo = abort" Should be different. " + ." poopoo is " f['] poopoo .h cr + ." couterde is " f['] couterde .h cr + ." And its XT is: " ['] couterde + strumburkle \ Let's see how an unknown word is treated after. +; + +fcode-end Added: fcode-utils/testsuite/TokMisc/AllMacros.fth =================================================================== --- fcode-utils/testsuite/TokMisc/AllMacros.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/AllMacros.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,81 @@ +\ Quick test for all single-function macros that have just been moved... +\ This code isn't executable in any sense; but a detokenization +\ should show that each "original" function is displayed twice +\ (With the exception of the last pair, which takes a little more...) + +fcode-version2 + +" Start of simple pairs" + not + invert + << + lshift + >> + rshift + na1+ + cell+ + /c* + chars + /n* + cells + flip + wbflip + version + fcode-revision + true + -1 + false + 0 + struct + 0 + eval + evaluate + u*x + um* + xu/mod + um/mod + x+ + d+ + x- + d- + attribute + property + xdrint + encode-int + xdr+ + encode+ + xdrphys + encode-phys + xdrstring + encode-string + xdrbytes + encode-bytes + decode-2int + parse-2int + map-sbus + map-low + name + device-name + get-my-attribute + get-my-property + xdrtoint + decode-int + xdrtostring + decode-string + get-inherited-attribute + get-inherited-property + delete-attribute + delete-property + get-package-attribute + get-package-property + wflips + wbflips + lflips + lwflips +" End of simple pairs." +0 if " Last phrase-item" + endif +0 if " Last phrase-item" + then + +fcode-end Added: fcode-utils/testsuite/TokMisc/Almost_a_Buffer_of_Beer.fth =================================================================== --- fcode-utils/testsuite/TokMisc/Almost_a_Buffer_of_Beer.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/Almost_a_Buffer_of_Beer.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,2582 @@ +." Oh, six hundred and forty-five Bottles of Beer on the wall," cr +." six hundred and forty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty-four Bottles of Beer on the wall." cr +." Oh, six hundred and forty-four Bottles of Beer on the wall," cr +." six hundred and forty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty-three Bottles of Beer on the wall." cr +." Oh, six hundred and forty-three Bottles of Beer on the wall," cr +." six hundred and forty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty-two Bottles of Beer on the wall." cr +." Oh, six hundred and forty-two Bottles of Beer on the wall," cr +." six hundred and forty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty-one Bottles of Beer on the wall." cr +." Oh, six hundred and forty-one Bottles of Beer on the wall," cr +." six hundred and forty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty Bottles of Beer on the wall." cr +." Oh, six hundred and forty Bottles of Beer on the wall," cr +." six hundred and forty Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-nine Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-nine Bottles of Beer on the wall," cr +." six hundred and thirty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-eight Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-eight Bottles of Beer on the wall," cr +." six hundred and thirty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-seven Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-seven Bottles of Beer on the wall," cr +." six hundred and thirty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-six Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-six Bottles of Beer on the wall," cr +." six hundred and thirty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-five Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-five Bottles of Beer on the wall," cr +." six hundred and thirty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-four Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-four Bottles of Beer on the wall," cr +." six hundred and thirty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-three Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-three Bottles of Beer on the wall," cr +." six hundred and thirty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-two Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-two Bottles of Beer on the wall," cr +." six hundred and thirty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-one Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-one Bottles of Beer on the wall," cr +." six hundred and thirty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty Bottles of Beer on the wall." cr +." Oh, six hundred and thirty Bottles of Beer on the wall," cr +." six hundred and thirty Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-nine Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-nine Bottles of Beer on the wall," cr +." six hundred and twenty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-eight Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-eight Bottles of Beer on the wall," cr +." six hundred and twenty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-seven Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-seven Bottles of Beer on the wall," cr +." six hundred and twenty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-six Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-six Bottles of Beer on the wall," cr +." six hundred and twenty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-five Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-five Bottles of Beer on the wall," cr +." six hundred and twenty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-four Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-four Bottles of Beer on the wall," cr +." six hundred and twenty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-three Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-three Bottles of Beer on the wall," cr +." six hundred and twenty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-two Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-two Bottles of Beer on the wall," cr +." six hundred and twenty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-one Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-one Bottles of Beer on the wall," cr +." six hundred and twenty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty Bottles of Beer on the wall." cr +." Oh, six hundred and twenty Bottles of Beer on the wall," cr +." six hundred and twenty Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and nineteen Bottles of Beer on the wall." cr +." Oh, six hundred and nineteen Bottles of Beer on the wall," cr +." six hundred and nineteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and eighteen Bottles of Beer on the wall." cr +." Oh, six hundred and eighteen Bottles of Beer on the wall," cr +." six hundred and eighteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and seventeen Bottles of Beer on the wall." cr +." Oh, six hundred and seventeen Bottles of Beer on the wall," cr +." six hundred and seventeen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and sixteen Bottles of Beer on the wall." cr +." Oh, six hundred and sixteen Bottles of Beer on the wall," cr +." six hundred and sixteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and fifteen Bottles of Beer on the wall." cr +." Oh, six hundred and fifteen Bottles of Beer on the wall," cr +." six hundred and fifteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and fourteen Bottles of Beer on the wall." cr +." Oh, six hundred and fourteen Bottles of Beer on the wall," cr +." six hundred and fourteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirteen Bottles of Beer on the wall." cr +." Oh, six hundred and thirteen Bottles of Beer on the wall," cr +." six hundred and thirteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twelve Bottles of Beer on the wall." cr +." Oh, six hundred and twelve Bottles of Beer on the wall," cr +." six hundred and twelve Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and eleven Bottles of Beer on the wall." cr +." Oh, six hundred and eleven Bottles of Beer on the wall," cr +." six hundred and eleven Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and ten Bottles of Beer on the wall." cr +." Oh, six hundred and ten Bottles of Beer on the wall," cr +." six hundred and ten Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and nine Bottles of Beer on the wall." cr +." Oh, six hundred and nine Bottles of Beer on the wall," cr +." six hundred and nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and eight Bottles of Beer on the wall." cr +." Oh, six hundred and eight Bottles of Beer on the wall," cr +." six hundred and eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and seven Bottles of Beer on the wall." cr +." Oh, six hundred and seven Bottles of Beer on the wall," cr +." six hundred and seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and six Bottles of Beer on the wall." cr +." Oh, six hundred and six Bottles of Beer on the wall," cr +." six hundred and six Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and five Bottles of Beer on the wall." cr +." Oh, six hundred and five Bottles of Beer on the wall," cr +." six hundred and five Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and four Bottles of Beer on the wall." cr +." Oh, six hundred and four Bottles of Beer on the wall," cr +." six hundred and four Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and three Bottles of Beer on the wall." cr +." Oh, six hundred and three Bottles of Beer on the wall," cr +." six hundred and three Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and two Bottles of Beer on the wall." cr +." Oh, six hundred and two Bottles of Beer on the wall," cr +." six hundred and two Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and one Bottles of Beer on the wall." cr +." Oh, six hundred and one Bottles of Beer on the wall," cr +." six hundred and one Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred Bottles of Beer on the wall." cr +." Oh, six hundred Bottles of Beer on the wall," cr +." six hundred Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-nine Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-nine Bottles of Beer on the wall," cr +." five hundred and ninety-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-eight Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-eight Bottles of Beer on the wall," cr +." five hundred and ninety-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-seven Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-seven Bottles of Beer on the wall," cr +." five hundred and ninety-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-six Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-six Bottles of Beer on the wall," cr +." five hundred and ninety-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-five Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-five Bottles of Beer on the wall," cr +." five hundred and ninety-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-four Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-four Bottles of Beer on the wall," cr +." five hundred and ninety-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-three Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-three Bottles of Beer on the wall," cr +." five hundred and ninety-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-two Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-two Bottles of Beer on the wall," cr +." five hundred and ninety-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-one Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-one Bottles of Beer on the wall," cr +." five hundred and ninety-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety Bottles of Beer on the wall." cr +." Oh, five hundred and ninety Bottles of Beer on the wall," cr +." five hundred and ninety Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-nine Bottles of Beer on the wall," cr +." five hundred and eighty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-eight Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-eight Bottles of Beer on the wall," cr +." five hundred and eighty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-seven Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-seven Bottles of Beer on the wall," cr +." five hundred and eighty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-six Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-six Bottles of Beer on the wall," cr +." five hundred and eighty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-five Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-five Bottles of Beer on the wall," cr +." five hundred and eighty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-four Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-four Bottles of Beer on the wall," cr +." five hundred and eighty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-three Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-three Bottles of Beer on the wall," cr +." five hundred and eighty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-two Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-two Bottles of Beer on the wall," cr +." five hundred and eighty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-one Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-one Bottles of Beer on the wall," cr +." five hundred and eighty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty Bottles of Beer on the wall." cr +." Oh, five hundred and eighty Bottles of Beer on the wall," cr +." five hundred and eighty Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-nine Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-nine Bottles of Beer on the wall," cr +." five hundred and seventy-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-eight Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-eight Bottles of Beer on the wall," cr +." five hundred and seventy-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-seven Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-seven Bottles of Beer on the wall," cr +." five hundred and seventy-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-six Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-six Bottles of Beer on the wall," cr +." five hundred and seventy-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-five Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-five Bottles of Beer on the wall," cr +." five hundred and seventy-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-four Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-four Bottles of Beer on the wall," cr +." five hundred and seventy-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-three Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-three Bottles of Beer on the wall," cr +." five hundred and seventy-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-two Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-two Bottles of Beer on the wall," cr +." five hundred and seventy-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-one Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-one Bottles of Beer on the wall," cr +." five hundred and seventy-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy Bottles of Beer on the wall." cr +." Oh, five hundred and seventy Bottles of Beer on the wall," cr +." five hundred and seventy Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-nine Bottles of Beer on the wall," cr +." five hundred and sixty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-eight Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-eight Bottles of Beer on the wall," cr +." five hundred and sixty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-seven Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-seven Bottles of Beer on the wall," cr +." five hundred and sixty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-six Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-six Bottles of Beer on the wall," cr +." five hundred and sixty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-five Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-five Bottles of Beer on the wall," cr +." five hundred and sixty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-four Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-four Bottles of Beer on the wall," cr +." five hundred and sixty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-three Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-three Bottles of Beer on the wall," cr +." five hundred and sixty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-two Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-two Bottles of Beer on the wall," cr +." five hundred and sixty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-one Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-one Bottles of Beer on the wall," cr +." five hundred and sixty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty Bottles of Beer on the wall." cr +." Oh, five hundred and sixty Bottles of Beer on the wall," cr +." five hundred and sixty Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-nine Bottles of Beer on the wall," cr +." five hundred and fifty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-eight Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-eight Bottles of Beer on the wall," cr +." five hundred and fifty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-seven Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-seven Bottles of Beer on the wall," cr +." five hundred and fifty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-six Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-six Bottles of Beer on the wall," cr +." five hundred and fifty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-five Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-five Bottles of Beer on the wall," cr +." five hundred and fifty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-four Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-four Bottles of Beer on the wall," cr +." five hundred and fifty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-three Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-three Bottles of Beer on the wall," cr +." five hundred and fifty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-two Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-two Bottles of Beer on the wall," cr +." five hundred and fifty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-one Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-one Bottles of Beer on the wall," cr +." five hundred and fifty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty Bottles of Beer on the wall." cr +." Oh, five hundred and fifty Bottles of Beer on the wall," cr +." five hundred and fifty Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and forty-nine Bottles of Beer on the wall," cr +." five hundred and forty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-eight Bottles of Beer on the wall." cr +." Oh, five hundred and forty-eight Bottles of Beer on the wall," cr +." five hundred and forty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-seven Bottles of Beer on the wall." cr +." Oh, five hundred and forty-seven Bottles of Beer on the wall," cr +." five hundred and forty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-six Bottles of Beer on the wall." cr +." Oh, five hundred and forty-six Bottles of Beer on the wall," cr +." five hundred and forty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-five Bottles of Beer on the wall." cr +." Oh, five hundred and forty-five Bottles of Beer on the wall," cr +." five hundred and forty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-four Bottles of Beer on the wall." cr +." Oh, five hundred and forty-four Bottles of Beer on the wall," cr +." five hundred and forty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-three Bottles of Beer on the wall." cr +." Oh, five hundred and forty-three Bottles of Beer on the wall," cr +." five hundred and forty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-two Bottles of Beer on the wall." cr +." Oh, five hundred and forty-two Bottles of Beer on the wall," cr +." five hundred and forty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-one Bottles of Beer on the wall." cr +." Oh, five hundred and forty-one Bottles of Beer on the wall," cr +." five hundred and forty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty Bottles of Beer on the wall." cr +." Oh, five hundred and forty Bottles of Beer on the wall," cr +." five hundred and forty Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and thirty-nine Bottles of Beer on the wall," cr +." five hundred and thirty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty-eight Bottles of Beer on the wall." cr +." Oh, five hundred and thirty-eight Bottles of Beer on the wall," cr +." five hundred and thirty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty-seven Bottles of Beer on the wall." cr +." Oh, five hundred and thirty-seven Bottles of Beer on the wall," cr +." five hundred and thirty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty-six Bottles of Beer on the wall." cr +." Oh, five hundred and thirty-six Bottles of Beer on the wall," cr +." five hundred and thirty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty-five Bottles of Beer on the wall." cr +." Oh, five hundred and thirty-five Bottles of Beer on the wall," cr +." five hundred and thirty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty-four Bottles of Beer on the wall." cr +." Oh, five hundred and thirty-four Bottles of Beer on the wall," cr +." five hundred and thirty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty-three Bottles of Beer on the wall." cr +." Oh, five hundred and thirty-three Bottles of Beer on the wall," cr +." five hundred and thirty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty-two Bottles of Beer on the wall." cr +." Oh, five hundred and thirty-two Bottles of Beer on the wall," cr +." five hundred and thirty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty-one Bottles of Beer on the wall." cr +." Oh, five hundred and thirty-one Bottles of Beer on the wall," cr +." five hundred and thirty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirty Bottles of Beer on the wall." cr +." Oh, five hundred and thirty Bottles of Beer on the wall," cr +." five hundred and thirty Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and twenty-nine Bottles of Beer on the wall," cr +." five hundred and twenty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty-eight Bottles of Beer on the wall." cr +." Oh, five hundred and twenty-eight Bottles of Beer on the wall," cr +." five hundred and twenty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty-seven Bottles of Beer on the wall." cr +." Oh, five hundred and twenty-seven Bottles of Beer on the wall," cr +." five hundred and twenty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty-six Bottles of Beer on the wall." cr +." Oh, five hundred and twenty-six Bottles of Beer on the wall," cr +." five hundred and twenty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty-five Bottles of Beer on the wall." cr +." Oh, five hundred and twenty-five Bottles of Beer on the wall," cr +." five hundred and twenty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty-four Bottles of Beer on the wall." cr +." Oh, five hundred and twenty-four Bottles of Beer on the wall," cr +." five hundred and twenty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty-three Bottles of Beer on the wall." cr +." Oh, five hundred and twenty-three Bottles of Beer on the wall," cr +." five hundred and twenty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty-two Bottles of Beer on the wall." cr +." Oh, five hundred and twenty-two Bottles of Beer on the wall," cr +." five hundred and twenty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty-one Bottles of Beer on the wall." cr +." Oh, five hundred and twenty-one Bottles of Beer on the wall," cr +." five hundred and twenty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twenty Bottles of Beer on the wall." cr +." Oh, five hundred and twenty Bottles of Beer on the wall," cr +." five hundred and twenty Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and nineteen Bottles of Beer on the wall." cr +." Oh, five hundred and nineteen Bottles of Beer on the wall," cr +." five hundred and nineteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighteen Bottles of Beer on the wall." cr +." Oh, five hundred and eighteen Bottles of Beer on the wall," cr +." five hundred and eighteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventeen Bottles of Beer on the wall." cr +." Oh, five hundred and seventeen Bottles of Beer on the wall," cr +." five hundred and seventeen Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixteen Bottles of Beer on the wall." cr +." Oh, five hundred and sixteen Bottles of Beer on the wall," cr +." five hundred and sixteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifteen Bottles of Beer on the wall." cr +." Oh, five hundred and fifteen Bottles of Beer on the wall," cr +." five hundred and fifteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fourteen Bottles of Beer on the wall." cr +." Oh, five hundred and fourteen Bottles of Beer on the wall," cr +." five hundred and fourteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and thirteen Bottles of Beer on the wall." cr +." Oh, five hundred and thirteen Bottles of Beer on the wall," cr +." five hundred and thirteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and twelve Bottles of Beer on the wall." cr +." Oh, five hundred and twelve Bottles of Beer on the wall," cr +." five hundred and twelve Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eleven Bottles of Beer on the wall." cr +." Oh, five hundred and eleven Bottles of Beer on the wall," cr +." five hundred and eleven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ten Bottles of Beer on the wall." cr +." Oh, five hundred and ten Bottles of Beer on the wall," cr +." five hundred and ten Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and nine Bottles of Beer on the wall." cr +." Oh, five hundred and nine Bottles of Beer on the wall," cr +." five hundred and nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eight Bottles of Beer on the wall." cr +." Oh, five hundred and eight Bottles of Beer on the wall," cr +." five hundred and eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seven Bottles of Beer on the wall." cr +." Oh, five hundred and seven Bottles of Beer on the wall," cr +." five hundred and seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and six Bottles of Beer on the wall." cr +." Oh, five hundred and six Bottles of Beer on the wall," cr +." five hundred and six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and five Bottles of Beer on the wall." cr +." Oh, five hundred and five Bottles of Beer on the wall," cr +." five hundred and five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and four Bottles of Beer on the wall." cr +." Oh, five hundred and four Bottles of Beer on the wall," cr +." five hundred and four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and three Bottles of Beer on the wall." cr +." Oh, five hundred and three Bottles of Beer on the wall," cr +." five hundred and three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and two Bottles of Beer on the wall." cr +." Oh, five hundred and two Bottles of Beer on the wall," cr +." five hundred and two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and one Bottles of Beer on the wall." cr +." Oh, five hundred and one Bottles of Beer on the wall," cr +." five hundred and one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred Bottles of Beer on the wall." cr +." Oh, five hundred Bottles of Beer on the wall," cr +." five hundred Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety-nine Bottles of Beer on the wall." cr +." Oh, four hundred and ninety-nine Bottles of Beer on the wall," cr +." four hundred and ninety-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety-eight Bottles of Beer on the wall." cr +." Oh, four hundred and ninety-eight Bottles of Beer on the wall," cr +." four hundred and ninety-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety-seven Bottles of Beer on the wall." cr +." Oh, four hundred and ninety-seven Bottles of Beer on the wall," cr +." four hundred and ninety-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety-six Bottles of Beer on the wall." cr +." Oh, four hundred and ninety-six Bottles of Beer on the wall," cr +." four hundred and ninety-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety-five Bottles of Beer on the wall." cr +." Oh, four hundred and ninety-five Bottles of Beer on the wall," cr +." four hundred and ninety-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety-four Bottles of Beer on the wall." cr +." Oh, four hundred and ninety-four Bottles of Beer on the wall," cr +." four hundred and ninety-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety-three Bottles of Beer on the wall." cr +." Oh, four hundred and ninety-three Bottles of Beer on the wall," cr +." four hundred and ninety-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety-two Bottles of Beer on the wall." cr +." Oh, four hundred and ninety-two Bottles of Beer on the wall," cr +." four hundred and ninety-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety-one Bottles of Beer on the wall." cr +." Oh, four hundred and ninety-one Bottles of Beer on the wall," cr +." four hundred and ninety-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ninety Bottles of Beer on the wall." cr +." Oh, four hundred and ninety Bottles of Beer on the wall," cr +." four hundred and ninety Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty-nine Bottles of Beer on the wall." cr +." Oh, four hundred and eighty-nine Bottles of Beer on the wall," cr +." four hundred and eighty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty-eight Bottles of Beer on the wall." cr +." Oh, four hundred and eighty-eight Bottles of Beer on the wall," cr +." four hundred and eighty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty-seven Bottles of Beer on the wall." cr +." Oh, four hundred and eighty-seven Bottles of Beer on the wall," cr +." four hundred and eighty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty-six Bottles of Beer on the wall." cr +." Oh, four hundred and eighty-six Bottles of Beer on the wall," cr +." four hundred and eighty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty-five Bottles of Beer on the wall." cr +." Oh, four hundred and eighty-five Bottles of Beer on the wall," cr +." four hundred and eighty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty-four Bottles of Beer on the wall." cr +." Oh, four hundred and eighty-four Bottles of Beer on the wall," cr +." four hundred and eighty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty-three Bottles of Beer on the wall." cr +." Oh, four hundred and eighty-three Bottles of Beer on the wall," cr +." four hundred and eighty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty-two Bottles of Beer on the wall." cr +." Oh, four hundred and eighty-two Bottles of Beer on the wall," cr +." four hundred and eighty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty-one Bottles of Beer on the wall." cr +." Oh, four hundred and eighty-one Bottles of Beer on the wall," cr +." four hundred and eighty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighty Bottles of Beer on the wall." cr +." Oh, four hundred and eighty Bottles of Beer on the wall," cr +." four hundred and eighty Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy-nine Bottles of Beer on the wall." cr +." Oh, four hundred and seventy-nine Bottles of Beer on the wall," cr +." four hundred and seventy-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy-eight Bottles of Beer on the wall." cr +." Oh, four hundred and seventy-eight Bottles of Beer on the wall," cr +." four hundred and seventy-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy-seven Bottles of Beer on the wall." cr +." Oh, four hundred and seventy-seven Bottles of Beer on the wall," cr +." four hundred and seventy-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy-six Bottles of Beer on the wall." cr +." Oh, four hundred and seventy-six Bottles of Beer on the wall," cr +." four hundred and seventy-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy-five Bottles of Beer on the wall." cr +." Oh, four hundred and seventy-five Bottles of Beer on the wall," cr +." four hundred and seventy-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy-four Bottles of Beer on the wall." cr +." Oh, four hundred and seventy-four Bottles of Beer on the wall," cr +." four hundred and seventy-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy-three Bottles of Beer on the wall." cr +." Oh, four hundred and seventy-three Bottles of Beer on the wall," cr +." four hundred and seventy-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy-two Bottles of Beer on the wall." cr +." Oh, four hundred and seventy-two Bottles of Beer on the wall," cr +." four hundred and seventy-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy-one Bottles of Beer on the wall." cr +." Oh, four hundred and seventy-one Bottles of Beer on the wall," cr +." four hundred and seventy-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventy Bottles of Beer on the wall." cr +." Oh, four hundred and seventy Bottles of Beer on the wall," cr +." four hundred and seventy Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty-nine Bottles of Beer on the wall." cr +." Oh, four hundred and sixty-nine Bottles of Beer on the wall," cr +." four hundred and sixty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty-eight Bottles of Beer on the wall." cr +." Oh, four hundred and sixty-eight Bottles of Beer on the wall," cr +." four hundred and sixty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty-seven Bottles of Beer on the wall." cr +." Oh, four hundred and sixty-seven Bottles of Beer on the wall," cr +." four hundred and sixty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty-six Bottles of Beer on the wall." cr +." Oh, four hundred and sixty-six Bottles of Beer on the wall," cr +." four hundred and sixty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty-five Bottles of Beer on the wall." cr +." Oh, four hundred and sixty-five Bottles of Beer on the wall," cr +." four hundred and sixty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty-four Bottles of Beer on the wall." cr +." Oh, four hundred and sixty-four Bottles of Beer on the wall," cr +." four hundred and sixty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty-three Bottles of Beer on the wall." cr +." Oh, four hundred and sixty-three Bottles of Beer on the wall," cr +." four hundred and sixty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty-two Bottles of Beer on the wall." cr +." Oh, four hundred and sixty-two Bottles of Beer on the wall," cr +." four hundred and sixty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty-one Bottles of Beer on the wall." cr +." Oh, four hundred and sixty-one Bottles of Beer on the wall," cr +." four hundred and sixty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixty Bottles of Beer on the wall." cr +." Oh, four hundred and sixty Bottles of Beer on the wall," cr +." four hundred and sixty Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty-nine Bottles of Beer on the wall." cr +." Oh, four hundred and fifty-nine Bottles of Beer on the wall," cr +." four hundred and fifty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty-eight Bottles of Beer on the wall." cr +." Oh, four hundred and fifty-eight Bottles of Beer on the wall," cr +." four hundred and fifty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty-seven Bottles of Beer on the wall." cr +." Oh, four hundred and fifty-seven Bottles of Beer on the wall," cr +." four hundred and fifty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty-six Bottles of Beer on the wall." cr +." Oh, four hundred and fifty-six Bottles of Beer on the wall," cr +." four hundred and fifty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty-five Bottles of Beer on the wall." cr +." Oh, four hundred and fifty-five Bottles of Beer on the wall," cr +." four hundred and fifty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty-four Bottles of Beer on the wall." cr +." Oh, four hundred and fifty-four Bottles of Beer on the wall," cr +." four hundred and fifty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty-three Bottles of Beer on the wall." cr +." Oh, four hundred and fifty-three Bottles of Beer on the wall," cr +." four hundred and fifty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty-two Bottles of Beer on the wall." cr +." Oh, four hundred and fifty-two Bottles of Beer on the wall," cr +." four hundred and fifty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty-one Bottles of Beer on the wall." cr +." Oh, four hundred and fifty-one Bottles of Beer on the wall," cr +." four hundred and fifty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifty Bottles of Beer on the wall." cr +." Oh, four hundred and fifty Bottles of Beer on the wall," cr +." four hundred and fifty Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty-nine Bottles of Beer on the wall." cr +." Oh, four hundred and forty-nine Bottles of Beer on the wall," cr +." four hundred and forty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty-eight Bottles of Beer on the wall." cr +." Oh, four hundred and forty-eight Bottles of Beer on the wall," cr +." four hundred and forty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty-seven Bottles of Beer on the wall." cr +." Oh, four hundred and forty-seven Bottles of Beer on the wall," cr +." four hundred and forty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty-six Bottles of Beer on the wall." cr +." Oh, four hundred and forty-six Bottles of Beer on the wall," cr +." four hundred and forty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty-five Bottles of Beer on the wall." cr +." Oh, four hundred and forty-five Bottles of Beer on the wall," cr +." four hundred and forty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty-four Bottles of Beer on the wall." cr +." Oh, four hundred and forty-four Bottles of Beer on the wall," cr +." four hundred and forty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty-three Bottles of Beer on the wall." cr +." Oh, four hundred and forty-three Bottles of Beer on the wall," cr +." four hundred and forty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty-two Bottles of Beer on the wall." cr +." Oh, four hundred and forty-two Bottles of Beer on the wall," cr +." four hundred and forty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty-one Bottles of Beer on the wall." cr +." Oh, four hundred and forty-one Bottles of Beer on the wall," cr +." four hundred and forty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and forty Bottles of Beer on the wall." cr +." Oh, four hundred and forty Bottles of Beer on the wall," cr +." four hundred and forty Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty-nine Bottles of Beer on the wall." cr +." Oh, four hundred and thirty-nine Bottles of Beer on the wall," cr +." four hundred and thirty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty-eight Bottles of Beer on the wall." cr +." Oh, four hundred and thirty-eight Bottles of Beer on the wall," cr +." four hundred and thirty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty-seven Bottles of Beer on the wall." cr +." Oh, four hundred and thirty-seven Bottles of Beer on the wall," cr +." four hundred and thirty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty-six Bottles of Beer on the wall." cr +." Oh, four hundred and thirty-six Bottles of Beer on the wall," cr +." four hundred and thirty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty-five Bottles of Beer on the wall." cr +." Oh, four hundred and thirty-five Bottles of Beer on the wall," cr +." four hundred and thirty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty-four Bottles of Beer on the wall." cr +." Oh, four hundred and thirty-four Bottles of Beer on the wall," cr +." four hundred and thirty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty-three Bottles of Beer on the wall." cr +." Oh, four hundred and thirty-three Bottles of Beer on the wall," cr +." four hundred and thirty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty-two Bottles of Beer on the wall." cr +." Oh, four hundred and thirty-two Bottles of Beer on the wall," cr +." four hundred and thirty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty-one Bottles of Beer on the wall." cr +." Oh, four hundred and thirty-one Bottles of Beer on the wall," cr +." four hundred and thirty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirty Bottles of Beer on the wall." cr +." Oh, four hundred and thirty Bottles of Beer on the wall," cr +." four hundred and thirty Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty-nine Bottles of Beer on the wall." cr +." Oh, four hundred and twenty-nine Bottles of Beer on the wall," cr +." four hundred and twenty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty-eight Bottles of Beer on the wall." cr +." Oh, four hundred and twenty-eight Bottles of Beer on the wall," cr +." four hundred and twenty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty-seven Bottles of Beer on the wall." cr +." Oh, four hundred and twenty-seven Bottles of Beer on the wall," cr +." four hundred and twenty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty-six Bottles of Beer on the wall." cr +." Oh, four hundred and twenty-six Bottles of Beer on the wall," cr +." four hundred and twenty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty-five Bottles of Beer on the wall." cr +." Oh, four hundred and twenty-five Bottles of Beer on the wall," cr +." four hundred and twenty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty-four Bottles of Beer on the wall." cr +." Oh, four hundred and twenty-four Bottles of Beer on the wall," cr +." four hundred and twenty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty-three Bottles of Beer on the wall." cr +." Oh, four hundred and twenty-three Bottles of Beer on the wall," cr +." four hundred and twenty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty-two Bottles of Beer on the wall." cr +." Oh, four hundred and twenty-two Bottles of Beer on the wall," cr +." four hundred and twenty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty-one Bottles of Beer on the wall." cr +." Oh, four hundred and twenty-one Bottles of Beer on the wall," cr +." four hundred and twenty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twenty Bottles of Beer on the wall." cr +." Oh, four hundred and twenty Bottles of Beer on the wall," cr +." four hundred and twenty Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and nineteen Bottles of Beer on the wall." cr +." Oh, four hundred and nineteen Bottles of Beer on the wall," cr +." four hundred and nineteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eighteen Bottles of Beer on the wall." cr +." Oh, four hundred and eighteen Bottles of Beer on the wall," cr +." four hundred and eighteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seventeen Bottles of Beer on the wall." cr +." Oh, four hundred and seventeen Bottles of Beer on the wall," cr +." four hundred and seventeen Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and sixteen Bottles of Beer on the wall." cr +." Oh, four hundred and sixteen Bottles of Beer on the wall," cr +." four hundred and sixteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fifteen Bottles of Beer on the wall." cr +." Oh, four hundred and fifteen Bottles of Beer on the wall," cr +." four hundred and fifteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and fourteen Bottles of Beer on the wall." cr +." Oh, four hundred and fourteen Bottles of Beer on the wall," cr +." four hundred and fourteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and thirteen Bottles of Beer on the wall." cr +." Oh, four hundred and thirteen Bottles of Beer on the wall," cr +." four hundred and thirteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and twelve Bottles of Beer on the wall." cr +." Oh, four hundred and twelve Bottles of Beer on the wall," cr +." four hundred and twelve Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eleven Bottles of Beer on the wall." cr +." Oh, four hundred and eleven Bottles of Beer on the wall," cr +." four hundred and eleven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and ten Bottles of Beer on the wall." cr +." Oh, four hundred and ten Bottles of Beer on the wall," cr +." four hundred and ten Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and nine Bottles of Beer on the wall." cr +." Oh, four hundred and nine Bottles of Beer on the wall," cr +." four hundred and nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and eight Bottles of Beer on the wall." cr +." Oh, four hundred and eight Bottles of Beer on the wall," cr +." four hundred and eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and seven Bottles of Beer on the wall." cr +." Oh, four hundred and seven Bottles of Beer on the wall," cr +." four hundred and seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and six Bottles of Beer on the wall." cr +." Oh, four hundred and six Bottles of Beer on the wall," cr +." four hundred and six Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and five Bottles of Beer on the wall." cr +." Oh, four hundred and five Bottles of Beer on the wall," cr +." four hundred and five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and four Bottles of Beer on the wall." cr +." Oh, four hundred and four Bottles of Beer on the wall," cr +." four hundred and four Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and three Bottles of Beer on the wall." cr +." Oh, four hundred and three Bottles of Beer on the wall," cr +." four hundred and three Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and two Bottles of Beer on the wall." cr +." Oh, four hundred and two Bottles of Beer on the wall," cr +." four hundred and two Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred and one Bottles of Beer on the wall." cr +." Oh, four hundred and one Bottles of Beer on the wall," cr +." four hundred and one Bottles of Beer!," cr +." Take one down and pass it around," cr +." four hundred Bottles of Beer on the wall." cr +." Oh, four hundred Bottles of Beer on the wall," cr +." four hundred Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety-nine Bottles of Beer on the wall." cr +." Oh, three hundred and ninety-nine Bottles of Beer on the wall," cr +." three hundred and ninety-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety-eight Bottles of Beer on the wall." cr +." Oh, three hundred and ninety-eight Bottles of Beer on the wall," cr +." three hundred and ninety-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety-seven Bottles of Beer on the wall." cr +." Oh, three hundred and ninety-seven Bottles of Beer on the wall," cr +." three hundred and ninety-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety-six Bottles of Beer on the wall." cr +." Oh, three hundred and ninety-six Bottles of Beer on the wall," cr +." three hundred and ninety-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety-five Bottles of Beer on the wall." cr +." Oh, three hundred and ninety-five Bottles of Beer on the wall," cr +." three hundred and ninety-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety-four Bottles of Beer on the wall." cr +." Oh, three hundred and ninety-four Bottles of Beer on the wall," cr +." three hundred and ninety-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety-three Bottles of Beer on the wall." cr +." Oh, three hundred and ninety-three Bottles of Beer on the wall," cr +." three hundred and ninety-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety-two Bottles of Beer on the wall." cr +." Oh, three hundred and ninety-two Bottles of Beer on the wall," cr +." three hundred and ninety-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety-one Bottles of Beer on the wall." cr +." Oh, three hundred and ninety-one Bottles of Beer on the wall," cr +." three hundred and ninety-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ninety Bottles of Beer on the wall." cr +." Oh, three hundred and ninety Bottles of Beer on the wall," cr +." three hundred and ninety Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty-nine Bottles of Beer on the wall." cr +." Oh, three hundred and eighty-nine Bottles of Beer on the wall," cr +." three hundred and eighty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty-eight Bottles of Beer on the wall." cr +." Oh, three hundred and eighty-eight Bottles of Beer on the wall," cr +." three hundred and eighty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty-seven Bottles of Beer on the wall." cr +." Oh, three hundred and eighty-seven Bottles of Beer on the wall," cr +." three hundred and eighty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty-six Bottles of Beer on the wall." cr +." Oh, three hundred and eighty-six Bottles of Beer on the wall," cr +." three hundred and eighty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty-five Bottles of Beer on the wall." cr +." Oh, three hundred and eighty-five Bottles of Beer on the wall," cr +." three hundred and eighty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty-four Bottles of Beer on the wall." cr +." Oh, three hundred and eighty-four Bottles of Beer on the wall," cr +." three hundred and eighty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty-three Bottles of Beer on the wall." cr +." Oh, three hundred and eighty-three Bottles of Beer on the wall," cr +." three hundred and eighty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty-two Bottles of Beer on the wall." cr +." Oh, three hundred and eighty-two Bottles of Beer on the wall," cr +." three hundred and eighty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty-one Bottles of Beer on the wall." cr +." Oh, three hundred and eighty-one Bottles of Beer on the wall," cr +." three hundred and eighty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighty Bottles of Beer on the wall." cr +." Oh, three hundred and eighty Bottles of Beer on the wall," cr +." three hundred and eighty Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy-nine Bottles of Beer on the wall." cr +." Oh, three hundred and seventy-nine Bottles of Beer on the wall," cr +." three hundred and seventy-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy-eight Bottles of Beer on the wall." cr +." Oh, three hundred and seventy-eight Bottles of Beer on the wall," cr +." three hundred and seventy-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy-seven Bottles of Beer on the wall." cr +." Oh, three hundred and seventy-seven Bottles of Beer on the wall," cr +." three hundred and seventy-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy-six Bottles of Beer on the wall." cr +." Oh, three hundred and seventy-six Bottles of Beer on the wall," cr +." three hundred and seventy-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy-five Bottles of Beer on the wall." cr +." Oh, three hundred and seventy-five Bottles of Beer on the wall," cr +." three hundred and seventy-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy-four Bottles of Beer on the wall." cr +." Oh, three hundred and seventy-four Bottles of Beer on the wall," cr +." three hundred and seventy-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy-three Bottles of Beer on the wall." cr +." Oh, three hundred and seventy-three Bottles of Beer on the wall," cr +." three hundred and seventy-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy-two Bottles of Beer on the wall." cr +." Oh, three hundred and seventy-two Bottles of Beer on the wall," cr +." three hundred and seventy-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy-one Bottles of Beer on the wall." cr +." Oh, three hundred and seventy-one Bottles of Beer on the wall," cr +." three hundred and seventy-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventy Bottles of Beer on the wall." cr +." Oh, three hundred and seventy Bottles of Beer on the wall," cr +." three hundred and seventy Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty-nine Bottles of Beer on the wall." cr +." Oh, three hundred and sixty-nine Bottles of Beer on the wall," cr +." three hundred and sixty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty-eight Bottles of Beer on the wall." cr +." Oh, three hundred and sixty-eight Bottles of Beer on the wall," cr +." three hundred and sixty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty-seven Bottles of Beer on the wall." cr +." Oh, three hundred and sixty-seven Bottles of Beer on the wall," cr +." three hundred and sixty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty-six Bottles of Beer on the wall." cr +." Oh, three hundred and sixty-six Bottles of Beer on the wall," cr +." three hundred and sixty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty-five Bottles of Beer on the wall." cr +." Oh, three hundred and sixty-five Bottles of Beer on the wall," cr +." three hundred and sixty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty-four Bottles of Beer on the wall." cr +." Oh, three hundred and sixty-four Bottles of Beer on the wall," cr +." three hundred and sixty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty-three Bottles of Beer on the wall." cr +." Oh, three hundred and sixty-three Bottles of Beer on the wall," cr +." three hundred and sixty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty-two Bottles of Beer on the wall." cr +." Oh, three hundred and sixty-two Bottles of Beer on the wall," cr +." three hundred and sixty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty-one Bottles of Beer on the wall." cr +." Oh, three hundred and sixty-one Bottles of Beer on the wall," cr +." three hundred and sixty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixty Bottles of Beer on the wall." cr +." Oh, three hundred and sixty Bottles of Beer on the wall," cr +." three hundred and sixty Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty-nine Bottles of Beer on the wall." cr +." Oh, three hundred and fifty-nine Bottles of Beer on the wall," cr +." three hundred and fifty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty-eight Bottles of Beer on the wall." cr +." Oh, three hundred and fifty-eight Bottles of Beer on the wall," cr +." three hundred and fifty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty-seven Bottles of Beer on the wall." cr +." Oh, three hundred and fifty-seven Bottles of Beer on the wall," cr +." three hundred and fifty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty-six Bottles of Beer on the wall." cr +." Oh, three hundred and fifty-six Bottles of Beer on the wall," cr +." three hundred and fifty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty-five Bottles of Beer on the wall." cr +." Oh, three hundred and fifty-five Bottles of Beer on the wall," cr +." three hundred and fifty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty-four Bottles of Beer on the wall." cr +." Oh, three hundred and fifty-four Bottles of Beer on the wall," cr +." three hundred and fifty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty-three Bottles of Beer on the wall." cr +." Oh, three hundred and fifty-three Bottles of Beer on the wall," cr +." three hundred and fifty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty-two Bottles of Beer on the wall." cr +." Oh, three hundred and fifty-two Bottles of Beer on the wall," cr +." three hundred and fifty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty-one Bottles of Beer on the wall." cr +." Oh, three hundred and fifty-one Bottles of Beer on the wall," cr +." three hundred and fifty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifty Bottles of Beer on the wall." cr +." Oh, three hundred and fifty Bottles of Beer on the wall," cr +." three hundred and fifty Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty-nine Bottles of Beer on the wall." cr +." Oh, three hundred and forty-nine Bottles of Beer on the wall," cr +." three hundred and forty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty-eight Bottles of Beer on the wall." cr +." Oh, three hundred and forty-eight Bottles of Beer on the wall," cr +." three hundred and forty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty-seven Bottles of Beer on the wall." cr +." Oh, three hundred and forty-seven Bottles of Beer on the wall," cr +." three hundred and forty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty-six Bottles of Beer on the wall." cr +." Oh, three hundred and forty-six Bottles of Beer on the wall," cr +." three hundred and forty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty-five Bottles of Beer on the wall." cr +." Oh, three hundred and forty-five Bottles of Beer on the wall," cr +." three hundred and forty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty-four Bottles of Beer on the wall." cr +." Oh, three hundred and forty-four Bottles of Beer on the wall," cr +." three hundred and forty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty-three Bottles of Beer on the wall." cr +." Oh, three hundred and forty-three Bottles of Beer on the wall," cr +." three hundred and forty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty-two Bottles of Beer on the wall." cr +." Oh, three hundred and forty-two Bottles of Beer on the wall," cr +." three hundred and forty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty-one Bottles of Beer on the wall." cr +." Oh, three hundred and forty-one Bottles of Beer on the wall," cr +." three hundred and forty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and forty Bottles of Beer on the wall." cr +." Oh, three hundred and forty Bottles of Beer on the wall," cr +." three hundred and forty Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty-nine Bottles of Beer on the wall." cr +." Oh, three hundred and thirty-nine Bottles of Beer on the wall," cr +." three hundred and thirty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty-eight Bottles of Beer on the wall." cr +." Oh, three hundred and thirty-eight Bottles of Beer on the wall," cr +." three hundred and thirty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty-seven Bottles of Beer on the wall." cr +." Oh, three hundred and thirty-seven Bottles of Beer on the wall," cr +." three hundred and thirty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty-six Bottles of Beer on the wall." cr +." Oh, three hundred and thirty-six Bottles of Beer on the wall," cr +." three hundred and thirty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty-five Bottles of Beer on the wall." cr +." Oh, three hundred and thirty-five Bottles of Beer on the wall," cr +." three hundred and thirty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty-four Bottles of Beer on the wall." cr +." Oh, three hundred and thirty-four Bottles of Beer on the wall," cr +." three hundred and thirty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty-three Bottles of Beer on the wall." cr +." Oh, three hundred and thirty-three Bottles of Beer on the wall," cr +." three hundred and thirty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty-two Bottles of Beer on the wall." cr +." Oh, three hundred and thirty-two Bottles of Beer on the wall," cr +." three hundred and thirty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty-one Bottles of Beer on the wall." cr +." Oh, three hundred and thirty-one Bottles of Beer on the wall," cr +." three hundred and thirty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirty Bottles of Beer on the wall." cr +." Oh, three hundred and thirty Bottles of Beer on the wall," cr +." three hundred and thirty Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty-nine Bottles of Beer on the wall." cr +." Oh, three hundred and twenty-nine Bottles of Beer on the wall," cr +." three hundred and twenty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty-eight Bottles of Beer on the wall." cr +." Oh, three hundred and twenty-eight Bottles of Beer on the wall," cr +." three hundred and twenty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty-seven Bottles of Beer on the wall." cr +." Oh, three hundred and twenty-seven Bottles of Beer on the wall," cr +." three hundred and twenty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty-six Bottles of Beer on the wall." cr +." Oh, three hundred and twenty-six Bottles of Beer on the wall," cr +." three hundred and twenty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty-five Bottles of Beer on the wall." cr +." Oh, three hundred and twenty-five Bottles of Beer on the wall," cr +." three hundred and twenty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty-four Bottles of Beer on the wall." cr +." Oh, three hundred and twenty-four Bottles of Beer on the wall," cr +." three hundred and twenty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty-three Bottles of Beer on the wall." cr +." Oh, three hundred and twenty-three Bottles of Beer on the wall," cr +." three hundred and twenty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty-two Bottles of Beer on the wall." cr +." Oh, three hundred and twenty-two Bottles of Beer on the wall," cr +." three hundred and twenty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty-one Bottles of Beer on the wall." cr +." Oh, three hundred and twenty-one Bottles of Beer on the wall," cr +." three hundred and twenty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twenty Bottles of Beer on the wall." cr +." Oh, three hundred and twenty Bottles of Beer on the wall," cr +." three hundred and twenty Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and nineteen Bottles of Beer on the wall." cr +." Oh, three hundred and nineteen Bottles of Beer on the wall," cr +." three hundred and nineteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eighteen Bottles of Beer on the wall." cr +." Oh, three hundred and eighteen Bottles of Beer on the wall," cr +." three hundred and eighteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seventeen Bottles of Beer on the wall." cr +." Oh, three hundred and seventeen Bottles of Beer on the wall," cr +." three hundred and seventeen Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and sixteen Bottles of Beer on the wall." cr +." Oh, three hundred and sixteen Bottles of Beer on the wall," cr +." three hundred and sixteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fifteen Bottles of Beer on the wall." cr +." Oh, three hundred and fifteen Bottles of Beer on the wall," cr +." three hundred and fifteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and fourteen Bottles of Beer on the wall." cr +." Oh, three hundred and fourteen Bottles of Beer on the wall," cr +." three hundred and fourteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and thirteen Bottles of Beer on the wall." cr +." Oh, three hundred and thirteen Bottles of Beer on the wall," cr +." three hundred and thirteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and twelve Bottles of Beer on the wall." cr +." Oh, three hundred and twelve Bottles of Beer on the wall," cr +." three hundred and twelve Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eleven Bottles of Beer on the wall." cr +." Oh, three hundred and eleven Bottles of Beer on the wall," cr +." three hundred and eleven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and ten Bottles of Beer on the wall." cr +." Oh, three hundred and ten Bottles of Beer on the wall," cr +." three hundred and ten Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and nine Bottles of Beer on the wall." cr +." Oh, three hundred and nine Bottles of Beer on the wall," cr +." three hundred and nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and eight Bottles of Beer on the wall." cr +." Oh, three hundred and eight Bottles of Beer on the wall," cr +." three hundred and eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and seven Bottles of Beer on the wall." cr +." Oh, three hundred and seven Bottles of Beer on the wall," cr +." three hundred and seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and six Bottles of Beer on the wall." cr +." Oh, three hundred and six Bottles of Beer on the wall," cr +." three hundred and six Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and five Bottles of Beer on the wall." cr +." Oh, three hundred and five Bottles of Beer on the wall," cr +." three hundred and five Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and four Bottles of Beer on the wall." cr +." Oh, three hundred and four Bottles of Beer on the wall," cr +." three hundred and four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and three Bottles of Beer on the wall." cr +." Oh, three hundred and three Bottles of Beer on the wall," cr +." three hundred and three Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and two Bottles of Beer on the wall." cr +." Oh, three hundred and two Bottles of Beer on the wall," cr +." three hundred and two Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred and one Bottles of Beer on the wall." cr +." Oh, three hundred and one Bottles of Beer on the wall," cr +." three hundred and one Bottles of Beer!," cr +." Take one down and pass it around," cr +." three hundred Bottles of Beer on the wall." cr +." Oh, three hundred Bottles of Beer on the wall," cr +." three hundred Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety-nine Bottles of Beer on the wall." cr +." Oh, two hundred and ninety-nine Bottles of Beer on the wall," cr +." two hundred and ninety-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety-eight Bottles of Beer on the wall." cr +." Oh, two hundred and ninety-eight Bottles of Beer on the wall," cr +." two hundred and ninety-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety-seven Bottles of Beer on the wall." cr +." Oh, two hundred and ninety-seven Bottles of Beer on the wall," cr +." two hundred and ninety-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety-six Bottles of Beer on the wall." cr +." Oh, two hundred and ninety-six Bottles of Beer on the wall," cr +." two hundred and ninety-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety-five Bottles of Beer on the wall." cr +." Oh, two hundred and ninety-five Bottles of Beer on the wall," cr +." two hundred and ninety-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety-four Bottles of Beer on the wall." cr +." Oh, two hundred and ninety-four Bottles of Beer on the wall," cr +." two hundred and ninety-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety-three Bottles of Beer on the wall." cr +." Oh, two hundred and ninety-three Bottles of Beer on the wall," cr +." two hundred and ninety-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety-two Bottles of Beer on the wall." cr +." Oh, two hundred and ninety-two Bottles of Beer on the wall," cr +." two hundred and ninety-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety-one Bottles of Beer on the wall." cr +." Oh, two hundred and ninety-one Bottles of Beer on the wall," cr +." two hundred and ninety-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ninety Bottles of Beer on the wall." cr +." Oh, two hundred and ninety Bottles of Beer on the wall," cr +." two hundred and ninety Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty-nine Bottles of Beer on the wall." cr +." Oh, two hundred and eighty-nine Bottles of Beer on the wall," cr +." two hundred and eighty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty-eight Bottles of Beer on the wall." cr +." Oh, two hundred and eighty-eight Bottles of Beer on the wall," cr +." two hundred and eighty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty-seven Bottles of Beer on the wall." cr +." Oh, two hundred and eighty-seven Bottles of Beer on the wall," cr +." two hundred and eighty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty-six Bottles of Beer on the wall." cr +." Oh, two hundred and eighty-six Bottles of Beer on the wall," cr +." two hundred and eighty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty-five Bottles of Beer on the wall." cr +." Oh, two hundred and eighty-five Bottles of Beer on the wall," cr +." two hundred and eighty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty-four Bottles of Beer on the wall." cr +." Oh, two hundred and eighty-four Bottles of Beer on the wall," cr +." two hundred and eighty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty-three Bottles of Beer on the wall." cr +." Oh, two hundred and eighty-three Bottles of Beer on the wall," cr +." two hundred and eighty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty-two Bottles of Beer on the wall." cr +." Oh, two hundred and eighty-two Bottles of Beer on the wall," cr +." two hundred and eighty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty-one Bottles of Beer on the wall." cr +." Oh, two hundred and eighty-one Bottles of Beer on the wall," cr +." two hundred and eighty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighty Bottles of Beer on the wall." cr +." Oh, two hundred and eighty Bottles of Beer on the wall," cr +." two hundred and eighty Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy-nine Bottles of Beer on the wall." cr +." Oh, two hundred and seventy-nine Bottles of Beer on the wall," cr +." two hundred and seventy-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy-eight Bottles of Beer on the wall." cr +." Oh, two hundred and seventy-eight Bottles of Beer on the wall," cr +." two hundred and seventy-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy-seven Bottles of Beer on the wall." cr +." Oh, two hundred and seventy-seven Bottles of Beer on the wall," cr +." two hundred and seventy-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy-six Bottles of Beer on the wall." cr +." Oh, two hundred and seventy-six Bottles of Beer on the wall," cr +." two hundred and seventy-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy-five Bottles of Beer on the wall." cr +." Oh, two hundred and seventy-five Bottles of Beer on the wall," cr +." two hundred and seventy-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy-four Bottles of Beer on the wall." cr +." Oh, two hundred and seventy-four Bottles of Beer on the wall," cr +." two hundred and seventy-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy-three Bottles of Beer on the wall." cr +." Oh, two hundred and seventy-three Bottles of Beer on the wall," cr +." two hundred and seventy-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy-two Bottles of Beer on the wall." cr +." Oh, two hundred and seventy-two Bottles of Beer on the wall," cr +." two hundred and seventy-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy-one Bottles of Beer on the wall." cr +." Oh, two hundred and seventy-one Bottles of Beer on the wall," cr +." two hundred and seventy-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventy Bottles of Beer on the wall." cr +." Oh, two hundred and seventy Bottles of Beer on the wall," cr +." two hundred and seventy Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty-nine Bottles of Beer on the wall." cr +." Oh, two hundred and sixty-nine Bottles of Beer on the wall," cr +." two hundred and sixty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty-eight Bottles of Beer on the wall." cr +." Oh, two hundred and sixty-eight Bottles of Beer on the wall," cr +." two hundred and sixty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty-seven Bottles of Beer on the wall." cr +." Oh, two hundred and sixty-seven Bottles of Beer on the wall," cr +." two hundred and sixty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty-six Bottles of Beer on the wall." cr +." Oh, two hundred and sixty-six Bottles of Beer on the wall," cr +." two hundred and sixty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty-five Bottles of Beer on the wall." cr +." Oh, two hundred and sixty-five Bottles of Beer on the wall," cr +." two hundred and sixty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty-four Bottles of Beer on the wall." cr +." Oh, two hundred and sixty-four Bottles of Beer on the wall," cr +." two hundred and sixty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty-three Bottles of Beer on the wall." cr +." Oh, two hundred and sixty-three Bottles of Beer on the wall," cr +." two hundred and sixty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty-two Bottles of Beer on the wall." cr +." Oh, two hundred and sixty-two Bottles of Beer on the wall," cr +." two hundred and sixty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty-one Bottles of Beer on the wall." cr +." Oh, two hundred and sixty-one Bottles of Beer on the wall," cr +." two hundred and sixty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixty Bottles of Beer on the wall." cr +." Oh, two hundred and sixty Bottles of Beer on the wall," cr +." two hundred and sixty Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty-nine Bottles of Beer on the wall." cr +." Oh, two hundred and fifty-nine Bottles of Beer on the wall," cr +." two hundred and fifty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty-eight Bottles of Beer on the wall." cr +." Oh, two hundred and fifty-eight Bottles of Beer on the wall," cr +." two hundred and fifty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty-seven Bottles of Beer on the wall." cr +." Oh, two hundred and fifty-seven Bottles of Beer on the wall," cr +." two hundred and fifty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty-six Bottles of Beer on the wall." cr +." Oh, two hundred and fifty-six Bottles of Beer on the wall," cr +." two hundred and fifty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty-five Bottles of Beer on the wall." cr +." Oh, two hundred and fifty-five Bottles of Beer on the wall," cr +." two hundred and fifty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty-four Bottles of Beer on the wall." cr +." Oh, two hundred and fifty-four Bottles of Beer on the wall," cr +." two hundred and fifty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty-three Bottles of Beer on the wall." cr +." Oh, two hundred and fifty-three Bottles of Beer on the wall," cr +." two hundred and fifty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty-two Bottles of Beer on the wall." cr +." Oh, two hundred and fifty-two Bottles of Beer on the wall," cr +." two hundred and fifty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty-one Bottles of Beer on the wall." cr +." Oh, two hundred and fifty-one Bottles of Beer on the wall," cr +." two hundred and fifty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifty Bottles of Beer on the wall." cr +." Oh, two hundred and fifty Bottles of Beer on the wall," cr +." two hundred and fifty Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty-nine Bottles of Beer on the wall." cr +." Oh, two hundred and forty-nine Bottles of Beer on the wall," cr +." two hundred and forty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty-eight Bottles of Beer on the wall." cr +." Oh, two hundred and forty-eight Bottles of Beer on the wall," cr +." two hundred and forty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty-seven Bottles of Beer on the wall." cr +." Oh, two hundred and forty-seven Bottles of Beer on the wall," cr +." two hundred and forty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty-six Bottles of Beer on the wall." cr +." Oh, two hundred and forty-six Bottles of Beer on the wall," cr +." two hundred and forty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty-five Bottles of Beer on the wall." cr +." Oh, two hundred and forty-five Bottles of Beer on the wall," cr +." two hundred and forty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty-four Bottles of Beer on the wall." cr +." Oh, two hundred and forty-four Bottles of Beer on the wall," cr +." two hundred and forty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty-three Bottles of Beer on the wall." cr +." Oh, two hundred and forty-three Bottles of Beer on the wall," cr +." two hundred and forty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty-two Bottles of Beer on the wall." cr +." Oh, two hundred and forty-two Bottles of Beer on the wall," cr +." two hundred and forty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty-one Bottles of Beer on the wall." cr +." Oh, two hundred and forty-one Bottles of Beer on the wall," cr +." two hundred and forty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and forty Bottles of Beer on the wall." cr +." Oh, two hundred and forty Bottles of Beer on the wall," cr +." two hundred and forty Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty-nine Bottles of Beer on the wall." cr +." Oh, two hundred and thirty-nine Bottles of Beer on the wall," cr +." two hundred and thirty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty-eight Bottles of Beer on the wall." cr +." Oh, two hundred and thirty-eight Bottles of Beer on the wall," cr +." two hundred and thirty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty-seven Bottles of Beer on the wall." cr +." Oh, two hundred and thirty-seven Bottles of Beer on the wall," cr +." two hundred and thirty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty-six Bottles of Beer on the wall." cr +." Oh, two hundred and thirty-six Bottles of Beer on the wall," cr +." two hundred and thirty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty-five Bottles of Beer on the wall." cr +." Oh, two hundred and thirty-five Bottles of Beer on the wall," cr +." two hundred and thirty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty-four Bottles of Beer on the wall." cr +." Oh, two hundred and thirty-four Bottles of Beer on the wall," cr +." two hundred and thirty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty-three Bottles of Beer on the wall." cr +." Oh, two hundred and thirty-three Bottles of Beer on the wall," cr +." two hundred and thirty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty-two Bottles of Beer on the wall." cr +." Oh, two hundred and thirty-two Bottles of Beer on the wall," cr +." two hundred and thirty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty-one Bottles of Beer on the wall." cr +." Oh, two hundred and thirty-one Bottles of Beer on the wall," cr +." two hundred and thirty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirty Bottles of Beer on the wall." cr +." Oh, two hundred and thirty Bottles of Beer on the wall," cr +." two hundred and thirty Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty-nine Bottles of Beer on the wall." cr +." Oh, two hundred and twenty-nine Bottles of Beer on the wall," cr +." two hundred and twenty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty-eight Bottles of Beer on the wall." cr +." Oh, two hundred and twenty-eight Bottles of Beer on the wall," cr +." two hundred and twenty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty-seven Bottles of Beer on the wall." cr +." Oh, two hundred and twenty-seven Bottles of Beer on the wall," cr +." two hundred and twenty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty-six Bottles of Beer on the wall." cr +." Oh, two hundred and twenty-six Bottles of Beer on the wall," cr +." two hundred and twenty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty-five Bottles of Beer on the wall." cr +." Oh, two hundred and twenty-five Bottles of Beer on the wall," cr +." two hundred and twenty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty-four Bottles of Beer on the wall." cr +." Oh, two hundred and twenty-four Bottles of Beer on the wall," cr +." two hundred and twenty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty-three Bottles of Beer on the wall." cr +." Oh, two hundred and twenty-three Bottles of Beer on the wall," cr +." two hundred and twenty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty-two Bottles of Beer on the wall." cr +." Oh, two hundred and twenty-two Bottles of Beer on the wall," cr +." two hundred and twenty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty-one Bottles of Beer on the wall." cr +." Oh, two hundred and twenty-one Bottles of Beer on the wall," cr +." two hundred and twenty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twenty Bottles of Beer on the wall." cr +." Oh, two hundred and twenty Bottles of Beer on the wall," cr +." two hundred and twenty Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and nineteen Bottles of Beer on the wall." cr +." Oh, two hundred and nineteen Bottles of Beer on the wall," cr +." two hundred and nineteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eighteen Bottles of Beer on the wall." cr +." Oh, two hundred and eighteen Bottles of Beer on the wall," cr +." two hundred and eighteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seventeen Bottles of Beer on the wall." cr +." Oh, two hundred and seventeen Bottles of Beer on the wall," cr +." two hundred and seventeen Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and sixteen Bottles of Beer on the wall." cr +." Oh, two hundred and sixteen Bottles of Beer on the wall," cr +." two hundred and sixteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fifteen Bottles of Beer on the wall." cr +." Oh, two hundred and fifteen Bottles of Beer on the wall," cr +." two hundred and fifteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and fourteen Bottles of Beer on the wall." cr +." Oh, two hundred and fourteen Bottles of Beer on the wall," cr +." two hundred and fourteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and thirteen Bottles of Beer on the wall." cr +." Oh, two hundred and thirteen Bottles of Beer on the wall," cr +." two hundred and thirteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and twelve Bottles of Beer on the wall." cr +." Oh, two hundred and twelve Bottles of Beer on the wall," cr +." two hundred and twelve Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eleven Bottles of Beer on the wall." cr +." Oh, two hundred and eleven Bottles of Beer on the wall," cr +." two hundred and eleven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and ten Bottles of Beer on the wall." cr +." Oh, two hundred and ten Bottles of Beer on the wall," cr +." two hundred and ten Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and nine Bottles of Beer on the wall." cr +." Oh, two hundred and nine Bottles of Beer on the wall," cr +." two hundred and nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and eight Bottles of Beer on the wall." cr +." Oh, two hundred and eight Bottles of Beer on the wall," cr +." two hundred and eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and seven Bottles of Beer on the wall." cr +." Oh, two hundred and seven Bottles of Beer on the wall," cr +." two hundred and seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and six Bottles of Beer on the wall." cr +." Oh, two hundred and six Bottles of Beer on the wall," cr +." two hundred and six Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and five Bottles of Beer on the wall." cr +." Oh, two hundred and five Bottles of Beer on the wall," cr +." two hundred and five Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and four Bottles of Beer on the wall." cr +." Oh, two hundred and four Bottles of Beer on the wall," cr +." two hundred and four Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and three Bottles of Beer on the wall." cr +." Oh, two hundred and three Bottles of Beer on the wall," cr +." two hundred and three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and two Bottles of Beer on the wall." cr +." Oh, two hundred and two Bottles of Beer on the wall," cr +." two hundred and two Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred and one Bottles of Beer on the wall." cr +." Oh, two hundred and one Bottles of Beer on the wall," cr +." two hundred and one Bottles of Beer!," cr +." Take one down and pass it around," cr +." two hundred Bottles of Beer on the wall." cr +." Oh, two hundred Bottles of Beer on the wall," cr +." two hundred Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety-nine Bottles of Beer on the wall." cr +." Oh, one hundred and ninety-nine Bottles of Beer on the wall," cr +." one hundred and ninety-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety-eight Bottles of Beer on the wall." cr +." Oh, one hundred and ninety-eight Bottles of Beer on the wall," cr +." one hundred and ninety-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety-seven Bottles of Beer on the wall." cr +." Oh, one hundred and ninety-seven Bottles of Beer on the wall," cr +." one hundred and ninety-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety-six Bottles of Beer on the wall." cr +." Oh, one hundred and ninety-six Bottles of Beer on the wall," cr +." one hundred and ninety-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety-five Bottles of Beer on the wall." cr +." Oh, one hundred and ninety-five Bottles of Beer on the wall," cr +." one hundred and ninety-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety-four Bottles of Beer on the wall." cr +." Oh, one hundred and ninety-four Bottles of Beer on the wall," cr +." one hundred and ninety-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety-three Bottles of Beer on the wall." cr +." Oh, one hundred and ninety-three Bottles of Beer on the wall," cr +." one hundred and ninety-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety-two Bottles of Beer on the wall." cr +." Oh, one hundred and ninety-two Bottles of Beer on the wall," cr +." one hundred and ninety-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety-one Bottles of Beer on the wall." cr +." Oh, one hundred and ninety-one Bottles of Beer on the wall," cr +." one hundred and ninety-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ninety Bottles of Beer on the wall." cr +." Oh, one hundred and ninety Bottles of Beer on the wall," cr +." one hundred and ninety Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty-nine Bottles of Beer on the wall." cr +." Oh, one hundred and eighty-nine Bottles of Beer on the wall," cr +." one hundred and eighty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty-eight Bottles of Beer on the wall." cr +." Oh, one hundred and eighty-eight Bottles of Beer on the wall," cr +." one hundred and eighty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty-seven Bottles of Beer on the wall." cr +." Oh, one hundred and eighty-seven Bottles of Beer on the wall," cr +." one hundred and eighty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty-six Bottles of Beer on the wall." cr +." Oh, one hundred and eighty-six Bottles of Beer on the wall," cr +." one hundred and eighty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty-five Bottles of Beer on the wall." cr +." Oh, one hundred and eighty-five Bottles of Beer on the wall," cr +." one hundred and eighty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty-four Bottles of Beer on the wall." cr +." Oh, one hundred and eighty-four Bottles of Beer on the wall," cr +." one hundred and eighty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty-three Bottles of Beer on the wall." cr +." Oh, one hundred and eighty-three Bottles of Beer on the wall," cr +." one hundred and eighty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty-two Bottles of Beer on the wall." cr +." Oh, one hundred and eighty-two Bottles of Beer on the wall," cr +." one hundred and eighty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty-one Bottles of Beer on the wall." cr +." Oh, one hundred and eighty-one Bottles of Beer on the wall," cr +." one hundred and eighty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighty Bottles of Beer on the wall." cr +." Oh, one hundred and eighty Bottles of Beer on the wall," cr +." one hundred and eighty Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy-nine Bottles of Beer on the wall." cr +." Oh, one hundred and seventy-nine Bottles of Beer on the wall," cr +." one hundred and seventy-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy-eight Bottles of Beer on the wall." cr +." Oh, one hundred and seventy-eight Bottles of Beer on the wall," cr +." one hundred and seventy-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy-seven Bottles of Beer on the wall." cr +." Oh, one hundred and seventy-seven Bottles of Beer on the wall," cr +." one hundred and seventy-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy-six Bottles of Beer on the wall." cr +." Oh, one hundred and seventy-six Bottles of Beer on the wall," cr +." one hundred and seventy-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy-five Bottles of Beer on the wall." cr +." Oh, one hundred and seventy-five Bottles of Beer on the wall," cr +." one hundred and seventy-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy-four Bottles of Beer on the wall." cr +." Oh, one hundred and seventy-four Bottles of Beer on the wall," cr +." one hundred and seventy-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy-three Bottles of Beer on the wall." cr +." Oh, one hundred and seventy-three Bottles of Beer on the wall," cr +." one hundred and seventy-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy-two Bottles of Beer on the wall." cr +." Oh, one hundred and seventy-two Bottles of Beer on the wall," cr +." one hundred and seventy-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy-one Bottles of Beer on the wall." cr +." Oh, one hundred and seventy-one Bottles of Beer on the wall," cr +." one hundred and seventy-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventy Bottles of Beer on the wall." cr +." Oh, one hundred and seventy Bottles of Beer on the wall," cr +." one hundred and seventy Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty-nine Bottles of Beer on the wall." cr +." Oh, one hundred and sixty-nine Bottles of Beer on the wall," cr +." one hundred and sixty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty-eight Bottles of Beer on the wall." cr +." Oh, one hundred and sixty-eight Bottles of Beer on the wall," cr +." one hundred and sixty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty-seven Bottles of Beer on the wall." cr +." Oh, one hundred and sixty-seven Bottles of Beer on the wall," cr +." one hundred and sixty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty-six Bottles of Beer on the wall." cr +." Oh, one hundred and sixty-six Bottles of Beer on the wall," cr +." one hundred and sixty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty-five Bottles of Beer on the wall." cr +." Oh, one hundred and sixty-five Bottles of Beer on the wall," cr +." one hundred and sixty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty-four Bottles of Beer on the wall." cr +." Oh, one hundred and sixty-four Bottles of Beer on the wall," cr +." one hundred and sixty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty-three Bottles of Beer on the wall." cr +." Oh, one hundred and sixty-three Bottles of Beer on the wall," cr +." one hundred and sixty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty-two Bottles of Beer on the wall." cr +." Oh, one hundred and sixty-two Bottles of Beer on the wall," cr +." one hundred and sixty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty-one Bottles of Beer on the wall." cr +." Oh, one hundred and sixty-one Bottles of Beer on the wall," cr +." one hundred and sixty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixty Bottles of Beer on the wall." cr +." Oh, one hundred and sixty Bottles of Beer on the wall," cr +." one hundred and sixty Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty-nine Bottles of Beer on the wall." cr +." Oh, one hundred and fifty-nine Bottles of Beer on the wall," cr +." one hundred and fifty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty-eight Bottles of Beer on the wall." cr +." Oh, one hundred and fifty-eight Bottles of Beer on the wall," cr +." one hundred and fifty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty-seven Bottles of Beer on the wall." cr +." Oh, one hundred and fifty-seven Bottles of Beer on the wall," cr +." one hundred and fifty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty-six Bottles of Beer on the wall." cr +." Oh, one hundred and fifty-six Bottles of Beer on the wall," cr +." one hundred and fifty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty-five Bottles of Beer on the wall." cr +." Oh, one hundred and fifty-five Bottles of Beer on the wall," cr +." one hundred and fifty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty-four Bottles of Beer on the wall." cr +." Oh, one hundred and fifty-four Bottles of Beer on the wall," cr +." one hundred and fifty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty-three Bottles of Beer on the wall." cr +." Oh, one hundred and fifty-three Bottles of Beer on the wall," cr +." one hundred and fifty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty-two Bottles of Beer on the wall." cr +." Oh, one hundred and fifty-two Bottles of Beer on the wall," cr +." one hundred and fifty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty-one Bottles of Beer on the wall." cr +." Oh, one hundred and fifty-one Bottles of Beer on the wall," cr +." one hundred and fifty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifty Bottles of Beer on the wall." cr +." Oh, one hundred and fifty Bottles of Beer on the wall," cr +." one hundred and fifty Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty-nine Bottles of Beer on the wall." cr +." Oh, one hundred and forty-nine Bottles of Beer on the wall," cr +." one hundred and forty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty-eight Bottles of Beer on the wall." cr +." Oh, one hundred and forty-eight Bottles of Beer on the wall," cr +." one hundred and forty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty-seven Bottles of Beer on the wall." cr +." Oh, one hundred and forty-seven Bottles of Beer on the wall," cr +." one hundred and forty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty-six Bottles of Beer on the wall." cr +." Oh, one hundred and forty-six Bottles of Beer on the wall," cr +." one hundred and forty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty-five Bottles of Beer on the wall." cr +." Oh, one hundred and forty-five Bottles of Beer on the wall," cr +." one hundred and forty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty-four Bottles of Beer on the wall." cr +." Oh, one hundred and forty-four Bottles of Beer on the wall," cr +." one hundred and forty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty-three Bottles of Beer on the wall." cr +." Oh, one hundred and forty-three Bottles of Beer on the wall," cr +." one hundred and forty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty-two Bottles of Beer on the wall." cr +." Oh, one hundred and forty-two Bottles of Beer on the wall," cr +." one hundred and forty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty-one Bottles of Beer on the wall." cr +." Oh, one hundred and forty-one Bottles of Beer on the wall," cr +." one hundred and forty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and forty Bottles of Beer on the wall." cr +." Oh, one hundred and forty Bottles of Beer on the wall," cr +." one hundred and forty Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty-nine Bottles of Beer on the wall." cr +." Oh, one hundred and thirty-nine Bottles of Beer on the wall," cr +." one hundred and thirty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty-eight Bottles of Beer on the wall." cr +." Oh, one hundred and thirty-eight Bottles of Beer on the wall," cr +." one hundred and thirty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty-seven Bottles of Beer on the wall." cr +." Oh, one hundred and thirty-seven Bottles of Beer on the wall," cr +." one hundred and thirty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty-six Bottles of Beer on the wall." cr +." Oh, one hundred and thirty-six Bottles of Beer on the wall," cr +." one hundred and thirty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty-five Bottles of Beer on the wall." cr +." Oh, one hundred and thirty-five Bottles of Beer on the wall," cr +." one hundred and thirty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty-four Bottles of Beer on the wall." cr +." Oh, one hundred and thirty-four Bottles of Beer on the wall," cr +." one hundred and thirty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty-three Bottles of Beer on the wall." cr +." Oh, one hundred and thirty-three Bottles of Beer on the wall," cr +." one hundred and thirty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty-two Bottles of Beer on the wall." cr +." Oh, one hundred and thirty-two Bottles of Beer on the wall," cr +." one hundred and thirty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty-one Bottles of Beer on the wall." cr +." Oh, one hundred and thirty-one Bottles of Beer on the wall," cr +." one hundred and thirty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirty Bottles of Beer on the wall." cr +." Oh, one hundred and thirty Bottles of Beer on the wall," cr +." one hundred and thirty Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty-nine Bottles of Beer on the wall." cr +." Oh, one hundred and twenty-nine Bottles of Beer on the wall," cr +." one hundred and twenty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty-eight Bottles of Beer on the wall." cr +." Oh, one hundred and twenty-eight Bottles of Beer on the wall," cr +." one hundred and twenty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty-seven Bottles of Beer on the wall." cr +." Oh, one hundred and twenty-seven Bottles of Beer on the wall," cr +." one hundred and twenty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty-six Bottles of Beer on the wall." cr +." Oh, one hundred and twenty-six Bottles of Beer on the wall," cr +." one hundred and twenty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty-five Bottles of Beer on the wall." cr +." Oh, one hundred and twenty-five Bottles of Beer on the wall," cr +." one hundred and twenty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty-four Bottles of Beer on the wall." cr +." Oh, one hundred and twenty-four Bottles of Beer on the wall," cr +." one hundred and twenty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty-three Bottles of Beer on the wall." cr +." Oh, one hundred and twenty-three Bottles of Beer on the wall," cr +." one hundred and twenty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty-two Bottles of Beer on the wall." cr +." Oh, one hundred and twenty-two Bottles of Beer on the wall," cr +." one hundred and twenty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty-one Bottles of Beer on the wall." cr +." Oh, one hundred and twenty-one Bottles of Beer on the wall," cr +." one hundred and twenty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twenty Bottles of Beer on the wall." cr +." Oh, one hundred and twenty Bottles of Beer on the wall," cr +." one hundred and twenty Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and nineteen Bottles of Beer on the wall." cr +." Oh, one hundred and nineteen Bottles of Beer on the wall," cr +." one hundred and nineteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eighteen Bottles of Beer on the wall." cr +." Oh, one hundred and eighteen Bottles of Beer on the wall," cr +." one hundred and eighteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seventeen Bottles of Beer on the wall." cr +." Oh, one hundred and seventeen Bottles of Beer on the wall," cr +." one hundred and seventeen Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and sixteen Bottles of Beer on the wall." cr +." Oh, one hundred and sixteen Bottles of Beer on the wall," cr +." one hundred and sixteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fifteen Bottles of Beer on the wall." cr +." Oh, one hundred and fifteen Bottles of Beer on the wall," cr +." one hundred and fifteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and fourteen Bottles of Beer on the wall." cr +." Oh, one hundred and fourteen Bottles of Beer on the wall," cr +." one hundred and fourteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and thirteen Bottles of Beer on the wall." cr +." Oh, one hundred and thirteen Bottles of Beer on the wall," cr +." one hundred and thirteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and twelve Bottles of Beer on the wall." cr +." Oh, one hundred and twelve Bottles of Beer on the wall," cr +." one hundred and twelve Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eleven Bottles of Beer on the wall." cr +." Oh, one hundred and eleven Bottles of Beer on the wall," cr +." one hundred and eleven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and ten Bottles of Beer on the wall." cr +." Oh, one hundred and ten Bottles of Beer on the wall," cr +." one hundred and ten Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and nine Bottles of Beer on the wall." cr +." Oh, one hundred and nine Bottles of Beer on the wall," cr +." one hundred and nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and eight Bottles of Beer on the wall." cr +." Oh, one hundred and eight Bottles of Beer on the wall," cr +." one hundred and eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and seven Bottles of Beer on the wall." cr +." Oh, one hundred and seven Bottles of Beer on the wall," cr +." one hundred and seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and six Bottles of Beer on the wall." cr +." Oh, one hundred and six Bottles of Beer on the wall," cr +." one hundred and six Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and five Bottles of Beer on the wall." cr +." Oh, one hundred and five Bottles of Beer on the wall," cr +." one hundred and five Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and four Bottles of Beer on the wall." cr +." Oh, one hundred and four Bottles of Beer on the wall," cr +." one hundred and four Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and three Bottles of Beer on the wall." cr +." Oh, one hundred and three Bottles of Beer on the wall," cr +." one hundred and three Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and two Bottles of Beer on the wall." cr +." Oh, one hundred and two Bottles of Beer on the wall," cr +." one hundred and two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred and one Bottles of Beer on the wall." cr +." Oh, one hundred and one Bottles of Beer on the wall," cr +." one hundred and one Bottles of Beer!," cr +." Take one down and pass it around," cr +." one hundred Bottles of Beer on the wall." cr +." Oh, one hundred Bottles of Beer on the wall," cr +." one hundred Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety-nine Bottles of Beer on the wall." cr +." Oh, ninety-nine Bottles of Beer on the wall," cr +." ninety-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety-eight Bottles of Beer on the wall." cr +." Oh, ninety-eight Bottles of Beer on the wall," cr +." ninety-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety-seven Bottles of Beer on the wall." cr +." Oh, ninety-seven Bottles of Beer on the wall," cr +." ninety-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety-six Bottles of Beer on the wall." cr +." Oh, ninety-six Bottles of Beer on the wall," cr +." ninety-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety-five Bottles of Beer on the wall." cr +." Oh, ninety-five Bottles of Beer on the wall," cr +." ninety-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety-four Bottles of Beer on the wall." cr +." Oh, ninety-four Bottles of Beer on the wall," cr +." ninety-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety-three Bottles of Beer on the wall." cr +." Oh, ninety-three Bottles of Beer on the wall," cr +." ninety-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety-two Bottles of Beer on the wall." cr +." Oh, ninety-two Bottles of Beer on the wall," cr +." ninety-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety-one Bottles of Beer on the wall." cr +." Oh, ninety-one Bottles of Beer on the wall," cr +." ninety-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." ninety Bottles of Beer on the wall." cr +." Oh, ninety Bottles of Beer on the wall," cr +." ninety Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty-nine Bottles of Beer on the wall." cr +." Oh, eighty-nine Bottles of Beer on the wall," cr +." eighty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty-eight Bottles of Beer on the wall." cr +." Oh, eighty-eight Bottles of Beer on the wall," cr +." eighty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty-seven Bottles of Beer on the wall." cr +." Oh, eighty-seven Bottles of Beer on the wall," cr +." eighty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty-six Bottles of Beer on the wall." cr +." Oh, eighty-six Bottles of Beer on the wall," cr +." eighty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty-five Bottles of Beer on the wall." cr +." Oh, eighty-five Bottles of Beer on the wall," cr +." eighty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty-four Bottles of Beer on the wall." cr +." Oh, eighty-four Bottles of Beer on the wall," cr +." eighty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty-three Bottles of Beer on the wall." cr +." Oh, eighty-three Bottles of Beer on the wall," cr +." eighty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty-two Bottles of Beer on the wall." cr +." Oh, eighty-two Bottles of Beer on the wall," cr +." eighty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty-one Bottles of Beer on the wall." cr +." Oh, eighty-one Bottles of Beer on the wall," cr +." eighty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighty Bottles of Beer on the wall." cr +." Oh, eighty Bottles of Beer on the wall," cr +." eighty Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy-nine Bottles of Beer on the wall." cr +." Oh, seventy-nine Bottles of Beer on the wall," cr +." seventy-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy-eight Bottles of Beer on the wall." cr +." Oh, seventy-eight Bottles of Beer on the wall," cr +." seventy-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy-seven Bottles of Beer on the wall." cr +." Oh, seventy-seven Bottles of Beer on the wall," cr +." seventy-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy-six Bottles of Beer on the wall." cr +." Oh, seventy-six Bottles of Beer on the wall," cr +." seventy-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy-five Bottles of Beer on the wall." cr +." Oh, seventy-five Bottles of Beer on the wall," cr +." seventy-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy-four Bottles of Beer on the wall." cr +." Oh, seventy-four Bottles of Beer on the wall," cr +." seventy-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy-three Bottles of Beer on the wall." cr +." Oh, seventy-three Bottles of Beer on the wall," cr +." seventy-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy-two Bottles of Beer on the wall." cr +." Oh, seventy-two Bottles of Beer on the wall," cr +." seventy-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy-one Bottles of Beer on the wall." cr +." Oh, seventy-one Bottles of Beer on the wall," cr +." seventy-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventy Bottles of Beer on the wall." cr +." Oh, seventy Bottles of Beer on the wall," cr +." seventy Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty-nine Bottles of Beer on the wall." cr +." Oh, sixty-nine Bottles of Beer on the wall," cr +." sixty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty-eight Bottles of Beer on the wall." cr +." Oh, sixty-eight Bottles of Beer on the wall," cr +." sixty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty-seven Bottles of Beer on the wall." cr +." Oh, sixty-seven Bottles of Beer on the wall," cr +." sixty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty-six Bottles of Beer on the wall." cr +." Oh, sixty-six Bottles of Beer on the wall," cr +." sixty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty-five Bottles of Beer on the wall." cr +." Oh, sixty-five Bottles of Beer on the wall," cr +." sixty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty-four Bottles of Beer on the wall." cr +." Oh, sixty-four Bottles of Beer on the wall," cr +." sixty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty-three Bottles of Beer on the wall." cr +." Oh, sixty-three Bottles of Beer on the wall," cr +." sixty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty-two Bottles of Beer on the wall." cr +." Oh, sixty-two Bottles of Beer on the wall," cr +." sixty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty-one Bottles of Beer on the wall." cr +." Oh, sixty-one Bottles of Beer on the wall," cr +." sixty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixty Bottles of Beer on the wall." cr +." Oh, sixty Bottles of Beer on the wall," cr +." sixty Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty-nine Bottles of Beer on the wall." cr +." Oh, fifty-nine Bottles of Beer on the wall," cr +." fifty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty-eight Bottles of Beer on the wall." cr +." Oh, fifty-eight Bottles of Beer on the wall," cr +." fifty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty-seven Bottles of Beer on the wall." cr +." Oh, fifty-seven Bottles of Beer on the wall," cr +." fifty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty-six Bottles of Beer on the wall." cr +." Oh, fifty-six Bottles of Beer on the wall," cr +." fifty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty-five Bottles of Beer on the wall." cr +." Oh, fifty-five Bottles of Beer on the wall," cr +." fifty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty-four Bottles of Beer on the wall." cr +." Oh, fifty-four Bottles of Beer on the wall," cr +." fifty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty-three Bottles of Beer on the wall." cr +." Oh, fifty-three Bottles of Beer on the wall," cr +." fifty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty-two Bottles of Beer on the wall." cr +." Oh, fifty-two Bottles of Beer on the wall," cr +." fifty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty-one Bottles of Beer on the wall." cr +." Oh, fifty-one Bottles of Beer on the wall," cr +." fifty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifty Bottles of Beer on the wall." cr +." Oh, fifty Bottles of Beer on the wall," cr +." fifty Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty-nine Bottles of Beer on the wall." cr +." Oh, forty-nine Bottles of Beer on the wall," cr +." forty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty-eight Bottles of Beer on the wall." cr +." Oh, forty-eight Bottles of Beer on the wall," cr +." forty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty-seven Bottles of Beer on the wall." cr +." Oh, forty-seven Bottles of Beer on the wall," cr +." forty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty-six Bottles of Beer on the wall." cr +." Oh, forty-six Bottles of Beer on the wall," cr +." forty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty-five Bottles of Beer on the wall." cr +." Oh, forty-five Bottles of Beer on the wall," cr +." forty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty-four Bottles of Beer on the wall." cr +." Oh, forty-four Bottles of Beer on the wall," cr +." forty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty-three Bottles of Beer on the wall." cr +." Oh, forty-three Bottles of Beer on the wall," cr +." forty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty-two Bottles of Beer on the wall." cr +." Oh, forty-two Bottles of Beer on the wall," cr +." forty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty-one Bottles of Beer on the wall." cr +." Oh, forty-one Bottles of Beer on the wall," cr +." forty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." forty Bottles of Beer on the wall." cr +." Oh, forty Bottles of Beer on the wall," cr +." forty Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty-nine Bottles of Beer on the wall." cr +." Oh, thirty-nine Bottles of Beer on the wall," cr +." thirty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty-eight Bottles of Beer on the wall." cr +." Oh, thirty-eight Bottles of Beer on the wall," cr +." thirty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty-seven Bottles of Beer on the wall." cr +." Oh, thirty-seven Bottles of Beer on the wall," cr +." thirty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty-six Bottles of Beer on the wall." cr +." Oh, thirty-six Bottles of Beer on the wall," cr +." thirty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty-five Bottles of Beer on the wall." cr +." Oh, thirty-five Bottles of Beer on the wall," cr +." thirty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty-four Bottles of Beer on the wall." cr +." Oh, thirty-four Bottles of Beer on the wall," cr +." thirty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty-three Bottles of Beer on the wall." cr +." Oh, thirty-three Bottles of Beer on the wall," cr +." thirty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty-two Bottles of Beer on the wall." cr +." Oh, thirty-two Bottles of Beer on the wall," cr +." thirty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty-one Bottles of Beer on the wall." cr +." Oh, thirty-one Bottles of Beer on the wall," cr +." thirty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirty Bottles of Beer on the wall." cr +." Oh, thirty Bottles of Beer on the wall," cr +." thirty Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty-nine Bottles of Beer on the wall." cr +." Oh, twenty-nine Bottles of Beer on the wall," cr +." twenty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty-eight Bottles of Beer on the wall." cr +." Oh, twenty-eight Bottles of Beer on the wall," cr +." twenty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty-seven Bottles of Beer on the wall." cr +." Oh, twenty-seven Bottles of Beer on the wall," cr +." twenty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty-six Bottles of Beer on the wall." cr +." Oh, twenty-six Bottles of Beer on the wall," cr +." twenty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty-five Bottles of Beer on the wall." cr +." Oh, twenty-five Bottles of Beer on the wall," cr +." twenty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty-four Bottles of Beer on the wall." cr +." Oh, twenty-four Bottles of Beer on the wall," cr +." twenty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty-three Bottles of Beer on the wall." cr +." Oh, twenty-three Bottles of Beer on the wall," cr +." twenty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty-two Bottles of Beer on the wall." cr +." Oh, twenty-two Bottles of Beer on the wall," cr +." twenty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty-one Bottles of Beer on the wall." cr +." Oh, twenty-one Bottles of Beer on the wall," cr +." twenty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." twenty Bottles of Beer on the wall." cr +." Oh, twenty Bottles of Beer on the wall," cr +." twenty Bottles of Beer!," cr +." Take one down and pass it around," cr +." nineteen Bottles of Beer on the wall." cr +." Oh, nineteen Bottles of Beer on the wall," cr +." nineteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." eighteen Bottles of Beer on the wall." cr +." Oh, eighteen Bottles of Beer on the wall," cr +." eighteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." seventeen Bottles of Beer on the wall." cr +." Oh, seventeen Bottles of Beer on the wall," cr +." seventeen Bottles of Beer!," cr +." Take one down and pass it around," cr +." sixteen Bottles of Beer on the wall." cr +." Oh, sixteen Bottles of Beer on the wall," cr +." sixteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." fifteen Bottles of Beer on the wall." cr +." Oh, fifteen Bottles of Beer on the wall," cr +." fifteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." fourteen Bottles of Beer on the wall." cr +." Oh, fourteen Bottles of Beer on the wall," cr +." fourteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." thirteen Bottles of Beer on the wall." cr +." Oh, thirteen Bottles of Beer on the wall," cr +." thirteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." twelve Bottles of Beer on the wall." cr +." Oh, twelve Bottles of Beer on the wall," cr +." twelve Bottles of Beer!," cr +." Take one down and pass it around," cr +." eleven Bottles of Beer on the wall." cr +." Oh, eleven Bottles of Beer on the wall," cr +." eleven Bottles of Beer!," cr +." Take one down and pass it around," cr +." ten Bottles of Beer on the wall." cr +." Oh, ten Bottles of Beer on the wall," cr +." ten Bottles of Beer!," cr +." Take one down and pass it around," cr +." nine Bottles of Beer on the wall." cr +." Oh, nine Bottles of Beer on the wall," cr +." nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." eight Bottles of Beer on the wall." cr +." Oh, eight Bottles of Beer on the wall," cr +." eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." seven Bottles of Beer on the wall." cr +." Oh, seven Bottles of Beer on the wall," cr +." seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." six Bottles of Beer on the wall." cr +." Oh, six Bottles of Beer on the wall," cr +." six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five Bottles of Beer on the wall." cr +." Oh, five Bottles of Beer on the wall," cr +." five Bottles of Beer!," cr +." Take one down and pass it around," cr +." four Bottles of Beer on the wall." cr +." Oh, four Bottles of Beer on the wall," cr +." four Bottles of Beer!," cr +." Take one down and pass it around," cr +." three Bottles of Beer on the wall." cr +." Oh, three Bottles of Beer on the wall," cr +." three Bottles of Beer!," cr +." Take one down and pass it around," cr +." two Bottles of Beer on the wall." cr +." Oh, two Bottles of Beer on the wall," cr +." two Bottles of Beer!," cr +." Take one down and pass it around," cr +." one Bottle of Beer on the wall." cr +." Oh, one Bottle of Beer on the wall," cr +." one Bottle of Beer!," cr +." Take it down and pass it around..." cr +." How dry I am! How dry I am!" cr +." No body knows how dry I am." cr +." How ... Dry I ... Aaaammm." cr Added: fcode-utils/testsuite/TokMisc/BasicCont.fth =================================================================== --- fcode-utils/testsuite/TokMisc/BasicCont.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/BasicCont.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,48 @@ +\ Test Basic Control Constructs +\ Updated Mon, 02 May 2005 at 15:39 by David L. Paktor + + +fcode-version2 + +headers + +: mishka + ." begin" begin + ." -1 if" -1 if + exit + ." else" else 0 drop + ." then" then + ." again" again + ." Donshka vith Mishka" +; + +: moose + ." begin" begin + ." 0 while" 0 while + ." repeat" repeat + ." Done Vith Moose." +; + +: minski + ." 1 0 do" 1 0 do + ." i drop" i drop + ." Please leave" leave + ." loop" loop + ." Donesky vith Minski" +; + +: goofsky + ." 0 case" 0 case + ." 1 of" + 1 of ." 1 endof" 1 endof + ." 2 of" + 2 of ." 2 endof" 2 endof + ." 3 of" + 3 of ." 3 endof" 3 endof + ." default 0" 0 + ." endcase" + endcase + ." Donesky vith goofsky." +; + +fcode-end Added: fcode-utils/testsuite/TokMisc/BatchTst.fth =================================================================== Added: fcode-utils/testsuite/TokMisc/BranchOverNewBuffer.fth =================================================================== --- fcode-utils/testsuite/TokMisc/BranchOverNewBuffer.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/BranchOverNewBuffer.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,33 @@ +\ Test case: a normal-size branch that takes place across the point +\ where the output buffer was expanded. +\ We will use a body generated by the "Verbal Bottles of Beer" script +\ To just almost but not quite fill up the buffer. +\ A parameter of 645 does it + +fcode-version2 \ Sixteen-bit offsets. + +headers + +\ Try various tricks to force an allocation of the space +\ just above the output buffer so that the realloc of +\ the output buffer will be forced into a new space +f[ + fload LotsOfAliases.fth + f] + +: a-lot-of-beer + ." We're about a third of the way into a school-bus trip" cr + ." that started with a thousand bottles." cr + +fload Almost_a_Buffer_of_Beer.fth + + 0 if + +fload No_Beer.fth + + then + ." It's so over." +; + +fcode-end + Added: fcode-utils/testsuite/TokMisc/CaseTkns.fth =================================================================== --- fcode-utils/testsuite/TokMisc/CaseTkns.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/CaseTkns.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,36 @@ +\ Test the new Upper-Case-Token-Names and Lower-Case-Token-Names flags +\ Updated Tue, 27 Jun 2006 at 11:32 PDT by David L. Paktor + +hex headers + +fcode-version2 + +123 constant MiXeD-uP-CaSes-natch + +#flag Lower-Case-Token-Names + +456 constant MiXeD-uP-TO-LoWeR-Case +." But This sTrInG KeePS ItS MIxeD CaSEs." + +#flag Upper-Case-Token-Names + +789 constant Up-mIxEd-tO-uPPer-cASe +." THis StRiNG KeEpS ItS MiXeD CaSeS tOO." + +headerless +defeca8e constant NoShiT,sHerLocK! +headers + +#flag Lower-Case-Token-Names + +0abc constant mIXeD-BaCk-To-Lower-CAsE + +#flag noUpper-Case-Token-Names + +0def constant mIxEd-BuT-StIlL-To-Lower + +#flag noLower-Case-Token-Names + +0fed constant BaCk-To-tHe-MiX + +fcode-end Added: fcode-utils/testsuite/TokMisc/ContErr1.fth =================================================================== --- fcode-utils/testsuite/TokMisc/ContErr1.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/ContErr1.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,50 @@ +\ Another test of cunningly contrived Erroneous Control Constructs. +\ This one doesn't pass the "Old" tokenizer, even though +\ it doesn't have the check for Control-Structure matching, +\ because the way it does its case .. of .. endof ... endcase +\ is completely incompatible with the way it does its if ... then +\ + +\ Updated Wed, 04 May 2005 at 16:26 by David L. Paktor + +fcode-version2 + +headers + + +\ We can't fake this to the "Old" tokenizer, because +\ it does its case .. of .. endof ... endcase +\ in a way that's completely incompatible with +\ the way it does its if ... then +\ So just test this with the "New". + +: garfield + ." if" if + ." begin" begin + ." Question-Leave?" ?leave + ." 0 if unloop exit then" 0 if unloop exit then + ." Would you be leave..." leave + ." loop?" loop + ." Done with garfield" +; + +: jon + ." begin" begin + ." if" if + ." endof" endof + ." again" again + ." then" then + ." ouch" +; + +: nermal + ." begin noop" begin noop + ." if" if + ." endof" endof + ." loop" loop +; + +: liz-the-vet + ." No concluding semicolon" + +fcode-end Added: fcode-utils/testsuite/TokMisc/ContErr2.fth =================================================================== --- fcode-utils/testsuite/TokMisc/ContErr2.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/ContErr2.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,74 @@ +\ Another test of Erroneous Control Constructs. +\ Contrived to completely crash the tokenizer... + +\ Updated Wed, 03 Aug 2005 at 09:49 by David L. Paktor + + +fcode-version2 + +headers + +\ Seven dwarves: +\ Happy Grumpy Sleepy Sneezy Dopey Bashful and Doc +\ Their disfavored cousins: +\ Crappy Dumpy Sneaky Sleazy Gropey Trashful and Schlock +: crapsky + ." 0 case" 0 case + ." 1 of" + 1 of ." 1 endof" 1 endof + ." 2 of" + 2 of ." 2 endof" 2 endof + ." 3 of" + 3 of ." 3 endof" 3 endof + ." default 0" 0 + ." resolve case w/ then" then + ." resolve 3 endof w/ then" then + ." resolve 2 endof w/ then" then + ." resolve 1 endof w/ then" then + ." Donesky vith crapsky." +; + +: dumpsky + ." 0 if" 0 if + ." free-floating endcase" + endcase ." And no then" +; + +: sneaksky + ." Free-floating else" else + ." And notsnik aftervards." +; + + + : gropsky + ." A typo. 0 of not 0 if" + 0 of + ." Misbalanced by a then?" + then + ." Goobar... Guwno?" + ; + +: trashsky + ." Another typo..." + ." 0 case " 0 case + ." 10 if not 10 of" + 10 if + ." Misbalanced by endof." + endof + ." Not my default." + endcase + ." That was an endcase just in case" +; + +: schlocksky + ." Like trashsky but without final balancer..." + ." Another typo..." + ." 0 case " 0 case + ." 10 if not 10 of" + 10 if + ." Misbalanced by endof." + endof + ." No endcase here" +; + +fcode-end Added: fcode-utils/testsuite/TokMisc/ContErr3.fth =================================================================== --- fcode-utils/testsuite/TokMisc/ContErr3.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/ContErr3.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,144 @@ +\ An even more severe test of Erroneous Control Constructs. + +\ Updated Fri, 28 Jul 2006 at 14:28 PDT by David L. Paktor + +fcode-version2 + +headers + +\ Seven dwarves: +\ Happy Grumpy Sleepy Sneezy Dopey Bashful and Doc +\ Their disfavored cousins: +\ Crappy Dumpy Sneaky Sleazy Gropey Trashful and Schlock +: crapsky + ." 0 case" 0 case + ." 1 of" + 1 of ." 1 endof" 1 endof + ." 2 of" + 2 of ." 2 endof" 2 endof + ." 3 of" + 3 of ." 3 endof" 3 endof + ." default 0" 0 + ." resolve case w/ then" then + ." resolve 3 endof w/ then" then + ." resolve 2 endof w/ then" then + ." resolve 1 endof w/ then" then + ." Donesky vith crapsky." +; + +: dumpsky + ." 0 if" 0 if + ." free-floating endcase" + endcase ." And no then" +; + +: sneaksky + ." Free-floating else" else + ." And notsnik aftervards." +; + + ." While by itself, outside of def'n" + while + + : gropsky + ." A typo. 0 of not 0 if" + 0 of + ." Misbalanced by a then?" + then + ." Goobar... Guwno?" + ; + +: trashsky + ." Another typo..." + ." 0 case " 0 case + ." 10 if not 10 of" + 10 if + ." Misbalanced by endof." + endof + ." Not my default." + endcase + ." That was an endcase just in case" +; + +: schlocksky + ." Like trashsky but without final balancer..." + ." Another typo..." + ." 0 case " 0 case + ." 10 if not 10 of" + 10 if + ." Misbalanced by endof." + endof + ." No endcase here" +; + +." We need to be able to detect Leave out of context." +." Let's see if this can fool it..." +." 1 0 DO" 1 0 do + +: stinsky + ." if leave then " + if + leave + then +; + +." 1 begin" 1 begin +." 1 - ?dup while" 1 - ?dup while +." What the hey? Loop ?" loop + + +." 1 begin" 1 begin +." 1 - ?dup while" 1 - ?dup while +." again then ought to match..." +again +then + +." How about IF BEGIN without WHILE then REPEAT..." +." 0 if" 0 if +begin +." There's an IF ; where's the WHILE?" #message" There's an IF ; where's the WHILE?" +repeat +." That compiles..." #message" Won't be easy to catch." + +." How about BEGIN without WHILE then REPEAT..." +." begin" begin #message" BEGIN without WHILE then REPEAT..." +." Where's the while?" #message" Where's the while?" +repeat + + +." repeat without precedent..." repeat + +." loop without precedent" loop + +." 1 0 DO" 1 0 do +." What???" +." repeat..." repeat + +#message" Definitions within a loop" ." ...within a loop" + +: test_something ( indx -- targ true | false ) + ." Stub" 2 = dup if h# 1923 swap then +; +4 0 do + i test_something if + ( targ ) value targ ( klingon-pet ) + : funny_stuff + 1 0 do targ u. + #message" Error here..." j + #message" But not here" 1 0 do j . loop + loop test_something + ; + + then +loop + +#message" Same line as a loop" ." ...Same line as a loop" + +4 0 do i test_something if to targ : runny_stuff begin + 1 0 do targ u. #message" Error here, too..." j + #message" But not here either" 1 0 do j . loop + loop true #message" Missing an until" +; +then loop + +fcode-end Added: fcode-utils/testsuite/TokMisc/EncodTst.fth =================================================================== --- fcode-utils/testsuite/TokMisc/EncodTst.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/EncodTst.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,17 @@ +\ Test and confirm behavior of encode-file and embedded end0 + +\ Updated Mon, 27 Jun 2005 at 16:35 by David L. Paktor + + +fcode-version2 + +headers + +encode-file EncodeSrc + + +: whatnot + if ['] end0 execute then +; + +fcode-end Added: fcode-utils/testsuite/TokMisc/EncodeSrc =================================================================== --- fcode-utils/testsuite/TokMisc/EncodeSrc (rev 0) +++ fcode-utils/testsuite/TokMisc/EncodeSrc 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,6 @@ +This is the symphony that Schubert wrote and never finished +This is the symphony that Schubert wrote and never ... +Alma, tell us, all modern women are jealous. +Which of your magical wands got you Gustav and Walter and Franz? +Away out here they got a name for rain and wind and fire. +The rain is Tess, the fire's Joe and they call the wind Mariah. Added: fcode-utils/testsuite/TokMisc/ExamAllMacs.scr =================================================================== --- fcode-utils/testsuite/TokMisc/ExamAllMacs.scr (rev 0) +++ fcode-utils/testsuite/TokMisc/ExamAllMacs.scr 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,51 @@ +#! /bin/csh -f +# +# Examine the results of the AllMacros detokenization. +# All but the last items are in pairs... + +set ExamFil = AllMacros.DeTok +if ( ! -f $ExamFil ) then + echo Missing Examination-target file -- $ExamFil + exit 237 +endif + +# Get the line number that starts the simple pairs, +# identified by a text message. +set firstlin = `grep -n 'Start of simple pairs' $ExamFil | awk -F: '{print $1+1}'` +set lastlin = `grep -n 'End of simple pairs' $ExamFil | awk -F: '{print $1}'` + + +# Get the line numbers of the final phrase-item pair, +# identified by a text message. +set lastphrase = `grep -n 'Last phrase-item' $ExamFil | awk -F: '{print $1+1}'` + +# We'll need a pair o temp-files +# First, repository for one of each pair of lines +set reposfil = /tmp/$0:t.1.$$ +# Second, accumulation of differences +set accumfil = /tmp/$0:t.2.$$ + +# Set up to compare two by two. +# Start with the final phrase-item pair +set flin = $lastphrase[1] +set slin = $lastphrase[2] +set linnum = $firstlin +while ( $linnum < $lastlin ) + sed -n ${flin}p $ExamFil | sed -e 'sX^ *[0-9]*: XX' > ${reposfil} + sed -n ${slin}p $ExamFil | sed -e 'sX^ *[0-9]*: XX' | diff - ${reposfil} | tee -a ${accumfil} + + set flin = $linnum + @ linnum++ + set slin = $linnum + @ linnum++ +end + +if ( ! -z ${accumfil} ) then + cp -p ${accumfil} ./$0.Results.$$ + echo Errors seen in $ExamFil. See ./$0.Results.$$ for diffs +endif + +rm -f ${reposfil} ${accumfil} + + + Property changes on: fcode-utils/testsuite/TokMisc/ExamAllMacs.scr ___________________________________________________________________ Name: svn:executable + * Added: fcode-utils/testsuite/TokMisc/ExtCont.fth =================================================================== --- fcode-utils/testsuite/TokMisc/ExtCont.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/ExtCont.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,32 @@ +\ Test extended-control constructs + +\ Updated Tue, 03 May 2005 at 12:40 by David L. Paktor + +fcode-version2 + +headers + +\ First, something ordinary +: goose + ." begin" begin + ." 4 until" 4 until + ." Done with goose" + ; + : caboose + ." begin" begin + ." 5 while" 5 while + ." repeat" repeat + ." Done with caboose" +; + +: fusbat + ." begin" begin + ." 1 while" 1 while + ." 2 while" 2 while + ." 3 until" 3 until + ." 2 then" then ( 2 ) + ." 1 then" then ( 1 ) + ." Done with fusbat" +; + +fcode-end Added: fcode-utils/testsuite/TokMisc/FlagSet.fth =================================================================== --- fcode-utils/testsuite/TokMisc/FlagSet.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/FlagSet.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,34 @@ +\ Special-Feature Flags test + +\ Updated Mon, 08 Aug 2005 at 18:22 by David L. Paktor + +#flag help +#flag nohelp + +#flag Local-Values +#flag noLocal-Values +#flag LV-Legacy-Separator +#flag noLV-Legacy-Separator +#flag LV-Legacy-Message +#flag noLV-Legacy-Message +#flag ABORT-Quote +#flag noABORT-Quote +#flag Sun-ABORT-Quote +#flag noSun-ABORT-Quote +#flag String-remark-escape +#flag noString-remark-escape +#flag Hex-remark-escape +#flag noHex-remark-escape +#flag C-Style-string-escape +#flag noC-Style-string-escape +#flag Always-Headers +#flag NoAlways-Headers +#flag Always-External +#flag NoAlways-External +#flag Warn-if-Duplicate +#flag noWarn-if-Duplicate + +#flags + +#flag MoreGimmeMore! +#flag noMorePleaseNoMore! Added: fcode-utils/testsuite/TokMisc/FlagsHelp.fth =================================================================== --- fcode-utils/testsuite/TokMisc/FlagsHelp.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/FlagsHelp.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,3 @@ +\ Empty file to test various cammand-line options relating to Flags Help +\ +[message] Nothing to be done. Added: fcode-utils/testsuite/TokMisc/FlgReset.fth =================================================================== --- fcode-utils/testsuite/TokMisc/FlgReset.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/FlgReset.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,15 @@ + +[message] Flipping many switches + +[flag] Local-Values +[flag] noLV-Legacy-Separator +[flag] noLV-Legacy-Message +[flag] noABORT-Quote +[flag] noSun-ABORT-Quote +[flag] noString-remark-escape +[flag] noC-Style-string-escape +[flag] Always-Headers +[flag] noWarn-if-Duplicate +[flag] noObsolete-FCode-Warning + +[FLAGS] Added: fcode-utils/testsuite/TokMisc/FlgReset_1.fth =================================================================== --- fcode-utils/testsuite/TokMisc/FlgReset_1.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/FlgReset_1.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,9 @@ + +[message] Flipping a few switches + +[flag] noLocal-Values +[flag] noHex-remark-escape +[flag] noAlways-External +[flag] Obsolete-FCode-Warning + +[flags] Added: fcode-utils/testsuite/TokMisc/FlgReset_2.fth =================================================================== --- fcode-utils/testsuite/TokMisc/FlgReset_2.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/FlgReset_2.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,5 @@ + + +[message] Flipping no switches at all + +[flags] Added: fcode-utils/testsuite/TokMisc/HeadrSettings.fth =================================================================== --- fcode-utils/testsuite/TokMisc/HeadrSettings.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/HeadrSettings.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,24 @@ +\ Play games with state of header-ness... + + +fcode-version2 + +." Default is headerless" cr +10 constant ten-ten-a-big-fat-hen + +." Specifying headers hex" cr +headers hex +20 constant henty-plenty + + +" Specifying external" cr +external +40 constant chirkken-keetchee + +: use-it-all ten-ten-a-big-fat-hen henty-plenty chirkken-keetchee ; + +end0 + +headers +hex + Added: fcode-utils/testsuite/TokMisc/LotsOfAliases.fth =================================================================== --- fcode-utils/testsuite/TokMisc/LotsOfAliases.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/LotsOfAliases.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,71 @@ + +alias a_70_swap swap +alias a_69_swap swap +alias a_68_swap swap +alias a_67_swap swap +alias a_66_swap swap +alias a_65_swap swap +alias a_64_swap swap +alias a_63_swap swap +alias a_62_swap swap +alias a_61_swap swap +alias a_60_swap swap +alias a_59_swap swap +alias a_58_swap swap +alias a_57_swap swap +alias a_56_swap swap +alias a_55_swap swap +alias a_54_swap swap +alias a_53_swap swap +alias a_52_swap swap +alias a_51_swap swap +alias a_50_swap swap +alias a_49_swap swap +alias a_48_swap swap +alias a_47_swap swap +alias a_46_swap swap +alias a_45_swap swap +alias a_44_swap swap +alias a_43_swap swap +alias a_42_swap swap +alias a_41_swap swap +alias a_40_swap swap +alias a_39_swap swap +alias a_38_swap swap +alias a_37_swap swap +alias a_36_swap swap +alias a_35_swap swap +alias a_34_swap swap +alias a_33_swap swap +alias a_32_swap swap +alias a_31_swap swap +alias a_30_swap swap +alias a_29_swap swap +alias a_28_swap swap +alias a_27_swap swap +alias a_26_swap swap +alias a_25_swap swap +alias a_24_swap swap +alias a_23_swap swap +alias a_22_swap swap +alias a_21_swap swap +alias a_20_swap swap +alias a_19_swap swap +alias a_18_swap swap +alias a_17_swap swap +alias a_16_swap swap +alias a_15_swap swap +alias a_14_swap swap +alias a_13_swap swap +alias a_12_swap swap +alias a_11_swap swap +alias a_10_swap swap +alias a_9_swap swap +alias a_8_swap swap +alias a_7_swap swap +alias a_6_swap swap +alias a_5_swap swap +alias a_4_swap swap +alias a_3_swap swap +alias a_2_swap swap +alias a_1_swap swap Added: fcode-utils/testsuite/TokMisc/MinPCIHtst.fth =================================================================== --- fcode-utils/testsuite/TokMisc/MinPCIHtst.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/MinPCIHtst.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,25 @@ +\ Minimal basic PCI-Header test. + +\ Updated Tue, 24 May 2005 at 11:22 by David L. Paktor + +hex +tokenizer[ + + c020 + SET-REV-LEVEL + dec1 \ Vendor + c0ed \ Device ID + a8d2e1 \ Class Code + pci-header + ]tokenizer + + +fcode-version2 + +headers + : bogo " This is a test." ; + + +fcode-end + +pci-header-end Added: fcode-utils/testsuite/TokMisc/MiscFeatures.DOS.fth =================================================================== --- fcode-utils/testsuite/TokMisc/MiscFeatures.DOS.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/MiscFeatures.DOS.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,73 @@ +\ Obvious pun intended... +\ Updated Tue, 31 May 2005 at 12:07 by David L. Paktor + + +alias // \ +fcode-version2 + +headers + +// What is this? +// +char G emit +control G emit +control [ emit +: bell + [char] G dup + control G 3drop +; + +: factl recursive ( n -- n! ) + ?dup 0= if 1 + else dup 1- * factl + then +; + +: factl ( n -- n! ) + ?dup 0= if 1 factl + else dup 1- recurse * + then +; + +variable naught +defer do-nothing +20 value twenty +30 value thirty +40 buffer: forty +50 constant fifty +create three 0 , 00 , h# 000 , +struct +4 field >four +constant /four + +: peril + ['] noop is do-nothing + 100 is thirty + 5 is naught + thirty dup - abort" Never Happen" +; + +: thirty ( new-val -- ) + dup to thirty + alias .dec .d \ Should this be allowed? + ." Dirty" .dec +; +tokenizer[ +alias fliteral1 fliteral // This should be a harmless remark. +h# deadc0de ]tokenizer fliteral1 + +: droop ( -- ) + twenty + tokenizer[ + alias .x .h \ Should this generate a warning? + ]tokenizer + 0 ?do i .x loop +; +: ploop ( -- ) + fifty 0 do i drop 2 +loop +; + +fcode-end + + + Added: fcode-utils/testsuite/TokMisc/MiscFeatures.fth =================================================================== --- fcode-utils/testsuite/TokMisc/MiscFeatures.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/MiscFeatures.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,139 @@ +\ Obvious pun intended... +\ Updated Fri, 10 Feb 2006 at 15:53 PST by David L. Paktor + +alias // \ +fcode-version2 + +headers + +// What is this? +// +char G emit +control G emit +control [ emit +global-definitions +\ Each dev-node will create its own debug-flag and alias it to debug-me? +\ Each dev-node will create a macro called my-dev-name giving its device-name + [macro] .fname&dev [function-name] type ." in " my-dev-name type + [macro] name-my-dev my-dev-name device-name + [macro] .dbg-enter debug-me? @ if ." Entering " .fname&dev cr then + [macro] .dbg-leave debug-me? @ if ." Leaving " .fname&dev cr then +device-definitions + +\ Top-most device, named billy +[macro] my-dev-name " billy" +name-my-dev + +variable debug-bell? debug-bell? off alias debug-me? debug-bell? +: bell + .dbg-enter + [char] G dup + control G 3drop + .dbg-leave +; + +: factl recursive ( n -- n! ) + ." Entering First vers. of " [function-name] type cr + ?dup 0= if 1 + else dup 1- factl * + then + ." Leaving First vers. of " [function-name] type cr +; + +: factl ( n -- n! ) + ." Entering Second vers. of " [function-name] type cr + ?dup 0= if 1 factl + else dup 1- recurse * + then + ." Leaving Second vers. of " [function-name] type cr +; + +variable naught +defer do-nothing +20 value twenty +30 value thirty +40 buffer: forty +50 constant fifty +create three 0 , 00 , h# 000 , +struct +4 field >four +constant /four + +: peril + .dbg-enter + ['] noop is do-nothing + 100 is thirty + 5 is naught + thirty dup - abort" Never Happen" + .dbg-leave +; + +: thirty ( new-val -- ) + .dbg-enter + dup to thirty + alias .dec .d \ Should this be allowed? + ." Dirty" .dec + .dbg-leave +; +tokenizer[ +alias fliteral1 fliteral // This should be a harmless remark. +h# deadc0de ]tokenizer fliteral1 + +\ First subsidiary device, "child" of billy +new-device + instance variable cheryl + [macro] my-dev-name " cheryl" + name-my-dev + + instance + \ Third-level device, "grandchild" of billy + new-device + [macro] my-dev-name " meryl" + name-my-dev + + variable beryl + + variable debug-meryl? debug-meryl? off + alias debug-me? debug-meryl? + : meryl + .dbg-enter + cheryl + alias .deck .dec + alias feral cheryl + alias .heck .h + .dbg-leave + ; + finish-device + + \ Now we're back to "cheryl" + + variable debug-cheryl? debug-cheryl? off + alias debug-me? debug-cheryl? + : queryl + .dbg-enter + over rot dup nip drop swap \ Not the most useful code... ;-} + .dbg-leave + ; +finish-device + +\ And we're back to billy. +: droop ( -- ) + .dbg-enter \ This will display Entering droop in billy + twenty + tokenizer[ + alias .x .h \ Should this generate a warning? + ]tokenizer + 0 ?do i .x loop + .dbg-leave +; +headerless +: ploop ( -- ) + .dbg-enter + fifty 0 do i drop 2 +loop + .dbg-leave +; + +fcode-end + + + Added: fcode-utils/testsuite/TokMisc/MiscFeaturesCopy.fth =================================================================== --- fcode-utils/testsuite/TokMisc/MiscFeaturesCopy.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/MiscFeaturesCopy.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,65 @@ +\ Obvious pun intended... +\ Updated Tue, 19 Apr 2005 at 17:28 by David L. Paktor + +fcode-version2 + +headers + +char G emit +control G emit +control [ emit +: bell + [char] G dup + control G 3drop +; + +: factl recursive ( n -- n! ) + ?dup 0= if 1 + else dup 1- * factl + then +; + +: factl ( n -- n! ) + ?dup 0= if 1 factl + else dup 1- recurse * + then +; + +variable naught +defer do-nothing +20 value twenty +30 value thirty +40 buffer: forty +50 constant fifty +create three 0 , 00 , h# 000 , +struct +4 field >four +constant /four + +: peril + ['] noop is do-nothing + 100 is thirty + 5 is naught +; + +: thirty ( new-val -- ) + dup to thirty + alias .dec .d \ Should this be allowed? + ." Dirty" .dec +; + +: droop ( -- ) + twenty + tokenizer[ + alias .x .h \ Should this generate a warning? + ]tokenizer + 0 ?do i .x loop +; +: ploop ( -- ) + fifty 0 do i drop 2 +loop +; + +fcode-end + + + Added: fcode-utils/testsuite/TokMisc/MiscFeaturesXtra.fth =================================================================== --- fcode-utils/testsuite/TokMisc/MiscFeaturesXtra.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/MiscFeaturesXtra.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,15 @@ +\ See if names from a previous tokenization linger in a subsequent one. + +\ Updated Wed, 06 Apr 2005 at 11:32 by David L. Paktor + +fcode-version2 + +headers +: peril ( new-val -- ) + dup to twenty + ['] peril is do-nothing + d# 17 is naught +; + + +fcode-end Added: fcode-utils/testsuite/TokMisc/MulDev.fth =================================================================== --- fcode-utils/testsuite/TokMisc/MulDev.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/MulDev.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,40 @@ +\ Test creating multiple device-nodes +\ Let's contrive this to (almost...) pass the "Original" tokenizer as well, +\ and display the contrast. +\ Updated Mon, 30 May 2005 at 19:44 by David L. Paktor + +alias // \ +// Funny kind of comment. What? C-Plus style? Not even a "B"... + +fcode-version2 + +headers + +create (sis 6 c, 8 c, 12 c, +: err-shoot) ( -- 0 ) h# defeca8e .h ; +: eatit( h# feedface .h cr ; +: open ( -- success ) + err-shoot) + ." No dice, Cholly." cr + eatit( + false +; + +" sis" encode-string " name" property + +finish-device +new-device + +: eatit( h# 900df00d .h cr ; \ This should be a new definition + +: open ( -- success ) + err-shoot) \ This should be an "Unknown Word" + ." I'm sorry, Dave. I can't do that." cr + eatit( \ This should be the above + \ new definition in any case. + false +; + +" boombah" encode-string " name" property + +fcode-end Added: fcode-utils/testsuite/TokMisc/MulDev_01.fth =================================================================== --- fcode-utils/testsuite/TokMisc/MulDev_01.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/MulDev_01.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,69 @@ +\ Test multiple device-nodes with injected erorrs... ;-} + +\ Updated Thu, 04 Aug 2005 at 16:42 by David L. Paktor + + +fcode-version2 + +headers + +alias rc! rb! + +[message] Top-Level (root) device-node +create achin 12 c, 13 c, 14 c, +: breakin achin 3 bounds do i c@ . loop ; +: creakin 0 if breakin then ; +: deacon achin creakin drop breakin ; + +[message] Subsidiary (child) device-node +new-device +create eek! 18 c, 17 c, 80 c, 79 c, +: freek eek! 4 bounds ?do i c@ . 1 +loop ; +: greek -1 if freek then ; +[message] About to access method from parent node +: hierareek + eek! + freek + achin + greek +; +: ikey hierareek freek greek ; +[message] about to end child node +finish-device +[message] We can access methods from the root node now +: jeeky + achin + 3 type +; +[message] create sibling node +new-device +0 value inky +: kinky + " "( \ + \ value offset + 03 22 \ Comm Params (offset 22) = parity check (bit 0) even (bit 1) + 4 17 \ Plex (offs 17) = full (bit 2) + b7 0e \ Bells (offs 0e) = Bits 7,6,4,2,1,0 (No church or Gamelon) + 7f 0f \ Bell volume (offs 0f) = Just under halfway + 89 10 \ Whistles (offs 10) = Foghorn, Train, Piccolo (Bits 7,3,0) + ff 18 \ Foghorn duration (offs 18) = maximum + 22 14 \ Train-whistle (offs 14) = two short blasts + 03 11 \ Piccolo = mercifully short + )" + bounds do i c@ i 1+ c@ inky + rc! 2 +loop +; + +[message] creating nephew node +new-device + +: open kinky true ; + +[message] creating great-nephew node +new-device + +: open + jeeky + kinky + true ; + +fcode-end Added: fcode-utils/testsuite/TokMisc/MulDev_02.fth =================================================================== --- fcode-utils/testsuite/TokMisc/MulDev_02.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/MulDev_02.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,71 @@ +\ Test multiple device-nodes with injected erorrs... ;-} +\ MulDev_02.fth -- slight variant relative to MulDev_01.fth + +\ Updated Thu, 12 Jan 2006 at 15:36 PST by David L. Paktor + +global-definitions + alias rc! rb! +device-definitions + +fcode-version2 + +headers + +[message] Top-Level (root) device-node +create achin 12 c, 13 c, 14 c, +: breakin achin 3 bounds do i c@ . loop ; +: creakin 0 if breakin then ; +: deacon achin creakin drop breakin ; + +[message] Subsidiary (child) device-node +new-device +create eek! 18 c, 17 c, 80 c, 79 c, +: freek eek! 4 bounds ?do i c@ . 1 +loop ; +: greek -1 if freek then ; +[message] About to access method from parent node +: hierareek + eek! + freek + achin + greek +; +: ikey hierareek freek greek ; +[message] about to end child node +finish-device +[message] We can access methods from the root node now +: jeeky + achin + 3 type +; +[message] create sibling node +new-device +0 value inky +: kinky + " "( \ + \ value offset + 03 22 \ Comm Params (offset 22) = parity check (bit 0) even (bit 1) + 4 17 \ Plex (offs 17) = full (bit 2) + b7 0e \ Bells (offs 0e) = Bits 7,6,4,2,1,0 (No church or Gamelon) + 7f 0f \ Bell volume (offs 0f) = Just under halfway + 89 10 \ Whistles (offs 10) = Foghorn, Train, Piccolo (Bits 7,3,0) + ff 18 \ Foghorn duration (offs 18) = maximum + 22 14 \ Train-whistle (offs 14) = two short blasts + 03 11 \ Piccolo = mercifully short + )" + bounds do i c@ i 1+ c@ inky + rc! 2 +loop +; + +[message] creating nephew node +new-device + +: open kinky true ; + +[message] creating great-nephew node +new-device + +: open + jeeky + kinky + true ; + +fcode-end Added: fcode-utils/testsuite/TokMisc/No_Beer.fth =================================================================== --- fcode-utils/testsuite/TokMisc/No_Beer.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/No_Beer.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,3 @@ +." How dry I am! How dry I am!" cr +." No body knows how dry I am." cr +." How ... Dry I ... Aaaammm." cr Added: fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.DeTok =================================================================== --- fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.DeTok (rev 0) +++ fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.DeTok 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,195 @@ +\ Welcome to the OpenBIOS detokenizer v0.6.1 +\ detok Copyright(c) 2001-2005 by Stefan Reinauer. +\ Written by Stefan Reinauer, <stepan(a)openbios.org> +\ This program is free software; you may redistribute it under the terms of +\ the GNU General Public License. This program has absolutely no warranty. +\ +\ (C) Copyright 2005 IBM Corporation. All Rights Reserved. + 0: start1 ( 0x0f1 ) ( 16-bit offsets) + 1: format: 0x08 + 2: checksum: 0xf891 (Ok) + 4: len: 0x0302 ( 770 bytes) + 8: named-token ( 0x0b6 ) garfield 0x800 + 20: b(:) ( 0x0b7 ) + 21: b(") ( 0x012 ) ( len=2 ) + " if" + 25: type ( 0x090 ) + 26: b?branch ( 0x014 ) 0x004e ( =dec 78 dest = 105 ) + 29: b(") ( 0x012 ) ( len=5 ) + " begin" + 36: type ( 0x090 ) + 37: b(<mark) ( 0x0b1 ) + 38: b(") ( 0x012 ) ( len=0x15 [21 bytes] ) + " 0 if unloop exit then" + 61: type ( 0x090 ) + 62: 0 ( 0x0a5 ) + 63: b?branch ( 0x014 ) 0x0005 ( dest = 69 ) + 66: unloop ( 0x089 ) + 67: exit ( 0x033 ) + 68: b(>resolve) ( 0x0b2 ) + 69: b(") ( 0x012 ) ( len=0x15 [21 bytes] ) + " Would you be leave..." + 92: type ( 0x090 ) + 93: b(leave) ( 0x01b ) + 94: b(") ( 0x012 ) ( len=5 ) + " loop?" + 101: type ( 0x090 ) + 102: b(loop) ( 0x015 ) 0xffbf ( =dec -65 dest = 38 ) + 105: b(") ( 0x012 ) ( len=0x12 [18 bytes] ) + " Done with garfield" + 125: type ( 0x090 ) + 126: b(;) ( 0x0c2 ) + 127: named-token ( 0x0b6 ) odie 0x801 + 135: b(:) ( 0x0b7 ) + 136: b(") ( 0x012 ) ( len=7 ) + " 0 0 ?do" + 145: type ( 0x090 ) + 146: 0 ( 0x0a5 ) + 147: 0 ( 0x0a5 ) + 148: b(?do) ( 0x018 ) 0x005b ( =dec 91 dest = 240 ) + 151: b(") ( 0x012 ) ( len=6 ) + " i drop" + 159: type ( 0x090 ) + 160: i ( 0x019 ) + 161: drop ( 0x046 ) + 162: b(") ( 0x012 ) ( len=0x18 [24 bytes] ) + " zero if unloop exit then" + 188: type ( 0x090 ) + 189: 0 ( 0x0a5 ) + 190: b?branch ( 0x014 ) 0x0005 ( dest = 196 ) + 193: unloop ( 0x089 ) + 194: exit ( 0x033 ) + 195: b(>resolve) ( 0x0b2 ) + 196: b(") ( 0x012 ) ( len=0x15 [21 bytes] ) + " Who would be leave..." + 219: type ( 0x090 ) + 220: b(leave) ( 0x01b ) + 221: b(") ( 0x012 ) ( len=5 ) + " again" + 228: type ( 0x090 ) + 229: bbranch ( 0x013 ) 0xffb1 ( =dec -79 dest = 151 ) + 232: b(") ( 0x012 ) ( len=4 ) + " then" + 238: type ( 0x090 ) + 239: b(>resolve) ( 0x0b2 ) + 240: b(") ( 0x012 ) ( len=0xe [14 bytes] ) + " Done with odie" + 256: type ( 0x090 ) + 257: b(;) ( 0x0c2 ) + 258: b(") ( 0x012 ) ( len=0x11 [17 bytes] ) + " Outside of colon" + 277: type ( 0x090 ) + 278: b(") ( 0x012 ) ( len=6 ) + " 1 0 do" + 286: type ( 0x090 ) + 287: 1 ( 0x0a6 ) + 288: 0 ( 0x0a5 ) + 289: b(do) ( 0x017 ) 0x004b ( =dec 75 dest = 365 ) + 292: i ( 0x019 ) + 293: named-token ( 0x0b6 ) what? 0x802 + 302: b(constant) ( 0x0ba ) + 303: b(") ( 0x012 ) ( len=0x28 [40 bytes] ) + " This is actually supposed to be legit..." + 345: type ( 0x090 ) + 346: b(") ( 0x012 ) ( len=5 ) + " again" + 353: type ( 0x090 ) + 354: bbranch ( 0x013 ) 0xffc1 ( =dec -63 dest = 292 ) + 357: b(") ( 0x012 ) ( len=4 ) + " then" + 363: type ( 0x090 ) + 364: b(>resolve) ( 0x0b2 ) + 365: b(") ( 0x012 ) ( len=0x17 [23 bytes] ) + " Was that awful or what?" + 390: type ( 0x090 ) + 391: b(lit) ( 0x010 ) 0x5000 + 396: named-token ( 0x0b6 ) /DHCP-SCRATCH 0x803 + 413: b(constant) ( 0x0ba ) + 414: /DHCP-SCRATCH ( 0x803 ) + 416: b(') ( 0x011 ) alloc-mem ( 0x08b ) + 418: b(") ( 0x012 ) ( len=0x16 [22 bytes] ) + " dhcp-scratch alloc-mem" + 442: type ( 0x090 ) + 443: cr ( 0x092 ) + 444: .s ( 0x09f ) + 445: cr ( 0x092 ) + 446: catch ( 0x217 ) + 448: b(") ( 0x012 ) ( len=0x1c [28 bytes] ) + " catch dhcp-scratch alloc-mem" + 478: type ( 0x090 ) + 479: cr ( 0x092 ) + 480: .s ( 0x09f ) + 481: cr ( 0x092 ) + 482: ?dup ( 0x050 ) + 483: b?branch ( 0x014 ) 0x003b ( =dec 59 dest = 543 ) + 486: b(") ( 0x012 ) ( len=0x13 [19 bytes] ) + " alloc-mem Failed!!!" + 507: type ( 0x090 ) + 508: cr ( 0x092 ) + 509: .s ( 0x09f ) + 510: cr ( 0x092 ) + 511: throw ( 0x218 ) + 513: b(") ( 0x012 ) ( len=0x16 [22 bytes] ) + " This is also worng..." + 537: type ( 0x090 ) + 538: exit ( 0x033 ) + 539: bbranch ( 0x013 ) 0x0029 ( =dec 41 dest = 581 ) + 542: b(>resolve) ( 0x0b2 ) + 543: b(") ( 0x012 ) ( len=0xf [15 bytes] ) + " alloc-mem okay." + 560: type ( 0x090 ) + 561: .s ( 0x09f ) + 562: cr ( 0x092 ) + 563: named-token ( 0x0b6 ) DHCP-SCRATCH 0x804 + 579: b(constant) ( 0x0ba ) + 580: b(>resolve) ( 0x0b2 ) + 581: named-token ( 0x0b6 ) crazy-aces 0x805 + 595: b(:) ( 0x0b7 ) + 596: b(case) ( 0x0c4 ) + 597: 0 ( 0x0a5 ) + 598: b(of) ( 0x01c ) 0x0000 ( dest = 599 ) +\ Error: Unresolved offset. + 601: b(") ( 0x012 ) ( len=0xd [13 bytes] ) + " And a-nutt'n'" + 616: type ( 0x090 ) + 617: 1 ( 0x0a6 ) + 618: b(of) ( 0x01c ) 0x0000 ( dest = 619 ) +\ Error: Unresolved offset. + 621: b(") ( 0x012 ) ( len=9 ) + " And a-won" + 632: type ( 0x090 ) + 633: 2 ( 0x0a7 ) + 634: b(of) ( 0x01c ) 0x0000 ( dest = 635 ) +\ Error: Unresolved offset. + 637: b(") ( 0x012 ) ( len=9 ) + " And a-too" + 648: type ( 0x090 ) + 649: 3 ( 0x0a8 ) + 650: b(of) ( 0x01c ) 0x0000 ( dest = 651 ) +\ Error: Unresolved offset. + 653: b(") ( 0x012 ) ( len=0xa [10 bytes] ) + " And a-tree" + 665: type ( 0x090 ) + 666: b(lit) ( 0x010 ) 0x4 + 671: b(of) ( 0x01c ) 0x0000 ( dest = 672 ) +\ Error: Unresolved offset. + 674: b(") ( 0x012 ) ( len=0xa [10 bytes] ) + " and afford" + 686: type ( 0x090 ) + 687: b(lit) ( 0x010 ) 0x5 + 692: b(of) ( 0x01c ) 0x0028 ( =dec 40 dest = 733 ) + 695: b(") ( 0x012 ) ( len=0xb [11 bytes] ) + " Dat's enuff" + 708: type ( 0x090 ) + 709: b(") ( 0x012 ) ( len=0x14 [20 bytes] ) + " It's not my default!" + 731: type ( 0x090 ) + 732: b(endcase) ( 0x0c5 ) + 733: b(") ( 0x012 ) ( len=0x20 [32 bytes] ) + " Just in case you end up here..." + 767: type ( 0x090 ) + 768: b(;) ( 0x0c2 ) + 769: end0 ( 0x000 ) +\ Detokenization finished normally after 770 bytes. +End of file. + Added: fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.Log =================================================================== --- fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.Log (rev 0) +++ fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.Log 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,7 @@ +Welcome to toke - OpenBIOS tokenizer v0.6.8 +Copyright (c) 2001-2005 by Stefan Reinauer <stepan(a)openbios.org> +This program is free software; you may redistribute it under the terms of +the GNU General Public License. This program has absolutely no warranty. + +toke: checksum is 0xf891 (770 bytes) +toke: wrote 770 bytes to bytecode file 'ContErr0.OldTkzr.fc' Added: fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.fc =================================================================== (Binary files differ) Property changes on: fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.OldTkzr.fc ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.fth =================================================================== --- fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/OldTkzr/ContErr0.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,73 @@ +\ Test Erroneous Control Constructs, cunningly contrived +\ to pass the "Old" tokenizer, which doesn't have the +\ check for Control-Structure matching. + +\ Updated Thu, 29 Jun 2006 at 14:52 PDT by David L. Paktor + + +fcode-version2 + +headers + +: garfield + ." if" if + ." begin" begin + \ \ Leave this out because Old tokenizer duzzent dew it rite.... + \ ." Question-Leave?" ?leave + ." 0 if unloop exit then" 0 if unloop exit then + ." Would you be leave..." leave + ." loop?" loop + ." Done with garfield" +; + +: odie + ." 0 0 ?do" 0 0 ?do + ." i drop" i drop + ." zero if unloop exit then" 0 if unloop exit then + ." Who would be leave..." leave + ." again" again + ." then" then + ." Done with odie" +; + +." Outside of colon" +." 1 0 do" 1 0 do + i constant what? ." This is actually supposed to be legit..." +." again" again +." then" then +." Was that awful or what?" + +\ Snippet similar to something in Firmworks manual + +h# 5000 constant /DHCP-SCRATCH + +/DHCP-SCRATCH ( size ) ['] alloc-mem +." dhcp-scratch alloc-mem" cr .s cr +catch +." catch dhcp-scratch alloc-mem" cr .s cr +?dup if + ." alloc-mem Failed!!!" cr .s cr + throw + ." This is also worng..." exit +else + ." alloc-mem okay." .s cr + ( vaddr ) + ( vaddr ) constant DHCP-SCRATCH +then + +\ A CASE statement where the ENDOFs are missing +\ still passes the "Old" tokenizer. + +: crazy-aces ( n -- ) + case + 0 of ." And a-nutt'n'" + 1 of ." And a-won" + 2 of ." And a-too" + 3 of ." And a-tree" + 4 of ." and afford" + 5 of ." Dat's enuff" + ( default ) ." It's not my default!" + endcase ." Just in case you end up here..." +; + +fcode-end Added: fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.DeTok =================================================================== --- fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.DeTok (rev 0) +++ fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.DeTok 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,42 @@ +\ Welcome to the OpenBIOS detokenizer v0.6.1 +\ detok Copyright(c) 2001-2005 by Stefan Reinauer. +\ Written by Stefan Reinauer, <stepan(a)openbios.org> +\ This program is free software; you may redistribute it under the terms of +\ the GNU General Public License. This program has absolutely no warranty. +\ +\ (C) Copyright 2005 IBM Corporation. All Rights Reserved. + 0: start1 ( 0x0f1 ) ( 16-bit offsets) + 1: format: 0x08 + 2: checksum: 0x8805 (Ok) + 4: len: 0x0187 ( 391 bytes) + 8: b(") ( 0x012 ) ( len=0x2e [46 bytes] ) + " Let's also test a few string-escape sequences:" + 56: type ( 0x090 ) + 57: b(") ( 0x012 ) ( len=0x2c [44 bytes] ) + " "( 09 )ab"( 0a )ew-line""uote"( 0d )eturn"( 0c )orm-feed"( 08 )ackspace"( 07 )ell" + 103: type ( 0x090 ) + 104: b(") ( 0x012 ) ( len=0x20 [32 bytes] ) + " "( 03 )ontrol-D:ontrol-brace is Escape" + 138: type ( 0x090 ) + 139: b(") ( 0x012 ) ( len=0x1c [28 bytes] ) + " First try these two in hex:" + 169: type ( 0x090 ) + 170: b(") ( 0x012 ) ( len=0x2b [43 bytes] ) + " Backslash-n"( 0a )NewLine"( 09 )TabJd-a-OneTwoThreeFour" + 215: type ( 0x090 ) + 216: b(") ( 0x012 ) ( len=0x29 [41 bytes] ) + " Backslashes on both ends:4OneTwoThreeFour" + 259: type ( 0x090 ) + 260: b(") ( 0x012 ) ( len=0x24 [36 bytes] ) + " Try them again, but now in decimal:" + 298: type ( 0x090 ) + 299: b(") ( 0x012 ) ( len=0x2c [44 bytes] ) + " Backslash-n"( 0a )NewLine"( 09 )Tab"( d2 )nd-a-OneTwoThreeFour" + 345: type ( 0x090 ) + 346: b(") ( 0x012 ) ( len=0x29 [41 bytes] ) + " Backslashes on both ends:"( d2 )OneTwoThreeFour" + 389: type ( 0x090 ) + 390: end0 ( 0x000 ) +\ Detokenization finished normally after 391 bytes. +End of file. + Added: fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.Log =================================================================== --- fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.Log (rev 0) +++ fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.Log 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,7 @@ +Welcome to toke - OpenBIOS tokenizer v0.6.8 +Copyright (c) 2001-2005 by Stefan Reinauer <stepan(a)openbios.org> +This program is free software; you may redistribute it under the terms of +the GNU General Public License. This program has absolutely no warranty. + +toke: checksum is 0x8805 (391 bytes) +toke: wrote 391 bytes to bytecode file 'SimplStrEscs.OldTkzr.fc' Added: fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.fc =================================================================== (Binary files differ) Property changes on: fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.OldTkzr.fc ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.fth =================================================================== --- fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/OldTkzr/SimplStrEscs.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,22 @@ +\ A few simple string-escape sequences. +\ See which ones the "Old" tokenizer handles differently... + + +fcode-version2 + +." Let's also test a few string-escape sequences:" +." "ttab"nnew-line""quote"rreturn"fform-feed"bbackspace"!bell" +." "^Dcontrol-D"^{Control-brace is Escape" + +." First try these two in hex:" +hex + +." Backslash-n\nNewLine\tTab\1234And-a-OneTwoThreeFour" +." Backslashes on both ends:\1234\OneTwoThreeFour" + +." Try them again, but now in decimal:" +decimal +." Backslash-n\nNewLine\tTab\1234And-a-OneTwoThreeFour" +." Backslashes on both ends:\1234\OneTwoThreeFour" + +fcode-end Added: fcode-utils/testsuite/TokMisc/OneBeer.fc =================================================================== Added: fcode-utils/testsuite/TokMisc/StrAtEof.fld.fth =================================================================== --- fcode-utils/testsuite/TokMisc/StrAtEof.fld.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/StrAtEof.fld.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,11 @@ +\ We seem to have stumbled on another bug, manifested by +\ a string at the end of an "floaded" file, i.e., +\ no blank line after a string at the end of that file. +\ +\ This is the "floadable" file. +\ +\ Updated Tue, 12 Apr 2005 at 16:34 by David L. Paktor + + +\ Make sure there's no blank line after this next line: +." Hi!" Added: fcode-utils/testsuite/TokMisc/StrAtEof.fth =================================================================== --- fcode-utils/testsuite/TokMisc/StrAtEof.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/StrAtEof.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,18 @@ +\ We seem to have stumbled on another bug, manifested by +\ a string at the end of an "floaded" file, i.e., +\ no blank line after a string at the end of that file. +\ +\ Main file to test it +\ +\ Updated Tue, 12 Apr 2005 at 17:50 by David L. Paktor + + +fcode-version2 + +headers + +fload StrAtEof.fld.fth + +." Try "^a"^b"^c"^d"^[ and "^aand"^band"^cetc.?" +." Are we still processing strings okay?" +fcode-end Added: fcode-utils/testsuite/TokMisc/StrEscs.fth =================================================================== --- fcode-utils/testsuite/TokMisc/StrEscs.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/StrEscs.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,19 @@ +\ String-Escapes test... + +\ Updated Mon, 11 Jul 2005 at 16:44 by David L. Paktor + + +fcode-version2 + +headers hex + +." What about "( 1c cd e6 \ The rest of this line should be a comment + c7 )?" +." Is "\ the rest of this line a comment?" +X and a new start " \ This should do it. +0 is my-self \ Is it still keeping line numbers straight? +." Or a way to get a "\ backslash?" + Y not " \ Or not... +0 is my-self \ Is it still keeping line numbers straight? + +fcode-end Added: fcode-utils/testsuite/TokMisc/StrEscs_01.fth =================================================================== --- fcode-utils/testsuite/TokMisc/StrEscs_01.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/StrEscs_01.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,11 @@ +\ It's not about the unterminated String +\ it's about the lack of fcode-end + +\ Updated Tue, 12 Jul 2005 at 09:58 by David L. Paktor + +fcode-version2 + +headers hex + +\ What if we don't have an fcode-end here? +." Why not?" Added: fcode-utils/testsuite/TokMisc/StringsGenl.DOS.fth =================================================================== --- fcode-utils/testsuite/TokMisc/StringsGenl.DOS.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/StringsGenl.DOS.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,43 @@ +\ Test of various formats of strings + +\ Updated Tue, 12 Jul 2005 at 17:19 by David L. Paktor + +fcode-version2 + +headers hex + +." +Empty string next." +." " +." BSlashes: \t\1fea9\abdc\n\1f\\fece" +decimal +." BSlashes: \t\a7\c01a" +hex +." BSlashes: \n\a7\c01a" +." BSlashes: \t\a7\\c0\\1a" +." BSlashes: \t\a7\\c0\\1a"( feedface)" +." 3 BSlashes, then QOpen. \t\Q\n"(090abcdefeca8e beeffece b020)Zoh. "(1 23 4 567 8 9 0 1 2 3 0 a b c 30)" +.( Dot-Paren-NoSpace)cr cr +.( Dot-Paren Space) cr cr +." QEscapes: "p"b"n"zz" +." QEscapes: ""Q"nn"rr"tt"ff"ll"bb"!!"^[UpBrack"zz" +0 is my-self \ Is it keeping line numbers straight? +" Quote"" Quote" type cr +s" Ess-Quote"type cr +." Cross +the +line. +Three times." +0 is my-self \ Is it still keeping line numbers straight? +." Can I get a \ backslash?" +." Like this \\ maybe?" +." What about "( 1c cd e6 \ The rest of this line should be a comment + c7 )?" +." Is "\ the rest of this line a comment?" +\ " \ This should do it. +0 is my-self \ Is it still keeping line numbers straight? +." Or a way to get a "\ backslash?" +\ " \ Or not... +0 is my-self \ Is it still keeping line numbers straight? + +fcode-end Added: fcode-utils/testsuite/TokMisc/StringsGenl.fth =================================================================== --- fcode-utils/testsuite/TokMisc/StringsGenl.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/StringsGenl.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,46 @@ +\ Test of various formats of strings + +\ Updated Mon, 06 Mar 2006 at 17:39 PST by David L. Paktor + +fcode-version2 + +headers hex + +." +Empty string next." +." " +." BSlashes: \t\1fea9\abdc\n\1f\\fece" +decimal +." BSlashes: \t\a7\c01a" +hex +." BSlashes: \n\a7\c01a" +." BSlashes: \t\a7\\c0\\1a" +." BSlashes: \t\a7\\c0\\1a"( feedface)" +." 3 BSlashes, then QOpen. \t\Q\n"(090abcdefeca8e beeffece b020)Zoh. "(1 23 4 567 8 9 0 1 2 3 0 a b c 30)" +.( Dot-Paren-NoSpace)cr cr +.( Dot-Paren Space) cr cr +." QEscapes: "p"b"n"zz" +." QEscapes: ""Q"nn"rr"tt"ff"ll"bb"!!"^[UpBrack"zz" +0 is my-self \ Is it keeping line numbers straight? +" Quote"" Quote" type cr +s" Ess-Quote"type cr +." Cross +the +line. +Three times." +0 is my-self \ Is it still keeping line numbers straight? +." Can I get a \ backslash?" +." Like this \\ maybe?" +." What about "( 1c cd e6 \ The rest of this line should be a comment + c7 )?" +." Is "\ the rest of this line a comment?" +\ " \ This should do it. +0 is my-self \ Is it still keeping line numbers straight? +." Or a way to get a "\ backslash?" +\ " \ Or not... +0 is my-self \ Is it still keeping line numbers straight? + +: glemph!" " glemph!""" evaluate ; +\ What does the " do? + +fcode-end Added: fcode-utils/testsuite/TokMisc/TestArgs =================================================================== --- fcode-utils/testsuite/TokMisc/TestArgs (rev 0) +++ fcode-utils/testsuite/TokMisc/TestArgs 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,71 @@ +# Automated Test Arguments file for TokMisc category + +# Valid lines have four comma-separated fields: +# Test-file base-name +# Result-file label +# Extra command-line switches +# A script-command with arguments (but no commas). +# Lines that have no label, no switches, and no script +# do not need any commas. + +# Updated Thu, 06 Jul 2006 at 13:16 PDT by David L. Paktor + +MiscFeatures , , -i +MiscFeatures , applabq , -i -f NOSUN-ABORT-Quote +MiscFeatures , noabrtq , -i -f noABort-quote +MiscFeatures.DOS , , -i +EncodTst +StrAtEof , , -l +# Script is to help set up for Batch Test at end... +StringsGenl , , , cp StringsGenl.fth StringsGenl_cpy1.fth ; cp StringsGenl_cpy1.fth StringsGenl_cpy2.fth +StringsGenl , nocstesc , -f NOC-STYLe-string-escape +StringsGenl , nohexrmk , -f noHex-remark-escape +StringsGenl , noqbsrmk , -f NOSTRING-REMARK-ESCAPE +BasicCont +ExtCont +OldTkzr/ContErr0 , , -i +ContErr1 , , -i +ContErr2 , , -i +ContErr3 , , -i +MulDev , , -i +MulDev_01 , , -i +MulDev_02 , , -i -T jeeky -T kinky +MinPCIHtst +OldTkzr/SimplStrEscs +StrEscs +StrEscs_01 +FlagSet , , -i +FlagSet , badclf , -i -f McGillicuddy -f ORoark -f NoFrauBlucher +TooLargeBufferMulPciFcb , , -l +BranchOverNewBuffer , , -l +AbrtQuot , , -i +AbrtQuot , noabrtq , -i -f NOabort-Quote +AbrtQuot , applabq , -i -f noSUN-abort-QUOte +AbrtQuot , noabqthrw , -i -f noABORT-Quote-Throw +HeadrSettings +HeadrSettings , alwyshdr , -f always-heADERs +HeadrSettings , alwyextl , -f alwaYS-External +HeadrSettings , alwaysboth , -f always-headers -f always-external +FlagsHelp , , -f HELP +FlagsHelp , Chg , -f noHex-remark-ESCAPE -f Always-Headers -f help +FlagsHelp , noChg , -f noLocal-Values -f help +FlagsHelp , chgNoHlp , -f noHex-remark-escape -f Always-Headers -f noHelp +FlagsHelp , JustNoHlp , -f noHelp +FlgReset , Solo +FlgReset FlgReset_1 FlgReset_2 +FlgReset FlgReset_1 FlgReset_2 , AlwExt , -f Always-External +AllMacros , , , ExamAllMacs.scr + +# A little more set-up for Batch Test +UserMacros , , , cp UserMacros.fth UserMacros_cpy1.fth + +BatchTst StringsGenl_cpy1 FlagSet , , -l sub.w.dots/MulDev ../TokeCommon/ZeroLen.bin ../TokeCommon/OneBeer.fth NoBeerAnywhere.fth , if ( "`cmp StringsGenl.fc StringsGenl_cpy1.fc`" != "" ) /bin/ls -l $PWD/StringsGenl.fc $PWD/StringsGenl_cpy1.fc >> BatchTst.Log ; diff StringsGenl.DeTok StringsGenl_cpy1.DeTok >> BatchTst.Log + +BatchTst StringsGenl_cpy2 FlagSet UserMacros_cpy1 , wIncLst , -I '' -I. -I../TokeCommon -P -l sub.w.dots/MulDev OneBeer.fth ZeroLen.bin NoBeerAnywhere.fth , if ( "`cmp StringsGenl.fc StringsGenl_cpy2.fc`" != "" ) /bin/ls -l $PWD/StringsGenl.fc $PWD/StringsGenl_cpy2.fc >> BatchTst.wIncLst.Log ; diff StringsGenl.DeTok StringsGenl_cpy2.DeTok >> BatchTst.wIncLst.Log + +BatchTst , FHelp , -I. -I../TokeCommon -l -f help , if ( "`cmp UserMacros.fc UserMacros_cpy1.fc`" != "" ) /bin/ls -l $PWD/UserMacros.fc $PWD/UserMacros_cpy1.fc >> BatchTst.FHelp.Log ; diff UserMacros.DeTok UserMacros_cpy1.DeTok >> BatchTst.FHelp.Log + +# Script is to clean up the "dross" from the above... +BatchTst , Help , -I. -I../TokeCommon -l -h , rm *_cpy* + +CaseTkns Added: fcode-utils/testsuite/TokMisc/TooLargeBeerBuffer_body.fth =================================================================== --- fcode-utils/testsuite/TokMisc/TooLargeBeerBuffer_body.fth (rev 0) +++ fcode-utils/testsuite/TokMisc/TooLargeBeerBuffer_body.fth 2006-10-14 20:31:53 UTC (rev 91) @@ -0,0 +1,2587 @@ +[message] Starting out with six hundred and forty-six Bottles of Beer on the wall +." Oh, six hundred and forty-six Bottles of Beer on the wall," cr +." six hundred and forty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty-five Bottles of Beer on the wall." cr +." Oh, six hundred and forty-five Bottles of Beer on the wall," cr +." six hundred and forty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty-four Bottles of Beer on the wall." cr +." Oh, six hundred and forty-four Bottles of Beer on the wall," cr +." six hundred and forty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty-three Bottles of Beer on the wall." cr +." Oh, six hundred and forty-three Bottles of Beer on the wall," cr +." six hundred and forty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty-two Bottles of Beer on the wall." cr +." Oh, six hundred and forty-two Bottles of Beer on the wall," cr +." six hundred and forty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty-one Bottles of Beer on the wall." cr +." Oh, six hundred and forty-one Bottles of Beer on the wall," cr +." six hundred and forty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and forty Bottles of Beer on the wall." cr +." Oh, six hundred and forty Bottles of Beer on the wall," cr +." six hundred and forty Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-nine Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-nine Bottles of Beer on the wall," cr +." six hundred and thirty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-eight Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-eight Bottles of Beer on the wall," cr +." six hundred and thirty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-seven Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-seven Bottles of Beer on the wall," cr +." six hundred and thirty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-six Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-six Bottles of Beer on the wall," cr +." six hundred and thirty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-five Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-five Bottles of Beer on the wall," cr +." six hundred and thirty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-four Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-four Bottles of Beer on the wall," cr +." six hundred and thirty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-three Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-three Bottles of Beer on the wall," cr +." six hundred and thirty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-two Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-two Bottles of Beer on the wall," cr +." six hundred and thirty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty-one Bottles of Beer on the wall." cr +." Oh, six hundred and thirty-one Bottles of Beer on the wall," cr +." six hundred and thirty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirty Bottles of Beer on the wall." cr +." Oh, six hundred and thirty Bottles of Beer on the wall," cr +." six hundred and thirty Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-nine Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-nine Bottles of Beer on the wall," cr +." six hundred and twenty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-eight Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-eight Bottles of Beer on the wall," cr +." six hundred and twenty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-seven Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-seven Bottles of Beer on the wall," cr +." six hundred and twenty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-six Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-six Bottles of Beer on the wall," cr +." six hundred and twenty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-five Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-five Bottles of Beer on the wall," cr +." six hundred and twenty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-four Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-four Bottles of Beer on the wall," cr +." six hundred and twenty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-three Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-three Bottles of Beer on the wall," cr +." six hundred and twenty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-two Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-two Bottles of Beer on the wall," cr +." six hundred and twenty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty-one Bottles of Beer on the wall." cr +." Oh, six hundred and twenty-one Bottles of Beer on the wall," cr +." six hundred and twenty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twenty Bottles of Beer on the wall." cr +." Oh, six hundred and twenty Bottles of Beer on the wall," cr +." six hundred and twenty Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and nineteen Bottles of Beer on the wall." cr +." Oh, six hundred and nineteen Bottles of Beer on the wall," cr +." six hundred and nineteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and eighteen Bottles of Beer on the wall." cr +." Oh, six hundred and eighteen Bottles of Beer on the wall," cr +." six hundred and eighteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and seventeen Bottles of Beer on the wall." cr +." Oh, six hundred and seventeen Bottles of Beer on the wall," cr +." six hundred and seventeen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and sixteen Bottles of Beer on the wall." cr +." Oh, six hundred and sixteen Bottles of Beer on the wall," cr +." six hundred and sixteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and fifteen Bottles of Beer on the wall." cr +." Oh, six hundred and fifteen Bottles of Beer on the wall," cr +." six hundred and fifteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and fourteen Bottles of Beer on the wall." cr +." Oh, six hundred and fourteen Bottles of Beer on the wall," cr +." six hundred and fourteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and thirteen Bottles of Beer on the wall." cr +." Oh, six hundred and thirteen Bottles of Beer on the wall," cr +." six hundred and thirteen Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and twelve Bottles of Beer on the wall." cr +." Oh, six hundred and twelve Bottles of Beer on the wall," cr +." six hundred and twelve Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and eleven Bottles of Beer on the wall." cr +." Oh, six hundred and eleven Bottles of Beer on the wall," cr +." six hundred and eleven Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and ten Bottles of Beer on the wall." cr +." Oh, six hundred and ten Bottles of Beer on the wall," cr +." six hundred and ten Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and nine Bottles of Beer on the wall." cr +." Oh, six hundred and nine Bottles of Beer on the wall," cr +." six hundred and nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and eight Bottles of Beer on the wall." cr +." Oh, six hundred and eight Bottles of Beer on the wall," cr +." six hundred and eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and seven Bottles of Beer on the wall." cr +." Oh, six hundred and seven Bottles of Beer on the wall," cr +." six hundred and seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and six Bottles of Beer on the wall." cr +." Oh, six hundred and six Bottles of Beer on the wall," cr +." six hundred and six Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and five Bottles of Beer on the wall." cr +." Oh, six hundred and five Bottles of Beer on the wall," cr +." six hundred and five Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and four Bottles of Beer on the wall." cr +." Oh, six hundred and four Bottles of Beer on the wall," cr +." six hundred and four Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and three Bottles of Beer on the wall." cr +." Oh, six hundred and three Bottles of Beer on the wall," cr +." six hundred and three Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and two Bottles of Beer on the wall." cr +." Oh, six hundred and two Bottles of Beer on the wall," cr +." six hundred and two Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred and one Bottles of Beer on the wall." cr +." Oh, six hundred and one Bottles of Beer on the wall," cr +." six hundred and one Bottles of Beer!," cr +." Take one down and pass it around," cr +." six hundred Bottles of Beer on the wall." cr +." Oh, six hundred Bottles of Beer on the wall," cr +." six hundred Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-nine Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-nine Bottles of Beer on the wall," cr +." five hundred and ninety-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-eight Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-eight Bottles of Beer on the wall," cr +." five hundred and ninety-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-seven Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-seven Bottles of Beer on the wall," cr +." five hundred and ninety-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-six Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-six Bottles of Beer on the wall," cr +." five hundred and ninety-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-five Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-five Bottles of Beer on the wall," cr +." five hundred and ninety-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-four Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-four Bottles of Beer on the wall," cr +." five hundred and ninety-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-three Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-three Bottles of Beer on the wall," cr +." five hundred and ninety-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-two Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-two Bottles of Beer on the wall," cr +." five hundred and ninety-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety-one Bottles of Beer on the wall." cr +." Oh, five hundred and ninety-one Bottles of Beer on the wall," cr +." five hundred and ninety-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and ninety Bottles of Beer on the wall." cr +." Oh, five hundred and ninety Bottles of Beer on the wall," cr +." five hundred and ninety Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-nine Bottles of Beer on the wall," cr +." five hundred and eighty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-eight Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-eight Bottles of Beer on the wall," cr +." five hundred and eighty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-seven Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-seven Bottles of Beer on the wall," cr +." five hundred and eighty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-six Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-six Bottles of Beer on the wall," cr +." five hundred and eighty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-five Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-five Bottles of Beer on the wall," cr +." five hundred and eighty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-four Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-four Bottles of Beer on the wall," cr +." five hundred and eighty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-three Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-three Bottles of Beer on the wall," cr +." five hundred and eighty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-two Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-two Bottles of Beer on the wall," cr +." five hundred and eighty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty-one Bottles of Beer on the wall." cr +." Oh, five hundred and eighty-one Bottles of Beer on the wall," cr +." five hundred and eighty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and eighty Bottles of Beer on the wall." cr +." Oh, five hundred and eighty Bottles of Beer on the wall," cr +." five hundred and eighty Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-nine Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-nine Bottles of Beer on the wall," cr +." five hundred and seventy-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-eight Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-eight Bottles of Beer on the wall," cr +." five hundred and seventy-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-seven Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-seven Bottles of Beer on the wall," cr +." five hundred and seventy-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-six Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-six Bottles of Beer on the wall," cr +." five hundred and seventy-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-five Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-five Bottles of Beer on the wall," cr +." five hundred and seventy-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-four Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-four Bottles of Beer on the wall," cr +." five hundred and seventy-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-three Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-three Bottles of Beer on the wall," cr +." five hundred and seventy-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-two Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-two Bottles of Beer on the wall," cr +." five hundred and seventy-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy-one Bottles of Beer on the wall." cr +." Oh, five hundred and seventy-one Bottles of Beer on the wall," cr +." five hundred and seventy-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and seventy Bottles of Beer on the wall." cr +." Oh, five hundred and seventy Bottles of Beer on the wall," cr +." five hundred and seventy Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-nine Bottles of Beer on the wall," cr +." five hundred and sixty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-eight Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-eight Bottles of Beer on the wall," cr +." five hundred and sixty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-seven Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-seven Bottles of Beer on the wall," cr +." five hundred and sixty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-six Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-six Bottles of Beer on the wall," cr +." five hundred and sixty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-five Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-five Bottles of Beer on the wall," cr +." five hundred and sixty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-four Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-four Bottles of Beer on the wall," cr +." five hundred and sixty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-three Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-three Bottles of Beer on the wall," cr +." five hundred and sixty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-two Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-two Bottles of Beer on the wall," cr +." five hundred and sixty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty-one Bottles of Beer on the wall." cr +." Oh, five hundred and sixty-one Bottles of Beer on the wall," cr +." five hundred and sixty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and sixty Bottles of Beer on the wall." cr +." Oh, five hundred and sixty Bottles of Beer on the wall," cr +." five hundred and sixty Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-nine Bottles of Beer on the wall," cr +." five hundred and fifty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-eight Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-eight Bottles of Beer on the wall," cr +." five hundred and fifty-eight Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-seven Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-seven Bottles of Beer on the wall," cr +." five hundred and fifty-seven Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-six Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-six Bottles of Beer on the wall," cr +." five hundred and fifty-six Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-five Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-five Bottles of Beer on the wall," cr +." five hundred and fifty-five Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-four Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-four Bottles of Beer on the wall," cr +." five hundred and fifty-four Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-three Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-three Bottles of Beer on the wall," cr +." five hundred and fifty-three Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-two Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-two Bottles of Beer on the wall," cr +." five hundred and fifty-two Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty-one Bottles of Beer on the wall." cr +." Oh, five hundred and fifty-one Bottles of Beer on the wall," cr +." five hundred and fifty-one Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and fifty Bottles of Beer on the wall." cr +." Oh, five hundred and fifty Bottles of Beer on the wall," cr +." five hundred and fifty Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-nine Bottles of Beer on the wall." cr +." Oh, five hundred and forty-nine Bottles of Beer on the wall," cr +." five hundred and forty-nine Bottles of Beer!," cr +." Take one down and pass it around," cr +." five hundred and forty-eight Bottles of Beer on the wall." cr +."