Home
last modified time | relevance | path

Searched +refs:init +refs:rx +refs:path +refs:list (Results 1 – 25 of 2633) sorted by relevance

12345678910>>...106

/dports/lang/racket/racket-8.3/collects/racket/private/
H A Dpath-list.rkt1 (module path-list '#%kernel
4 (#%provide path-list-string->path-list)
6 (-define rx:path-list #f)
8 (-define (init-rx:path-list!)
9 (unless rx:path-list
10 (set! rx:path-list (byte-regexp (string->bytes/utf-8
25 (-define (path-list-string->path-list s default)
31 (raise-arguments-error 'path-list-string->path-list
36 (raise-argument-error 'path-list-string->path-list "(listof path?)" default))
37 (init-rx:path-list!)
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/racket/private/
H A Dpath-list.rkt1 (module path-list '#%kernel
4 (#%provide path-list-string->path-list)
6 (-define rx:path-list #f)
8 (-define (init-rx:path-list!)
9 (unless rx:path-list
10 (set! rx:path-list (byte-regexp (string->bytes/utf-8
25 (-define (path-list-string->path-list s default)
31 (raise-arguments-error 'path-list-string->path-list
36 (raise-argument-error 'path-list-string->path-list "(listof path?)" default))
37 (init-rx:path-list!)
[all …]
/dports/lang/racket/racket-8.3/collects/setup/
H A Dpack.rkt140 (define (path->list p)
145 (append (path->list base) (list name))
147 (define-values (init-dir init-as-dir init-files init-as-files)
157 (let* ([init-dir (if (string? path) (string->path path) path)]
158 [init-as-dir (if (string? as-path) (string->path as-path) as-path)])
159 (values init-dir
164 (let loop ([dir init-dir] [dpath (path->list init-dir)]
165 [as-dir init-as-dir] [as-dpath (path->list init-as-dir)]
210 (not (or (regexp-match? #rx#"^(?:[.](?:git.*|svn|cvsignore)|CVS|compiled|doc)$"
212 (regexp-match? #rx#"~$|^#.*#$|^[.]#" name)
[all …]
H A Dcollection-search.rkt2 (require racket/list
11 #:init [result #f]
21 (define (build-path* b p) (simplify-path (build-path b p)))
28 (for/fold ([result result]) ([p (in-list (current-library-collection-links))]
32 (for/fold ([result result]) ([r (in-list (current-library-collection-paths))]
47 (for/fold ([result result]) ([e (in-list content)]
50 (and (list? e)
68 (or (for/fold ([result result]) ([r (in-list (hash-ref p coll-sym null))]
71 (for/fold ([result result]) ([r (in-list (hash-ref p #f null))]
76 "internal error: unexpected collection-link list element")])))
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/setup/
H A Dpack.rkt140 (define (path->list p)
145 (append (path->list base) (list name))
147 (define-values (init-dir init-as-dir init-files init-as-files)
157 (let* ([init-dir (if (string? path) (string->path path) path)]
158 [init-as-dir (if (string? as-path) (string->path as-path) as-path)])
159 (values init-dir
164 (let loop ([dir init-dir] [dpath (path->list init-dir)]
165 [as-dir init-as-dir] [as-dpath (path->list init-as-dir)]
210 (not (or (regexp-match? #rx#"^(?:[.](?:git.*|svn|cvsignore)|CVS|compiled|doc)$"
212 (regexp-match? #rx#"~$|^#.*#$|^[.]#" name)
[all …]
H A Dcollection-search.rkt2 (require racket/list
11 #:init [result #f]
21 (define (build-path* b p) (simplify-path (build-path b p)))
28 (for/fold ([result result]) ([p (in-list (current-library-collection-links))]
32 (for/fold ([result result]) ([r (in-list (current-library-collection-paths))]
47 (for/fold ([result result]) ([e (in-list content)]
50 (and (list? e)
68 (or (for/fold ([result result]) ([r (in-list (hash-ref p coll-sym null))]
71 (for/fold ([result result]) ([r (in-list (hash-ref p #f null))]
76 "internal error: unexpected collection-link list element")])))
[all …]
/dports/lang/racket/racket-8.3/collects/pkg/private/
H A Dmod-paths.rkt13 (set->list (directory->module-paths dir pkg-name metadata-ns)))
19 (define (try-path s f)
30 (if (module-path? mp)
34 (let loop ([s (set)] [f 'init] [check-zo? #f])
36 [(eq? f 'init)
37 (for/fold ([s s]) ([f (directory-list)])
49 (for/fold ([s s]) ([f (directory-list f #:build? #t)])
65 [(regexp-match? #rx#"[.](?:rkt|ss|scrbl)$" bstr)
68 (regexp-match? #rx#"_(?:rkt|ss|scrbl)[.]zo$" (path-element->bytes name)))
74 #rx#"_(?:rkt|ss|scrbl)[.]zo$"
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/pkg/private/
H A Dmod-paths.rkt13 (set->list (directory->module-paths dir pkg-name metadata-ns)))
19 (define (try-path s f)
30 (if (module-path? mp)
34 (let loop ([s (set)] [f 'init] [check-zo? #f])
36 [(eq? f 'init)
37 (for/fold ([s s]) ([f (directory-list)])
49 (for/fold ([s s]) ([f (directory-list f #:build? #t)])
65 [(regexp-match? #rx#"[.](?:rkt|ss|scrbl)$" bstr)
68 (regexp-match? #rx#"_(?:rkt|ss|scrbl)[.]zo$" (path-element->bytes name)))
74 #rx#"_(?:rkt|ss|scrbl)[.]zo$"
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/drracket-tool-lib/drracket/
H A Dfind-module-path-completions.rkt21 (listof (list/c string? (and/c path? complete-path?))))
29 (-> path-string? (-> string? (listof (list/c string? path?))))]
61 (regexp-match? #rx"[.]bak$" x-str)
62 (regexp-match? #rx"~$" x-str))))
91 (define segments (regexp-split #rx"/" no-quotes-string))
105 (define segments (regexp-split #rx"/" string))
318 (map string->path '("list.rkt" "info.rkt" "include.rkt" "init.rkt" "gui"))]
344 ("init.rkt" ,(string->path "/plt/racket/collects/racket/init.rkt"))
354 ("init.rkt" ,(string->path "/plt/racket/collects/racket/init.rkt"))
369 (list "init.rkt" (string->path "/plt/racket/collects/racket/init.rkt"))))
[all …]
H A Dget-module-path.rkt14 (#:init [init string?]
24 (define (get-module-path-from-user #:init [init-value ""]
51 [init-value init-value]
81 [init-value (list-ref (preferences:get racket-binary-pref) 1)]
201 (list racket-path-cb racket-path-tf)
202 (list racket-path-cb)))))
209 (not (regexp-match? #rx"\0" s))
221 (define mtch (regexp-match #rx"(^.*/)[^/]*$" (send tf get-value)))
299 (init-alternate-racket-thread)
309 (init-alternate-racket-thread)
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/xrepl-lib/xrepl/
H A Dxrepl.rkt138 [(list 'file (? string? s)) (loop (string->path s))]
478 [(not (let ([arg (getarg 'path 'list #:default here-path)])
602 (define args (getarg 'path 'list #:default here-path))
627 (λ (str) (andmap (λ (rx) (regexp-match? rx str)) look)))]
842 (more-inputs* (map (λ (name) #`(load #,name)) (getarg 'path 'list))))
1021 (let ([files (getarg 'path 'list)]
1146 [init
1159 (when init
1191 [(list '! init) (switch #f #t init)]
1194 [(list name '! init) (switch name #t init)]
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/gui-lib/mred/private/
H A Dpath-dialog.rkt22 (define path-separator-rx-str (if win? "/\\" "/"))
24 (let ([l (map (lambda (s) (if (eq? / s) path-separator-rx-str s)) strs)])
26 (define end-separators-rx (make-rx "["/"]+$"))
27 (define initial-/dir-part-rx (make-rx "^["/"]*([^"/"]+)"))
28 (define initial-dir/-part-rx (make-rx "^.*?["/"]"))
29 (define isfilter-rx #rx"[*?]")
44 #rx"/" (if (path? p) (path->string p) p) "\\\\")
152 (init [label #f] ; dialog title
712 (new c [label #f] [parent this] [init-value ""])))
730 [init-value (cond [(path? filename) (path->string filename)]
[all …]
/dports/japanese/mutt-devel/mutt-1.5.21/
H A Dinit.c395 if (!*list || last) in add_to_list()
436 if (!*list || last) in mutt_add_to_rx_list()
501 *list = t; in add_to_spam_list()
542 spam = *list; in remove_from_spam_list()
1540 char path[_POSIX_PATH_MAX]; in mutt_restore_default() local
1541 strfcpy (path, (char *) p->init, sizeof (path)); in mutt_restore_default()
1542 mutt_expand_path (path, sizeof (path)); in mutt_restore_default()
1577 if (p->init) in mutt_restore_default()
2302 char path[_POSIX_PATH_MAX]; in parse_source() local
2314 strfcpy (path, tmp->data, sizeof (path)); in parse_source()
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/gui-pkg-manager-lib/pkg/gui/private/
H A Dby-installed.rkt24 (pkg-desc (path->string (path->complete-path s dir)) kind name #f #f)]
33 #:path (let loop ([p (path->complete-path s dir)]
66 [(path? a)
67 (or (not (path? b))
68 (bytes<? (path->bytes a) (path->bytes b)))]
69 [(path? b) #f]
82 (init-field [in-terminal in-terminal])
250 (define show-installed (let ([rx (send filter-panel get-rx)])
254 (regexp-match? rx (ipkg-name a))
255 (regexp-match? rx (~a (ipkg-scope a)))
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/drracket/drracket/
H A Ddrracket.rkt34 (when (regexp-match #rx"^cm: *compil(ing|ed)" str)
51 (use-compiled-file-paths (list (build-path compiled-dir "errortrace")))
75 (λ (x) (regexp-match #rx"rkt$" (path->string x)))
76 (directory-list dir))))
85 (define ele (list-ref lst index))
88 (vector->list vec))
100 (if (list? dirs)
102 (list dirs))))
162 (define init-file (find-system-path 'init-file))
163 (when (file-exists? init-file)
[all …]
/dports/lang/php-mode.el/php-mode-1.24.0/lisp/
H A Dphp.el33 (require 'rx)
178 (setq visibility (list visibility)))
260 (let* ((init (funcall (eval-when-compile
264 (list php-executable (cdr init))))
268 (rx (or (: string-start (* (in space))
280 (rx (or (: string-start (* (in space))
379 (list
404 (list "-S"
433 (list
436 (path (with-current-buffer buffer
[all …]
/dports/math/py-mathics/Mathics3-2.2.0/mathics/builtin/
H A Dgraphics.py1299 rx -= x
1301 rx += l
1303 return [(x - rx, y - ry), (x - rx, y + ry), (x + rx, y - ry), (x + rx, y + ry)]
1308 rx -= x
1315 rx,
1323 rx -= x
1374 rx -= x
1696 for s in path(k, list(chain(connect, p))):
1762 path = "(0.,0.)" + path
2001 path = (
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/drracket/browser/private/
H A Dhyper.rkt30 (only-in racket/list last-pair)
68 (equal? (map path/param-path (url-path a))
69 (map path/param-path (url-path b)))
101 (normal-case-path (normalize-path (build-path (collection-path "racket")
112 (define hypertags-list (list (hypertag "top" 0)))
158 hypertags-list)
160 (set! hypertags-list
177 (set! hypertags-list
465 (regexp-match #rx"[.]html?$"
579 (regexp-replace* #rx"<" (regexp-replace* #rx">" (exn-message exn) "&lt;") "&gt;"))
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/plai-lib/private/
H A Drandom-mutator.rkt16 ;; path : sexp
44 (define (random-path hash size)
143 [init-code '()])
144 (list
150 (set! init-code (append cell-init-code init-code))
152 ,@(reverse init-code)
156 (let loop ([path (reverse (obj-graph-path obj-graph))])
163 [else `(,(loop (cdr path)) ,(car path))])]))))
197 ;; random-obj : number obj -> (values sexp[constructor] (list sexp[init-code]))
289 (and (regexp-match #rx"collector" (format "~s" langname))
[all …]
/dports/lang/racket/racket-8.3/collects/compiler/
H A Ddistribute.rkt5 racket/list
292 (regexp-match rx (path->bytes f)))
341 (define rx:rackprog #rx#"^[.]rackprog\0")
393 rx:rackprog
398 init-counter inc-counter
406 [counter init-counter])
502 (list (path->cross-bytes new-path) (cadr ext)))
546 (list* (find-system-path 'addon-dir)
585 (list name (root->path-element r)))]
587 (list (root->path-element name))])))))]
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/compiler/
H A Ddistribute.rkt5 racket/list
292 (regexp-match rx (path->bytes f)))
341 (define rx:rackprog #rx#"^[.]rackprog\0")
393 rx:rackprog
398 init-counter inc-counter
406 [counter init-counter])
502 (list (path->cross-bytes new-path) (cadr ext)))
546 (list* (find-system-path 'addon-dir)
585 (list name (root->path-element r)))]
587 (list (root->path-element name))])))))]
[all …]
/dports/lang/racket-minimal/racket-8.3/src/expander/common/
H A Dperformance.rkt5 performance-place-init!)
14 ;; the path `(list key-expr ...)`. Times for a path
32 ;; path (if any).
56 (define (performance-place-init!)
102 (let loop ([accums accums] [path (region-path r)])
132 (caar (or (regexp-match-positions #rx"[.]" s) '(0))))
135 (list->string
136 (for/fold ([l null]) ([c (in-list (reverse (string->list s)))]
140 (list* c #\, l)]
177 … (regexp-replace #rx"[.](..).*" (format "~a00" (stat-msecs v)) ".\\1")
[all …]
/dports/lang/racket/racket-8.3/src/expander/common/
H A Dperformance.rkt5 performance-place-init!)
14 ;; the path `(list key-expr ...)`. Times for a path
32 ;; path (if any).
56 (define (performance-place-init!)
102 (let loop ([accums accums] [path (region-path r)])
132 (caar (or (regexp-match-positions #rx"[.]" s) '(0))))
135 (list->string
136 (for/fold ([l null]) ([c (in-list (reverse (string->list s)))]
140 (list* c #\, l)]
177 … (regexp-replace #rx"[.](..).*" (format "~a00" (stat-msecs v)) ".\\1")
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/drracket/drracket/private/
H A Dframe.rkt134 (define already-there (path-list-string->path-list no-null-bytes '()))
186 (define dirs (regexp-split #rx#";" bytes))
196 (define w/out-addon (for/list ([dir (in-list dirs)]
334 [prefix drracket:init: drracket:init/int^]
569 [init-value (caddr pref)]
580 [init-value (cadr pref)]
625 [url (regexp-replace #rx"^ +" url "")]
626 [url (regexp-replace #rx" +$" url "")])
627 (if (regexp-match? #rx"^(?:[^/:]*://|$)" url)
732 (init-field bindings)
[all …]
/dports/lang/racket/racket-8.3/src/cs/
H A Dmain.sps39 path-list-string->path-list)
161 (define compiled-roots-path-list-string (getenv "PLTCOMPILEDROOTS"))
175 (define rx:all-whitespace (pregexp "^[\\s]*$"))
191 (let ([m (regexp-match rx:logging-spec str)])
201 [(regexp-match? rx:all-whitespace str)
474 … (set! init-collects-dir (path->complete-path (->path (find-original-bytes collects-path))))])
485 … (set! init-config-dir (path->complete-path (->path (find-original-bytes config-path))))
497 (set! compiled-roots-path-list-string paths)
787 (if compiled-roots-path-list-string
790 compiled-roots-path-list-string
[all …]

12345678910>>...106