suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

type for #:limit-prefix? formatting option

Browse Source
This commit is contained in:
Ben Greenman 2016-07-10 20:42:57 -04:00
parent 27ed39d101
commit 2409457930
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
typed-racket-lib/typed-racket/base-env/base-env.rkt
View File

@ -190,6 +190,7 @@
#:max-width (Un -Nat (-val +inf.0)) #f
#:min-width -Nat #f
#:limit-marker -String #f
#:limit-prefix? -Boolean #f
#:align (one-of/c 'left 'center 'right) #f
#:pad-string -String #f
#:left-pad-string -String #f
@ -202,6 +203,7 @@
#:max-width (Un -Nat (-val +inf.0)) #f
#:min-width -Nat #f
#:limit-marker -String #f
#:limit-prefix? -Boolean #f
#:align (one-of/c 'left 'center 'right) #f
#:pad-string -String #f
#:left-pad-string -String #f
@ -214,6 +216,7 @@
#:max-width (Un -Nat (-val +inf.0)) #f
#:min-width -Nat #f
#:limit-marker -String #f
#:limit-prefix? -Boolean #f
#:align (one-of/c 'left 'center 'right) #f
#:pad-string -String #f
#:left-pad-string -String #f
@ -226,6 +229,7 @@
#:max-width (Un -Nat (-val +inf.0)) #f
#:min-width -Nat #f
#:limit-marker -String #f
#:limit-prefix? -Boolean #f
#:align (one-of/c 'left 'center 'right) #f
#:pad-string -String #f
#:left-pad-string -String #f
@ -253,6 +257,7 @@
#:max-width (Un -Nat (-val +inf.0)) #f
#:min-width -Nat #f
#:limit-marker -String #f
#:limit-prefix? -Boolean #f
#:align (one-of/c 'left 'center 'right) #f
#:pad-string -String #f
#:left-pad-string -String #f
@ -265,6 +270,7 @@
#:max-width (Un -Nat (-val +inf.0)) #f
#:min-width -Nat #f
#:limit-marker -String #f
#:limit-prefix? -Boolean #f
#:align (one-of/c 'left 'center 'right) #f
#:pad-string -String #f
#:left-pad-string -String #f
@ -277,6 +283,7 @@
#:max-width (Un -Nat (-val +inf.0)) #f
#:min-width -Nat #f
#:limit-marker -String #f
#:limit-prefix? -Boolean #f
#:align (one-of/c 'left 'center 'right) #f
#:pad-string -String #f
#:left-pad-string -String #f

6
typed-racket-test/succeed/format.rkt
View File

@ -8,21 +8,27 @@
(~a "foo" 'a 3)
(~a "foo" 'a 3 #:separator ", " #:width 20)
(~a "foo" 'a 3 #:max-width 20 #:min-width 10)
(~a "foo" 'a 3 #:max-width 4 #:limit-prefix? #t)
(~s "foo" 'a 3)
(~s "foo" 'a 3 #:separator ", " #:width 20)
(~s "foo" 'a 3 #:max-width 20 #:min-width 10)
(~s "foo" 'a 3 #:max-width 4 #:limit-prefix? #t)
(~v "foo" 'a 3)
(~v "foo" 'a 3 #:separator ", " #:width 20)
(~v "foo" 'a 3 #:max-width 20 #:min-width 10)
(~v "foo" 'a 3 #:max-width 4 #:limit-prefix? #t)
(~.a "foo" 'a 3)
(~.a "foo" 'a 3 #:separator ", " #:width 20)
(~.a "foo" 'a 3 #:max-width 20 #:min-width 10)
(~.a "foo" 'a 3 #:max-width 4 #:limit-prefix? #t)
(~.s "foo" 'a 3)
(~.s "foo" 'a 3 #:separator ", " #:width 20)
(~.s "foo" 'a 3 #:max-width 20 #:min-width 10)
(~.s "foo" 'a 3 #:max-width 4 #:limit-prefix? #t)
(~.v "foo" 'a 3)
(~.v "foo" 'a 3 #:separator ", " #:width 20)
(~.v "foo" 'a 3 #:max-width 20 #:min-width 10)
(~.v "foo" 'a 3 #:max-width 4 #:limit-prefix? #t)
(~r 234234)
(~r 3.5 #:sign '+ #:base 3 #:precision 3
#:notation 'positional #:format-exponent "fooo"