From 7b7ec7d1def31eb3243b3d129e7ac36321c1c48a Mon Sep 17 00:00:00 2001 From: zongor Date: Sat, 14 Oct 2023 09:32:24 -0400 Subject: [PATCH 1/3] cleanup --- fortran/client/test/check.f90 | 5 ----- fortran/server/test.sh | 1 - fortran/server/test/server_test.f90 | 7 ------- 3 files changed, 13 deletions(-) delete mode 100644 fortran/client/test/check.f90 delete mode 100644 fortran/server/test/server_test.f90 diff --git a/fortran/client/test/check.f90 b/fortran/client/test/check.f90 deleted file mode 100644 index d7e3cba..0000000 --- a/fortran/client/test/check.f90 +++ /dev/null @@ -1,5 +0,0 @@ -program check -implicit none - -print *, "Put some tests in here!" -end program check diff --git a/fortran/server/test.sh b/fortran/server/test.sh index a361f13..3670c6f 100755 --- a/fortran/server/test.sh +++ b/fortran/server/test.sh @@ -1,3 +1,2 @@ #!/bin/sh -#listen1 'tcp!*!35565' ~/.local/bin/fortran-mmo-server ../../common/sql/test.db3 diff --git a/fortran/server/test/server_test.f90 b/fortran/server/test/server_test.f90 deleted file mode 100644 index 68dc289..0000000 --- a/fortran/server/test/server_test.f90 +++ /dev/null @@ -1,7 +0,0 @@ -program main - use iso_fortran_env - implicit none - - write(output_unit, "(i3, 1x, a24, 1x, f8.2, 1x, f8.2)") 0, 'chakr', 0.0, 0.0 - -end program main \ No newline at end of file From cd803751d9d737a6aead5e6e42b5d33cf4690235 Mon Sep 17 00:00:00 2001 From: zongor Date: Sat, 14 Oct 2023 09:55:50 -0400 Subject: [PATCH 2/3] fix db comments --- fortran/server/src/db.f90 | 3 --- fortran/www/src/db.f90 | 4 ---- 2 files changed, 7 deletions(-) diff --git a/fortran/server/src/db.f90 b/fortran/server/src/db.f90 index b2e8a21..3917429 100644 --- a/fortran/server/src/db.f90 +++ b/fortran/server/src/db.f90 @@ -119,7 +119,6 @@ contains end function db_add_user integer function db_delete_user(db, username) result(rc) - !! Adds student to database. type(db_type), intent(inout) :: db character(len=*), intent(in) :: username type(c_ptr) :: stmt @@ -141,7 +140,6 @@ contains end function db_delete_user integer function db_get_logged_in_users(db, connection) result(rc) - !! Prints number of courses per student to standard output. type(db_type), intent(inout) :: db integer(c_int), intent(inout) :: connection character(len=*), parameter :: TCP_SUFFIX = c_carriage_return // c_new_line // c_null_char @@ -274,7 +272,6 @@ contains end function db_move_user subroutine db_error(code, proc, err_msg) - !! Prints error message. integer, intent(in) :: code character(len=*), intent(in), optional :: proc character(len=*), intent(in), optional :: err_msg diff --git a/fortran/www/src/db.f90 b/fortran/www/src/db.f90 index 1034adc..4398e80 100644 --- a/fortran/www/src/db.f90 +++ b/fortran/www/src/db.f90 @@ -72,7 +72,6 @@ contains integer function db_add_user(db, username, password, apperance_r, apperance_g, apperance_b, & x_pos, y_pos, logged_in, created) result(rc) - !! Adds student to database. type(db_type), intent(inout) :: db character(len=*), intent(in) :: username character(len=*), intent(in) :: password @@ -120,7 +119,6 @@ contains integer function db_delete_user(db, username) result(rc) - !! Adds student to database. type(db_type), intent(inout) :: db character(len=*), intent(in) :: username type(c_ptr) :: stmt @@ -142,7 +140,6 @@ contains end function db_delete_user integer function db_count_logged_in_users(db) result(rc) - !! Prints number of courses per student to standard output. type(db_type), intent(inout) :: db type(c_ptr) :: stmt @@ -173,7 +170,6 @@ contains end function db_count_logged_in_users integer function db_get_logged_in_users(db) result(rc) - !! Prints number of courses per student to standard output. type(db_type), intent(inout) :: db type(c_ptr) :: stmt From abb74e63c5af9c11855af226fa729978425e55cd Mon Sep 17 00:00:00 2001 From: zongor Date: Sat, 14 Oct 2023 12:09:01 -0400 Subject: [PATCH 3/3] small fix --- common/sql/test.db3 | Bin 8192 -> 8192 bytes fortran/client/app/main.f90 | 2 +- fortran/client/install.sh | 1 + fortran/client/src/player.f90 | 4 ++-- 4 files changed, 4 insertions(+), 3 deletions(-) create mode 100755 fortran/client/install.sh diff --git a/common/sql/test.db3 b/common/sql/test.db3 index 07210a49fd80335921b54bb71abb8fb98c037868..54b22f88042f1e4041a5944471da95e40b28ed3a 100644 GIT binary patch delta 124 zcmZp0XmFSy#l$K$QN{^KZcJFn&&_|Ifr-DCfxni2?PfuN6#j_;tS0=|84MVJK#!4| zL0p`XiHV(^gC#j5F}ujn$k@a*iD3c5D+h67qX$4W2iVfm8i4fVQ}Rj@_9th~2MO-~ UbLPweAf58hg9At@PIQz706U`~F8}}l delta 118 zcmZp0XmFSy#l*rmQN{^KZcJFn&&|NVz{J0lfqyCgxy^zCDf|-ySb6xbGZ+BHK_GBq zp^B