Commit: 55097be221ceadf9f43b3bdf5bf1a59c67d2a317 - paca (hg)

Commit MetaInfo

• Revisión: 55097be221ceadf9f43b3bdf5bf1a59c67d2a317 (tree)
• Tiempo: 2020-02-12 04:43:18
• Autor: Undoified
• Commiter: Undoified

Log Message

Start the HTTP unit

Cambiar Resumen

• modified: src/main.pas
• add: src/pacaHTTP.pas
• add: src/pacacfg.xml

Diferencia incremental

diff -r a454d99b3615 -r 55097be221ce src/main.pas
--- a/src/main.pas	Mon Feb 10 15:38:52 2020 -0600
+++ b/src/main.pas	Tue Feb 11 13:43:18 2020 -0600
@@ -3,17 +3,29 @@
 Made by Undoified - https://undoified.neocities.org/
 *)
 program paca;
-uses XMLRead, DOM;
+{$MODE OBJFPC}
+uses XMLRead, DOM, pacaHTTP;
+
+var
+	Mode: WideString;
+	Hostname: TDOMNode;
+
 procedure LoadSettings;
 var
-	settings: TXMLDocument;
-	mode: TDOMNode;
-	hostname: TDOMNode;
+	Settings: TXMLDocument;
 begin
-	ReadXMLFile(settings, 'pacacfg.xml');
-	settings.Free;
+	try
+		ReadXMLFile(settings, 'pacacfg.xml');
+		Mode := Settings.DocumentElement.FindNode('mode').FirstChild.NodeValue;
+	finally
+		settings.Free;
+	end;
 end;
 
 begin
-	
+	writeln('Paca v0.1 - See https://paca.osdn.io/ for more information.');
+	LoadSettings;
+	case (Mode) of
+		'dual': writeln(Mode);
+	end;
 end.

diff -r a454d99b3615 -r 55097be221ce src/pacaHTTP.pas
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/pacaHTTP.pas	Tue Feb 11 13:43:18 2020 -0600
@@ -0,0 +1,13 @@
+unit pacaHTTP;
+
+interface
+
+procedure startHTTP();
+
+implementation
+
+procedure startHTTP();
+begin
+end;
+
+end.

diff -r a454d99b3615 -r 55097be221ce src/pacacfg.xml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/pacacfg.xml	Tue Feb 11 13:43:18 2020 -0600
@@ -0,0 +1,4 @@
+<?xml version="1.0"?>
+<settings>
+	<mode>dual</mode>
+</settings>
\ No newline at end of file