diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-27 16:52:40 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-27 16:57:17 -0400 |
commit | a9fc9ce2035e0db07baa6e732200265a90f66332 (patch) | |
tree | d31b4d46cb14608b3bdf1f2a65b7186841949d0c /captain/sqlite.f90 | |
parent | 1e7a526f569ebce3687c43a907b45fc2e44fab23 (diff) | |
download | levitating-a9fc9ce2035e0db07baa6e732200265a90f66332.tar.gz levitating-a9fc9ce2035e0db07baa6e732200265a90f66332.zip |
Added player report of task type, which the captain will show in the job summary.
Diffstat (limited to 'captain/sqlite.f90')
-rw-r--r-- | captain/sqlite.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/captain/sqlite.f90 b/captain/sqlite.f90 index 6bad946..f9bc5b4 100644 --- a/captain/sqlite.f90 +++ b/captain/sqlite.f90 @@ -173,6 +173,7 @@ implicit none procedure::column_text => stmt_column_text procedure::column_type => stmt_column_type procedure::column_text_length => stmt_column_text_length + procedure::column_is_null => stmt_column_is_null end type @@ -357,6 +358,17 @@ contains end function stmt_column_type + function stmt_column_is_null(self, i) + implicit none + + class(sqlite3_stmt), intent(inout)::self + integer, intent(in)::i + logical::stmt_column_is_null + + stmt_column_is_null = (sqlite3_column_type(self%stmt, i) == SQLITE_NULL) + + end function stmt_column_is_null + subroutine stmt_column_text(self, i, res) implicit none |