/dports/lang/racket/racket-8.3/share/pkgs/drracket/gui-debugger/ |
H A D | marks.rkt | 17 [expose-mark (-> mark? (list/c any/c symbol? (listof (list/c identifier? any/c))))] 19 [lookup-all-bindings ((identifier? . -> . boolean?) mark-list? . -> . (listof any/c))] 20 [lookup-first-binding ((identifier? . -> . boolean?) mark-list? ( -> any) . -> . any)] 21 [lookup-binding (mark-list? identifier? . -> . any)]) 34 mark-label 88 ; : identifier -> identifier 99 (define (mark-label mark) 114 [label (mark-label mark)] 117 label 127 (format "label: ~a\n" (mark-label mark)) [all …]
|
/dports/lang/racket/racket-8.3/src/expander/syntax/ |
H A D | api.rkt | 19 [identifier-binding raw:identifier-binding] 20 [identifier-binding-symbol raw:identifier-binding-symbol]) 59 free-label-identifier=? 60 identifier-binding 61 identifier-transformer-binding 62 identifier-template-binding 63 identifier-label-binding 64 identifier-binding-symbol 180 (define/who (free-label-identifier=? a b) 198 (define/who (identifier-label-binding id) [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
H A D | api.rkt | 19 [identifier-binding raw:identifier-binding] 20 [identifier-binding-symbol raw:identifier-binding-symbol]) 59 free-label-identifier=? 60 identifier-binding 61 identifier-transformer-binding 62 identifier-template-binding 63 identifier-label-binding 64 identifier-binding-symbol 180 (define/who (free-label-identifier=? a b) 198 (define/who (identifier-label-binding id) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/stepper/private/ |
H A D | marks.rkt | 19 [expose-mark (-> mark? (list/c any/c symbol? (listof (list/c identifier? any/c))))] 21 [lookup-all-bindings ((identifier? . -> . boolean?) mark-list? . -> . (listof any/c))] 22 [lookup-first-binding ((identifier? . -> . boolean?) mark-list? ( -> any) . -> . any/c)] 23 [lookup-binding (mark-list? identifier? . -> . any)]) 34 mark-label 90 (define (mark-label mark) 91 (full-mark-struct-label (mark))) 102 [label (mark-label mark)] 105 label 115 (format "label: ~a\n" (mark-label mark)) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/macro-debugger/macro-debugger/view/ |
H A D | hiding-panel.rkt | 121 (label "Enable macro hiding") 127 (label "Show policy editor") 134 (label "Hide racket syntax") 152 (label "Hide phase>0") 269 (let ([b (identifier-binding id)]) 290 (define binding-info (identifier-binding id)) 294 (xref-binding->definition-tag xref binding-info #f))) 315 (let ([binding (identifier-binding id)]) 316 (get-id-key/binding id binding))) 318 (define (get-id-key/binding id binding) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
H A D | stx-comp.scrbl | 18 @racket[phase-level] corresponds to the @tech{label phase level}. 48 @tech{label phase level}. 81 @defproc[(free-label-identifier=? [a-id identifier?] [b-id identifier?]) boolean?]{ 96 @defproc[(identifier-binding [id-stx identifier?] 115 @racket[phase-level] corresponds to the @tech{label phase level}): 201 from @racket[identifier-binding] is for the identifier in the 210 @defproc[(identifier-transformer-binding [id-stx identifier?] 228 @defproc[(identifier-template-binding [id-stx identifier?]) 244 @defproc[(identifier-label-binding [id-stx identifier?]) 260 @defproc[(identifier-binding-symbol [id-stx identifier?] [all …]
|
H A D | phase+space.scrbl | 3 (for-label racket/phase+space)) 11 @tech{binding spaces}, particularly as used for @tech{require 14 When @racket[identifier-binding] (and related functions, like 15 @racket[identifier-transformer-binding]), 29 phase level or @racket[#f] representing the @tech{label phase level}.} 37 @racket[#f] representing the default binding space.} 42 @tech{phase level} and @tech{binding space} combination, 49 represents that phase plus the default binding space} 86 @item{@racket[#f] --- represents a shift to the @tech{label phase level} 87 and no change to the binding space} [all …]
|
H A D | syntax-model.scrbl | 126 integer (but the special @tech{label phase level} does not 137 @deftech{template environment}. The @deftech{label phase level} does not 326 @racket[free-identifier=?] to one whose binding is 375 @tech{binding}, that @tech{binding} is used to continue. If the @tech{identifier} 531 exports for the @tech{label phase level} are still imported at 532 the @tech{label phase level}. More generally, a 535 is @racket[#f], or if @racket[for-label] is used to import, 536 then all bindings are imported into the @tech{label phase 763 #:label #f 787 #:label #f [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/expander/boot/ |
H A D | core-primitive.rkt | 10 (except-in "../syntax/binding.rkt" 12 identifier-binding 13 identifier-binding-symbol) 64 free-label-identifier=? 65 identifier-binding 66 identifier-transformer-binding 67 identifier-template-binding 68 identifier-label-binding 69 identifier-binding-symbol 137 syntax-local-identifier-as-binding [all …]
|
/dports/lang/racket/racket-8.3/src/expander/boot/ |
H A D | core-primitive.rkt | 10 (except-in "../syntax/binding.rkt" 12 identifier-binding 13 identifier-binding-symbol) 64 free-label-identifier=? 65 identifier-binding 66 identifier-transformer-binding 67 identifier-template-binding 68 identifier-label-binding 69 identifier-binding-symbol 137 syntax-local-identifier-as-binding [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/help/ |
H A D | help-utils.rkt | 27 (namespace-require `(for-label ,lib)) 29 (if (identifier-label-binding id) 31 (error 'help "no binding for identifier: ~a from module: ~a" sym lib)))) 34 (let* ([lb (identifier-label-binding id)] 35 [b (and (not lb) (identifier-binding id))] 42 (let ([tag (xref-binding->definition-tag xref b (if lb #f 0))]) 51 (define (search-for-exports xref sym binding) 63 (if binding 64 "No documentation available for binding" 65 "No current binding"))
|
/dports/misc/usd/USD-21.11/pxr/imaging/glf/ |
H A D | uniformBlock.cpp | 37 GlfUniformBlock::GlfUniformBlock(char const *label) : in GlfUniformBlock() argument 41 if (label) { in GlfUniformBlock() 45 _debugLabel = label; in GlfUniformBlock() 57 GlfUniformBlock::New(char const *label) in New() argument 59 return TfCreateRefPtr(new GlfUniformBlock(label)); in New() 64 std::string const & identifier) in Bind() argument 67 int binding = bindingMap->GetUniformBinding(identifier); in Bind() local 69 glBindBufferBase(GL_UNIFORM_BUFFER, binding, _buffer); in Bind()
|
/dports/lang/gambit-c/gambit-4.9.3/lib/ |
H A D | psyntax69c.ss | 805 ;;; <environment> ::= ((<label> . <binding>)*) 888 (lambda (label binding r) 889 (cons (cons label binding) r))) 1765 (define-structure (module-binding type id label imps val exported)) 1768 (make-module-binding type id label imps val #f))) 1830 (let ((label (get-indirect-label (module-binding-label b)))) 1855 (label (module-binding-label b)) 2031 (module-binding-label b) 2068 (cons (create-module-binding type id label 2103 (let ((l (get-indirect-label label)) (b (make-binding '$module iface))) [all …]
|
H A D | psyntax73.ss | 874 ;;; <environment> ::= ((<label> . <binding>)*) 957 (lambda (label binding r) 958 (cons (cons label binding) r))) 1903 (define-structure (module-binding type id label imps val exported)) 1906 (make-module-binding type id label imps val #f))) 1968 (let ((label (get-indirect-label (module-binding-label b)))) 1994 (label (module-binding-label b)) 2185 (module-binding-label b) 2221 (cons (create-module-binding type id label 2256 (let ((l (get-indirect-label label)) (b (make-binding '$module iface))) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/swindle/ |
H A D | patterns.rkt | 40 (and (identifier? id) 87 [var (identifier? #'var) 90 [(id . xs) (identifier? #'id) 110 'extended-binding "bad binding" (caar tail))])))) 146 (define (make-let let-form label?) 149 [(_ label ((var val) ...) body0 body ...) 150 (and label? (identifier? #'label)) 152 ((letrec~ ([label (lambda~ (var ...) body0 body ...)]) label) 181 [((id xs ...) . rest) (identifier? #'id) 186 [(id . rest) (identifier? #'id) [all …]
|
/dports/devel/apitrace/apitrace-9.0/retrace/ |
H A D | glstate.cpp | 188 GLenum binding = getTextureBinding(target); in TextureBinding() local 189 glGetIntegerv(binding, (GLint *) &prev_id); in TextureBinding() 252 GLenum binding = getBufferBinding(target); in BufferBinding() local 253 glGetIntegerv(binding, (GLint *) &prevBuffer); in BufferBinding() 435 if (!label) { in getObjectLabel() 440 glGetObjectLabel(identifier, name, length + 1, NULL, label); in getObjectLabel() 443 glGetObjectLabelEXT(identifier, name, length + 1, NULL, label); in getObjectLabel() 451 return label; in getObjectLabel() 460 char *label = getObjectLabel(context, identifier, name); in dumpObjectLabel() local 461 if (!label) { in dumpObjectLabel() [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/algol60/ |
H A D | compile.rkt | 145 (check-duplicate-identifier 355 [(identifier? arg) 467 ;; returns an identifier indicating where the var is 471 (define (var-binding var context) 490 (and (bound-identifier=? var (car b)) 495 (let ([v (var-binding var context)]) 501 (let ([v (var-binding var context)]) 507 (let ([v (var-binding var context)]) 511 (let ([v (var-binding var context)]) 525 (let ([v (var-binding var context)]) [all …]
|
/dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
H A D | syntax.ss | 220 ;;; import identifier is set to the label of the export identifier. 342 ;;; do. When determining an identifier's binding name, we can stop at the 914 ;;; env : label --> <binding> 1016 (lambda (r label binding level) 1029 (define unexported-binding (make-binding 'displaced-lexical "unexported identifier")) 1030 (define out-of-phase-binding (make-binding 'displaced-lexical "out-of-phase identifier")) 1074 (local-label-binding x) 1241 (local-label-binding-set! x displaced-lexical-binding))) 2349 (define id label binding) 2360 [define (id label binding) id] [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
H A D | syntax.ss | 220 ;;; import identifier is set to the label of the export identifier. 342 ;;; do. When determining an identifier's binding name, we can stop at the 914 ;;; env : label --> <binding> 1016 (lambda (r label binding level) 1029 (define unexported-binding (make-binding 'displaced-lexical "unexported identifier")) 1030 (define out-of-phase-binding (make-binding 'displaced-lexical "out-of-phase identifier")) 1074 (local-label-binding x) 1241 (local-label-binding-set! x displaced-lexical-binding))) 2349 (define id label binding) 2360 [define (id label binding) id] [all …]
|
/dports/lang/chez-scheme/ChezScheme-9.5.4/s/ |
H A D | syntax.ss | 220 ;;; import identifier is set to the label of the export identifier. 342 ;;; do. When determining an identifier's binding name, we can stop at the 893 ;;; env : label --> <binding> 995 (lambda (r label binding level) 1008 (define unexported-binding (make-binding 'displaced-lexical "unexported identifier")) 1009 (define out-of-phase-binding (make-binding 'displaced-lexical "out-of-phase identifier")) 1053 (local-label-binding x) 1220 (local-label-binding-set! x displaced-lexical-binding))) 2328 (define id label binding) 2339 [define (id label binding) id] [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/base-env/ |
H A D | annotate-classes.rkt | 7 (for-label "colon.rkt")) 24 (define-literal-set colon #:for-label (:)) 28 #:description "type-annotated identifier" 31 #:with ann-name (type-label-property #'name #'ty)) 33 #:attr *ty (type-label-property #'name) 40 #:description "optionally type-annotated identifier" 53 #:description "type-annotated identifier" 67 (pattern b:annotated-binding 70 #:with binding #'b.binding 87 #:with binding #'b.binding [all …]
|
/dports/lang/mosh/mosh-0.2.7/boot/runtimes/psyntax-mosh/psyntax/ |
H A D | expander.ss | 131 [(imported-label->binding label) 744 ;;; label->binding looks up the label in the environment r as 749 ;;; If we don't find the binding of a label, we return the binding 751 (define label->binding 754 ((imported-label->binding x) => 790 (b (label->binding label r)) 805 (b (label->binding label r)) 1105 (b (label->binding lab r)) 1117 (b (label->binding lab r)) 2602 (b (label->binding label r))) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/drracket-tool-lib/drracket/private/syncheck/ |
H A D | traversals.rkt | 45 [tl-sub-identifier-binding-directives (make-hash)] 347 (if (identifier-binding (syntax var) 0) 464 [(for-label specs ...) 521 [(for-label specs ...) 630 (hash-set! sub-identifier-binding-directives 861 ;; (union identifier-binding identifier-transformer-binding) 979 (define binding (identifier-binding var phase-level)) 1071 (define b (identifier-binding var phase-level)) 1372 (define ib (identifier-binding id phase-level)) 1418 (define binding-info (identifier-binding stx phase-level)) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/mzscheme-doc/mzscheme/ |
H A D | mzscheme.scrbl | 3 (for-label (except-in mzscheme 29 base-free-transformer-identifier=? base-free-label-identifier=? 32 (require (for-label scheme/base)) 47 (define base-free-label-identifier=? (racket free-label-identifier=?)) 54 base-free-transformer-identifier=? base-free-label-identifier=? 105 The same binding as @racket[#%plain-module-begin] from 111 The same binding as @racket[#%plain-lambda] in 112 @racketmodname[scheme/base]. (This binding was not present in 127 The same binding as @racket[#%plain-app] from 133 The same binding as @racket[#%app]. (This binding was not present in [all …]
|
/dports/graphics/birdfont/birdfont-2.29.5/libbirdfont/ |
H A D | MenuItem.vala | 20 public Text label; 21 public string identifier; 31 public MenuItem (string label, string identifier = "") { 32 this.label = new Text (); 33 this.label.set_text (label); 34 this.identifier = identifier; 42 /** @return true if a key binding can be used in @param display. */
|