@@code.k :filename :pattern
  @hpos_args :hpos left @
  @caption_args :caption_side top @
  | text.literal :
A source file displayed verbatim
@@

@@code :: @eval code_block.Code(K) @ @@

@@c.k code_text :
A word or phrase displayed verbatim in a line
@@

@@c :: @eval code_block.Code_fragment(K) eval@
@@

# :cwd makes the filename resolve against the DOCUMENT's directory, not
# the directory ktext happens to run in.
@@source_file filename : @eval :cwd *K_input_dir* code_block.Source(K) @ @@