diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2013-01-28 19:02:21 +0000 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2013-01-28 19:02:21 +0000 |
commit | d78e6c19ff93964183950f846868ade625e6b537 (patch) | |
tree | f2d588a9646c8496db23d3fe868d7dce4f7dfa83 /ipl/mprocs/typesyms.icn | |
parent | f944578414d5adc0c6c3fb22ad5808077444a410 (diff) | |
parent | f627f77f23d1497c9e1f4269b5c8812d12b42f18 (diff) | |
download | icon-d78e6c19ff93964183950f846868ade625e6b537.tar.gz |
Merge tag 'upstream/9.5.0'
Upstream version 9.5.0
Diffstat (limited to 'ipl/mprocs/typesyms.icn')
-rw-r--r-- | ipl/mprocs/typesyms.icn | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/ipl/mprocs/typesyms.icn b/ipl/mprocs/typesyms.icn deleted file mode 100644 index 04dee72..0000000 --- a/ipl/mprocs/typesyms.icn +++ /dev/null @@ -1,71 +0,0 @@ -############################################################################ -# -# File: typesyms.icn -# -# Subject: Procedure to map type codes to event codes -# -# Author: Ralph E. Griswold -# -# Date: June 8, 1994 -# -############################################################################ -# -# This file is in the public domain. -# -############################################################################ -# -# typesyms() returns a table that maps type codes to event codes. The -# table can be subscripted either by one-character strings in the style -# of typecode() or by the integer values given by T_type globals. -# -# This procedure is intended for use with event monitors running under -# MT Icon. -# -############################################################################ -# -# See also: typecode.icn -# -############################################################################ -# -# Includes: evdefs.icn -# -############################################################################ - -$include "evdefs.icn" - -procedure typesyms() - static typetable - - initial { - typetable := table() - - typetable["L"] := E_List - typetable["S"] := E_Set - typetable["T"] := E_Table - typetable["R"] := E_Record - typetable["s"] := E_String - typetable["c"] := E_Cset - typetable["i"] := E_Integer - typetable["r"] := E_Real - typetable["f"] := E_File - typetable["n"] := E_Null - typetable["p"] := E_Proc - typetable["C"] := E_Coexpr - - typetable[T_List] := E_List - typetable[T_Set] := E_Set - typetable[T_Table] := E_Table - typetable[T_Record] := E_Record - typetable[T_String] := E_String - typetable[T_Cset] := E_Cset - typetable[T_Integer] := E_Integer - typetable[T_Real] := E_Real - typetable[T_File] := E_File - typetable[T_Null] := E_Null - typetable[T_Proc] := E_Proc - typetable[T_Coexpr] := E_Coexpr - } - - return typetable - -end |