/*********************************************************************/
/* PIPETST6 - Test handling of doubled/escaped control characters.   */
/*********************************************************************/
 
address command
 
  /* Check if self-escape is supported */
  'PIPE Literal |||hole'
  If rc/=0 Then Do
     say "Your Pipelines version doesn't support self escaped characters"
     say "PIPETST6 doesn't make sense in this case"
     Exit rc
  End
  arg demo
 
  ctlchars = 'SEPARATOR | ENDCHAR ? ESCAPE "'
  pdopts   = '[ width 35 ]'
 
  if demo = '' then cmd = 'EXEC PIPEDEMO' pdopts '('ctlchars')'
               else cmd = 'PIPE (NAME <1>' ctlchars')'
 
  al.0  =          'literal pipetst6 will demonstrate how PIPEDEMO'
  al.1  = '| append literal handles doubled/escaped control'
  al.2  = '| append literal characters like ''||||||||'' (doubled bar) and'
  al.3  = '| append literal ''"""""""|'' (escaped bar) both of which should'
  al.4  = '| append literal show up as a single bar, or ''????'''
  al.5  = '| append literal (doubled question mark) which should'
  al.6  = '| append literal show up as a single question mark, or'
  al.7  = '| append literal combinations: ''||||??"""""""|"""?""""'' which should'
  al.8  = '| append literal show up as two strings of a bar, a'
  al.9  = '| append literal question mark, and a double quote'
  al.10 = '| append literal concatenated together.'
 
  cmd,
        al.0,
        al.1,
        al.2,
        al.3,
        al.4,
        al.5,
        al.6,
        al.7,
        al.8,
        al.9,
        al.10,
     '| console'