| /dports/lang/chez-scheme/ChezScheme-9.5.4/nanopass/nanopass/ |
| H A D | prefix-matcher.ss | 28 (let ([end (prefix-node-end node)])
31 (let ([node-str (prefix-node-str node)])
48 (list (make-prefix-node str start len result '()))
54 (make-prefix-node node-str start offset #f
55 (cons (make-prefix-node str offset len result '())
56 (make-prefix-node node-str offset (prefix-node-end node)
62 (cons (make-prefix-node node-str start (prefix-node-end node)
68 [else (cons (make-prefix-node node-str start offset #f
69 (list (make-prefix-node node-str offset end
92 … (make-prefix-node (prefix-node-str next) (prefix-node-start node)
[all …]
|
| /dports/textproc/dsssl-docbook-modular/docbook-dsssl-1.79/html/ |
| H A D | dbindex.dsl | 29 (let ((preamble (node-list-filter-by-not-gi
50 (let ((preamble (node-list-filter-by-not-gi
72 (let ((preamble (node-list-filter-by-not-gi
95 (let loop ((nl nodes) (result '()) (curlist (empty-node-list)))
111 (let ((see? (equal? (gi (node-list-first secnl))
135 (let ((see? (equal? (gi (node-list-first tertnl))
160 (let ((id (attribute-string (normalize "id") (parent node))))
187 (let* ((primary (break-node-list (children (current-node))
205 (let* ((preferred (not (node-list-empty?
272 (let* ((attr (gi (current-node)))
[all …]
|
| H A D | dbqanda.dsl | 14 (let* ((enclsect (ancestor-member (current-node)
28 (let ((depth (length (hierarchical-number-recursive
33 (let ((title (select-elements (children (current-node))
48 (let* ((htmlgi (string-append "H" (number->string
62 (number (let loop ((numlist hnr) (number "") (sep ""))
86 (let* ((chlist (children (current-node)))
118 (let* ((divs (node-list-filter-by-gi (children node)
132 (let ((title (select-elements (children (current-node))
134 (make sequence
143 (number (let loop ((numlist hnr) (number "") (sep ""))
[all …]
|
| H A D | dbfootn.dsl | 11 (let ((id (if (attribute-string (normalize "id"))
49 (let* ((footnotes (select-elements
52 (let loop ((nl footnotes) (num 1))
72 (let loop ((nl footnotes) (num 1))
90 (let ((id (if (attribute-string (normalize "id") (parent (current-node)))
107 (let loop ((nl footnotenl) (result (empty-node-list)))
117 (define (make-endnotes #!optional (node (current-node)))
119 (let* ((allfootnotes (select-elements (descendants node)
176 (let ((id (if (attribute-string (normalize "id") (current-node))
216 (let* ((footnotes (select-elements (descendants (current-node))
[all …]
|
| H A D | dblists.dsl | 10 (let* ((depth (length (hierarchical-number-recursive
156 (let ((terms (select-elements (children (current-node)) (normalize "term")))
192 (let* ((terms (select-elements (children (current-node))
269 (let* ((termcount (node-list-length members))
271 (htmlrows (let rowloop ((rownum 1))
294 (let colloop ((colnum 1))
308 (let loop ((nl members) (count membernum))
318 (let ((type (attribute-string "type"))
354 (let* ((seg-num (child-number (current-node)))
407 (let ((footnotes (select-elements (descendants (current-node))
[all …]
|
| H A D | dbbibl.dsl | 15 (let* ((bibliography (ancestor-member (current-node)
29 (let* ((allbibcontent (children (current-node)))
50 (let ((title (element-title-sosofo (current-node)))
61 (let ((title (element-title-sosofo (current-node)))
84 (let* ((sect (ancestor-member (current-node)
99 (let* ((allentries (node-list-filter-by-gi (children (current-node))
310 (let ((inline-children (node-list-filter-by-not-gi
340 (let* ((nl (children (current-node)))
359 (let ((inline-children (node-list-filter-by-not-gi
383 (let ((years (select-elements (children (current-node))
[all …]
|
| H A D | dbinline.dsl | 54 (let* ((action (attribute-string (normalize "action")))
64 (let loop ((nl (children (current-node))) (count 1))
81 (let* ((shortcut (select-elements (children (current-node))
87 (let loop ((nl items) (first? #t))
138 (let* ((bgraphies (select-elements (descendants (sgml-root-element))
148 (let loop ((bibs bibentries))
180 (let* ((refentrytitle (select-elements (children (current-node))
199 (let* ((class (if (and (attribute-string (normalize "role"))
215 (let* ((class (if (and (attribute-string (normalize "role"))
224 (let* ((hnr (hierarchical-number-recursive (normalize "quote")
[all …]
|
| H A D | dbtable.dsl | 183 (let* ((wrapper (parent (current-node)))
205 (let* ((wrapper (parent (current-node)))
228 (let* ((wrapper (parent (current-node)))
251 (let* ((wrapper (parent (parent (parent (parent (current-node))))))
318 (make sequence
354 (make sequence
376 (make sequence
389 (make sequence
399 (let* ((node (node-list-first nl))
427 (make sequence
[all …]
|
| H A D | dbgraph.dsl | 120 (make element gi: "P"
142 (make element gi: "DIV"
144 (make element gi: "P"
148 (make element gi: "SPAN"
165 (let ((filename (data-filename (current-node))))
166 (make element gi: "EMBED"
173 (let ((filename (data-filename (current-node))))
174 (make element gi: "EMBED"
181 (let* ((filename (data-filename (current-node)))
210 (make element gi: "DIV"
[all …]
|
| H A D | dbefsyn.dsl | 109 (let* ((classes (select-elements (children (current-node))
248 (let* ((modifiers (select-elements (children nd)
283 (let* ((classes (node-list-filter-by-gi (children (current-node))
286 (classname (let loop ((nl classes) (cn (empty-node-list)))
295 (superclasses (let loop ((nl classes))
409 (let* ((modifiers (select-elements (children nd)
444 (let* ((modifiers (select-elements (children (current-node))
551 (let* ((modifiers (select-elements (children nd)
580 (let* ((modifiers (select-elements (children (current-node))
700 (let* ((modifiers (select-elements (children nd)
[all …]
|
| H A D | dbverb.dsl | 8 (let ((wrapper (ancestor-member (current-node)
39 (make sequence
58 (make sequence
70 (let loop ((charlist (string->list string))
76 (let ((c (car charlist)))
83 (let ((content (make element gi: "PRE"
95 (make sequence
103 (let loop ((kl (children (current-node)))
114 (let ((c (node-list-first kl)))
129 (let loop ((kl (children (current-node)))
[all …]
|
| /dports/lang/ocaml/ocaml-4.05.0/utils/ |
| H A D | strongly_connected_components.ml | 29 let transposed = Array.make size [] in
37 let marked = Array.make size false in
38 let stack = Array.make size ~-1 in
44 let rec aux node =
60 let marked = Array.make size false in
61 let id = Array.make size ~-1 in
63 let rec aux node =
72 let node = order.(i) in
93 let id_scc = Array.make ncomponents [] in
94 let component_graph = Array.make ncomponents Int.Set.empty in
[all …]
|
| /dports/lang/ocaml-nox11/ocaml-4.05.0/utils/ |
| H A D | strongly_connected_components.ml | 29 let transposed = Array.make size [] in
37 let marked = Array.make size false in
38 let stack = Array.make size ~-1 in
44 let rec aux node =
60 let marked = Array.make size false in
61 let id = Array.make size ~-1 in
63 let rec aux node =
72 let node = order.(i) in
93 let id_scc = Array.make ncomponents [] in
94 let component_graph = Array.make ncomponents Int.Set.empty in
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/rumble/ |
| H A D | hamt-vector.ss | 585 (make-bnode (hnode-eqtype node)
598 (make-bnode (hnode-eqtype node)
621 (make-bnode (hnode-eqtype node)
642 (make-bnode (hnode-eqtype node)
661 (let ([cpy (#%make-vector len)])
679 (make-bnode (hnode-eqtype node)
692 (make-bnode (hnode-eqtype node)
714 (make-bnode (hnode-eqtype node)
838 (let ([empty (make-empty-bnode eqtype)]
919 (let ([vec (#%make-vector (fx1+ len) #t)])
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/rumble/ |
| H A D | hamt-vector.ss | 585 (make-bnode (hnode-eqtype node)
598 (make-bnode (hnode-eqtype node)
621 (make-bnode (hnode-eqtype node)
642 (make-bnode (hnode-eqtype node)
661 (let ([cpy (#%make-vector len)])
679 (make-bnode (hnode-eqtype node)
692 (make-bnode (hnode-eqtype node)
714 (make-bnode (hnode-eqtype node)
838 (let ([empty (make-empty-bnode eqtype)]
919 (let ([vec (#%make-vector (fx1+ len) #t)])
[all …]
|
| /dports/textproc/dsssl-docbook-modular/docbook-dsssl-1.79/print/ |
| H A D | dbqanda.dsl | 13 (let ((title (select-elements (children (current-node))
20 (let* ((enclsect (ancestor-member (current-node)
33 (make paragraph
48 (let ((title (select-elements (children (current-node))
50 (make sequence
59 (number (let loop ((numlist hnr) (number "") (sep ""))
74 (let* ((preamble (node-list-filter-by-not-gi
94 (let* ((chlist (children (current-node)))
102 (make sequence
112 (let* ((chlist (children (current-node)))
[all …]
|
| H A D | dblists.dsl | 19 (let ((md (case-fold-down m)))
36 (let ((md (case-fold-down m)))
76 (let* ((itemcontent (children (current-node)))
152 (let* ((listitems (select-elements (children (parent (current-node)))
158 (let loop ((nd (current-node)) (inum ""))
196 (let* ((depth (length (hierarchical-number-recursive (normalize "orderedlist") node)))
277 (let* ((terms (select-elements (children (current-node))
352 (let* ((termcount (node-list-length members))
475 (let* ((seg-num (child-number (current-node)))
497 (let* ((calloutcontent (children (current-node)))
[all …]
|
| H A D | dbbibl.dsl | 21 (let* ((allbibcontent (children (current-node)))
61 (let* ((sect (ancestor-member (current-node)
91 (let* ((allentries (node-list-filter-by-gi (children (current-node))
223 (let ((inline-children (node-list-filter-by-not-gi
251 (let* ((nl (children (current-node)))
270 (let ((inline-children (node-list-filter-by-not-gi
294 (let ((years (select-elements (children (current-node))
390 (let ((pubname (select-elements (children (current-node))
522 (let ((revnumber (select-elements (descendants (current-node))
635 (let* ((all-inline-children (children (current-node)))
[all …]
|
| H A D | dbefsyn.dsl | 15 (let ((language (if (attribute-string (normalize "language"))
31 (let ((language (if (attribute-string (normalize "language"))
47 (let ((language (if (attribute-string (normalize "language"))
63 (let ((language (if (attribute-string (normalize "language"))
99 (let* ((classes (select-elements (children (current-node))
220 (let* ((modifiers (select-elements (children nd)
252 (let* ((modifiers (select-elements (children (current-node))
347 (let* ((modifiers (select-elements (children nd)
376 (let* ((modifiers (select-elements (children (current-node))
481 (let* ((modifiers (select-elements (children nd)
[all …]
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/benchmarks/gabriel/ |
| H A D | conform.sch | 195 (let loop ((edges (blue-edges node)))
318 (define any-node (make-node 'any '()))
341 (let ((none-comma-any (cons none-node any-node)))
343 (let ((the-edge (lookup-op op node)))
399 (let node-loop ((classes '())
408 (let ((this-node (car nodes)))
546 (set! a (make-node 'a))
547 (set! b (make-node 'b))
551 (set! c (make-node "c"))
552 (set! d (make-node "d"))
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/s/ |
| H A D | compile.ss | 697 (let ([import-ht (make-hashtable libreq-hash libreq=?)]
779 (let ([source-table (make-source-table)])
1022 … (let ([node (make-library-node binary? linfo/ct #f (or libs-visible? binary?) ifn)])
1035 … (let ([node (make-library-node binary? #f linfo/rt (or libs-visible? binary?) ifn)])
1171 (let ([new-id (make-prelex
1237 (let ([patch-env (make-hashtable symbol-hash eq?)])
1282 (make-patch-env (list node*))))))
1526 (let ([ht (make-hashtable symbol-hash eq?)])
1888 (let ([library-collector (make-parameter '())])
1945 (let ([do-read ($make-read ip sfd fp)])
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
| H A D | compile.ss | 780 (let ([import-ht (make-hashtable libreq-hash libreq=?)]
866 (let ([source-table (make-source-table)])
1109 … (let ([node (make-library-node binary? linfo/ct #f (or libs-visible? binary?) ifn)])
1122 … (let ([node (make-library-node binary? #f linfo/rt (or libs-visible? binary?) ifn)])
1258 (let ([new-id (make-prelex
1335 (let ([patch-env (make-hashtable symbol-hash eq?)])
1380 (make-patch-env (list node*))
1627 (let ([ht (make-hashtable symbol-hash eq?)])
2039 (let ([library-collector (make-parameter '())])
2096 (let ([do-read ($make-read ip sfd fp)])
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
| H A D | compile.ss | 780 (let ([import-ht (make-hashtable libreq-hash libreq=?)]
866 (let ([source-table (make-source-table)])
1109 … (let ([node (make-library-node binary? linfo/ct #f (or libs-visible? binary?) ifn)])
1122 … (let ([node (make-library-node binary? #f linfo/rt (or libs-visible? binary?) ifn)])
1258 (let ([new-id (make-prelex
1335 (let ([patch-env (make-hashtable symbol-hash eq?)])
1380 (make-patch-env (list node*))
1627 (let ([ht (make-hashtable symbol-hash eq?)])
2039 (let ([library-collector (make-parameter '())])
2096 (let ([do-read ($make-read ip sfd fp)])
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/draw-lib/file/private/ |
| H A D | octree-quantize.rkt | 17 (let* ([an-octree (make-octree-from-argb argb palette)]
42 (let make-octree-loop ([i 0])
100 (let* ([new-bm (make-object bitmap% width height)]
138 (let* ([root-node (make-node #f ;; not a leaf
148 (make-octree root-node
177 (let insert-color-loop ([a-node a-node]
189 (let ([new-node (make-node (= level MAX-LEVEL) ; leaf?
266 (let loop ([a-node (octree-root an-octree)])
275 (let loop ([a-node (octree-root an-octree)])
277 (let ([n (node-npixels a-node)])
[all …]
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/data/ |
| H A D | trie.jl | 27 (export make-trie
32 make-trie-from-file)
44 (define (make-node) (list 'node))
50 (let ((cell (assq key (cdr node))))
58 (define make-trie make-node)
64 (let ((sub-tree (node-ref tree (car keys))))
68 (let ((sub (node-ref tree key)))
70 (let ((new (make-node)))
107 (tree (make-trie)))
109 (let loop ()
[all …]
|