header {* \isaheader{System Classes} *}
theory SystemClasses imports Decl begin
text {*
This theory provides definitions for the @{text Object} class,
and the system exceptions.
*}
definition ObjectC :: "'c cdecl" where
"ObjectC ≡ (Object, (undefined,[],[]))"
definition NullPointerC :: "'c cdecl" where
"NullPointerC ≡ (Xcpt NullPointer, (Object,[],[]))"
definition ClassCastC :: "'c cdecl" where
"ClassCastC ≡ (Xcpt ClassCast, (Object,[],[]))"
definition OutOfMemoryC :: "'c cdecl" where
"OutOfMemoryC ≡ (Xcpt OutOfMemory, (Object,[],[]))"
definition SystemClasses :: "'c cdecl list" where
"SystemClasses ≡ [ObjectC, NullPointerC, ClassCastC, OutOfMemoryC]"
end