almost done functorising character iterators for vi word

fcore/cursor-dfa/vi-word-dfa.sml

@@ -130,41 +130,32 @@ struct
          val fStart = Folder.foldPrev
        end)
 
-  fun startOfCurrentWord (idx, absIdx, str, tl, currentState, counter) =
+  structure StartOfCurrentWordFolder =
-    if idx < 0 then
+    MakeCharFolderPrev
-      case tl of
+      (struct
-        str :: tl =>
+         val startState = startState
-          startOfCurrentWord
+         val tables = tables
-            (String.size str - 1, absIdx, str, tl, currentState, counter)
+
-      | [] => 0
+         fun isFinal currentState =
-    else
+           currentState = alphaToSpace orelse currentState = punctToSpace
-      let
+           orelse currentState = alphaToPunct orelse currentState = punctToAlpha
-        val chr = String.sub (str, idx) handle _ => (print "156\n"; raise Empty)
+
-        val newState =
+         fun finish idx = idx + 1
-          next (currentState, chr)
+       end)
-          handle _ =>
-            (print ("158: " ^ Word8.toString currentState ^ "\n"); raise Empty)
-      in
-        if
-          newState = alphaToSpace orelse newState = punctToSpace
-          orelse newState = alphaToPunct orelse newState = punctToAlpha
-        then
-          if counter - 1 = 0 then
-            absIdx + 1
-          else
-            startOfCurrentWord
-              (idx - 1, absIdx - 1, str, tl, startState, counter - 1)
-        else
-          startOfCurrentWord (idx - 1, absIdx - 1, str, tl, newState, counter)
-      end
 
   structure StartOfCurrentWord =
     MakePrevDfaLoopMinus1
-      (struct val startState = startState val fStart = startOfCurrentWord end)
+      (struct
+         val startState = startState
+         val fStart = StartOfCurrentWordFolder.foldPrev
+       end)
 
   structure StartOfCurrentWordStrict =
     MakePrevDfaLoop
-      (struct val startState = startState val fStart = startOfCurrentWord end)
+      (struct
+         val startState = startState
+         val fStart = StartOfCurrentWordFolder.foldPrev
+       end)
 
   fun endOfCurrentWord (idx, absIdx, str, tl, currentState, counter) =
     if idx = String.size str then