Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
guile /
3.0 /
ice-9 /
[ HOME SHELL ]
Name
Size
Permission
Action
peg
[ DIR ]
drwxr-xr-x
and-let-star.scm
2.53
KB
-rw-r--r--
arrays.scm
2.63
KB
-rw-r--r--
atomic.scm
1.55
KB
-rw-r--r--
binary-ports.scm
2.71
KB
-rw-r--r--
boot-9.scm
166.42
KB
-rw-r--r--
buffered-input.scm
4.82
KB
-rw-r--r--
calling.scm
10.54
KB
-rw-r--r--
command-line.scm
18.6
KB
-rw-r--r--
common-list.scm
8.95
KB
-rw-r--r--
control.scm
4.08
KB
-rw-r--r--
copy-tree.scm
3.05
KB
-rw-r--r--
curried-definitions.scm
1.79
KB
-rw-r--r--
deprecated.scm
1.54
KB
-rw-r--r--
documentation.scm
7.41
KB
-rw-r--r--
eval-string.scm
2.99
KB
-rw-r--r--
eval.scm
25.08
KB
-rw-r--r--
exceptions.scm
14.38
KB
-rw-r--r--
expect.scm
5.5
KB
-rw-r--r--
fdes-finalizers.scm
1.06
KB
-rw-r--r--
format.scm
65.47
KB
-rw-r--r--
ftw.scm
25.06
KB
-rw-r--r--
futures.scm
10.49
KB
-rw-r--r--
gap-buffer.scm
9.59
KB
-rw-r--r--
getopt-long.scm
16.49
KB
-rw-r--r--
hash-table.scm
1.77
KB
-rw-r--r--
hcons.scm
2.55
KB
-rw-r--r--
history.scm
2.29
KB
-rw-r--r--
i18n.scm
20.51
KB
-rw-r--r--
iconv.scm
3.19
KB
-rw-r--r--
lineio.scm
3.85
KB
-rw-r--r--
list.scm
1.29
KB
-rw-r--r--
local-eval.scm
9.84
KB
-rw-r--r--
ls.scm
3.2
KB
-rw-r--r--
match.scm
2.18
KB
-rw-r--r--
match.upstream.scm
35.93
KB
-rw-r--r--
networking.scm
3.33
KB
-rw-r--r--
null.scm
1.21
KB
-rw-r--r--
occam-channel.scm
7.26
KB
-rw-r--r--
optargs.scm
15.75
KB
-rw-r--r--
peg.scm
1.64
KB
-rw-r--r--
poe.scm
3.3
KB
-rw-r--r--
poll.scm
5.79
KB
-rw-r--r--
popen.scm
9.27
KB
-rw-r--r--
ports.scm
19.08
KB
-rw-r--r--
posix.scm
2.73
KB
-rw-r--r--
pretty-print.scm
16.88
KB
-rw-r--r--
psyntax-pp.scm
182.88
KB
-rw-r--r--
psyntax.scm
148.97
KB
-rw-r--r--
q.scm
4.2
KB
-rw-r--r--
quasisyntax.scm
5.22
KB
-rw-r--r--
r5rs.scm
1.56
KB
-rw-r--r--
r6rs-libraries.scm
10.38
KB
-rw-r--r--
r7rs-libraries.scm
4.28
KB
-rw-r--r--
rdelim.scm
7.72
KB
-rw-r--r--
read.scm
32.52
KB
-rw-r--r--
readline.scm
9.56
KB
-rw-r--r--
receive.scm
1.06
KB
-rw-r--r--
regex.scm
8.87
KB
-rw-r--r--
runq.scm
8.18
KB
-rw-r--r--
rw.scm
1.02
KB
-rw-r--r--
safe-r5rs.scm
7.5
KB
-rw-r--r--
safe.scm
1.25
KB
-rw-r--r--
sandbox.scm
34.24
KB
-rw-r--r--
save-stack.scm
2.15
KB
-rw-r--r--
scm-style-repl.scm
11.62
KB
-rw-r--r--
serialize.scm
3.78
KB
-rw-r--r--
session.scm
17.72
KB
-rw-r--r--
slib.scm
1.55
KB
-rw-r--r--
stack-catch.scm
1.94
KB
-rw-r--r--
streams.scm
5.86
KB
-rw-r--r--
string-fun.scm
9.68
KB
-rw-r--r--
suspendable-ports.scm
29.86
KB
-rw-r--r--
textual-ports.scm
2.29
KB
-rw-r--r--
threads.scm
12.54
KB
-rw-r--r--
time.scm
2.07
KB
-rw-r--r--
top-repl.scm
2.63
KB
-rw-r--r--
unicode.scm
1005
B
-rw-r--r--
vlist.scm
21.56
KB
-rw-r--r--
weak-vector.scm
1.2
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : r7rs-libraries.scm
;; R7RS library support ;; Copyright (C) 2020, 2021 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 ;; This file is included from boot-9.scm and assumes the existence of (and ;; expands into) procedures and syntactic forms defined therein. (define-syntax include-library-declarations (lambda (x) (syntax-violation 'include-library-declarations "use of 'include-library-declarations' outside define-library" x x))) ;; FIXME: Implement properly! (define-syntax-rule (include-ci filename) (include filename)) (define-syntax define-library (lambda (stx) (define (handle-includes filenames) (syntax-case filenames () (() #'()) ((filename . filenames) (append (call-with-include-port #'filename (lambda (p) (let lp () (let ((x (read p))) (if (eof-object? x) #'() (cons (datum->syntax #'filename x) (lp))))))) (handle-includes #'filenames))))) (define (handle-cond-expand clauses) (define (has-req? req) (syntax-case req (and or not library) ((and req ...) (and-map has-req? #'(req ...))) ((or req ...) (or-map has-req? #'(req ...))) ((not req) (not (has-req? #'req))) ((library lib-name) (->bool (resolve-interface (syntax->datum #'lib-name)))) (id (identifier? #'id) ;; FIXME: R7RS (features) isn't quite the same as ;; %cond-expand-features; see scheme/base.scm. (memq (syntax->datum #'id) %cond-expand-features)))) (syntax-case clauses () (() #'()) ; R7RS says this is not specified :-/ (((test decl ...) . clauses) (if (has-req? #'test) #'(decl ...) (handle-cond-expand #'clauses))))) (define (partition-decls decls exports imports code) (syntax-case decls (export import begin include include-ci include-library-declarations cond-expand) (() (values exports imports (reverse code))) (((export clause ...) . decls) (partition-decls #'decls (append exports #'(clause ...)) imports code)) (((import clause ...) . decls) (partition-decls #'decls exports (append imports #'(clause ...)) code)) (((begin expr ...) . decls) (partition-decls #'decls exports imports (cons #'(begin expr ...) code))) (((include filename ...) . decls) (partition-decls #'decls exports imports (cons #'(begin (include filename) ...) code))) (((include-ci filename ...) . decls) (partition-decls #'decls exports imports (cons #'(begin (include-ci filename) ...) code))) (((include-library-declarations filename ...) . decls) (syntax-case (handle-includes #'(filename ...)) () ((decl ...) (partition-decls #'(decl ... . decls) exports imports code)))) (((cond-expand clause ...) . decls) (syntax-case (handle-cond-expand #'(clause ...)) () ((decl ...) (partition-decls #'(decl ... . decls) exports imports code)))))) (syntax-case stx () ((_ name decl ...) (call-with-values (lambda () (partition-decls #'(decl ...) '() '() '())) (lambda (exports imports code) #`(library name (export . #,exports) (import . #,imports) . #,code)))))))
Close