Home
last modified time | relevance | path

Searched +refs:port +refs:case +refs:fold +refs:set (Results 1 – 25 of 4090) sorted by relevance

12345678910>>...164

/dports/lang/racket/racket-8.3/collects/racket/private/
H A Dfor.rkt51 (rename *in-input-port-bytes in-input-port-bytes)
52 (rename *in-input-port-chars in-input-port-chars)
53 (rename *in-port in-port)
524 [(input-port? v) (:input-port-gen v)]
544 range-set!)
658 (raise-argument-error 'in-input-port-bytes "input-port?" p))
668 (raise-argument-error 'in-input-port-chars "input-port?" p))
674 (unless (input-port? p) (raise-argument-error 'in-port "input-port?" p)))
676 (define in-port
678 [() (in-port read (current-input-port))]
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/racket/private/
H A Dfor.rkt51 (rename *in-input-port-bytes in-input-port-bytes)
52 (rename *in-input-port-chars in-input-port-chars)
53 (rename *in-port in-port)
524 [(input-port? v) (:input-port-gen v)]
544 range-set!)
658 (raise-argument-error 'in-input-port-bytes "input-port?" p))
668 (raise-argument-error 'in-input-port-chars "input-port?" p))
674 (unless (input-port? p) (raise-argument-error 'in-port "input-port?" p)))
676 (define in-port
678 [() (in-port read (current-input-port))]
[all …]
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/scheme/
H A Dred.sld6 (scheme case-lambda)
112 car+cdr case
139 char-set-filter! char-set-fold
151 char-set:letter+digit char-set:lower-case
153 char-set:symbol char-set:title-case
154 char-set:upper-case char-set:whitespace
162 close-output-port close-port
208 flush-output-port fold
279 input-port-open? input-port?
378 port->stream port?
[all …]
/dports/lang/racket/racket-8.3/src/ChezScheme/s/
H A Dread.ss212 (define (fold-case? ip slashed?)
215 [($port-flags-set? ip (constant port-flag-fold-case)) #t]
216 [($port-flags-set? ip (constant port-flag-no-fold-case)) #f]
699 ("fold-case" . fold-case)
700 ("no-fold-case" . no-fold-case)
710 [(fold-case)
711 ($reset-port-flags! ip (constant port-flag-no-fold-case))
712 ($set-port-flags! ip (constant port-flag-fold-case))
714 [(no-fold-case)
715 ($reset-port-flags! ip (constant port-flag-fold-case))
[all …]
H A Dcompile.ss1208 (fold-right
1391 (fold-right
1462 (fold-left
1487 (fold-left
1508 (fold-left
1628 (fold-left
1633 (fold-left
1947 (set-who! compile-port
1987 (set-who! compile-to-port
2075 (when r6rs? ($set-port-flags! ip (constant port-flag-r6rs)))
[all …]
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/
H A Dread.ss212 (define (fold-case? ip slashed?)
215 [($port-flags-set? ip (constant port-flag-fold-case)) #t]
216 [($port-flags-set? ip (constant port-flag-no-fold-case)) #f]
699 ("fold-case" . fold-case)
700 ("no-fold-case" . no-fold-case)
710 [(fold-case)
711 ($reset-port-flags! ip (constant port-flag-no-fold-case))
712 ($set-port-flags! ip (constant port-flag-fold-case))
714 [(no-fold-case)
715 ($reset-port-flags! ip (constant port-flag-fold-case))
[all …]
H A Dcompile.ss1208 (fold-right
1391 (fold-right
1462 (fold-left
1487 (fold-left
1508 (fold-left
1628 (fold-left
1633 (fold-left
1947 (set-who! compile-port
1987 (set-who! compile-to-port
2075 (when r6rs? ($set-port-flags! ip (constant port-flag-r6rs)))
[all …]
/dports/lang/chez-scheme/ChezScheme-9.5.4/s/
H A Dread.ss212 (define (fold-case? ip slashed?)
215 [($port-flags-set? ip (constant port-flag-fold-case)) #t]
216 [($port-flags-set? ip (constant port-flag-no-fold-case)) #f]
674 ("fold-case" . fold-case)
675 ("no-fold-case" . no-fold-case)
685 [(fold-case)
686 ($reset-port-flags! ip (constant port-flag-no-fold-case))
687 ($set-port-flags! ip (constant port-flag-fold-case))
689 [(no-fold-case)
690 ($reset-port-flags! ip (constant port-flag-fold-case))
[all …]
H A Dcompile.ss1121 (fold-right
1226 (fold-right
1292 (fold-right
1362 (fold-left
1387 (fold-left
1408 (fold-left
1527 (fold-left
1532 (fold-left
1804 (set-who! compile-port
1844 (set-who! compile-to-port
[all …]
H A Dcpnanopass.ss5109 (define-inline 3 $set-port-info!
5111 (define-inline 3 set-port-name!
7405 (define build-port-flags-set?
7457 (define build-set-port-flags!
7499 (define-inline 3 set-port-bol!
7501 (define-inline 3 set-port-eof!
7607 (define (build-set-port-input-size! port-type e-p e-x)
7630 (define (build-set-port-output-size! port-type e-p e-x)
7653 (define (build-set-port-input-index! port-type e-p e-x)
7674 (define (build-set-port-output-index! port-type e-p e-x)
[all …]
H A Dcmacros.ss570 (define-constant port-flag-fold-case #x4000)
571 (define-constant port-flag-no-fold-case #x8000)
590 (define-constant PORT-FLAG-FOLD-CASE (ash (constant port-flag-fold-case) (constant port-flags-offse…
591 (define-constant PORT-FLAG-NO-FOLD-CASE (ash (constant port-flag-no-fold-case) (constant port-flags…
1581 ;;; - mifoldable does not imply pure. can fold car when it gets a constant
1994 ;; the following (old) version of state-case creates a set of vectors sc1, ...
2167 (fold-right
2539 (fold-left1 #f 3 #f #t)
2540 (fold-left2 #f 4 #f #t)
2541 (fold-right1 #f 3 #f #t)
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/static-contracts/
H A Dconstraints.rkt78 (case mode
98 (case mode
146 (for/fold ([table (make-immutable-free-id-table)])
151 (for*/fold ([table (make-immutable-free-id-table)])
157 (for*/fold ([table (make-immutable-free-id-table)])
169 (case k
215 (for/fold ([t (make-immutable-free-id-table)])
228 (for/fold ([bvals '()] [ubids (make-immutable-free-id-table)])
243 (for/fold ([bvs '()] [ubids (make-immutable-free-id-table)])
266 (for*/fold ([id-vals (make-immutable-free-id-table)]
[all …]
/dports/www/zola/zola-0.15.2/sublime/syntaxes/extra/
H A DRacket.sublime-syntax28 …case|let|letrec|let!|\#lang|require|test|else|first|rest|define-type|define-type-alias|define-stru…
/dports/lang/mosh/mosh-0.2.7/lib/nmosh/debugger/
H A Dcore.nmosh.sls32 (call-with-port (open-file-input-port fn) fasl-read)))
37 (set! syms (append syms l)))
53 (set! syms (append syms l)))
69 (string->symbol (list->string (fold-right step '() l))))
102 (let ((dbg (fold-left step #f proc)))
105 (case (car dbg)
138 (case id
155 (fold-left step #f prc))
163 (case id
171 (case (cadar cur)
[all …]
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/mats/
H A Dio.ms4840 ($readit #t "To be #!no-fold-case or NOT #!fold-case to bE")
4843 ($readit #t "To be #!fold-case or NOT #!no-fold-case to bE")
4846 ($readit #f "To be #!no-fold-case or NOT #!fold-case to bE")
4849 ($readit #f "To be #!fold-case or NOT #!no-fold-case to bE")
4863 ($readit #t "#!fold-case ab\\x43;de")
4866 ($readit #f "#!fold-case ab\\x43;de")
4876 ($readit #t "Stra\xDF;e #!no-fold-case Stra\xDF;e #!fold-case Stra\xDF;e")
4879 ($readit #f "Stra\xDF;e #!no-fold-case Stra\xDF;e #!fold-case Stra\xDF;e")
4882 ($readit #t "Stra\xDF;e #!fold-case Stra\xDF;e #!no-fold-case Stra\xDF;e")
4885 ($readit #f "Stra\xDF;e #!fold-case Stra\xDF;e #!no-fold-case Stra\xDF;e")
[all …]
/dports/lang/racket/racket-8.3/src/ChezScheme/mats/
H A Dio.ms4840 ($readit #t "To be #!no-fold-case or NOT #!fold-case to bE")
4843 ($readit #t "To be #!fold-case or NOT #!no-fold-case to bE")
4846 ($readit #f "To be #!no-fold-case or NOT #!fold-case to bE")
4849 ($readit #f "To be #!fold-case or NOT #!no-fold-case to bE")
4863 ($readit #t "#!fold-case ab\\x43;de")
4866 ($readit #f "#!fold-case ab\\x43;de")
4876 ($readit #t "Stra\xDF;e #!no-fold-case Stra\xDF;e #!fold-case Stra\xDF;e")
4879 ($readit #f "Stra\xDF;e #!no-fold-case Stra\xDF;e #!fold-case Stra\xDF;e")
4882 ($readit #t "Stra\xDF;e #!fold-case Stra\xDF;e #!no-fold-case Stra\xDF;e")
4885 ($readit #f "Stra\xDF;e #!fold-case Stra\xDF;e #!no-fold-case Stra\xDF;e")
[all …]
/dports/lang/chez-scheme/ChezScheme-9.5.4/mats/
H A Dio.ms4836 ($readit #t "To be #!no-fold-case or NOT #!fold-case to bE")
4839 ($readit #t "To be #!fold-case or NOT #!no-fold-case to bE")
4842 ($readit #f "To be #!no-fold-case or NOT #!fold-case to bE")
4845 ($readit #f "To be #!fold-case or NOT #!no-fold-case to bE")
4859 ($readit #t "#!fold-case ab\\x43;de")
4862 ($readit #f "#!fold-case ab\\x43;de")
4872 ($readit #t "Stra\xDF;e #!no-fold-case Stra\xDF;e #!fold-case Stra\xDF;e")
4875 ($readit #f "Stra\xDF;e #!no-fold-case Stra\xDF;e #!fold-case Stra\xDF;e")
4878 ($readit #t "Stra\xDF;e #!fold-case Stra\xDF;e #!no-fold-case Stra\xDF;e")
4881 ($readit #f "Stra\xDF;e #!fold-case Stra\xDF;e #!no-fold-case Stra\xDF;e")
[all …]
/dports/lang/racket/racket-8.3/src/ChezScheme/rktboot/
H A Dr6rs-lang.rkt94 port-position
95 close-port
98 make-list memp partition fold-left fold-right find remp remv
623 (define (close-port p)
624 (if (input-port? p)
625 (close-input-port p)
626 (close-output-port p)))
668 (fold-left1 combine nil the-list)
676 (define (fold-left1 combine nil list)
685 (fold-right1 combine nil the-list)
[all …]
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/rktboot/
H A Dr6rs-lang.rkt94 port-position
95 close-port
98 make-list memp partition fold-left fold-right find remp remv
623 (define (close-port p)
624 (if (input-port? p)
625 (close-input-port p)
626 (close-output-port p)))
668 (fold-left1 combine nil the-list)
676 (define (fold-left1 combine nil list)
685 (fold-right1 combine nil the-list)
[all …]
/dports/lang/mosh/mosh-0.2.7/boot/runtimes/srfi-mosh/lib.boot/nmosh/
H A Dminidebug.nmosh.ss28 (call-with-port (open-file-input-port fn) fasl-read)))
33 (set! syms (append syms l)))
49 (set! syms (append syms l)))
90 (let ((dbg (fold-left step #f proc)))
93 (case (car dbg)
126 (case id
143 (fold-left step #f prc))
151 (case id
159 (case (cadar cur)
198 (set! minidebug-key #t)
[all …]
/dports/lang/mosh/mosh-0.2.7/lib/
H A Dnmosh.nmosh.ss8 case cond else =>
42 syntax-violation syntax syntax-case quasisyntax
44 when unless do case-lambda
45 find for-all exists filter partition fold-left fold-right
49 close-input-port close-output-port current-input-port current-output-port
55 char-upper-case? char-lower-case? char-title-case?
111 …open-string-input-port open-string-output-port output-port-buffer-mode port-eof? port-has-port-po…
112 port-has-set-port-position!? port-position port-transcoder
114 …put-u8 set-port-position! standard-error-port standard-input-port standard-output-port string->by…
119 input-port? output-port? port?
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/math-lib/math/private/array/
H A Dtyped-array-indexing.rkt68 (λ (s port _)
71 (struct: Slice-Dots () #:property prop:custom-write (λ (s port _) (write-string "::..." port)))
75 (λ (s port _) (write-string (format "(::new ~a)" (slice-new-axis-length s)) port)))
93 (: ::new (case-> (-> Slice-New-Axis)
102 (: :: (case-> (-> Slice)
107 (case-lambda
181 (for/fold: ([arr : (Array A) arr]
194 (for/fold: ([js : (Listof Index) null]) ([jk s])
216 (for/fold: ([new-slices : (Listof Slice-Spec--) null]
239 (for/fold: : (Array A) ([arr : (Array A) (unsafe-array-axis-transform arr jss)]
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/srfi-doc/srfi/scribblings/
H A Dsrfi.scrbl108 (fold #f "fold")
110 (pair-fold #f "pair-fold")
360 (char-set-fold #f "char-set-fold")
399 (char-set:lower-case #f "char-set:lower-case")
400 (char-set:upper-case #f "char-set:upper-case")
401 (char-set:title-case #f "char-set:title-case")
423 (case-lambda #t "case-lambda")
710 (port->stream #f "port-to-stream")
758 (fold-ec #t "fold-ec")
775 (:port #t ":port")
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/srfi-lib/srfi/42ref/
H A Dcomprehensions.rkt29 ; As a fix, Matthew Flatt suggested to use syntax-case*
550 ; the general case
590 ; the fully qualified case
628 (define-syntax :port
632 ((:port cc var arg)
633 (:port cc var arg read) )
634 ((:port cc var arg1 arg2)
737 (case (length args)
751 ((input-port? a1)
849 (define-syntax fold-ec
[all …]
/dports/devel/guile-lib/guile-lib-0.2.6.1/unit-tests/
H A Dguile-library.api34 (node-set! procedure (arity 3 0 #f))))
97 (<port-log>)
102 (<port-log> <top>)
110 (<port-log>)
124 (set-default-logger! procedure (arity 1 0 #f))))
125 ((logging port-log)
225 (statprof-fold-call-data
297 ((sxml fold)
300 (fold procedure (arity 3 0 #f))
475 (<test-case> class)
[all …]

12345678910>>...164