From: Doug Coleman Date: Mon, 15 Aug 2022 00:35:31 +0000 (-0500) Subject: factor: add newlines to .factor files X-Git-Tag: 0.99~1130 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=726a8b784b91bb5e5d1ee01af46a6b91cf0ff438 factor: add newlines to .factor files pcregrep -LMr '\n\Z' . | grep '\.factor' --- diff --git a/basis/alien/enums/enums.factor b/basis/alien/enums/enums.factor index 9857771d6d..e9f9d44ec6 100644 --- a/basis/alien/enums/enums.factor +++ b/basis/alien/enums/enums.factor @@ -63,4 +63,5 @@ PREDICATE: enum-c-type-word < c-type-word "c-type" word-prop members>> keys [ name>> ] map ; : values>enum ( values enum -- seq ) - '[ _ number>enum ] map ; inline \ No newline at end of file + '[ _ number>enum ] map ; inline + diff --git a/basis/base64/base64-tests.factor b/basis/base64/base64-tests.factor index 3593fe2c7d..ef7e809c88 100644 --- a/basis/base64/base64-tests.factor +++ b/basis/base64/base64-tests.factor @@ -52,4 +52,5 @@ kernel sequences splitting strings tools.test ; [ "{\"a\":\"bcd\"}" >urlsafe-base64-jwt >string ] unit-test { "{\"a\":\"bcd\"}" } -[ "{\"a\":\"bcd\"}" >urlsafe-base64-jwt urlsafe-base64> >string ] unit-test \ No newline at end of file +[ "{\"a\":\"bcd\"}" >urlsafe-base64-jwt urlsafe-base64> >string ] unit-test + diff --git a/basis/bootstrap/assembler/arm.factor b/basis/bootstrap/assembler/arm.factor index c0fe5b9c1e..fe9b1233c7 100644 --- a/basis/bootstrap/assembler/arm.factor +++ b/basis/bootstrap/assembler/arm.factor @@ -7,4 +7,5 @@ IN: bootstrap.assembler.arm big-endian off -! [ "bootstrap.assembler.arm" forget-vocab ] with-compilation-unit \ No newline at end of file +! [ "bootstrap.assembler.arm" forget-vocab ] with-compilation-unit + diff --git a/basis/cocoa/runtime/runtime.factor b/basis/cocoa/runtime/runtime.factor index 58238c0b4f..72bd302135 100644 --- a/basis/cocoa/runtime/runtime.factor +++ b/basis/cocoa/runtime/runtime.factor @@ -86,4 +86,5 @@ FUNCTION: void* method_getImplementation ( Method method ) FUNCTION: Class object_getClass ( id object ) -FUNCTION: void* object_getIvar ( Class class, Ivar ivar ) \ No newline at end of file +FUNCTION: void* object_getIvar ( Class class, Ivar ivar ) + diff --git a/basis/compression/zstd/ffi/ffi.factor b/basis/compression/zstd/ffi/ffi.factor index 8bbe820ac6..b272bb5e44 100644 --- a/basis/compression/zstd/ffi/ffi.factor +++ b/basis/compression/zstd/ffi/ffi.factor @@ -25,4 +25,5 @@ FUNCTION: uint ZSTD_isError ( size_t code ) FUNCTION: c-string ZSTD_getErrorName ( size_t code ) -! There are many more api calls but this is enough for basic payloads \ No newline at end of file +! There are many more api calls but this is enough for basic payloads + diff --git a/basis/compression/zstd/zstd-tests.factor b/basis/compression/zstd/zstd-tests.factor index 73fdbb2699..cd7f56b83f 100644 --- a/basis/compression/zstd/zstd-tests.factor +++ b/basis/compression/zstd/zstd-tests.factor @@ -14,4 +14,5 @@ IN: compression.zstd.tests ! bad compressed buffer, should fail [ B{ 1 2 3 4 } zstd-uncompress-size -] [ zstd-error? ] must-fail-with \ No newline at end of file +] [ zstd-error? ] must-fail-with + diff --git a/basis/db/sqlite/ffi/ffi.factor b/basis/db/sqlite/ffi/ffi.factor index 2371b790ac..09c7f615b5 100644 --- a/basis/db/sqlite/ffi/ffi.factor +++ b/basis/db/sqlite/ffi/ffi.factor @@ -459,4 +459,5 @@ FUNCTION: int sqlite3_get_autocommit ( sqlite3* pDb ) FUNCTION: sqlite3* sqlite3_db_handle ( sqlite3_stmt* pStmt ) FUNCTION: c-string sqlite3_db_filename ( sqlite3* db, c-string zDbName ) -FUNCTION: int sqlite3_db_readonly ( sqlite3* db, c-string zDbName ) \ No newline at end of file +FUNCTION: int sqlite3_db_readonly ( sqlite3* db, c-string zDbName ) + diff --git a/basis/dns/dns-tests.factor b/basis/dns/dns-tests.factor index 295943d58f..37c4e80913 100644 --- a/basis/dns/dns-tests.factor +++ b/basis/dns/dns-tests.factor @@ -9,4 +9,5 @@ IN: dns.tests { B{ 1 49 1 49 1 49 1 49 0 } } [ "1.1.1.1." >name ] unit-test ! "1.1.1.1" reverse-ipv4-lookup -! "one.one.one.one" A IN dns-query \ No newline at end of file +! "one.one.one.one" A IN dns-query + diff --git a/basis/editors/acme/acme-tests.factor b/basis/editors/acme/acme-tests.factor index 2b9eed5e4a..1c8e7c809e 100644 --- a/basis/editors/acme/acme-tests.factor +++ b/basis/editors/acme/acme-tests.factor @@ -9,4 +9,5 @@ IN: editors.acme.tests "/plan9env" "PLAN9" [ plan9-path ] with-os-env ] with-variable ] unit-test { "/usr/local/plan9" } [ f \ plan9-path [ - f "PLAN9" [ plan9-path ] with-os-env ] with-variable ] unit-test \ No newline at end of file + f "PLAN9" [ plan9-path ] with-os-env ] with-variable ] unit-test + diff --git a/basis/escape-strings/escape-strings-tests.factor b/basis/escape-strings/escape-strings-tests.factor index acfa600066..258dc04690 100644 --- a/basis/escape-strings/escape-strings-tests.factor +++ b/basis/escape-strings/escape-strings-tests.factor @@ -31,4 +31,5 @@ IN: escape-strings.tests { "[0[]1]]0]" } [ "]1]" number-escape-string ] unit-test { "[2[]0]1]]2]" } [ "]0]1]" number-escape-string ] unit-test { "[00[]0]1]2]3]4]5]6]7]8]9]]00]" } [ "]0]1]2]3]4]5]6]7]8]9]" number-escape-string ] unit-test -{ "[01[]0]1]2]3]4]5]6]7]8]9]00]]01]" } [ "]0]1]2]3]4]5]6]7]8]9]00]" number-escape-string ] unit-test \ No newline at end of file +{ "[01[]0]1]2]3]4]5]6]7]8]9]00]]01]" } [ "]0]1]2]3]4]5]6]7]8]9]00]" number-escape-string ] unit-test + diff --git a/basis/http/parsers/parsers-tests.factor b/basis/http/parsers/parsers-tests.factor index 3f4312a72d..b89d370ab1 100644 --- a/basis/http/parsers/parsers-tests.factor +++ b/basis/http/parsers/parsers-tests.factor @@ -62,4 +62,5 @@ unit-test { T{ cookie { name "!#$%&'*+-.^_`|~:abc" } { value "def" } } } } [ "!#$%&'*+-.^_`|~:abc=def;" parse-cookie -] unit-test \ No newline at end of file +] unit-test + diff --git a/basis/math/primes/factors/factors-tests.factor b/basis/math/primes/factors/factors-tests.factor index 7a29c7c8df..5b88820f1b 100644 --- a/basis/math/primes/factors/factors-tests.factor +++ b/basis/math/primes/factors/factors-tests.factor @@ -45,4 +45,5 @@ USING: math math.primes.factors sequences tools.test ; ! 89 2^ 1 - ! 107 2^ 1 - ! 127 2^ 1 - * * factors -! ] unit-test \ No newline at end of file +! ] unit-test + diff --git a/basis/math/primes/pollard-rho-brent/pollard-rho-brent-tests.factor b/basis/math/primes/pollard-rho-brent/pollard-rho-brent-tests.factor index 04b18e8b04..89b9888b65 100644 --- a/basis/math/primes/pollard-rho-brent/pollard-rho-brent-tests.factor +++ b/basis/math/primes/pollard-rho-brent/pollard-rho-brent-tests.factor @@ -13,4 +13,5 @@ IN: math.primes.pollard-rho-brent.tests ! { 93461639715357977769163558199606896584051237541638188580280321 1238926361552897 } ! } [ ! 93461639715357977769163558199606896584051237541638188580280321 1238926361552897 * pollard-rho-brent-factors -! ] unit-test \ No newline at end of file +! ] unit-test + diff --git a/basis/mime/multipart/multipart-tests.factor b/basis/mime/multipart/multipart-tests.factor index 78a77f95f3..d2644f2974 100644 --- a/basis/mime/multipart/multipart-tests.factor +++ b/basis/mime/multipart/multipart-tests.factor @@ -83,4 +83,5 @@ SYMBOL: mime-test-server "\r\n\r\n" "\r\n\r\n" parse-multipart ] with-input-stream -] [ mime-decoding-ran-out-of-bytes? ] must-fail-with \ No newline at end of file +] [ mime-decoding-ran-out-of-bytes? ] must-fail-with + diff --git a/basis/models/search/search-tests.factor b/basis/models/search/search-tests.factor index beaf0ae16c..15d59c11bb 100644 --- a/basis/models/search/search-tests.factor +++ b/basis/models/search/search-tests.factor @@ -7,4 +7,5 @@ IN: models.search.tests { } [ world-buttons "Active Buttons" gadget. -] unit-test \ No newline at end of file +] unit-test + diff --git a/basis/peg/ebnf/ebnf-tests.factor b/basis/peg/ebnf/ebnf-tests.factor index a6952ade8c..3551951330 100644 --- a/basis/peg/ebnf/ebnf-tests.factor +++ b/basis/peg/ebnf/ebnf-tests.factor @@ -645,4 +645,5 @@ Tok = Spaces (Number | Special ) { { "a" "c" } } [ "abc" EBNF[=[ rule="a":a "b"+~ "c":c => [[ a c 2array ]] ]=] -] unit-test \ No newline at end of file +] unit-test + diff --git a/basis/reservoir-sampling/reservoir-sampling-tests.factor b/basis/reservoir-sampling/reservoir-sampling-tests.factor index 5c6c97dbf7..8500166ab4 100644 --- a/basis/reservoir-sampling/reservoir-sampling-tests.factor +++ b/basis/reservoir-sampling/reservoir-sampling-tests.factor @@ -23,4 +23,5 @@ IN: reservoir-sampling.tests 1006 over reservoir-sample 1007 over reservoir-sample ] with-random -] unit-test \ No newline at end of file +] unit-test + diff --git a/basis/reservoir-sampling/reservoir-sampling.factor b/basis/reservoir-sampling/reservoir-sampling.factor index a646fdabe4..768268803d 100644 --- a/basis/reservoir-sampling/reservoir-sampling.factor +++ b/basis/reservoir-sampling/reservoir-sampling.factor @@ -30,4 +30,5 @@ TUPLE: reservoir-sampler iteration k sampled ; ] [ 3drop ] if - ] if ; \ No newline at end of file + ] if ; + diff --git a/basis/resolv-conf/resolv-conf-tests.factor b/basis/resolv-conf/resolv-conf-tests.factor index 59c52cffe2..ead6c1af2b 100644 --- a/basis/resolv-conf/resolv-conf-tests.factor +++ b/basis/resolv-conf/resolv-conf-tests.factor @@ -15,4 +15,5 @@ IN: resolv-conf.tests "nameserver 127.0.0.53 options edns0 search localdomain" string>resolv.conf -] unit-test \ No newline at end of file +] unit-test + diff --git a/basis/retries/retries-tests.factor b/basis/retries/retries-tests.factor index 1c80a9c664..0e96a1f0f1 100644 --- a/basis/retries/retries-tests.factor +++ b/basis/retries/retries-tests.factor @@ -68,4 +68,5 @@ IN: retries.tests { } [ [ 2 = [ "not 2!" throw ] unless ] 1.1 100 3 retries -] unit-test \ No newline at end of file +] unit-test + diff --git a/basis/windows/shcore/shcore.factor b/basis/windows/shcore/shcore.factor index f36064d01a..1964fa0c5c 100644 --- a/basis/windows/shcore/shcore.factor +++ b/basis/windows/shcore/shcore.factor @@ -72,4 +72,5 @@ FUNCTION: HRESULT SetProcessDpiAwareness ( PROCESS_DPI_AWARENESS value ) ENUM: SHELL_UI_COMPONENT { SHELL_UI_COMPONENT_TASKBARS 0 } { SHELL_UI_COMPONENT_NOTIFICATIONAREA 1 } - { SHELL_UI_COMPONENT_DESKBAND 2 } ; \ No newline at end of file + { SHELL_UI_COMPONENT_DESKBAND 2 } ; + diff --git a/core/ranges/ranges-tests.factor b/core/ranges/ranges-tests.factor index 4506d3b15e..549b0cfeb9 100644 --- a/core/ranges/ranges-tests.factor +++ b/core/ranges/ranges-tests.factor @@ -57,4 +57,4 @@ USING: arrays kernel math ranges sequences sets tools.test ; { t } [ 10 -10 -2 [ sum ] [ >array sum ] bi = ] unit-test ! Empty range -{ 0 } [ 1 0 1 sum ] unit-test \ No newline at end of file +{ 0 } [ 1 0 1 sum ] unit-test diff --git a/extra/assocs/extras/extras-tests.factor b/extra/assocs/extras/extras-tests.factor index 65aaf7798c..f382df494f 100644 --- a/extra/assocs/extras/extras-tests.factor +++ b/extra/assocs/extras/extras-tests.factor @@ -294,4 +294,5 @@ USING: arrays assocs.extras kernel math math.order sequences tools.test ; } [ { { 10 100 } { 20 200 } { 30 300 } { 41 401 } } [ [ dup 1 + 2array ] dip ] collect-assoc-by-multi -] unit-test \ No newline at end of file +] unit-test + diff --git a/extra/broadcast-server/broadcast-server.factor b/extra/broadcast-server/broadcast-server.factor index 265144e3d8..37ace19cdc 100644 --- a/extra/broadcast-server/broadcast-server.factor +++ b/extra/broadcast-server/broadcast-server.factor @@ -117,4 +117,5 @@ SINGLETONS: command data ; ] with-destructors ; ! "192.168.88.255" 7777 start-broadcast-server -! "USE: math 2 2 + ." over send-broadcast-command \ No newline at end of file +! "USE: math 2 2 + ." over send-broadcast-command + diff --git a/extra/calendar/holidays/us/us-tests.factor b/extra/calendar/holidays/us/us-tests.factor index 6c0e64127a..af8002f14a 100644 --- a/extra/calendar/holidays/us/us-tests.factor +++ b/extra/calendar/holidays/us/us-tests.factor @@ -21,4 +21,5 @@ sequences tools.test ; } } [ 2022 timestamp>year-dates-gmt [ us-federal holiday? ] filter -] unit-test \ No newline at end of file +] unit-test + diff --git a/extra/cap/cap-docs.factor b/extra/cap/cap-docs.factor index 909ee8562d..595c4301c8 100644 --- a/extra/cap/cap-docs.factor +++ b/extra/cap/cap-docs.factor @@ -12,4 +12,5 @@ HELP: screenshot { $description "Creates a bitmap image of a UI window." } - { $notes "If the current " { $link gl-scale-factor } " is " { $snippet "2.0" } ", then the " { $snippet "2x" } " slot in the resulting " { $link image } " will be " { $link t } "." } ; \ No newline at end of file + { $notes "If the current " { $link gl-scale-factor } " is " { $snippet "2.0" } ", then the " { $snippet "2x" } " slot in the resulting " { $link image } " will be " { $link t } "." } ; + diff --git a/extra/cli/git/git.factor b/extra/cli/git/git.factor index 67b63b7e30..39b42f7fd8 100644 --- a/extra/cli/git/git.factor +++ b/extra/cli/git/git.factor @@ -63,4 +63,5 @@ cli-git-num-parallel [ cpus 2 * ] initialize : directory-entries-without-git ( directory -- entries ) recursive-directory-entries - [ name>> "/.git/" subseq-index? ] reject ; \ No newline at end of file + [ name>> "/.git/" subseq-index? ] reject ; + diff --git a/extra/crypto/jwt/jwt-tests.factor b/extra/crypto/jwt/jwt-tests.factor index dd8fd5a0aa..7fd4dcef72 100644 --- a/extra/crypto/jwt/jwt-tests.factor +++ b/extra/crypto/jwt/jwt-tests.factor @@ -21,4 +21,5 @@ IN: crypto.jwt.tests { "iat" 1516239022 } } "" sha-256 sign-jwt -] unit-test \ No newline at end of file +] unit-test + diff --git a/extra/elevate/elevate-tests.factor b/extra/elevate/elevate-tests.factor deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/extra/html5/html5.factor b/extra/html5/html5.factor index 435f4c544a..e82f6d2928 100644 --- a/extra/html5/html5.factor +++ b/extra/html5/html5.factor @@ -2084,4 +2084,5 @@ ERROR: invalid-return-state obj ; : parse-html5 ( string -- document ) - [ 0 ] dip data-state 2drop ; \ No newline at end of file + [ 0 ] dip data-state 2drop ; + diff --git a/extra/io/streams/counting/counting.factor b/extra/io/streams/counting/counting.factor index 592c761bb4..a80ab5055f 100644 --- a/extra/io/streams/counting/counting.factor +++ b/extra/io/streams/counting/counting.factor @@ -50,4 +50,5 @@ M:: counting-stream stream-contents* ( stream -- seq ) seq ; : with-counting-stream ( stream quot -- in-count out-count ) - [ ] dip [ with-input-stream ] keepd [ in-count>> ] [ out-count>> ] bi ; inline \ No newline at end of file + [ ] dip [ with-input-stream ] keepd [ in-count>> ] [ out-count>> ] bi ; inline + diff --git a/extra/math/blas/matrices/matrices-tests.factor b/extra/math/blas/matrices/matrices-tests.factor index e97a9a6252..0383af9063 100644 --- a/extra/math/blas/matrices/matrices-tests.factor +++ b/extra/math/blas/matrices/matrices-tests.factor @@ -714,4 +714,5 @@ sequences tools.test ; svector{ 2.0 2.0 3.0 4.0 } svector{ 3.0 2.0 3.0 4.0 } } equal? -] unit-test \ No newline at end of file +] unit-test + diff --git a/extra/random/xoshiro/xoshiro-tests.factor b/extra/random/xoshiro/xoshiro-tests.factor index ef6a25667a..6a64197a5e 100644 --- a/extra/random/xoshiro/xoshiro-tests.factor +++ b/extra/random/xoshiro/xoshiro-tests.factor @@ -35,4 +35,5 @@ IN: random.xoshiro.tests 17232205271518152816 9857397594961175947 8327361040835137714 -} [ 0 1 2 3 long-jump-256 ] unit-test \ No newline at end of file +} [ 0 1 2 3 long-jump-256 ] unit-test + diff --git a/extra/s3/s3.factor b/extra/s3/s3.factor index 943ae30deb..8dac6ba26d 100644 --- a/extra/s3/s3.factor +++ b/extra/s3/s3.factor @@ -137,4 +137,5 @@ PRIVATE> : bucket>alist ( bucket -- alist ) dup keys - [ name>> get-object nip ] with zip-with ; \ No newline at end of file + [ name>> get-object nip ] with zip-with ; + diff --git a/extra/semantic-versioning/semantic-versioning-tests.factor b/extra/semantic-versioning/semantic-versioning-tests.factor index 4c44af47e8..8c9a299d62 100644 --- a/extra/semantic-versioning/semantic-versioning-tests.factor +++ b/extra/semantic-versioning/semantic-versioning-tests.factor @@ -96,4 +96,5 @@ CONSTANT: semver-gt-comparisons { semver-gt-comparisons [ first2 swap version<=> ] zip-with values [ +lt+ = ] all? -] unit-test \ No newline at end of file +] unit-test + diff --git a/extra/semver/semver-tests.factor b/extra/semver/semver-tests.factor index 3c6d6a8a3a..ce459ccb15 100644 --- a/extra/semver/semver-tests.factor +++ b/extra/semver/semver-tests.factor @@ -139,4 +139,5 @@ CONSTANT: semver-gt-comparisons { semver-gt-comparisons [ first2 swap [ parse-semver ] bi@ <=> ] zip-with values [ +lt+ = ] all? -] unit-test \ No newline at end of file +] unit-test + diff --git a/extra/stack-as-data/stack-as-data-tests.factor b/extra/stack-as-data/stack-as-data-tests.factor index d11af28aef..a8418121b9 100644 --- a/extra/stack-as-data/stack-as-data-tests.factor +++ b/extra/stack-as-data/stack-as-data-tests.factor @@ -18,4 +18,5 @@ IN: stack-as-data.tests [ 5 6 7 8 4 [ sq ] stack-map -] unit-test \ No newline at end of file +] unit-test + diff --git a/extra/units/si/si-tests.factor b/extra/units/si/si-tests.factor index e2d1aa291d..6920dbb100 100644 --- a/extra/units/si/si-tests.factor +++ b/extra/units/si/si-tests.factor @@ -12,4 +12,5 @@ math.functions units.imperial ; { -40 } [ -40 deg-C [ deg-F ] undo ] unit-test { 1024 } [ 1 kibi ] unit-test -{ 1024 } [ 1 Ki ] unit-test \ No newline at end of file +{ 1024 } [ 1 Ki ] unit-test + diff --git a/extra/zealot/cli-changed-vocabs/cli-changed-vocabs.factor b/extra/zealot/cli-changed-vocabs/cli-changed-vocabs.factor index c14bbedc78..65e8992fd9 100644 --- a/extra/zealot/cli-changed-vocabs/cli-changed-vocabs.factor +++ b/extra/zealot/cli-changed-vocabs/cli-changed-vocabs.factor @@ -5,4 +5,5 @@ IN: zealot.cli-changed-vocabs : zealot-changed-vocabs ( -- ) ci-vocabs-to-test [ print ] each ; -MAIN: zealot-changed-vocabs \ No newline at end of file +MAIN: zealot-changed-vocabs +