| /dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
| H A D | main.rkt | 20 "free-id-set.rkt"
68 maybe-install-free=id-in-context!
212 (free-id-set-empty? (expand-context-stops ctx)))
229 (free-id-set-empty? (expand-context-stops ctx))))))
243 (free-id-set-empty? (expand-context-stops ctx)))
355 (free-id-set-empty? (expand-context-stops ctx)))
416 (not (free-id-set-empty-or-just-module*? (expand-context-stops ctx))))))
526 [(and (not (free-id-set-empty? (expand-context-stops ctx)))
527 (free-id-set-member? (expand-context-stops ctx)
814 (define (maybe-install-free=id-in-context! val id phase ctx)
[all …]
|
| H A D | body.rkt | 27 ;; Expand a sequence of body forms in a definition context; returns a
37 ;; through macro expansion) in the definition context
48 ;; definitions in the definition context
59 [frame-id #:parent root-expand-context frame-id]
63 (define (maybe-increment-binding-layer ids body-ctx)
134 (define keys (for/list ([id (in-list ids)])
136 #:frame-id frame-id #:in exp-body
175 ;; compile-time right-hand side, install the compile-time
184 (define keys (for/list ([id (in-list ids)])
186 #:frame-id frame-id #:in exp-body
[all …]
|
| H A D | definition-context.rkt | 13 "free-id-set.rkt"
60 ;; keep parent or context frame-id in order to add use-site scopes to uses of spliced macros
93 (define intdef-ids (for/list ([id (in-list ids)])
101 (define syms (for/list ([intdef-id (in-list intdef-ids)])
124 (for/list ([intdef-id (in-list intdef-ids)]) (local-variable intdef-id))]))
126 (set-box! env-mixins (append (for/list ([intdef-id (in-list intdef-ids)]
130 … (maybe-install-free=id-in-context! val intdef-id phase local-ctx))
134 (for/list ([id (in-list intdef-ids)])
181 (for/fold ([id id]) ([intdef (in-intdefs intdef)])
345 [stops (free-id-set phase (or all-stop-ids null))]
[all …]
|
| H A D | expr.rkt | 13 "free-id-set.rkt"
45 (define keys (for/list ([id (in-list ids)])
230 #:frame-id frame-id #:in s
274 (maybe-install-free=id-in-context! val id phase ctx)
401 (free-id-set-empty? (expand-context-stops ctx)))
482 (free-id-set-empty? (expand-context-stops ctx)))
594 #:out-of-context-as-variable? (expand-context-in-local-expand? ctx)))
700 …(substitute-variable id t #:no-stops? (free-id-set-empty-or-just-module*? (expand-context-stops ct…
707 [(not-in-this-expand-context? t ctx)
718 [(not-in-this-expand-context? t ctx)
[all …]
|
| H A D | module.rkt | 20 "free-id-set.rkt"
147 (define frame-id (root-expand-context-frame-id root-ctx))
317 … [stops (free-id-set phase (module-expand-stop-ids phase))]
365 empty-free-id-set)]
831 [id (in-list ids)])
832 (maybe-install-free=id-in-context! val id phase partial-body-ctx)
926 (define scoped-ids (for/list ([id (in-list ids)])
1072 (for ([id (in-list (reverse l))])
1307 (free-id-set-member? (expand-context-stops ctx)
1315 (for ([id (in-list ids)])
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/expand/ |
| H A D | main.rkt | 20 "free-id-set.rkt"
68 maybe-install-free=id-in-context!
212 (free-id-set-empty? (expand-context-stops ctx)))
229 (free-id-set-empty? (expand-context-stops ctx))))))
243 (free-id-set-empty? (expand-context-stops ctx)))
355 (free-id-set-empty? (expand-context-stops ctx)))
416 (not (free-id-set-empty-or-just-module*? (expand-context-stops ctx))))))
526 [(and (not (free-id-set-empty? (expand-context-stops ctx)))
527 (free-id-set-member? (expand-context-stops ctx)
814 (define (maybe-install-free=id-in-context! val id phase ctx)
[all …]
|
| H A D | body.rkt | 27 ;; Expand a sequence of body forms in a definition context; returns a
37 ;; through macro expansion) in the definition context
48 ;; definitions in the definition context
59 [frame-id #:parent root-expand-context frame-id]
63 (define (maybe-increment-binding-layer ids body-ctx)
134 (define keys (for/list ([id (in-list ids)])
136 #:frame-id frame-id #:in exp-body
175 ;; compile-time right-hand side, install the compile-time
184 (define keys (for/list ([id (in-list ids)])
186 #:frame-id frame-id #:in exp-body
[all …]
|
| H A D | definition-context.rkt | 13 "free-id-set.rkt"
60 ;; keep parent or context frame-id in order to add use-site scopes to uses of spliced macros
93 (define intdef-ids (for/list ([id (in-list ids)])
101 (define syms (for/list ([intdef-id (in-list intdef-ids)])
124 (for/list ([intdef-id (in-list intdef-ids)]) (local-variable intdef-id))]))
126 (set-box! env-mixins (append (for/list ([intdef-id (in-list intdef-ids)]
130 … (maybe-install-free=id-in-context! val intdef-id phase local-ctx))
134 (for/list ([id (in-list intdef-ids)])
181 (for/fold ([id id]) ([intdef (in-intdefs intdef)])
345 [stops (free-id-set phase (or all-stop-ids null))]
[all …]
|
| H A D | expr.rkt | 13 "free-id-set.rkt"
45 (define keys (for/list ([id (in-list ids)])
230 #:frame-id frame-id #:in s
274 (maybe-install-free=id-in-context! val id phase ctx)
401 (free-id-set-empty? (expand-context-stops ctx)))
482 (free-id-set-empty? (expand-context-stops ctx)))
594 #:out-of-context-as-variable? (expand-context-in-local-expand? ctx)))
700 …(substitute-variable id t #:no-stops? (free-id-set-empty-or-just-module*? (expand-context-stops ct…
707 [(not-in-this-expand-context? t ctx)
718 [(not-in-this-expand-context? t ctx)
[all …]
|
| H A D | module.rkt | 20 "free-id-set.rkt"
147 (define frame-id (root-expand-context-frame-id root-ctx))
317 … [stops (free-id-set phase (module-expand-stop-ids phase))]
365 empty-free-id-set)]
831 [id (in-list ids)])
832 (maybe-install-free=id-in-context! val id phase partial-body-ctx)
926 (define scoped-ids (for/list ([id (in-list ids)])
1072 (for ([id (in-list (reverse l))])
1307 (free-id-set-member? (expand-context-stops ctx)
1315 (for ([id (in-list ids)])
[all …]
|
| /dports/devel/p5-PerlX-Maybe/PerlX-Maybe-1.201/ |
| H A D | README | 31 Will result in the `name` and `age` attributes possibly being set to undef
35 (Note: if you are the *author* of the class in question, you can solve
74 unique_id => $id,
87 unique_id => $id,
94 context:
105 unique_id => $id,
109 CODE reference, which will be called in list context. If it is a
120 in the dereferenced values.
128 unique_id => $id,
142 If you install PerlX::Maybe::XS, a faster XS-based implementation will be
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/syntax/ |
| H A D | binding.rkt | 21 binding-free=id
31 maybe-install-free=id!
32 binding-set-free=id
122 (define (maybe-install-free=id! val id phase)
125 (unless (syntax-property free=id 'not-free-identifier=?)
127 …(add-binding-in-scopes! (syntax-scope-set id phase) (syntax-e id) (binding-set-free=id b free=id))…
130 (define (binding-set-free=id b free=id)
132 [(module-binding? b) (module-binding-update b #:free=id free=id)]
133 [(local-binding? b) (local-binding-update b #:free=id free=id)]
246 #:free=id (and (binding-free=id b)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
| H A D | binding.rkt | 21 binding-free=id
31 maybe-install-free=id!
32 binding-set-free=id
122 (define (maybe-install-free=id! val id phase)
125 (unless (syntax-property free=id 'not-free-identifier=?)
127 …(add-binding-in-scopes! (syntax-scope-set id phase) (syntax-e id) (binding-set-free=id b free=id))…
130 (define (binding-set-free=id b free=id)
132 [(module-binding? b) (module-binding-update b #:free=id free=id)]
133 [(local-binding? b) (local-binding-update b #:free=id free=id)]
246 #:free=id (and (binding-free=id b)
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/s/ |
| H A D | cp0.ss | 25 ;; test context, visit opnd in test context
42 ;; * don't treat as singly referenced when id => id on env lookup, i.e., id is free
581 ; ctxt must be an app context. set used and unused lists in context
1488 (lambda (maybe-src id sc)
1820 ;;; context that will eventually fail. For example, in:
1829 ;;; create an operand O1 for huge-a, process (f) in an app context
1830 ;;; A1, process f in another app context A2 whose outer context is
2805 ; in app context, keep the inlining ball rolling.
3682 ; discard effect-free calls to map in effect context
3855 ; treat vector-map in effect context as vector-for-each
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
| H A D | cp0.ss | 25 ;; test context, visit opnd in test context
42 ;; * don't treat as singly referenced when id => id on env lookup, i.e., id is free
691 ; ctxt must be an app context. set used and unused lists in context
1891 (lambda (maybe-src id sc)
1896 `(ref ,maybe-src ,id)))
2227 ;;; context that will eventually fail. For example, in:
2237 ;;; A1, process f in another app context A2 whose outer context is
3339 ; in app context, keep the inlining ball rolling.
4308 ; discard effect-free calls to map in effect context
4481 ; treat vector-map in effect context as vector-for-each
[all …]
|
| H A D | syntax.ss | 68 ; - (free-id=? x y) => x & y free-id= in all environments
69 ; - (free-id=? x y r) => x & y free-id= in environment r
261 ;;; - okay because its aux keywords don't appear in expression context,
508 (in-context CaseLambdaClause
1500 (module (top-id-bound-label top-id-free-label/pl top-id-free-label)
1661 ;;; free-id=? must be passed fully wrapped ids since (free-id=? x y)
1664 (define free-id=?
5350 (define maybe-get-lib
7307 (free-id=? x y)))
7473 ((free-id)
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
| H A D | cp0.ss | 25 ;; test context, visit opnd in test context
42 ;; * don't treat as singly referenced when id => id on env lookup, i.e., id is free
691 ; ctxt must be an app context. set used and unused lists in context
1891 (lambda (maybe-src id sc)
1896 `(ref ,maybe-src ,id)))
2227 ;;; context that will eventually fail. For example, in:
2237 ;;; A1, process f in another app context A2 whose outer context is
3339 ; in app context, keep the inlining ball rolling.
4308 ; discard effect-free calls to map in effect context
4481 ; treat vector-map in effect context as vector-for-each
[all …]
|
| H A D | syntax.ss | 68 ; - (free-id=? x y) => x & y free-id= in all environments
69 ; - (free-id=? x y r) => x & y free-id= in environment r
261 ;;; - okay because its aux keywords don't appear in expression context,
508 (in-context CaseLambdaClause
1500 (module (top-id-bound-label top-id-free-label/pl top-id-free-label)
1661 ;;; free-id=? must be passed fully wrapped ids since (free-id=? x y)
1664 (define free-id=?
5350 (define maybe-get-lib
7307 (free-id=? x y)))
7473 ((free-id)
[all …]
|
| /dports/devel/p5-Proc-ProcessTable/Proc-ProcessTable-0.634/ |
| H A D | README | 12 The source is in github -
16 Commit bits will be generously granted, send me your github id.
39 context-diff format; if you're submitting a port, a tarball of the new
45 Unix (and maybe other multitasking OS's) process table information.
66 There is another short example in the file "example.pl" in the
67 distribution. For a more elaborate example (in German), see
77 included in both of them.
91 make install
93 There is embedded POD documentation in ProcessTable.pm and
100 Patches are noted in the Changes file.
[all …]
|
| H A D | README.md | 14 The source is in github -
18 Commit bits will be generously granted, send me your github id.
41 context-diff format; if you're submitting a port, a tarball of the new
47 Unix (and maybe other multitasking OS's) process table information.
68 There is another short example in the file "example.pl" in the
69 distribution. For a more elaborate example (in German), see
79 included in both of them.
93 make install
95 There is embedded POD documentation in ProcessTable.pm and
102 Patches are noted in the Changes file.
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/rktboot/ |
| H A D | r6rs-lang.rkt | 186 (import in ...)
229 #'(syntax-case* (strip-outer-struct e) lits s:free-identifier=? . rest)]))
284 (define p (syntax-property e 'save-context))
316 (syntax-property (datum->syntax #f v) 'save-context new-w)])]
328 (syntax-property (datum->syntax #f e) 'save-context w))]
331 (define (s:free-identifier=? a b)
334 (free-identifier=? a b)))
457 (define (install-protocol! rtd protocol)
545 [maybe-prefab (if uid #''prefab #'#f)]
563 (make-struct-type 'uid super num-fields 0 #f null maybe-prefab))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/rktboot/ |
| H A D | r6rs-lang.rkt | 186 (import in ...)
229 #'(syntax-case* (strip-outer-struct e) lits s:free-identifier=? . rest)]))
284 (define p (syntax-property e 'save-context))
316 (syntax-property (datum->syntax #f v) 'save-context new-w)])]
328 (syntax-property (datum->syntax #f e) 'save-context w))]
331 (define (s:free-identifier=? a b)
334 (free-identifier=? a b)))
457 (define (install-protocol! rtd protocol)
545 [maybe-prefab (if uid #''prefab #'#f)]
563 (make-struct-type 'uid super num-fields 0 #f null maybe-prefab))
[all …]
|
| /dports/ftp/php-fastdfs/fastdfs-6.06/ |
| H A D | HISTORY | 119 * php extension fix free object bug in PHP 7
122 * install library to $(TARGET_PREFIX)/lib anyway
230 * storage id in filename use global variable
259 * appender file and trunk file also use rand number in file id
400 * file size field in the file id changed: high 32 bits is random integer
441 * bug fixed: when fdfs_storaged quit, maybe write to binlog file fail,
484 * make install copy config files
505 * logger support context (multi instance)
596 * bug fixed: common/shared_func.c allow_hosts array maybe overflow in some case
601 * make.sh: default not install FastDFS services in Linux server
[all …]
|
| /dports/ftp/fastdfs/fastdfs-6.06/ |
| H A D | HISTORY | 119 * php extension fix free object bug in PHP 7
122 * install library to $(TARGET_PREFIX)/lib anyway
230 * storage id in filename use global variable
259 * appender file and trunk file also use rand number in file id
400 * file size field in the file id changed: high 32 bits is random integer
441 * bug fixed: when fdfs_storaged quit, maybe write to binlog file fail,
484 * make install copy config files
505 * logger support context (multi instance)
596 * bug fixed: common/shared_func.c allow_hosts array maybe overflow in some case
601 * make.sh: default not install FastDFS services in Linux server
[all …]
|
| /dports/editors/cudatext/CudaText-1.151.0/app/readme/wiki/ |
| H A D | cudatext_plugins.wiki | 113 * Add more such tools in the "External Tools", for different projects (and maybe sessions).
135 …in the dialog when Snippets plugin is called) and short id (letters, digits, '_', dot). You can ty…
265 * id text
267 * id /N=name text
268 * id /L=lexers text
269 * id /L=lexers /N=name text
270 * id /L="lexers" /N="name" text
315 After you install a linter, see readme in its folder, maybe how-to-use info is written there.
891 …-variables''' (OS environments, properties of current file/tab and free-set names) in any editable…
913 [[File:cudatext-editing-context-menu.png]]
[all …]
|