c shana1.cct Convert from Shoeox format to .ana file
c This is step 1 to extract the \m line and clean it up

begin > store(preceding) use(main)

group(main)

nl '\m' > endstore
          ifneq(preceding) '\n'
            begin
              nl '\f ' out(preceding)
              store(preceding) endstore
            end
          out(textline) store(textline) endstore
          dup
          use(ana)

nl '\t' > store(textline) dup
'  ' > ' ' back(1)      c reduce multiples to single space
' ' nl > nl back(1)     c no trailing space, either


nl '\g' > store(discard)
nl '\ps' > store(discard)
          use(last)


c these changes are for store(preceding)
'\'  > '\\'
nl   > '\n'

group(ana)

'  ' > ' ' back(1)  c remove extra spaces
' ' nl > nl back(1) c remove trailing spaces

nl > dup back(1)
     use(main)

c \p is the last of the interlinear bundle. New formatting
c information may be available.
group(last)

nl > dup back(1)
     store(preceding)
     use(main)