diff options
author | ronny | 2000-02-24 12:26:59 +0000 |
---|---|---|
committer | ronny | 2000-02-24 12:26:59 +0000 |
commit | e476c30a6367b8d0cdcf6dec69ab152e8d8fecc8 (patch) | |
tree | a682ded63ad34c202f344779cb562012b88e7cbf /frontend/Wrap.dcl | |
parent | Initial import (diff) |
Removed debug modules (they moved to separate directory)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@103 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/Wrap.dcl')
-rw-r--r-- | frontend/Wrap.dcl | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/frontend/Wrap.dcl b/frontend/Wrap.dcl deleted file mode 100644 index 8cb683a..0000000 --- a/frontend/Wrap.dcl +++ /dev/null @@ -1,46 +0,0 @@ -/* - Wrap Clean nodes (for debugging purposes). - - Version 1.0.1 - Ronny Wichers Schreur - ronny@cs.kun.nl -*/ -definition module Wrap - -from StdOverloaded import toString - -:: WrappedDescriptorId - -instance toString WrappedDescriptorId - -:: WrappedDescriptor - = WrappedDescriptorCons - | WrappedDescriptorNil - | WrappedDescriptorTuple - | WrappedDescriptorOther !WrappedDescriptorId - -:: WrappedNode - // basic types - = WrappedInt !Int - | WrappedChar !Char - | WrappedBool !Bool - | WrappedReal !Real - | WrappedFile !File - - // unboxed arrays of basic types - | WrappedString !{#Char} - | WrappedIntArray !{#Int} - | WrappedBoolArray !{#Bool} - | WrappedRealArray !{#Real} - | WrappedFileArray !{#File} - - // other arrays - | WrappedArray !{WrappedNode} - - // records - | WrappedRecord !WrappedDescriptor !{WrappedNode} - - // other nodes - | WrappedOther !WrappedDescriptor !{WrappedNode} - -wrapNode :: !.a -> WrappedNode
\ No newline at end of file |