restore temp.txt to previous state, as it was temporarily being edited for testing
This commit is contained in:
@@ -42,7 +42,14 @@ struct
|
|||||||
if counter - 1 = 0 then
|
if counter - 1 = 0 then
|
||||||
absIdx - 1
|
absIdx - 1
|
||||||
else
|
else
|
||||||
loop (idx + 1, absIdx + 1, str, tl, startState, counter - 1)
|
loop
|
||||||
|
( idx + 1
|
||||||
|
, absIdx + 1
|
||||||
|
, str
|
||||||
|
, tl
|
||||||
|
, oneNewlineState
|
||||||
|
, counter - 1
|
||||||
|
)
|
||||||
else if newState = notNewlineState then
|
else if newState = notNewlineState then
|
||||||
if counter - 1 = 0 then
|
if counter - 1 = 0 then
|
||||||
absIdx
|
absIdx
|
||||||
@@ -73,8 +80,17 @@ struct
|
|||||||
val newState = next (currentState, chr)
|
val newState = next (currentState, chr)
|
||||||
in
|
in
|
||||||
if newState = twoNewlineState then
|
if newState = twoNewlineState then
|
||||||
if counter - 1 = 0 then absIdx
|
if counter - 1 = 0 then
|
||||||
else loop (idx - 1, absIdx - 1, str, tl, newState, counter - 1)
|
absIdx
|
||||||
|
else
|
||||||
|
loop
|
||||||
|
( idx - 1
|
||||||
|
, absIdx - 1
|
||||||
|
, str
|
||||||
|
, tl
|
||||||
|
, oneNewlineState
|
||||||
|
, counter - 1
|
||||||
|
)
|
||||||
else if newState = notNewlineState then
|
else if newState = notNewlineState then
|
||||||
if counter - 1 = 0 then
|
if counter - 1 = 0 then
|
||||||
absIdx
|
absIdx
|
||||||
|
|||||||
4
temp.txt
4
temp.txt
@@ -5,6 +5,10 @@ struct
|
|||||||
val ySpace = 25
|
val ySpace = 25
|
||||||
val fontSize = 30.0
|
val fontSize = 30.0
|
||||||
|
|
||||||
|
fun accToDrawMsg (textAcc, cursorAcc) =
|
||||||
|
let
|
||||||
|
open MailboxType
|
||||||
|
open DrawMsg
|
||||||
|
|
||||||
val textAcc = Vector.concat textAcc
|
val textAcc = Vector.concat textAcc
|
||||||
val cursorAcc = Vector.concat cursorAcc
|
val cursorAcc = Vector.concat cursorAcc
|
||||||
|
|||||||
Reference in New Issue
Block a user