humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rename a file and a structure because another file with the same name exists, except that one is lowercase and the other is uppercase. Case insensitive filesystems don't like that they had the same name before, except for the case.

Browse Source
This commit is contained in:
Humza Shahid
2025-09-02 02:14:12 +01:00
parent 75916234e6
commit 6d9ad9b13b
4 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fcore/cursor-dfa/vi-WORD-dfa.sml → fcore/cursor-dfa/vi-caps-word-dfa.sml
View File

@@ -1,4 +1,4 @@
structure ViWORDDfa = structure ViCapsWordDfa =
struct struct
val startState: Word8.word = 0w0 val startState: Word8.word = 0w0
val startNonBlankState: Word8.word = 0w1 val startNonBlankState: Word8.word = 0w1

12
fcore/cursor.sml
View File

@@ -600,29 +600,29 @@ struct
val nextWord = ViWordDfa.startOfNextWord val nextWord = ViWordDfa.startOfNextWord
(* equivalent of vi's 'W' command *) (* equivalent of vi's 'W' command *)
val nextWORD = ViWORDDfa.startOfNextWORD val nextWORD = ViCapsWordDfa.startOfNextWORD
(* equivalent of vi's 'b' command *) (* equivalent of vi's 'b' command *)
val prevWord = ViWordDfa.startOfCurrentWord val prevWord = ViWordDfa.startOfCurrentWord
val prevWordStrict = ViWordDfa.startOfCurrentWordStrict val prevWordStrict = ViWordDfa.startOfCurrentWordStrict
(* equivalent of vi's 'B' command *) (* equivalent of vi's 'B' command *)
val prevWORD = ViWORDDfa.startOfCurrentWORD val prevWORD = ViCapsWordDfa.startOfCurrentWORD
val prevWORDStrict = ViWORDDfa.startOfCurrentWORDStrict val prevWORDStrict = ViCapsWordDfa.startOfCurrentWORDStrict
(* equivalent of vi's 'ge' command *) (* equivalent of vi's 'ge' command *)
val endOfPrevWord = ViWordDfa.endOfPrevWord val endOfPrevWord = ViWordDfa.endOfPrevWord
(* equivalent of vi's 'gE' command *) (* equivalent of vi's 'gE' command *)
val endOfPrevWORD = ViWORDDfa.endOfPrevWORD val endOfPrevWORD = ViCapsWordDfa.endOfPrevWORD
(* equivalent of vi's `e` command *) (* equivalent of vi's `e` command *)
val endOfWord = ViWordDfa.endOfCurrentWord val endOfWord = ViWordDfa.endOfCurrentWord
val endOfWordForDelete = ViWordDfa.endOfCurrentWordForDelete val endOfWordForDelete = ViWordDfa.endOfCurrentWordForDelete
(* equivalent of vi's `E` command *) (* equivalent of vi's `E` command *)
val endOfWORD = ViWORDDfa.endOfCurrentWORD val endOfWORD = ViCapsWordDfa.endOfCurrentWORD
val endOfWORDForDelete = ViWORDDfa.endOfCurrentWORDForDelete val endOfWORDForDelete = ViCapsWordDfa.endOfCurrentWORDForDelete
(* Prerequisite: (* Prerequisite:
* LineGap has been moved to start of line (provided with vi0). *) * LineGap has been moved to start of line (provided with vi0). *)

2
shf-tests.mlb
View File

@@ -33,8 +33,8 @@ in
fcore/pipe-cursor.sml fcore/pipe-cursor.sml
fcore/text-builder.sml fcore/text-builder.sml
fcore/cursor-dfa/make-dfa-loop.sml fcore/cursor-dfa/make-dfa-loop.sml
fcore/cursor-dfa/vi-WORD-dfa.sml
fcore/cursor-dfa/vi-word-dfa.sml fcore/cursor-dfa/vi-word-dfa.sml
fcore/cursor-dfa/vi-caps-word-dfa.sml
fcore/cursor-dfa/vi-dlr-dfa.sml fcore/cursor-dfa/vi-dlr-dfa.sml
end end
fcore/cursor.sml fcore/cursor.sml

2
shf.mlb
View File

@@ -33,8 +33,8 @@ in
fcore/pipe-cursor.sml fcore/pipe-cursor.sml
fcore/text-builder.sml fcore/text-builder.sml
fcore/cursor-dfa/make-dfa-loop.sml fcore/cursor-dfa/make-dfa-loop.sml
fcore/cursor-dfa/vi-WORD-dfa.sml
fcore/cursor-dfa/vi-word-dfa.sml fcore/cursor-dfa/vi-word-dfa.sml
fcore/cursor-dfa/vi-caps-word-dfa.sml
fcore/cursor-dfa/vi-dlr-dfa.sml fcore/cursor-dfa/vi-dlr-dfa.sml
end end
fcore/cursor.sml fcore/cursor.sml