/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/share/pkgs/macro-debugger-text-lib/macro-debugger/analysis/private/ |
H A D | moduledb.rkt | 3 setup/path-to-relative 15 ;; A ModuleDB = hash[path/symbol => (U 'no-drop 'no-bypass)] 31 (let ([name (resolved-module-path-name (module-path-index-resolve mod))]) 35 [(path? name) 36 (let ([str (path->relative-string/library name)]) 37 (for/or ([rx (in-list no-bypass-rxs)]) 67 '(#rx"^<collects>/srfi/[0-9]+\\.rkt$")) 75 (define legacy-rxs (list #rx"^mzlib" #rx"^texpict")) 78 (for/and ([rx (in-list legacy-rxs)]) 79 (not (regexp-match? rx s))))) [all …]
|
/dports/lang/racket/racket-8.3/collects/setup/private/ |
H A D | omitted-paths.rkt | 12 (require racket/path racket/list racket/promise "../dirs.rkt" "lib-roots.rkt") 24 (list (explode-path (simplify-path (car p))) 45 (regexp-match? #rx"^[.]" str)))) 47 ;; accumulated omissions is a list of 48 ;; exploded paths plus a list of (cons prefix-path regexp) 77 (map list (filter (lambda (p) 79 (for/or ([rx (in-list rxes)]) 81 (for/or ([prefix+rx (in-list (omits-prefix+rxs accumulated))]) 83 (build-path (car prefix+rx) p))))) 86 (append (map (lambda (rx) (cons 'same rx)) rxes) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/setup/private/ |
H A D | omitted-paths.rkt | 12 (require racket/path racket/list racket/promise "../dirs.rkt" "lib-roots.rkt") 24 (list (explode-path (simplify-path (car p))) 45 (regexp-match? #rx"^[.]" str)))) 47 ;; accumulated omissions is a list of 48 ;; exploded paths plus a list of (cons prefix-path regexp) 77 (map list (filter (lambda (p) 79 (for/or ([rx (in-list rxes)]) 81 (for/or ([prefix+rx (in-list (omits-prefix+rxs accumulated))]) 83 (build-path (car prefix+rx) p))))) 86 (append (map (lambda (rx) (cons 'same rx)) rxes) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/redex-benchmark/redex/benchmark/models/util/ |
H A D | info-util.rkt | 3 (require racket/path 4 racket/list 5 racket/runtime-path) 8 make-path-root 11 (define-runtime-path here ".") 22 (define model-name (first (regexp-split #rx"\\." (last (regexp-split #rx"/" filename))))) 23 (define mod-path (string->symbol 28 (list (first (regexp-split #rx"\\." (last (regexp-split #rx"/" filename)))) 33 (for/list ([f (in-directory the-dir)] 40 (for/list ([t (in-list types)]) [all …]
|
/dports/lang/racket/racket-8.3/collects/syntax/private/ |
H A D | modcollapse-noctc.rkt | 12 racket/list 141 (list (cadr relto-mp)))))]) 163 (list (cadr relto-mp))))))]) 198 (list (ss->rkt (cadr s)))) 227 (list 262 (list* (car s) 273 (list* (car s) e2 (cddr s))))))])) 301 [(and (or (not (pair? s)) (not (list? s))) (not (path? s))) 366 (list* 'submod r sm)) 428 (for/list ([e (in-list l)]) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/syntax/private/ |
H A D | modcollapse-noctc.rkt | 12 racket/list 141 (list (cadr relto-mp)))))]) 163 (list (cadr relto-mp))))))]) 198 (list (ss->rkt (cadr s)))) 227 (list 262 (list* (car s) 273 (list* (car s) e2 (cddr s))))))])) 301 [(and (or (not (pair? s)) (not (list? s))) (not (path? s))) 366 (list* 'submod r sm)) 428 (for/list ([e (in-list l)]) [all …]
|
/dports/graphics/geeqie/geeqie-1.6/src/pan-view/ |
H A D | pan-item.c | 73 pw->list = g_list_remove(pw->list, pi); in pan_item_remove() 130 pw->list = g_list_prepend(pw->list, pi); in pan_item_box_new() 284 pw->list = g_list_prepend(pw->list, pi); in pan_item_tri_new() 432 pw->list = g_list_prepend(pw->list, pi); in pan_item_text_new() 471 pw->list = g_list_prepend(pw->list, pi); in pan_item_thumb_new() 656 pw->list = g_list_prepend(pw->list, pi); in pan_item_image_new() 749 if (path[0] == G_DIR_SEPARATOR) in pan_item_find_by_path_l() 751 if (pi->fd->path && strcmp(path, pi->fd->path) == 0) match = TRUE; in pan_item_find_by_path_l() 794 if (!path) return NULL; in pan_item_find_by_path() 797 list = pan_item_find_by_path_l(list, pw->list_static, type, path, ignore_case, partial); in pan_item_find_by_path() [all …]
|
/dports/security/aide/aide-0.17.4/src/ |
H A D | seltree.c | 36 list* r; in log_tree() 82 p=checked_strdup(rx); in strrxtok() 174 return strcmp(x1->path, x2->path); in compare_node_by_path() 180 list* r=NULL; in get_seltree_node() 187 if(strncmp(path,tree->path,strlen(path)+1)==0){ in get_seltree_node() 220 node->path=checked_strdup(path); in new_seltree_node() 270 r->rx=rx; in add_rx_to_tree() 296 …"added new node '%s' (%p) for '%s' (reason: new rule '%s')", curnode->path, curnode, rxtok, r->rx); in add_rx_to_tree() 321 static int check_list_for_match(list* rxrlist,char* text, rx_rule* *rule, RESTRICTION_TYPE file_typ… in check_list_for_match() 323 list* r=NULL; in check_list_for_match() [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/gui-lib/mrlib/private/ |
H A D | dot.rkt | 49 (define dot-path (find-dot (regexp-match #rx"neato" option))) 50 (when dot-path 157 [(regexp-match #rx"^([0-9]*)\\.([0-9]*)$" candidate) 179 [(regexp-match #rx"^node" line) 182 [(regexp-match #rx"^edge" line) 185 [(regexp-match #rx"stop" line) 233 (let ([s (regexp-replace #rx"^ *" s "")]) 244 [(regexp-match #rx"^([^ ]*) (.*)$" s) 249 [(regexp-match #rx"^([^ ]*)$" s) 263 (let ([path (new dc-path%)]) [all …]
|
/dports/lang/racket/racket-8.3/collects/pkg/private/ |
H A D | addl-installs.rkt | 6 "../path.rkt" 38 (not (for/or ([prefix+rx (in-list prefix+rxs)]) 39 (define prefix (car prefix+rx)) 40 (regexp-match? (cdr prefix+rx) (if (eq? prefix 'same) 63 (simplify-path (build-path f i))))) 69 (for/list ([prefix+rx (in-list prefix+rxs)]) 70 (define prefix (car prefix+rx)) 74 (cdr prefix+rx))))) 101 (path->string (path-replace-extension name #""))) 106 (if (and (list? l) (andmap path-string? l)) [all …]
|
H A D | suggestions.rkt | 3 racket/path 14 (let ([installation (build-path (find-share-dir) "pkgs" (file-name-from-path default))]) 19 (define (pkg-catalog-suggestions-for-module module-path 23 (let* ([mod (collapse-module-path 24 module-path 25 (lambda () (build-path (current-directory) "dummy.rkt")))] 27 [more-pkgs (let ([rx:reader #rx"/lang/reader[.]rkt$"]) 30 (regexp-match rx:reader (cadr mod))) 31 … (db:get-module-pkgs `(lib ,(regexp-replace rx:reader (cadr mod) "/main.rkt"))) 33 (sort (set->list [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/pkg/private/ |
H A D | addl-installs.rkt | 6 "../path.rkt" 38 (not (for/or ([prefix+rx (in-list prefix+rxs)]) 39 (define prefix (car prefix+rx)) 40 (regexp-match? (cdr prefix+rx) (if (eq? prefix 'same) 63 (simplify-path (build-path f i))))) 69 (for/list ([prefix+rx (in-list prefix+rxs)]) 70 (define prefix (car prefix+rx)) 74 (cdr prefix+rx))))) 101 (path->string (path-replace-extension name #""))) 106 (if (and (list? l) (andmap path-string? l)) [all …]
|
H A D | suggestions.rkt | 3 racket/path 14 (let ([installation (build-path (find-share-dir) "pkgs" (file-name-from-path default))]) 19 (define (pkg-catalog-suggestions-for-module module-path 23 (let* ([mod (collapse-module-path 24 module-path 25 (lambda () (build-path (current-directory) "dummy.rkt")))] 27 [more-pkgs (let ([rx:reader #rx"/lang/reader[.]rkt$"]) 30 (regexp-match rx:reader (cadr mod))) 31 … (db:get-module-pkgs `(lib ,(regexp-replace rx:reader (cadr mod) "/main.rkt"))) 33 (sort (set->list [all …]
|
/dports/lang/racket/racket-8.3/collects/racket/ |
H A D | require.rkt | 3 (require (for-syntax racket/base racket/require-transform racket/list syntax/stx 12 [(_ rx spec) 13 (regexp? (syntax-e #'rx)) 14 (let ([rx (syntax-e #'rx)]) 18 (regexp-match? rx (symbol->string 32 (syntax->list #'(specs ...)))] 73 (for/and ([ps (in-list (syntax->list #'(path-stx ...)))]) 84 (for/list ([ps (in-list (syntax->list #'(path-stx ...)))]) 88 (let loop ([dir srcdir] [path (string->path path)] [pathstr path]) 107 (if (stx-list? first) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/ |
H A D | require.rkt | 3 (require (for-syntax racket/base racket/require-transform racket/list syntax/stx 12 [(_ rx spec) 13 (regexp? (syntax-e #'rx)) 14 (let ([rx (syntax-e #'rx)]) 18 (regexp-match? rx (symbol->string 32 (syntax->list #'(specs ...)))] 73 (for/and ([ps (in-list (syntax->list #'(path-stx ...)))]) 84 (for/list ([ps (in-list (syntax->list #'(path-stx ...)))]) 88 (let loop ([dir srcdir] [path (string->path path)] [pathstr path]) 107 (if (stx-list? first) [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? "/\\" "/")) 23 (define (make-rx . strs) 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) "\\\\") 339 (send path-list set (list "Bad Directory:" (path->string dir))) 629 (send path-list [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/gui-lib/framework/private/ |
H A D | aspell.rkt | 9 [query-aspell (->* ((and/c string? (not/c #rx"[\n]"))) 17 [find-aspell-binary-path (-> (or/c path? #f))] 26 (define (find-aspell-binary-path) 29 (or (find-executable-path aspell) 30 (find-executable-path ispell) 32 (define c1 (build-path cp aspell)) 40 (define aspell? (regexp-match? #rx"aspell" (path->string asp))) 57 (define asp (find-aspell-binary-path)) 118 (when (regexp-match? #rx"[Aa]spell" line) 205 (list word-start word-len (regexp-split #rx", " suggestions)) [all …]
|
/dports/lang/racket/racket-8.3/collects/setup/ |
H A D | unixstyle-install.rkt | 118 (sort (map path->string (apply directory-list dir)) string<?)) 285 (for ([dir (in-list (list bindir librktdir))] 286 [files (in-list (list binfiles libfiles))] 287 [ignore-non-executable? (in-list (list #f #t))]) 303 (define new-ls (for/list ([l (in-list ls)]) 536 (for ([f (in-list (directory-list))]) 538 (regexp-match? #rx#"(?i:[.]exe)$" (path-element->bytes f))) 622 (for ([f-path (in-list (directory-list dir))]) 749 [rx (regexp-replace* #rx"[*]" rx ".*")] 750 [rx (regexp rx)]) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/setup/ |
H A D | unixstyle-install.rkt | 118 (sort (map path->string (apply directory-list dir)) string<?)) 285 (for ([dir (in-list (list bindir librktdir))] 286 [files (in-list (list binfiles libfiles))] 287 [ignore-non-executable? (in-list (list #f #t))]) 303 (define new-ls (for/list ([l (in-list ls)]) 536 (for ([f (in-list (directory-list))]) 538 (regexp-match? #rx#"(?i:[.]exe)$" (path-element->bytes f))) 622 (for ([f-path (in-list (directory-list dir))]) 749 [rx (regexp-replace* #rx"[*]" rx ".*")] 750 [rx (regexp rx)]) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/plai-lib/tests/gc/ |
H A D | run-test.rkt | 3 racket/runtime-path 11 (define-runtime-path here ".") 13 (define (in-directory pth rx) 14 (in-list 16 (filter (compose (curry regexp-match rx) path->bytes) 17 (directory-list pth))))) 36 (for ([m (in-directory (build-path here "good-mutators") #rx"rkt$")]) 40 (for ([m (in-directory (build-path here "bad-mutators") #rx"rkt$")]) 42 (test-mutator m) =error> #rx"")) 46 #rx"plai/mutator has error" [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/plai-lib/tests/gc2/ |
H A D | run-test.rkt | 3 racket/runtime-path 11 (define-runtime-path here ".") 13 (define (in-directory pth rx) 14 (in-list 16 (filter (compose (curry regexp-match rx) path->bytes) 17 (directory-list pth))))) 36 (for ([m (in-directory (build-path here "good-mutators") #rx"rkt$")]) 40 (for ([m (in-directory (build-path here "bad-mutators") #rx"rkt$")]) 42 (test-mutator m) =error> #rx"")) 46 #rx"plai/gc2/mutator has error" [all …]
|
/dports/multimedia/smplayer/smplayer-21.10.0/src/ |
H A D | helper.cpp | 237 QString path = fi.absolutePath(); in searchForConsecutiveFiles() local 239 QDir dir(path); in searchForConsecutiveFiles() 243 QRegExp rx("(\\d+)"); in searchForConsecutiveFiles() local 296 QString path = fi.absolutePath(); in filesInDirectory() local 298 QDir d(path); in filesInDirectory() 304 QString s = path +"/" + all_files[n]; in filesInDirectory() 340 QStringList list = files; in resolveSymlinks() local 341 for (int n=0; n < list.count(); n++) { in resolveSymlinks() 342 QFileInfo fi(list[n]); in resolveSymlinks() 344 list[n] = fi.symLinkTarget(); in resolveSymlinks() [all …]
|
/dports/graphics/gimp-app/gimp-2.10.30/app/vectors/ |
H A D | gimpvectors-import.c | 349 GList *list; in gimp_vectors_import() local 367 for (list = path->strokes; list; list = list->next) in gimp_vectors_import() 411 GList *list; in gimp_vectors_import() local 415 for (list = path->strokes; list; list = list->next) in gimp_vectors_import() 498 GList *list; in svg_parser_end_element() local 500 for (list = path->strokes; list; list = list->next) in svg_parser_end_element() 766 rx = MIN (rx, width / 2); in svg_handler_rect_start() 773 if (rx) in svg_handler_rect_start() 787 if (rx) in svg_handler_rect_start() 801 if (rx) in svg_handler_rect_start() [all …]
|