OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
guile
/
2.0
/
srfi
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-1.scm
28.41 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-10.scm
2.76 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-11.scm
5.38 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-111.scm
1.28 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-13.scm
2.72 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-14.scm
2.33 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-16.scm
1.84 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-17.scm
6.42 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-18.scm
11.91 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-19.scm
55.92 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-2.scm
1.08 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-26.scm
2.58 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-27.scm
2.98 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-28.scm
1.17 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-31.scm
1.36 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-34.scm
3.2 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-35.scm
11.98 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-37.scm
8.37 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-38.scm
8.19 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-39.scm
2.11 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-4
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-4.scm
4.99 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-41.scm
19.91 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-42
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-42.scm
1.75 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-43.scm
39.07 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-45.scm
3.5 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-6.scm
1.56 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-60.scm
2.12 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-64
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-64.scm
2.51 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-67
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-67.scm
2.31 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-69.scm
12.7 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-8.scm
1.08 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-88.scm
1.71 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-9
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-9.scm
13.11 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-98.scm
1.57 KB
10/22/2016 08:09:34 PM
rw-r--r--
Editing: srfi-60.scm
Close
;;; srfi-60.scm --- Integers as Bits ;; Copyright (C) 2005, 2006, 2010 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public ;; License as published by the Free Software Foundation; either ;; version 3 of the License, or (at your option) any later version. ;; ;; This library is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; Lesser General Public License for more details. ;; ;; You should have received a copy of the GNU Lesser General Public ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (define-module (srfi srfi-60) #:export (bitwise-and bitwise-ior bitwise-xor bitwise-not any-bits-set? bitwise-if bitwise-merge log2-binary-factors first-set-bit bit-set? copy-bit bit-field copy-bit-field arithmetic-shift rotate-bit-field reverse-bit-field integer->list list->integer booleans->integer) #:replace (bit-count) #:re-export (logand logior logxor integer-length logtest logcount logbit? ash)) (load-extension (string-append "libguile-" (effective-version)) "scm_init_srfi_60") (define bitwise-and logand) (define bitwise-ior logior) (define bitwise-xor logxor) (define bitwise-not lognot) (define any-bits-set? logtest) (define bit-count logcount) (define (bitwise-if mask n0 n1) (logior (logand mask n0) (logand (lognot mask) n1))) (define bitwise-merge bitwise-if) (define first-set-bit log2-binary-factors) (define bit-set? logbit?) (define bit-field bit-extract) (define (copy-bit-field n newbits start end) (logxor n (ash (logxor (bit-extract n start end) ;; cancel old (bit-extract newbits 0 (- end start))) ;; insert new start))) (define arithmetic-shift ash) (cond-expand-provide (current-module) '(srfi-60))