added more true/false options

src/fortran_yaml_c_types.f90

@@ -277,8 +277,14 @@ function scalar_to_logical(self, default, success) result(value)
     logical, optional, intent(out) :: success
     logical :: value
 
-    character(len=20), parameter :: true_strings(3) = ["true","True",'TRUE']
-    character(len=20), parameter :: false_strings(3) = ["false","False",'FALSE']
+    character(len=20), parameter :: true_strings(*) = &
+      ['true','True','TRUE', &
+       'on  ','On  ','ON  ', &
+       'y   ','Y   ','yes ','Yes ','YES ']
+    character(len=20), parameter :: false_strings(*) = &
+      ["false","False",'FALSE', &
+       'off  ','Off  ','OFF  ', &
+       'n    ','N    ','no   ','No   ','NO   ']
 
     value = default
 

tests/example.f90

@@ -19,7 +19,7 @@ subroutine main()
 
     character(:), allocatable :: string
     real(dp) :: pi
-    logical :: happy
+    logical :: happy, sadness
 
     call file%parse("../tests/test1.yaml", err)
     if (allocated(err)) then
@@ -47,6 +47,13 @@ subroutine main()
         stop 1
       endif
       print*,"happy: ",happy
+
+      sadness = root%get_logical('sadness',error=io_err)
+      if (allocated(io_err)) then
+        print*,io_err%message
+        stop 1
+      endif
+      print*,"sadness: ",sadness
 
       dict => root%get_dictionary('reaction',required=.true.,error=io_err)
       if (allocated(io_err)) then

tests/test1.yaml

@@ -1,5 +1,6 @@
 pi: 3.14159
 happy-today: true
+sadness: off
 groceries: [eggs, butter, oil, bread]
 list-that-is-empty: []
 "dictionary that-is-empty": {}