An Example of using CCF with Rexx

It seems comments in Rexx are allowed to nest. Whilst this is, in my opinion, a recipe for disaster, CCF is prepared to have a go. Here, then, are two versions of a (near-useless) Rexx procedure, one expecting to run under Unix, the other under MS-DOS. Notice how the "ls -l" line is handled.


Unix version:

/* list a directory, no matter where we are */
/* ## ccf:init nested */

DirCmd: procedure
  /* ## if ccf:defined (unix) */
  'ls -l'  /* quotes needed to avoid upcasing */
  /* ## else if ccf:defined (msdos) or ccf:defined (win32) */
  /* ##! dir */
  /* ## end if */
return


MS-DOS version:

/* list a directory, no matter where we are */
/* ## ccf:init nested */

DirCmd: procedure
  /* ## if ccf:defined (unix) */
  /* ##! 'ls -l'  /* quotes needed to avoid upcasing */ */
  /* ## else if ccf:defined (msdos) or ccf:defined (win32) */
  dir
  /* ## end if */
return