testsuite 1.0.0

git-svn-id: svn://coreboot.org/openbios/fcode-utils@91 f158a5a8-5612-0410-a976-696ce0be7e32

Author: Stefan Reinauer

testsuite/GlobalLocalValues.fth

@@ -0,0 +1 @@
+../../LocalValues/GlobalLocalValues.fth

testsuite/GlobalLocalValuesDevel.fth

@@ -0,0 +1 @@
+../../LocalValues/GlobalLocalValuesDevel.fth

testsuite/LocalValuesDevelSupport.fth

@@ -0,0 +1 @@
+../../LocalValues/LocalValuesDevelSupport.fth

testsuite/LocalValuesSupport.fth

@@ -0,0 +1 @@
+../../LocalValues/LocalValuesSupport.fth

testsuite/TokBrack/TestArgs

@@ -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

testsuite/TokBrack/TokBrkErrTst_01.fth

@@ -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
+
+
+

testsuite/TokBrack/TokBrkTst_01.fth

@@ -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
+
+
+

testsuite/TokBrack/TokBrkTst_02.fth

@@ -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
+

testsuite/TokBrack/TokBrkTst_03.fth

@@ -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

testsuite/TokBrack/revlev.fth

@@ -0,0 +1,2 @@
+\  Fake out an FLOAD-able constant
+h# f2ed constant i-got-a-Rev-Level