MAP.GET

   SUBROUTINE MAP.GET(MAT MAP,SIZE,KEY,VALUE)
*
   GIT.FILENAME = 'MAP.GET'
   GIT.REPO = 'https://github.com/Krowemoh/TCL-Utilities.git'
*
* VERSION
*
   VERSION = '1'
*
   @USER1 = 'MAP.GET'
   @USER2 = 'MAP.GET'
*
   DIM MAP(SIZE)
*
   GOSUB SETUP
*
   KEY.LEN = LEN(KEY)
*
   HASH = 5381
*
   FOR I = 1 TO KEY.LEN
      C = KEY[I,1]
*
* HASH = HASH * 33 + C
*
      HASH = SADD(SMUL(HASH,33),SEQ(C))
   NEXT I
*
* POS = HASH - (INT(HASH / SIZE) * HASH)
*
   D = SDIV(HASH,SIZE)
   E = INDEX(D,'.',1)
*
   IF E = 0 THEN E = LEN(D)
*
   DIVISION = D[1,E]
   MULTIPLE = SMUL(DIVISION,SIZE)
   POS = SSUB(HASH,MULTIPLE) + 1
*
   LOCATE(KEY,MAP(POS)<1>,1,1;ANYPOS) THEN
      VALUE = MAP(POS)<1,2,ANYPOS>
      GOSUB RAISE
   END ELSE
      VALUE = ''
   END
*
   RETURN
*
*********************  S U B R O U T I N E  *********************
*
SETUP:NULL
*
   HIGH = CHAR(256):CHAR(255):CHAR(254):CHAR(253):CHAR(252):CHAR(251):CHAR(250):CHAR(249):CHAR(248):CHAR(247):CHAR(246):CHAR(245):CHAR(244):CHAR(243):CHAR(242):CHAR(241):CHAR(240):CHAR(239):CHAR(238):CHAR(237):CHAR(236):CHAR(235):CHAR(234):CHAR(233):CHAR(232):CHAR(231):CHAR(230):CHAR(229):CHAR(228):CHAR(227):CHAR(226):CHAR(225):CHAR(224):CHAR(223):CHAR(222):CHAR(221):CHAR(220):CHAR(219):CHAR(218):CHAR(217):CHAR(216):CHAR(215):CHAR(214):CHAR(213):CHAR(212):CHAR(211):CHAR(210):CHAR(209):CHAR(208):CHAR(207):CHAR(206):CHAR(205):CHAR(204):CHAR(203)
*
   LOW = CHAR(253):CHAR(252):CHAR(251):CHAR(250):CHAR(249):CHAR(248):CHAR(247):CHAR(246):CHAR(245):CHAR(244):CHAR(243):CHAR(242):CHAR(241):CHAR(240):CHAR(239):CHAR(238):CHAR(237):CHAR(236):CHAR(235):CHAR(234):CHAR(233):CHAR(232):CHAR(231):CHAR(230):CHAR(229):CHAR(228):CHAR(227):CHAR(226):CHAR(225):CHAR(224):CHAR(223):CHAR(222):CHAR(221):CHAR(220):CHAR(219):CHAR(218):CHAR(217):CHAR(216):CHAR(215):CHAR(214):CHAR(213):CHAR(212):CHAR(211):CHAR(210):CHAR(209):CHAR(208):CHAR(207):CHAR(206):CHAR(205):CHAR(204):CHAR(203):CHAR(202):CHAR(201):CHAR(200)
*
   RETURN
*
*********************  S U B R O U T I N E  *********************
*
RAISE:NULL
*
   CONVERT LOW TO HIGH IN VALUE
*
   RETURN
*
* END OF PROGRAM
*
   END
*