refactor: Split program entrypoint and server logic

.gitignore

@@ -1,3 +1,3 @@
 .idea
 *.so
-/server
+/cobolcraft

Dockerfile

@@ -6,7 +6,7 @@ RUN apt-get update && apt-get install -y tini gcc g++ make gnucobol && rm -rf /v
 
 # Copy source files
 COPY Makefile .
-COPY server.cob .
+COPY main.cob .
 COPY src ./src
 COPY CBL_GC_SOCKET ./CBL_GC_SOCKET
 COPY blobs ./blobs
@@ -19,4 +19,4 @@ ENV COB_PRE_LOAD=CBL_GC_SOCKET:CBL_GC_SOCKET/CBL_GC_SOCKET.so
 
 # Run the server within Tini (to handle signals properly)
 ENTRYPOINT ["/usr/bin/tini", "--"]
-CMD ["./server"]
+CMD ["./cobolcraft"]

Makefile

@@ -2,8 +2,8 @@
 COBC = cobc
 
 LIB = CBL_GC_SOCKET/CBL_GC_SOCKET.so
-SRC = server.cob src/*.cob
-BIN = server
+SRC = main.cob src/*.cob
+BIN = cobolcraft
 
 all: $(BIN)
 

README.md

@@ -38,6 +38,8 @@ docker build -t cobolcraft .
 docker run --rm -p 25565:25565 cobolcraft
 ```
 
+To configure the server, edit the variables in `main.cob` (limited options available).
+
 ## Why?
 
 Well, there are quite a lot of rumors and stigma surrounding COBOL.

main.cob

@@ -0,0 +1,14 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. Main.
+
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+    *> Configuration
+    01 PORT             PIC X(5)    VALUE "25565".
+    01 WHITELIST-ENABLE PIC 9(1)    VALUE 0.
+    01 WHITELIST-PLAYER PIC X(16)   VALUE "Notch".
+
+PROCEDURE DIVISION.
+    CALL "Server" USING PORT WHITELIST-ENABLE WHITELIST-PLAYER.
+
+END PROGRAM Main.

server.cob → src/server.cob

@@ -1,5 +1,5 @@
 IDENTIFICATION DIVISION.
-PROGRAM-ID. server.
+PROGRAM-ID. Server.
 
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
@@ -13,9 +13,6 @@ FD FD-REGISTRY-BLOB.
     01 REGISTRY-BLOB-REC    PIC X(64).
 
 WORKING-STORAGE SECTION.
-    01 PORT             PIC X(5) VALUE "25565".
-    01 WHITELIST-ENABLE PIC 9(1) VALUE 0.
-    01 WHITELIST-PLAYER PIC X(16) VALUE "Notch".
     *> Socket variables (server socket handle, client socket handle, error number)
     01 LISTEN           PIC X(4).
     01 HNDL             PIC X(4).
@@ -38,9 +35,14 @@ WORKING-STORAGE SECTION.
     01 TEMP-INT32       PIC 9(10).
     01 TEMP-INT64       PIC 9(20).
 
-PROCEDURE DIVISION.
+LINKAGE SECTION.
+    *> Configuration provided by main program
+    01 PORT             PIC X(5).
+    01 WHITELIST-ENABLE PIC 9(1).
+    01 WHITELIST-PLAYER PIC X(16).
 
-Main.
+PROCEDURE DIVISION USING PORT WHITELIST-ENABLE WHITELIST-PLAYER.
+StartServer.
     DISPLAY "Starting server...".
     CALL "Socket-Listen" USING PORT LISTEN ERRNO.
     PERFORM HandleError.
@@ -548,4 +550,4 @@ HandleError SECTION.
 
     EXIT SECTION.
 
-END PROGRAM server.
+END PROGRAM Server.