Thunderchez: Hex Artifact Content

Artifact 72b9797847ad5e6bceee24f3bb50104216a53ffe:

File foof/match.sls — part of check-in [112a40d018] at 2016-09-01 08:27:10 on branch trunk — various improvements, added lmdb , added license notices (user: ovenpasta@pizzahack.eu size: 1195)
0000: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b  ;;;;;;;;;;;;;;;;
0010: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b  ;;;;;;;;;;;;;;;;
0020: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b  ;;;;;;;;;;;;;;;;
0030: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b  ;;;;;;;;;;;;;;;;
0040: 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 20 52 36 52  ;;;;;;;;.;;; R6R
0050: 53 20 57 72 61 70 70 65 72 73 20 66 6f 72 20 41  S Wrappers for A
0060: 6c 65 78 20 53 68 69 6e 6e 27 73 20 4d 61 74 63  lex Shinn's Matc
0070: 68 20 28 57 72 69 67 68 74 20 43 6f 6d 70 61 74  h (Wright Compat
0080: 69 62 6c 65 29 0a 3b 3b 3b 20 0a 3b 3b 3b 20 43  ible).;;; .;;; C
0090: 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30 30  opyright (c) 200
00a0: 39 20 41 61 72 6f 6e 20 57 2e 20 48 73 75 20 3c  9 Aaron W. Hsu <
00b0: 61 72 63 66 69 64 65 40 73 61 63 72 69 64 65 6f  arcfide@sacrideo
00c0: 2e 75 73 3e 0a 3b 3b 3b 20 0a 3b 3b 3b 20 50 65  .us>.;;; .;;; Pe
00d0: 72 6d 69 73 73 69 6f 6e 20 74 6f 20 75 73 65 2c  rmission to use,
00e0: 20 63 6f 70 79 2c 20 6d 6f 64 69 66 79 2c 20 61   copy, modify, a
00f0: 6e 64 20 64 69 73 74 72 69 62 75 74 65 20 74 68  nd distribute th
0100: 69 73 20 73 6f 66 74 77 61 72 65 20 66 6f 72 0a  is software for.
0110: 3b 3b 3b 20 61 6e 79 20 70 75 72 70 6f 73 65 20  ;;; any purpose 
0120: 77 69 74 68 20 6f 72 20 77 69 74 68 6f 75 74 20  with or without 
0130: 66 65 65 20 69 73 20 68 65 72 65 62 79 20 67 72  fee is hereby gr
0140: 61 6e 74 65 64 2c 20 70 72 6f 76 69 64 65 64 20  anted, provided 
0150: 74 68 61 74 20 74 68 65 0a 3b 3b 3b 20 61 62 6f  that the.;;; abo
0160: 76 65 20 63 6f 70 79 72 69 67 68 74 20 6e 6f 74  ve copyright not
0170: 69 63 65 20 61 6e 64 20 74 68 69 73 20 70 65 72  ice and this per
0180: 6d 69 73 73 69 6f 6e 20 6e 6f 74 69 63 65 20 61  mission notice a
0190: 70 70 65 61 72 20 69 6e 20 61 6c 6c 0a 3b 3b 3b  ppear in all.;;;
01a0: 20 63 6f 70 69 65 73 2e 0a 3b 3b 3b 20 0a 3b 3b   copies..;;; .;;
01b0: 3b 20 54 48 45 20 53 4f 46 54 57 41 52 45 20 49  ; THE SOFTWARE I
01c0: 53 20 50 52 4f 56 49 44 45 44 20 22 41 53 20 49  S PROVIDED "AS I
01d0: 53 22 20 41 4e 44 20 54 48 45 20 41 55 54 48 4f  S" AND THE AUTHO
01e0: 52 20 44 49 53 43 4c 41 49 4d 53 20 41 4c 4c 0a  R DISCLAIMS ALL.
01f0: 3b 3b 3b 20 57 41 52 52 41 4e 54 49 45 53 20 57  ;;; WARRANTIES W
0200: 49 54 48 20 52 45 47 41 52 44 20 54 4f 20 54 48  ITH REGARD TO TH
0210: 49 53 20 53 4f 46 54 57 41 52 45 20 49 4e 43 4c  IS SOFTWARE INCL
0220: 55 44 49 4e 47 20 41 4c 4c 20 49 4d 50 4c 49 45  UDING ALL IMPLIE
0230: 44 0a 3b 3b 3b 20 57 41 52 52 41 4e 54 49 45 53  D.;;; WARRANTIES
0240: 20 4f 46 20 4d 45 52 43 48 41 4e 54 41 42 49 4c   OF MERCHANTABIL
0250: 49 54 59 20 41 4e 44 20 46 49 54 4e 45 53 53 2e  ITY AND FITNESS.
0260: 20 49 4e 20 4e 4f 20 45 56 45 4e 54 20 53 48 41   IN NO EVENT SHA
0270: 4c 4c 20 54 48 45 0a 3b 3b 3b 20 41 55 54 48 4f  LL THE.;;; AUTHO
0280: 52 20 42 45 20 4c 49 41 42 4c 45 20 46 4f 52 20  R BE LIABLE FOR 
0290: 41 4e 59 20 53 50 45 43 49 41 4c 2c 20 44 49 52  ANY SPECIAL, DIR
02a0: 45 43 54 2c 20 49 4e 44 49 52 45 43 54 2c 20 4f  ECT, INDIRECT, O
02b0: 52 20 43 4f 4e 53 45 51 55 45 4e 54 49 41 4c 0a  R CONSEQUENTIAL.
02c0: 3b 3b 3b 20 44 41 4d 41 47 45 53 20 4f 52 20 41  ;;; DAMAGES OR A
02d0: 4e 59 20 44 41 4d 41 47 45 53 20 57 48 41 54 53  NY DAMAGES WHATS
02e0: 4f 45 56 45 52 20 52 45 53 55 4c 54 49 4e 47 20  OEVER RESULTING 
02f0: 46 52 4f 4d 20 4c 4f 53 53 20 4f 46 20 55 53 45  FROM LOSS OF USE
0300: 2c 20 44 41 54 41 0a 3b 3b 3b 20 4f 52 20 50 52  , DATA.;;; OR PR
0310: 4f 46 49 54 53 2c 20 57 48 45 54 48 45 52 20 49  OFITS, WHETHER I
0320: 4e 20 41 4e 20 41 43 54 49 4f 4e 20 4f 46 20 43  N AN ACTION OF C
0330: 4f 4e 54 52 41 43 54 2c 20 4e 45 47 4c 49 47 45  ONTRACT, NEGLIGE
0340: 4e 43 45 20 4f 52 20 4f 54 48 45 52 0a 3b 3b 3b  NCE OR OTHER.;;;
0350: 20 54 4f 52 54 49 4f 55 53 20 41 43 54 49 4f 4e   TORTIOUS ACTION
0360: 2c 20 41 52 49 53 49 4e 47 20 4f 55 54 20 4f 46  , ARISING OUT OF
0370: 20 4f 52 20 49 4e 20 43 4f 4e 4e 45 43 54 49 4f   OR IN CONNECTIO
0380: 4e 20 57 49 54 48 20 54 48 45 20 55 53 45 20 4f  N WITH THE USE O
0390: 52 0a 3b 3b 3b 20 50 45 52 46 4f 52 4d 41 4e 43  R.;;; PERFORMANC
03a0: 45 20 4f 46 20 54 48 49 53 20 53 4f 46 54 57 41  E OF THIS SOFTWA
03b0: 52 45 2e 0a 0a 28 6c 69 62 72 61 72 79 20 28 66  RE...(library (f
03c0: 6f 6f 66 20 6d 61 74 63 68 29 0a 20 20 28 65 78  oof match).  (ex
03d0: 70 6f 72 74 20 0a 20 20 20 20 6d 61 74 63 68 0a  port .    match.
03e0: 20 20 20 20 6d 61 74 63 68 2d 6c 61 6d 62 64 61      match-lambda
03f0: 20 0a 20 20 20 20 6d 61 74 63 68 2d 6c 61 6d 62   .    match-lamb
0400: 64 61 2a 20 0a 20 20 20 20 6d 61 74 63 68 2d 6c  da* .    match-l
0410: 65 74 20 0a 20 20 20 20 6d 61 74 63 68 2d 6c 65  et .    match-le
0420: 74 2a 20 0a 20 20 20 20 6d 61 74 63 68 2d 6c 65  t* .    match-le
0430: 74 72 65 63 0a 20 20 20 20 6d 61 74 63 68 2d 6e  trec.    match-n
0440: 61 6d 65 64 2d 6c 65 74 29 0a 20 20 28 69 6d 70  amed-let).  (imp
0450: 6f 72 74 20 0a 20 20 20 20 28 72 6e 72 73 20 62  ort .    (rnrs b
0460: 61 73 65 29 0a 20 20 20 20 28 73 72 66 69 20 70  ase).    (srfi p
0470: 72 69 76 61 74 65 20 69 6e 63 6c 75 64 65 29 29  rivate include))
0480: 0a 0a 28 69 6e 63 6c 75 64 65 2f 72 65 73 6f 6c  ..(include/resol
0490: 76 65 20 28 22 66 6f 6f 66 22 29 20 22 6d 61 74  ve ("foof") "mat
04a0: 63 68 2e 73 63 6d 22 29 0a 0a 29                 ch.scm")..)