trigraph.lisp

   1 (in-package "C")
   2
   3 (defvar *replace-trigraphs* nil
   4   "If not NIL, replace trigraph sequences as described by C99 5.2.1.1 \"Trigraph sequences\".")
   5
   6 (defparameter *trigraph-mapping*
   7   '((#\! . #\|)
   8     (#\' . #\^)
   9     (#\( . #\[)
  10     (#\) . #\])
  11     (#\- . #\~)
  12     (#\/ . #\\)
  13     (#\< . #\{)
  14     (#\= . #\#)
  15     (#\> . #\})))