Artifact
74c6a3e68ce87d424ad646bcea5f7a4a16a93225:
0000: 0a 28 6c 69 62 72 61 72 79 20 28 73 72 66 69 20 .(library (srfi
0010: 70 72 69 76 61 74 65 20 70 6c 61 74 66 6f 72 6d private platform
0020: 2d 66 65 61 74 75 72 65 73 29 0a 20 20 0a 20 20 -features). .
0030: 28 65 78 70 6f 72 74 20 4f 53 2d 66 65 61 74 75 (export OS-featu
0040: 72 65 73 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 res implementati
0050: 6f 6e 2d 66 65 61 74 75 72 65 73 29 0a 20 20 0a on-features). .
0060: 20 20 28 69 6d 70 6f 72 74 0a 20 20 20 28 6f 6e (import. (on
0070: 6c 79 20 28 72 6e 72 73 29 20 64 65 66 69 6e 65 ly (rnrs) define
0080: 20 71 75 6f 74 65 29 0a 20 20 20 28 6f 6e 6c 79 quote). (only
0090: 20 28 6d 6f 73 68 29 20 68 6f 73 74 2d 6f 73 29 (mosh) host-os)
00a0: 0a 20 20 20 28 73 72 66 69 20 70 72 69 76 61 74 . (srfi privat
00b0: 65 20 4f 53 2d 69 64 2d 66 65 61 74 75 72 65 73 e OS-id-features
00c0: 29 29 0a 0a 20 20 28 64 65 66 69 6e 65 20 28 4f )).. (define (O
00d0: 53 2d 66 65 61 74 75 72 65 73 29 0a 20 20 20 20 S-features).
00e0: 28 4f 53 2d 69 64 2d 66 65 61 74 75 72 65 73 0a (OS-id-features.
00f0: 20 20 20 20 20 28 68 6f 73 74 2d 6f 73 29 0a 20 (host-os).
0100: 20 20 20 20 27 28 28 22 6c 69 6e 75 78 22 20 6c '(("linux" l
0110: 69 6e 75 78 20 70 6f 73 69 78 29 0a 20 20 20 20 inux posix).
0120: 20 20 20 28 22 62 73 64 22 20 6c 69 6e 75 78 20 ("bsd" linux
0130: 70 6f 73 69 78 29 0a 20 20 20 20 20 20 20 28 22 posix). ("
0140: 64 61 72 77 69 6e 22 20 64 61 72 77 69 6e 20 70 darwin" darwin p
0150: 6f 73 69 78 29 29 29 29 0a 0a 20 20 28 64 65 66 osix)))).. (def
0160: 69 6e 65 20 28 69 6d 70 6c 65 6d 65 6e 74 61 74 ine (implementat
0170: 69 6f 6e 2d 66 65 61 74 75 72 65 73 29 0a 20 20 ion-features).
0180: 20 20 27 28 6d 6f 73 68 29 29 29 0a '(mosh))).