commit f59b933a322136af282ef4f5d9db446bca07295f · dunkirk.sh/gleam-bible-search

+99 -8

src/bible_search.gleam

···

       1
        
       import gleam/int

     

       2
        
       import gleam/io

     

       3
        
       import gleam/list

     

       0
        
       
     

       4
        
       import gleam/string

     

       5
        
       import input.{input}

     

       6
        
       import simplifile

     
···

       11
        
         Reference(book: String, chapter: Int, verse: Int)

     

       12
        
       }

     

       13
        
       

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

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

     

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

     

       16
        
       

     
···

       21
        
                 case int.parse(verse_s) {

     

       22
        
                   Ok(verse) ->

     

       23
        
                     Ok(Reference(book: string.uppercase(book), chapter:, verse:))

     

       24
       -
                   Error(_) -> Error("Invalid verse" <> verse_s)

     

       25
        
                 }

     

       26
       -
               Error(_) -> Error("Invalid chapter" <> chapter_s)

     

       27
        
             }

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       28
        
           _ -> Error("invalid parse")

     

       29
        
         }

     

       30
        
       }

     
···

       38
        
       

     

       39
        
         let assert Ok(reference) = parse_reference(search)

     

       40
        
       

     

       41
       -
         list.each(biblelines, fn(line) {

     

       42
       -
           case line {

     

       43
       -
             "THE BOOK OF " <> book if book == reference.book -> io.println(book)

     

       44
       -
             _ -> io.print("")

     

       45
       -
           }

     

       46
       -
         })

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       47
        
       }

···

       1
        
       import gleam/int

     

       2
        
       import gleam/io

     

       3
        
       import gleam/list

     

       4
       +
       import gleam/result

     

       5
        
       import gleam/string

     

       6
        
       import input.{input}

     

       7
        
       import simplifile

     
···

       12
        
         Reference(book: String, chapter: Int, verse: Int)

     

       13
        
       }

     

       14
        
       

     

       15
       +
       pub type Phase {

     

       16
       +
         Book

     

       17
       +
         Chapter

     

       18
       +
         Verse

     

       19
       +
         Done

     

       20
       +
       }

     

       21
       +
       

     

       22
       +
       pub type ScanState {

     

       23
       +
         ScanState(

     

       24
       +
           phase: Phase,

     

       25
       +
           ref: Reference,

     

       26
       +
           found_book: Bool,

     

       27
       +
           found_chapter: Bool,

     

       28
       +
           verse_text: Result(String, String),

     

       29
       +
         )

     

       30
       +
       }

     

       31
       +
       

     

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

     

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

     

       34
        
       

     
···

       39
        
                 case int.parse(verse_s) {

     

       40
        
                   Ok(verse) ->

     

       41
        
                     Ok(Reference(book: string.uppercase(book), chapter:, verse:))

     

       42
       +
                   Error(_) -> Error("Invalid verse: " <> verse_s)

     

       43
        
                 }

     

       44
       +
               Error(_) -> Error("Invalid chapter: " <> chapter_s)

     

       45
        
             }

     

       46
       +
           [book_p1, book_p2, chapter_s, verse_s] ->

     

       47
       +
             case int.parse(chapter_s) {

     

       48
       +
               Ok(chapter) ->

     

       49
       +
                 case int.parse(verse_s) {

     

       50
       +
                   Ok(verse) ->

     

       51
       +
                     Ok(Reference(

     

       52
       +
                       book: string.uppercase(book_p1 <> " " <> book_p2),

     

       53
       +
                       chapter:,

     

       54
       +
                       verse:,

     

       55
       +
                     ))

     

       56
       +
                   Error(_) -> Error("Invalid verse: " <> verse_s)

     

       57
       +
                 }

     

       58
       +
               Error(_) -> Error("Invalid chapter: " <> chapter_s)

     

       59
       +
             }

     

       60
       +
       

     

       61
        
           _ -> Error("invalid parse")

     

       62
        
         }

     

       63
        
       }

     
···

       71
        
       

     

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

     

       73
        
       

     

       74
       +
         let inital =

     

       75
       +
           ScanState(

     

       76
       +
             phase: Book,

     

       77
       +
             ref: reference,

     

       78
       +
             found_book: False,

     

       79
       +
             found_chapter: False,

     

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

     

       81
       +
           )

     

       82
       +
       

     

       83
       +
         let result =

     

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

     

       85
       +
             case state.phase {

     

       86
       +
               Done -> state

     

       87
       +
               Book ->

     

       88
       +
                 case line {

     

       89
       +
                   "THE BOOK OF " <> book ->

     

       90
       +
                     case book == state.ref.book {

     

       91
       +
                       True -> ScanState(..state, phase: Chapter, found_book: True)

     

       92
       +
                       False -> state

     

       93
       +
                     }

     

       94
       +
                   _ -> state

     

       95
       +
                 }

     

       96
       +
               Chapter ->

     

       97
       +
                 case line {

     

       98
       +
                   "CHAPTER " <> chapter ->

     

       99
       +
                     case result.unwrap(int.parse(chapter), 0) == state.ref.chapter {

     

       100
       +
                       True -> ScanState(..state, phase: Verse, found_chapter: True)

     

       101
       +
                       False -> state

     

       102
       +
                     }

     

       103
       +
                   _ -> state

     

       104
       +
                 }

     

       105
       +
               Verse ->

     

       106
       +
                 fn() {

     

       107
       +
                   let parts = string.split(line, " ")

     

       108
       +
                   case parts {

     

       109
       +
                     [first, ..rest] ->

     

       110
       +
                       case result.unwrap(int.parse(first), 0) == state.ref.verse {

     

       111
       +
                         True ->

     

       112
       +
                           ScanState(

     

       113
       +
                             ..state,

     

       114
       +
                             phase: Done,

     

       115
       +
                             verse_text: Ok(string.join(rest, " ")),

     

       116
       +
                           )

     

       117
       +
                         False -> state

     

       118
       +
                       }

     

       119
       +
                     _ -> state

     

       120
       +
                   }

     

       121
       +
                 }()

     

       122
       +
             }

     

       123
       +
           })

     

       124
       +
       

     

       125
       +
         case result.verse_text {

     

       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.chapter)

     

       133
       +
               <> " "

     

       134
       +
               <> text,

     

       135
       +
             )

     

       136
       +
           Error(e) -> io.println_error(e)

     

       137
       +
         }

     

       138
        
       }