Home
last modified time | relevance | path

Searched +refs:char +refs:upcase (Results 1 – 25 of 1079) sorted by relevance

12345678910>>...44

/dports/lang/mosh/mosh-0.2.7/boot/runtimes/srfi-mosh/lib.rnrs/rnrs/
H A Dunicode.ss4 char-upcase char-downcase char-titlecase char-foldcase
5 char-ci=? char-ci<? char-ci>? char-ci<=? char-ci>=?
6 char-alphabetic? char-numeric? char-whitespace?
7 char-upper-case? char-lower-case? char-title-case?
8 char-general-category
9 string-upcase string-downcase string-titlecase string-foldcase
16 char-upcase char-downcase char-titlecase char-foldcase
17 char-ci=? char-ci<? char-ci>? char-ci<=? char-ci>=?
18 char-alphabetic? char-numeric? char-whitespace?
19 char-upper-case? char-lower-case? char-title-case?
[all …]
/dports/math/reduce/Reduce-svn5758-src/psl/dist/util/
H A Dfast-chars.sl64 (= (char-int c1) (char-int c2)))
68 (< (char-int c1) (char-int c2)))
72 (> (char-int c1) (char-int c2)))
76 (<= (char-int c1) (char-int c2)))
80 (>= (char-int c1) (char-int c2)))
85 (defmacro char-upcase-macro (x)
105 (defun fast-char-upcase (c)
106 (char-upcase-macro c))
163 (= (char-upcase-macro c1) (char-upcase-macro c2)))
167 (fast-char< (char-upcase-macro c1) (char-upcase-macro c2)))
[all …]
H A Dchars.sl130 (- (char-int c) (char-int #\0))))
138 (eql (char-int c1) (char-int c2)))
142 (eq (char-upcase c1) (char-upcase c2)))
146 (lessp (char-int c1) (char-int c2)))
150 (greaterp (char-int c1) (char-int c2)))
154 (char< (char-upcase c1) (char-upcase c2)))
158 (char> (char-upcase c1) (char-upcase c2)))
184 (defun char-upcase (c)
187 (int-char (+ (char-int #\A)
196 (int-char (+ (char-int #\\a)
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/
H A Dchars.scrbl259 @racket[char-downcase], @racket[char-upcase], and
272 @defproc[(char-upcase [char char?]) char?]{
275 defined by Unicode. If @racket[char] has no upcase mapping,
276 @racket[char-upcase] produces @racket[char].
284 (char-upcase #\a)
285 (char-upcase #\u03BB)
286 (char-upcase #\space)
292 Like @racket[char-upcase], but for the Unicode downcase mapping.
305 (char-upcase #\a)
306 (char-upcase #\u03BB)
[all …]
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/scheme/
H A Dchar.sld2 (define-library (scheme char)
9 (include "char/full.scm")
17 char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>?
18 char-alphabetic? char-lower-case? char-numeric?
19 char-upper-case? char-whitespace? digit-value
20 char-upcase char-downcase))))
23 char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>?
24 char-downcase char-foldcase char-lower-case? char-numeric?
25 char-upcase char-upper-case? char-whitespace? digit-value
27 char-get-special-case
[all …]
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/129/
H A Dtest.sld15 (test-assert (char-title-case? #\x01C5))
16 (test-assert (char-title-case? #\x1FFC))
17 (test-assert (char-upper-case? #\x01C7))
18 (test-assert (char-title-case? #\x01C8))
23 (test-group "titlecase/char"
24 (test #\x01C5 (char-titlecase #\x01C4))
28 (test #\x01C7 (char-upcase #\x01C7))
29 (test #\x01C7 (char-upcase #\x01C8))
30 (test #\x01C7 (char-upcase #\x01C9))
37 (test #\Z (char-titlecase #\Z))
[all …]
/dports/lang/mosh/mosh-0.2.7/lib/srfi/%3a13/
H A Dstrings.sls37 string-downcase string-upcase string-titlecase
38 string-downcase! string-upcase! string-titlecase!
77 string-upcase string-downcase string-titlecase string-hash)
78 …char-upper-case? char-upcase if not string? let pair? integer? exact? >= <= values car cdr quote s…
83 …(only (srfi :14 char-sets) char-set? char-set-contains? char-set:whitespace char-set char-set:grap…
103 (define (char-cased? c)
104 (char-upper-case? (char-upcase c)))
/dports/lang/kawa/kawa-3.1.1/testsuite/larceny-tests/tests/scheme/
H A Dchar.sld5 ;;; char-downcase
7 ;;; char-upcase
9 ;;; char-ci<=?
10 ;;; char-ci<?
11 ;;; char-ci=?
12 ;;; char-ci>=?
13 ;;; char-ci>?
31 ;;; string-upcase
57 (test (char-upcase #\i) #\I)
91 (test (string-upcase "Hi") "HI")
[all …]
/dports/lang/racket-minimal/racket-8.3/src/cs/rumble/
H A Dchar-range.ss2 (define (make-known-char-range-list)
12 (include "rumble/char.ss")
15 (- (char->integer (op c))
16 (char->integer c)))
23 (define (char-same? a b)
49 ;; has historcially counted deltas between upcase
52 (eqv? (delta char-upcase a)
53 (delta char-upcase b))
74 [(eq? 'cn (char-general-category (integer->char i)))
81 [(eq? 'cn (char-general-category (integer->char i)))
[all …]
/dports/lang/racket/racket-8.3/src/cs/rumble/
H A Dchar-range.ss2 (define (make-known-char-range-list)
12 (include "rumble/char.ss")
15 (- (char->integer (op c))
16 (char->integer c)))
23 (define (char-same? a b)
49 ;; has historcially counted deltas between upcase
52 (eqv? (delta char-upcase a)
53 (delta char-upcase b))
74 [(eq? 'cn (char-general-category (integer->char i)))
81 [(eq? 'cn (char-general-category (integer->char i)))
[all …]
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/unicode/
H A Dextract-char-cases.ss100 [(char=? (string-ref (car ls) 0) #\<)
171 (let ([n (char->integer c)])
205 `(module ($char-upcase $char-downcase $char-titlecase $char-foldcase
206 $str-upcase $str-downcase $str-titlecase $str-foldcase
209 (define char-upcase-table ',(build-table chardata-ucchar ls))
213 (define string-upcase-table ',(build-table chardata-ucstr ls))
237 (define ($char-upcase c) (charop char-upcase-table c))
238 (define ($char-downcase c) (charop char-downcase-table c))
239 (define ($char-titlecase c) (charop char-titlecase-table c))
240 (define ($char-foldcase c) (charop char-foldcase-table c))
[all …]
/dports/lang/racket/racket-8.3/src/ChezScheme/unicode/
H A Dextract-char-cases.ss100 [(char=? (string-ref (car ls) 0) #\<)
171 (let ([n (char->integer c)])
205 `(module ($char-upcase $char-downcase $char-titlecase $char-foldcase
206 $str-upcase $str-downcase $str-titlecase $str-foldcase
209 (define char-upcase-table ',(build-table chardata-ucchar ls))
213 (define string-upcase-table ',(build-table chardata-ucstr ls))
237 (define ($char-upcase c) (charop char-upcase-table c))
238 (define ($char-downcase c) (charop char-downcase-table c))
239 (define ($char-titlecase c) (charop char-titlecase-table c))
240 (define ($char-foldcase c) (charop char-foldcase-table c))
[all …]
/dports/lang/chez-scheme/ChezScheme-9.5.4/unicode/
H A Dextract-char-cases.ss100 [(char=? (string-ref (car ls) 0) #\<)
171 (let ([n (char->integer c)])
205 `(module ($char-upcase $char-downcase $char-titlecase $char-foldcase
206 $str-upcase $str-downcase $str-titlecase $str-foldcase
209 (define char-upcase-table ',(build-table chardata-ucchar ls))
213 (define string-upcase-table ',(build-table chardata-ucstr ls))
237 (define ($char-upcase c) (charop char-upcase-table c))
238 (define ($char-downcase c) (charop char-downcase-table c))
239 (define ($char-titlecase c) (charop char-titlecase-table c))
240 (define ($char-foldcase c) (charop char-foldcase-table c))
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/r6rs-lib/rnrs/
H A Dunicode-6.rkt7 char-upcase
8 char-downcase
9 char-titlecase
10 char-foldcase
11 char-ci=?
12 char-ci<?
13 char-ci>?
14 char-ci<=?
15 char-ci>=?
17 char-numeric?
[all …]
/dports/lang/guile2/guile-2.2.7/test-suite/tests/
H A Di18n.test304 (pass-if "char-locale-upcase"
305 (and (eqv? #\Z (char-locale-upcase #\z))
306 (eqv? #\Z (char-locale-upcase #\z (make-locale LC_ALL "C")))))
316 (pass-if "char-locale-upcase Turkish"
319 (eqv? #\İ (char-locale-upcase #\i %turkish-utf8-locale)))))
333 (pass-if "string-locale-upcase"
334 (and (string=? "Z" (string-locale-upcase "z"))
351 (pass-if "string-locale-upcase German"
358 (pass-if "string-locale-upcase Greek"
365 (pass-if "string-locale-upcase Greek (two sigmas)"
[all …]
/dports/lang/guile2/guile-2.2.7/benchmark-suite/benchmarks/
H A Dsrfi-13.bm33 (lambda (n) (integer->char (+ 32 (random 90))))
90 (string-tabulate integer->char 250))
139 (string-trim short-string char-alphabetic?)
141 (string-trim long-string char-alphabetic?)
279 (benchmark "upcase downcase upcase! downcase!" 600
280 (string-upcase short-string)
281 (string-upcase medium-string)
282 (string-upcase long-string)
286 (string-upcase! str1 0 1)
287 (string-upcase! str2 10 20)
[all …]
H A Dchars.bm28 (benchmark "char" 1000000
35 (char? #\a))
37 (benchmark "char=?" 1000000
38 (char=? #\a #\a))
40 (benchmark "char<?" 1000000
41 (char=? #\a #\a))
44 (char=? #\a #\a))
47 (char=? #\a #\a))
50 (char->integer #\a))
53 (char-upcase #\a))
[all …]
/dports/lang/guile/guile-3.0.7/benchmark-suite/benchmarks/
H A Dsrfi-13.bm33 (lambda (n) (integer->char (+ 32 (random 90))))
90 (string-tabulate integer->char 250))
139 (string-trim short-string char-alphabetic?)
141 (string-trim long-string char-alphabetic?)
279 (benchmark "upcase downcase upcase! downcase!" 600
280 (string-upcase short-string)
281 (string-upcase medium-string)
282 (string-upcase long-string)
286 (string-upcase! str1 0 1)
287 (string-upcase! str2 10 20)
[all …]
H A Dchars.bm28 (benchmark "char" 1000000
35 (char? #\a))
37 (benchmark "char=?" 1000000
38 (char=? #\a #\a))
40 (benchmark "char<?" 1000000
41 (char=? #\a #\a))
44 (char=? #\a #\a))
47 (char=? #\a #\a))
50 (char->integer #\a))
53 (char-upcase #\a))
[all …]
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/libjava/scripts/
H A Dunicode-muncher.pl56 my ($char) = @_;
57 die "Out of range: $char\n" if $char < -0x8000 or $char > 0xffff;
58 $char += 0x10000 if $char < 0;
60 return sprintf("\\%03o", $char) if $char < 0x20;
61 return "\\\"" if $char == 0x22;
62 return "\\\\" if $char == 0x5c;
63 return pack("C", $char) if $char < 0x7f;
64 return sprintf("\\u%04x", $char);
96 $mirrored, undef, undef, $upcase, $lowcase, $title) = split ';';
131 $upperchar = $upcase ? hex($upcase) - $ch : 0;
[all …]
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/libjava/scripts/
H A Dunicode-muncher.pl56 my ($char) = @_;
57 die "Out of range: $char\n" if $char < -0x8000 or $char > 0xffff;
58 $char += 0x10000 if $char < 0;
60 return sprintf("\\%03o", $char) if $char < 0x20;
61 return "\\\"" if $char == 0x22;
62 return "\\\\" if $char == 0x5c;
63 return pack("C", $char) if $char < 0x7f;
64 return sprintf("\\u%04x", $char);
96 $mirrored, undef, undef, $upcase, $lowcase, $title) = split ';';
131 $upperchar = $upcase ? hex($upcase) - $ch : 0;
[all …]
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/rktboot/
H A Dformat.rkt39 (if (or (char=? c #\a)
40 (char=? c #\s)
41 (char=? c #\v)
42 (char=? c #\e))
70 (display (if (memq 'upcase mode)
71 (string-upcase v)
84 (display (string-upcase (number->string (car args) 16)) o)
93 [(and (char=? c #\~)
94 (char=? char (string-ref fmt (add1 i))))
97 (write-char c o)
[all …]
/dports/lang/racket/racket-8.3/src/ChezScheme/rktboot/
H A Dformat.rkt39 (if (or (char=? c #\a)
40 (char=? c #\s)
41 (char=? c #\v)
42 (char=? c #\e))
70 (display (if (memq 'upcase mode)
71 (string-upcase v)
84 (display (string-upcase (number->string (car args) 16)) o)
93 [(and (char=? c #\~)
94 (char=? char (string-ref fmt (add1 i))))
97 (write-char c o)
[all …]
/dports/lang/elixir-devel/elixir-1.13.1/lib/elixir/unicode/
H A Dunicode.ex336 def upcase(<<@letter_i, rest::bits>>, acc, mode) do function
338 upcase(rest, [char | acc], mode)
353 upcase(rest, [unquote(upper) | acc], mode)
360 upcase(rest, [value | acc], mode)
364 def upcase(<<byte, rest::bits>>, acc, mode) do function
366 upcase(rest, [byte - 32 | acc], mode)
368 upcase(rest, [byte | acc], mode)
381 {char, rest}
408 if char >= ?a and char <= ?z do
411 {<<char::utf8>>, rest}
[all …]
/dports/lang/elixir/elixir-1.12.3/lib/elixir/unicode/
H A Dproperties.ex178 downcase(rest, [char | acc], mode)
269 def upcase(<<@letter_i, rest::bits>>, acc, mode) do function
271 upcase(rest, [char | acc], mode)
279 def upcase(<<unquote(codepoint), rest::bits>>, acc, mode) do function
280 upcase(rest, [unquote(upper) | acc], mode)
284 def upcase(<<char, rest::bits>>, acc, mode) do function
285 upcase(rest, [char | acc], mode)
288 def upcase("", acc, _mode), do: IO.iodata_to_binary(:lists.reverse(acc)) function
297 {char, rest}
311 {<<char::utf8>>, rest}
[all …]

12345678910>>...44