/dports/lang/racket/racket-8.3/collects/racket/private/ |
H A D | path-list.rkt | 1 (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 D | path-list.rkt | 1 (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 D | pack.rkt | 140 (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 D | collection-search.rkt | 2 (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 D | pack.rkt | 140 (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 D | collection-search.rkt | 2 (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 D | mod-paths.rkt | 13 (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 D | mod-paths.rkt | 13 (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 D | find-module-path-completions.rkt | 21 (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 D | get-module-path.rkt | 14 (#: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 D | xrepl.rkt | 138 [(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 D | path-dialog.rkt | 22 (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 D | init.c | 395 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 D | by-installed.rkt | 24 (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 D | drracket.rkt | 34 (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 D | php.el | 33 (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 D | graphics.py | 1299 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 D | hyper.rkt | 30 (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) "<") ">")) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/plai-lib/private/ |
H A D | random-mutator.rkt | 16 ;; 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 D | distribute.rkt | 5 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 D | distribute.rkt | 5 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 D | performance.rkt | 5 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 D | performance.rkt | 5 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 D | frame.rkt | 134 (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 D | main.sps | 39 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 …]
|