···

       
29
       
 
       
  )

     

       
30
       
 
       
}

     

       
31
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
32
       
 
       
pub fn parse_reference(input: String) -> Result(Reference, String) {

     

       
33
       
 
       
  let parts = string.split(input, on: " ")

     

       
34
       
 
       


     
···

       
62
       
 
       
  }

     

       
63
       
 
       
}

     

       
64
       
 
       


     

       
65
       
-
       
pub fn main() -> Nil {

     

       
66
       
-
       
  let assert Ok(bible) = simplifile.read(from: filepath)

     

       
67
       
-
       


     

       
68
       
-
       
  let biblelines = string.split(bible, on: "\n")

     

       
69
       
-
       


     

       
70
       
-
       
  let assert Ok(search) = input(prompt: "> ")

     

       
71
       
-
       


     

       
72
       
-
       
  let assert Ok(reference) = parse_reference(search)

     

       
73
       
-
       


     

       
74
       
-
       
  let inital =

     

       
75
       
 
       
    ScanState(

     

       
76
       
 
       
      phase: Book,

     

       
77
       
 
       
      ref: reference,

     
···

       
80
       
 
       
      verse_text: Error("Verse not found"),

     

       
81
       
 
       
    )

     

       
82
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
83
       
 
       
  let result =

     

       
84
       
-
       
    list.fold(biblelines, inital, fn(state, line) -> ScanState {

     

       
85
       
 
       
      case state.phase {

     

       
86
       
 
       
        Done -> state

     

       
87
       
 
       
        Book ->

     
···

       
122
       
 
       
      }

     

       
123
       
 
       
    })

     

       
124
       
 
       


     

       
125
       
-
       
  case result.verse_text {

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
126
       
 
       
    Ok(text) ->

     

       
127
       
 
       
      io.println(

     

       
128
       
-
       
        result.ref.book

     

       
129
       
 
       
        <> " "

     

       
130
       
-
       
        <> int.to_string(result.ref.chapter)

     

       
131
       
 
       
        <> ":"

     

       
132
       
-
       
        <> int.to_string(result.ref.verse)

     

       
133
       
 
       
        <> " "

     

       
134
       
 
       
        <> text,

     

       
135
       
 
       
      )

     

···

       
29
       
 
       
  )

     

       
30
       
 
       
}

     

       
31
       
 
       


     

       
32
       
+
       
pub type ScanResult {

     

       
33
       
+
       
  ScanResult(ref: Reference, verse: Result(String, String))

     

       
34
       
+
       
}

     

       
35
       
+
       


     

       
36
       
 
       
pub fn parse_reference(input: String) -> Result(Reference, String) {

     

       
37
       
 
       
  let parts = string.split(input, on: " ")

     

       
38
       
 
       


     
···

       
66
       
 
       
  }

     

       
67
       
 
       
}

     

       
68
       
 
       


     

       
69
       
+
       
pub fn bible_scan(

     

       
70
       
+
       
  reference reference: Reference,

     

       
71
       
+
       
  bible bible: String,

     

       
72
       
+
       
) -> ScanResult {

     

       
73
       
+
       
  let inital_state =

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
74
       
 
       
    ScanState(

     

       
75
       
 
       
      phase: Book,

     

       
76
       
 
       
      ref: reference,

     
···

       
79
       
 
       
      verse_text: Error("Verse not found"),

     

       
80
       
 
       
    )

     

       
81
       
 
       


     

       
82
       
+
       
  let bible_lines = string.split(bible, "\n")

     

       
83
       
+
       


     

       
84
       
 
       
  let result =

     

       
85
       
+
       
    list.fold(bible_lines, inital_state, fn(state, line) -> ScanState {

     

       
86
       
 
       
      case state.phase {

     

       
87
       
 
       
        Done -> state

     

       
88
       
 
       
        Book ->

     
···

       
123
       
 
       
      }

     

       
124
       
 
       
    })

     

       
125
       
 
       


     

       
126
       
+
       
  ScanResult(ref: reference, verse: result.verse_text)

     

       
127
       
+
       
}

     

       
128
       
+
       


     

       
129
       
+
       
pub fn main() -> Nil {

     

       
130
       
+
       
  let assert Ok(bible) = simplifile.read(from: filepath)

     

       
131
       
+
       


     

       
132
       
+
       
  let assert Ok(search) = input(prompt: "> ")

     

       
133
       
+
       


     

       
134
       
+
       
  let assert Ok(reference) = parse_reference(search)

     

       
135
       
+
       


     

       
136
       
+
       
  let scan = bible_scan(reference, bible)

     

       
137
       
+
       


     

       
138
       
+
       
  case scan.verse {

     

       
139
       
 
       
    Ok(text) ->

     

       
140
       
 
       
      io.println(

     

       
141
       
+
       
        scan.ref.book

     

       
142
       
 
       
        <> " "

     

       
143
       
+
       
        <> int.to_string(scan.ref.chapter)

     

       
144
       
 
       
        <> ":"

     

       
145
       
+
       
        <> int.to_string(scan.ref.verse)

     

       
146
       
 
       
        <> " "

     

       
147
       
 
       
        <> text,

     

       
148
       
 
       
      )