openbios/fcode-utils/testsuite/TokMisc/StringsGenl.fth

• Show log

  Commit

• Hash : acf5213f
  Author :
  Date : 2006-10-14T20:31:53
  

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

Download

• testsuite/TokMisc/StringsGenl.fth

• \  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
  

Download