aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--captain/db.f9039
-rw-r--r--captain/sql/create.sql4
-rw-r--r--captain/template.f90262
3 files changed, 304 insertions, 1 deletions
diff --git a/captain/db.f90 b/captain/db.f90
index 1efbb18..6624cc1 100644
--- a/captain/db.f90
+++ b/captain/db.f90
@@ -45,4 +45,43 @@ contains
end subroutine add_player_db
+ function get_player_count()
+ implicit none
+
+ type(sqlite3_stmt)::stmt
+ integer::get_player_count
+
+ get_player_count = 0
+ if(stmt%prepare(db, "SELECT COUNT(*) FROM players") == SQLITE_OK) then
+ if(stmt%step() == SQLITE_ROW) then
+ get_player_count = stmt%column_int(0)
+ end if
+ end if
+ call stmt%finalize()
+
+ end function get_player_count
+
+ function get_player_names() result(res)
+ implicit none
+
+ type(sqlite3_stmt)::stmt
+ character(len=256), dimension(:), pointer::res
+ integer::i,n
+
+ n = get_player_count()
+ if(n > 0) then
+ allocate(res(n))
+ if(stmt%prepare(db, "SELECT name FROM players ORDER BY name") == SQLITE_OK) then
+ i = 1
+ do while(stmt%step() == SQLITE_ROW .and. i <= n)
+ call stmt%column_text(0, res(i))
+ i = i + 1
+ end do
+ end if
+ call stmt%finalize()
+
+ end if
+
+ end function get_player_names
+
end module captain_db
diff --git a/captain/sql/create.sql b/captain/sql/create.sql
index d78c90c..9fd00d0 100644
--- a/captain/sql/create.sql
+++ b/captain/sql/create.sql
@@ -7,4 +7,6 @@ CREATE TABLE tasks(job INTEGER, task INTEGER, status INTEGER, FOREIGN KEY(job) R
CREATE TABLE instructions(id INTEGER PRIMARY KEY, name TEXT NOT NULL, file TEXT NOT NULL);
-CREATE_TABLE available(instructions INTEGER, player INTEGER, FOREIGN KEY(instructions) REFERENCES instructions(id), FOREIGN KEY(player) REFERENCES players(id));
+CREATE_TABLE available(instruction INTEGER, player INTEGER, \
+ FOREIGN KEY(instruction) REFERENCES instructions(id), \
+ FOREIGN KEY(player) REFERENCES players(id));
diff --git a/captain/template.f90 b/captain/template.f90
new file mode 100644
index 0000000..3e1f2bc
--- /dev/null
+++ b/captain/template.f90
@@ -0,0 +1,262 @@
+module page_template
+implicit none
+
+ integer, parameter::VTYPE_NONE = 0, &
+ VTYPE_STRING = 1, &
+ VTYPE_INTEGER = 2
+
+ type :: variable
+
+ character(len=:), pointer::vname
+
+ integer::vtype
+ character(len=:), pointer::vstr
+ integer::vint
+
+ contains
+
+ procedure :: destroy => variable_destroy
+ procedure :: shallow_copy => variable_shallow_copy
+ procedure :: set_name => variable_set_name
+ procedure :: set_string_value => variable_set_string_value
+ procedure :: assign_integer => variable_assign_integer
+ procedure :: assign_string => variable_assign_string
+
+ generic :: assign => assign_integer, assign_string
+ end type
+
+ type :: template
+
+ character(len=:), pointer::base_filename
+ type(variable), dimension(:), pointer::variables
+
+ contains
+
+ procedure :: init => template_init
+ procedure :: destroy => template_destroy
+ procedure :: assign_integer => template_assign_integer
+ procedure :: assign_string => template_assign_string
+ procedure :: render_unit => template_render_unit
+ procedure :: render_filename => template_render_filename
+
+ generic :: render => render_unit, render_filename
+ generic :: assign => assign_integer, assign_string
+ end type
+
+contains
+
+ elemental subroutine variable_destroy(self)
+ implicit none
+
+ class(variable), intent(inout)::self
+
+ if(associated(self%vname)) then
+ deallocate(self%vname)
+ end if
+
+ if(associated(self%vstr)) then
+ deallocate(self%vstr)
+ end if
+
+ end subroutine variable_destroy
+
+ subroutine variable_shallow_copy(self, v)
+ implicit none
+
+ class(variable), intent(inout)::self
+ class(variable), intent(in)::v
+
+ if(associated(v%vname)) then
+ self%vname => v%vname
+ end if
+
+ if(associated(v%vstr)) then
+ self%vstr => v%vstr
+ end if
+
+ self%vtype = v%vtype
+ self%vint = v%vint
+
+ end subroutine variable_shallow_copy
+
+ subroutine variable_set_name(self, name)
+ implicit none
+
+ class(variable)::self
+ character(*), intent(in)::name
+
+ if(associated(self%vname)) then
+ deallocate(self%vname)
+ end if
+
+ allocate(character(len=max(len_trim(name), 1)) :: self%vname)
+ if(len_trim(name) == 0) then
+ self%vname = " "
+ else
+ self%vname = trim(name)
+ end if
+
+ end subroutine variable_set_name
+
+ subroutine variable_set_string_value(self, v)
+ implicit none
+
+ class(variable)::self
+ character(*), intent(in)::v
+
+ if(associated(self%vstr)) then
+ deallocate(self%vstr)
+ end if
+
+ allocate(character(len=max(len_trim(v), 1)) :: self%vstr)
+ if(len_trim(v) == 0) then
+ self%vstr = " "
+ else
+ self%vstr = trim(v)
+ end if
+
+ end subroutine variable_set_string_value
+
+ subroutine variable_assign_integer(self, name, i)
+ implicit none
+
+ class(variable)::self
+ character(*), intent(in)::name
+ integer, intent(in)::i
+ character(16)::int_string
+
+ call self%set_name(name)
+ self%vint = i
+ self%vtype = VTYPE_INTEGER
+
+ write(int_string, *) i
+
+ call self%set_string_value(trim(adjustl(int_string)))
+
+ end subroutine variable_assign_integer
+
+ subroutine variable_assign_string(self, name, str)
+ implicit none
+
+ class(variable)::self
+ character(*), intent(in)::name, str
+
+ call self%set_name(name)
+ self%vtype = VTYPE_STRING
+ call self%set_string_value(str)
+
+ end subroutine variable_assign_string
+
+ subroutine template_init(self, filename)
+ implicit none
+
+ class(template)::self
+ character(*), intent(in)::filename
+
+ allocate(character(len=len_trim(filename)) :: self%base_filename)
+ self%base_filename = filename
+
+ allocate(self%variables(32))
+ self%variables%vtype = VTYPE_NONE
+
+ end subroutine template_init
+
+ subroutine template_destroy(self)
+ implicit none
+
+ class(template)::self
+
+ deallocate(self%base_filename)
+
+ call self%variables%destroy()
+ deallocate(self%variables)
+
+ end subroutine template_destroy
+
+ function template_available_variable_index(self) result(i)
+ implicit none
+
+ class(template)::self
+ type(variable), dimension(:), pointer::tmp
+ integer::i, j
+
+ do i = 1, size(self%variables)
+ if(self%variables(i)%vtype == VTYPE_NONE) then
+ exit
+ end if
+ end do
+
+ ! Need to expand
+ if(i > size(self%variables)) then
+ allocate(tmp(size(self%variables)+32))
+ do j=1, i-1
+ call tmp(j)%shallow_copy(self%variables(j))
+ end do
+
+ ! We performed a shallow copy above, so don't destroy
+ ! the old variables
+ deallocate(self%variables)
+ self%variables => tmp
+ tmp => null()
+ end if
+
+ end function template_available_variable_index
+
+ subroutine template_assign_integer(self, name, value)
+ implicit none
+
+ class(template)::self
+ character(*), intent(in)::name
+ integer, intent(in)::value
+ integer::i
+
+ i = template_available_variable_index(self)
+ call self%variables(i)%assign(name, value)
+
+ end subroutine template_assign_integer
+
+ subroutine template_assign_string(self, name, value)
+ implicit none
+
+ class(template)::self
+ character(*), intent(in)::name, value
+ integer::i
+
+ i = template_available_variable_index(self)
+ call self%variables(i)%assign(name, value)
+
+ end subroutine template_assign_string
+
+ subroutine template_render_filename(self, filename)
+ implicit none
+
+ class(template)::self
+ character(*), intent(in)::filename
+ integer::unit_number
+
+ open(file=filename, newunit=unit_number, status="unknown", form="formatted", action="write")
+
+ call self%render_unit(unit_number)
+
+ close(unit_number)
+
+ end subroutine template_render_filename
+
+ subroutine template_render_unit(self, unum)
+ implicit none
+
+ class(template)::self
+ integer, intent(in)::unum
+
+ integer::input
+
+ open(newunit=input, file=self%base_filename, status="old", form="formatted", action="read")
+
+
+
+
+ close(input)
+
+ end subroutine template_render_unit
+
+end module page_template \ No newline at end of file