home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / TEKST / FUNNEL_S / TESTS / TG03.FW < prev    next >
Text File  |  1992-05-27  |  1KB  |  70 lines
  1. TG03: Test expansions with indentation.
  2.  
  3. @p indentation = blank
  4.  
  5. @O@<tg03.out@>@{@-
  6. @<Poem@>
  7.  
  8. @<Indentation test@>
  9. @}
  10.  
  11. @!******************************************************************************
  12.  
  13. @A@<Poem Section@>
  14.  
  15. @$@<Poem@>@{@-
  16. The other day upon the stair,
  17. @<Middle@>
  18. I think he's from the CIA.@}
  19.  
  20. @$@<Middle@>@{@-
  21. I met a man who wasn't there.
  22. @<Second line of middle@>@}
  23.  
  24. @$@<Second line of middle@>@{He wasn't there @<again@> today,@}
  25.  
  26. @$@<again@>@{again@}
  27.  
  28. @!******************************************************************************
  29.  
  30. @A@<Program Section@>
  31.  
  32. @$@<Indentation test@>@{@-
  33. The following nest of begin and ends should be indented in a nest.
  34.  
  35. begin0
  36.    @<A@>
  37. end0@}
  38.  
  39.  
  40. @$@<A@>@{@-
  41. begin1
  42.    @<B@>
  43. end1@}
  44.  
  45. @$@<B@>@{@-
  46. begin2
  47.    @<C@>
  48. end2@}
  49.  
  50. @$@<C@>@{@-
  51. begin3
  52.    @<D@>
  53. end3@}
  54.  
  55. @$@<D@>@{@-
  56. begin4
  57.    @<E@>
  58. end4@}
  59.  
  60. @$@<E@>@{@-
  61. begin wayout----------V
  62.                       @<wayout@>
  63. end   wayout----------^@}
  64.  
  65. @$@<wayout@>@{@-
  66. It's scary out here
  67. So far from the left margin.@}
  68.  
  69. @!******************************************************************************
  70.