| /dports/lang/racket/racket-8.3/share/pkgs/gui-lib/framework/ |
| H A D | wxme-srcloc-snip.rkt | 19 (define (srcloc->expression srcloc)
20 `(srcloc
21 ,(datum->source-expression (srcloc-source srcloc))
22 ,(srcloc-line srcloc)
23 ,(srcloc-column srcloc)
24 ,(srcloc-position srcloc)
25 ,(srcloc-span srcloc)))
43 (string->bytes/utf-8 (~s (srcloc->expression srcloc)))]
45 (new srcloc-readable [srcloc srcloc])])))
48 (define srcloc-readable
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/gui-lib/framework/private/ |
| H A D | srcloc-snip.rkt | 10 (provide srcloc-snip@)
19 (define (select-srcloc srcloc)
32 … editor (srcloc-position srcloc) (+ (srcloc-position srcloc) (srcloc-span srcloc))))]
75 (new -snip% [srcloc srcloc]))
108 (select-srcloc srcloc))
116 (let ((snip (new -snip% [srcloc srcloc])))
123 (sexpr `(srcloc ,(source->datum (srcloc-source srcloc))
124 ,(srcloc-line srcloc)
125 ,(srcloc-column srcloc)
126 ,(srcloc-position srcloc)
[all …]
|
| H A D | srcloc-panel.rkt | 7 get-srcloc-of-constructor
8 set-srcloc-of-constructor)
12 get-srcloc-of-constructor
13 set-srcloc-of-constructor))
22 (define srcloc-of-constructor #f)
23 (define/public (set-srcloc-of-constructor srcloc)
24 (set! srcloc-of-constructor srcloc))
25 (define/public (get-srcloc-of-constructor)
26 srcloc-of-constructor)
39 (send w set-srcloc-of-constructor 'srcloc)
[all …]
|
| /dports/science/py-moltemplate/moltemplate-2.19.14/moltemplate/ |
| H A D | lttree_check.py | 119 srcloc)
123 … raise InputError('Probable typo in ' + ErrorLeader(srcloc.infile, srcloc.lineno) + '\n\n' +
130 … raise InputError('Probable typo in ' + ErrorLeader(srcloc.infile, srcloc.lineno) + '\n\n' +
136 … raise InputError('Probable typo in ' + ErrorLeader(srcloc.infile, srcloc.lineno) + '\n\n' +
142 … raise InputError('Probable typo in ' + ErrorLeader(srcloc.infile, srcloc.lineno) + '\n\n' +
147 … raise InputError('Probable typo in ' + ErrorLeader(srcloc.infile, srcloc.lineno) + '\n\n' +
153 … raise InputError('Probable typo in ' + ErrorLeader(srcloc.infile, srcloc.lineno) + '\n\n' +
171 'WARNING: in ' + ErrorLeader(srcloc.infile, srcloc.lineno) + '\n\n' +
177 srcloc, argument
282 err_msg = 'Probable typo in ' + ErrorLeader(srcloc.infile, srcloc.lineno) + '\n\n' +\
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/syntax/ |
| H A D | srcloc.rkt | 10 encoded-srcloc?
11 to-srcloc-stx)
18 (define srcloc (syntax-srcloc s))
19 (and srcloc
20 (srcloc-accessor srcloc))))
28 (define (encoded-srcloc? v)
34 (srcloc-vector? v))))
36 (define (srcloc-vector? v)
46 (define (to-srcloc-stx v)
49 [srcloc v])]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
| H A D | srcloc.rkt | 10 encoded-srcloc?
11 to-srcloc-stx)
18 (define srcloc (syntax-srcloc s))
19 (and srcloc
20 (srcloc-accessor srcloc))))
28 (define (encoded-srcloc? v)
34 (srcloc-vector? v))))
36 (define (srcloc-vector? v)
46 (define (to-srcloc-stx v)
49 [srcloc v])]
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/datalog/private/ |
| H A D | compiler.rkt | 25 [(assertion srcloc c)
29 [(retraction srcloc c)
33 [(query srcloc l)
37 [(requirement srcloc l)
44 [(clause srcloc head (list))
47 [(clause srcloc head body)
58 [(literal srcloc pred ts)
76 [(variable srcloc sym)
77 (sym->original-syntax sym srcloc)]
78 [(constant srcloc cnst)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/datalog/ |
| H A D | ast.rkt | 5 (define srcloc/c
89 [struct predicate-sym ([srcloc srcloc/c] [sym symbol?])]
90 [struct variable ([srcloc srcloc/c]
93 [struct constant ([srcloc srcloc/c]
98 [struct literal ([srcloc srcloc/c]
102 [struct external ([srcloc srcloc/c]
110 [struct clause ([srcloc srcloc/c]
114 [struct assertion ([srcloc srcloc/c]
116 [struct retraction ([srcloc srcloc/c]
118 [struct query ([srcloc srcloc/c]
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/rumble/ |
| H A D | correlated.ss | 16 :test (or (not src) (correlated? src) (srcloc? src) (encoded-srcloc? src))
66 (define/who (correlated-srcloc-field who v srcloc-x)
69 (and s (srcloc-x s))))
72 (correlated-srcloc-field 'correlated-source v srcloc-source))
74 (correlated-srcloc-field 'correlated-line v srcloc-line))
76 (correlated-srcloc-field 'correlated-column v srcloc-column))
78 (correlated-srcloc-field 'correlated-position v srcloc-position))
80 (correlated-srcloc-field 'correlated-span v srcloc-span))
90 (define (srcloc-vector? v)
103 [(srcloc? src) src]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/rumble/ |
| H A D | correlated.ss | 16 :test (or (not src) (correlated? src) (srcloc? src) (encoded-srcloc? src))
66 (define/who (correlated-srcloc-field who v srcloc-x)
69 (and s (srcloc-x s))))
72 (correlated-srcloc-field 'correlated-source v srcloc-source))
74 (correlated-srcloc-field 'correlated-line v srcloc-line))
76 (correlated-srcloc-field 'correlated-column v srcloc-column))
78 (correlated-srcloc-field 'correlated-position v srcloc-position))
80 (correlated-srcloc-field 'correlated-span v srcloc-span))
90 (define (srcloc-vector? v)
103 [(srcloc? src) src]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/io/srcloc/ |
| H A D | main.rkt | 7 (provide srcloc->string)
9 (define/who (srcloc->string s)
10 (check who srcloc? s)
11 (and (srcloc-source s)
13 [(and (srcloc-line s)
14 (srcloc-column s))
16 (adjust-path (srcloc-source s))
17 (srcloc-line s)
18 (srcloc-column s))]
19 [(srcloc-position s)
[all …]
|
| /dports/lang/racket/racket-8.3/src/io/srcloc/ |
| H A D | main.rkt | 7 (provide srcloc->string)
9 (define/who (srcloc->string s)
10 (check who srcloc? s)
11 (and (srcloc-source s)
13 [(and (srcloc-line s)
14 (srcloc-column s))
16 (adjust-path (srcloc-source s))
17 (srcloc-line s)
18 (srcloc-column s))]
19 [(srcloc-position s)
[all …]
|
| /dports/editors/libreoffice/libreoffice-7.2.6.2/compilerplugins/clang/ |
| H A D | virtualdead.py | 58 srcloc = callInfo[1] variable
61 if srcloc.startswith("Gui/"): continue
63 if srcloc.startswith("Core/"): continue
64 if srcloc.startswith("/Qt"): continue
65 if srcloc.startswith("Qt"): continue
66 if srcloc.startswith("64-"): continue
95 if srcloc.startswith("Gui/"): continue
97 if srcloc.startswith("Core/"): continue
98 if srcloc.startswith("/Qt"): continue
99 if srcloc.startswith("Qt"): continue
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/test-engine/ |
| H A D | test-engine.rkt | 30 ((srcloc srcloc?)
35 ((srcloc srcloc?)
42 ((srcloc srcloc?)
47 ((srcloc srcloc?)
54 ((srcloc srcloc?)
60 ((srcloc srcloc?)
67 ((srcloc srcloc?)
72 ((srcloc srcloc?)
79 ((srcloc srcloc?)
85 ((srcloc srcloc?)
[all …]
|
| H A D | test-markup.rkt | 17 srcloc-markup? srcloc-markup-srcloc
146 (srcloc-markup srcloc (format-srcloc srcloc))))
148 (define (format-srcloc srcloc)
153 (cond [(srcloc-column srcloc) => number->string]
155 [file (srcloc-source srcloc)])
170 (srcloc-markup srcloc (format-srcloc srcloc)))))
327 (srcloc-markup check-srcloc (format-srcloc check-srcloc))
333 (srcloc-markup srcloc (format-srcloc srcloc)))
351 (horizontal " " (srcloc-markup srcloc (format-srcloc srcloc)))
356 (srcloc-markup (syntax-srcloc stx) (format-srcloc (syntax-srcloc stx)))
[all …]
|
| /dports/lang/rust/rustc-1.58.1-src/src/test/ui/asm/aarch64/ |
| H A D | srcloc.stderr | 2 --> $DIR/srcloc.rs:10:15
14 --> $DIR/srcloc.rs:14:13
26 --> $DIR/srcloc.rs:19:13
38 --> $DIR/srcloc.rs:25:13
50 --> $DIR/srcloc.rs:32:13
62 --> $DIR/srcloc.rs:37:14
74 --> $DIR/srcloc.rs:41:14
86 --> $DIR/srcloc.rs:47:14
98 --> $DIR/srcloc.rs:54:14
110 --> $DIR/srcloc.rs:61:13
[all …]
|
| /dports/lang/racket/racket-8.3/doc/test-engine/ |
| H A D | blueboxes.rktd | 64 srcloc : srcloc?
67 srcloc : srcloc?
75 srcloc : srcloc?
81 srcloc : srcloc?
86 srcloc : srcloc?
92 srcloc : srcloc?
100 srcloc : srcloc?
106 srcloc : srcloc?
111 srcloc : srcloc?
116 srcloc : srcloc?
[all …]
|
| /dports/lang/rust/rustc-1.58.1-src/src/test/ui/asm/x86_64/ |
| H A D | srcloc.stderr | 2 --> $DIR/srcloc.rs:10:15
14 --> $DIR/srcloc.rs:14:13
26 --> $DIR/srcloc.rs:19:13
38 --> $DIR/srcloc.rs:25:13
50 --> $DIR/srcloc.rs:32:13
62 --> $DIR/srcloc.rs:37:14
74 --> $DIR/srcloc.rs:40:15
86 --> $DIR/srcloc.rs:44:14
98 --> $DIR/srcloc.rs:50:14
110 --> $DIR/srcloc.rs:57:14
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/datalog/tests/ |
| H A D | ast.rkt | 9 (define sym1-srcloc (list ast.rkt 1 1 10 3))
10 (define sym2-srcloc (list #f #f #f #f #f))
11 (define lit1-srcloc (list ast.rkt #f #f 3000 3))
12 (define cl1-srcloc sym2-srcloc)
32 …(test-false "var/var" (variable-equal? (make-variable #f 'sym1) (make-variable sym2-srcloc 'sym2))…
50 (test-false "var/var" (term-equal? (make-variable #f 'sym1) (make-variable sym2-srcloc 'sym2)))
53 (test-false "sym/sym" (term-equal? (make-constant #f 'sym1) (make-constant sym1-srcloc 'sym2)))
57 (test-false "sym/str" (term-equal? (make-constant #f 'sym1) (make-constant sym1-srcloc "sym2")))
59 (test-false "con/var" (term-equal? (make-constant sym1-srcloc "sym2") (make-variable #f 'sym1)))
68 … (make-literal lit1-srcloc 'lit1 (list (make-variable sym1-srcloc 'sym1)))))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/drracket/drracket/private/ |
| H A D | stack-checkpoint.rkt | 253 (match-define (srcloc source line col position span) a-srcloc)
300 (define (srcloc->edition/pair defs ints srcloc is-drracket-frame?
302 (define src (srcloc-source srcloc))
345 (define srcloc (stack-item->srcloc stack-item))
346 (and (srcloc? srcloc)
348 srcloc)))
356 (define srcloc (stack-item->srcloc stack-item))
357 (and (srcloc? srcloc)
358 srcloc)]
393 (define snd-srcloc (stack-item->srcloc snd-item))
[all …]
|
| /dports/editors/libreoffice6/libreoffice-6.4.7.2/compilerplugins/clang/ |
| H A D | virtualdead.py | 58 srcloc = callInfo[1] variable
59 if srcloc.startswith("workdir/"): continue
61 if srcloc.startswith("Gui/"): continue
62 if srcloc.startswith("Widgets/"): continue
63 if srcloc.startswith("Core/"): continue
90 srcloc = definitionToSourceLocationMap[name] variable
92 if srcloc.startswith("Gui/"): continue
93 if srcloc.startswith("Widgets/"): continue
94 if srcloc.startswith("Core/"): continue
96 if srcloc.startswith("workdir/"): continue
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/host/ |
| H A D | syntax-to-reader-syntax.rkt | 10 srcloc->vector)
16 (define s (reader:datum->syntax #f d (srcloc->vector (syntax-srcloc orig-s))))
22 (define (srcloc->vector s)
24 (vector (srcloc-source s)
25 (srcloc-line s)
26 (srcloc-column s)
27 (srcloc-position s)
28 (srcloc-span s))))
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/host/ |
| H A D | syntax-to-reader-syntax.rkt | 10 srcloc->vector)
16 (define s (reader:datum->syntax #f d (srcloc->vector (syntax-srcloc orig-s))))
22 (define (srcloc->vector s)
24 (vector (srcloc-source s)
25 (srcloc-line s)
26 (srcloc-column s)
27 (srcloc-position s)
28 (srcloc-span s))))
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/syntax/scribblings/ |
| H A D | srcloc.scrbl | 6 syntax/srcloc
15 syntax/srcloc
34 @defmodule[syntax/srcloc]
266 @defform*[[(quote-srcloc) (quote-srcloc form) (quote-srcloc form #:module-source expr)]]{
275 (quote-srcloc)
332 @defform*[[(quote-srcloc-string) (quote-srcloc-string form)]]
333 @defform*[[(quote-srcloc-prefix) (quote-srcloc-prefix form)]]
342 (list (quote-srcloc-string)
343 (quote-srcloc-prefix))
345 #'(list (quote-srcloc-string)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racklog/lang/ |
| H A D | compiler.rkt | 60 [(assertion srcloc c)
61 (define srcstx (datum->syntax #f 'x srcloc))
67 [(retraction srcloc c)
68 (define srcstx (datum->syntax #f 'x srcloc))
71 [(query srcloc l)
99 [(clause srcloc head _)
115 [(literal srcloc pred ts)
128 [(variable srcloc sym)
130 [(constant srcloc (? string? str))
131 (datum->syntax #f str srcloc)]
[all …]
|