home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
OL.LZH
/
PROCS.LZH
/
INSERTS.ICN
< prev
next >
Wrap
Text File
|
1991-07-13
|
650b
|
23 lines
############################################################################
#
# Name: inserts.icn
#
# Title: Build tables with duplicate keys
#
# Author: Robert J. Alexander
#
# Date: September 7, 1990
#
############################################################################
#
# inserts() -- Inserts values into a table in which the same key can
# have more than one value (i.e., duplicate keys). The value of each
# element is a list of inserted values. The table must be created
# with default value &null.
#
procedure inserts(tabl,key,value)
(/tabl[key] := [value]) | put(tabl[key],value)
return tabl
end