First english translations

2021-04-29 09:41:41 +02:00 · 2021-04-29 09:41:41 +02:00 · cca9fb8052
parent d2429b4b9a
commit cca9fb8052
5 changed files with 63 additions and 41 deletions
--- a/lsocket.pbi
+++ b/lsocket.pbi
@ -1,9 +1,18 @@
-;lsocket.pbi
-;
-; Socket Module
-; Definition who are not available on linux...
-; Simple PureBasic Spech commands.
-;
+;************************
+;* Library : lsocket.pbi
+;* 
+;* Socket based Networkcommuncation Module.
+;* 
+;* Created and develobed by Linder Hard- und Software
+;* 
+;* Current only usable for Linux.
+;*
+;*
+
+CompilerIf #PB_Compiler_OS <> #PB_OS_Linux
+  CompilerError "Only for Linux"
+CompilerEndIf
+
 DeclareModule lsocket
  Structure sockaddr
    sa_family.w
@ -22,16 +31,16 @@ DeclareModule lsocket
  EndStructure
  
  ; Socket types:
-  #SOCK_STREAM       =  1      ; stream (connection) socket   
+  #SOCK_STREAM        =  1      ; stream (connection) socket   
  #SOCK_DGRAM         =  2      ; datagram (conn.less) socket   
  #SOCK_RAW           =  3      ; raw socket         
  #SOCK_RDM           =  4      ; reliably-delivered message   
-  #SOCK_SEQPACKET   =  5      ; sequential packet socket   
-  #SOCK_PACKET      = 10      ; linux specific way of   
-                                 ; getting packets at the dev
-                                 ; level.  For writing rarp And   
-                                 ; other similar things on the   
-                                 ; user level.
+  #SOCK_SEQPACKET     =  5      ; sequential packet socket   
+  #SOCK_PACKET        = 10      ; linux specific way of   
+                                ; getting packets at the dev
+                                ; level.  For writing rarp And   
+                                ; other similar things on the   
+                                ; user level.
  
  ; socket.h
  #PF_INET  = 2
@ -95,11 +104,9 @@ Module lsocket
  EndProcedure
  
  Procedure CloseSocket(Socket.i)
-    close_(Socket)  
+    Protected Feedback.i
+    Feedback = close_(Socket)  
+    ProcedureReturn Feedback
  EndProcedure
  
-  
-
-    
-  
 EndModule
--- a/ltls.pbi
+++ b/ltls.pbi
@ -1,4 +1,17 @@
-;ltls.pbi
+;************************
+;* Library : ltls.pbi
+;* 
+;* Server side TLS Implementation to communicate encrypted.
+;* 
+;* Created and develobed by Linder Hard- und Software
+;* 
+;* Current only usable for Linux.
+;*
+;*
+
+CompilerIf #PB_Compiler_OS <> #PB_OS_Linux
+  CompilerError "Only for Linux"
+CompilerEndIf

 XIncludeFile "lsocket.pbi"

--- a/lweb.pbi
+++ b/lweb.pbi
@ -459,21 +459,23 @@ Module lhs_web
      If thread_alive = #True
        Select m_clients(Str(thread_cli_id))\client_do_cli
          Case #CLI_DO_DataWorking
-            ;Empfang abgeschlossen
-            ;Buffer Bearbeiten
-            ;Thread in Bearbeitungsmodus Setzen. 
-            ;TODO: Was ist mit zusammenhängenden Datenbuffern grosse Post/Put z.B.
+            ;Receive done.
+            ;Do Buffer work
+            ;Change Thread to Work mode.
            
            ;{
-            Debug "Daten vollständig empfangen. Abarbeiten."
+            Debug "Date received, working..."
            m_clients(Str(thread_cli_id))\client_do_cli = #CLI_DO_DataWorking
-            ;Abarbeiten der Anforderung...
+            ;Work on Answer.
            ResetList(m_clients(Str(thread_cli_id))\datenbuffer())
+            ;TODO: Only first Buffer have a Header.
+            
            While NextElement(m_clients(Str(thread_cli_id))\datenbuffer())
              
              thread_work = PeekS(m_clients(Str(thread_cli_id))\datenbuffer()\Buffer, m_clients(Str(thread_cli_id))\datenbuffer()\Size, #PB_Ascii)
-              ;Header to Map
-              ;Debug "Datenbuffer:"+ Mid(thread_work,1,256)
+              
+              ;Move Header to Map
+              
              JSONStringToMap = Work_Header_to_JSONMap(thread_work)
              If JSONStringToMap <> #error_string
                MyThreadJSON = ParseJSON(#PB_Any, JSONStringToMap)
@ -482,8 +484,8 @@ Module lhs_web
                  ExtractJSONMap(JSONValue(MyThreadJSON), Header())
                  FreeJSON(MyThreadJSON)
                Else
-                  ;WTF ???
-                  Break 2 ; Thread abschiessen
+                  ;Should not be a case.
+                  Break 2 ; Kill Thread.
                EndIf
              Else
                error_message = #True
--- a/lweb.pbp
+++ b/lweb.pbp
@ -8,7 +8,7 @@
  <section name="data">
    <explorer view="../../../bin/purebasic/examples/" pattern="0"/>
    <log show="1"/>
-    <lastopen date="2020-12-10 14:36" user="renlin" host="linux-mvsk"/>
+    <lastopen date="2021-03-26 14:53" user="renlin" host="linux-mvsk"/>
  </section>
  <section name="files">
    <file name="inc/lweb_file_cache.pbi">
@ -20,7 +20,7 @@
      <fingerprint md5="3228c16f329808e2e6e3c6866861ae59"/>
    </file>
    <file name="inc/lweb_helper.pbi">
-      <config load="0" scan="1" panel="1" warn="1" lastopen="0" panelstate="+-"/>
+      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+-"/>
      <fingerprint md5="61c3c05e25271724318327b0bbd97f87"/>
    </file>
    <file name="inc/lweb_helper_header.pbi">
@ -28,19 +28,19 @@
      <fingerprint md5="c250ce791b691f679782e5016a3346be"/>
    </file>
    <file name="inc/lweb_http.pbi">
-      <config load="0" scan="1" panel="1" warn="1" lastopen="0" panelstate="+-"/>
+      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+-"/>
      <fingerprint md5="7812984bb6c4bb774cdb01a35588fe2f"/>
    </file>
    <file name="inc/lweb_http_header.pbi">
-      <config load="0" scan="1" panel="1" warn="1" lastopen="0" panelstate="+-"/>
+      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+-"/>
      <fingerprint md5="d7df8e152291b0f91e8316ad8e00191c"/>
    </file>
    <file name="inc/lweb_IP.pbi">
-      <config load="0" scan="1" panel="1" warn="1" lastopen="0" panelstate="+-"/>
+      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+-"/>
      <fingerprint md5="6129682ac18bbfa953feb6f6f6efe65d"/>
    </file>
    <file name="inc/lweb_IP_header.pbi">
-      <config load="0" scan="1" panel="1" warn="1" lastopen="0" panelstate="+-"/>
+      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+-"/>
      <fingerprint md5="636558037ff2cab03552fb129e2a4f52"/>
    </file>
    <file name="lhttpd.pb">
@ -49,23 +49,23 @@
    </file>
    <file name="lsocket.pbi">
      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+"/>
-      <fingerprint md5="12de9b9a95358889fb54c69788cba0f2"/>
+      <fingerprint md5="d2c7068cbef9e8086aafb98f73905905"/>
    </file>
    <file name="ltls.pbi">
      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+"/>
-      <fingerprint md5="efc4d65a4adb80fc827e361e97db90f2"/>
+      <fingerprint md5="2039445441451e5efbfb06a5d695d02f"/>
    </file>
    <file name="lweb.pbi">
      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+"/>
-      <fingerprint md5="d5a653369623d1188bf1c0e5c87fcd7e"/>
+      <fingerprint md5="046f6480cd2ad72f3b9cb025dca0f810"/>
    </file>
    <file name="lweb_header.pbi">
      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+"/>
-      <fingerprint md5="f793f9a4c222d4688ffd45128d6beacd"/>
+      <fingerprint md5="da9f9d3acca1364e9c78a2410c267ae0"/>
    </file>
    <file name="server_example.pb">
      <config load="0" scan="1" panel="1" warn="1" lastopen="1" panelstate="+"/>
-      <fingerprint md5="8fd31e2ee49fe63d07942aa8d2672094"/>
+      <fingerprint md5="c69b5870aa1149d4e08f6f6e4fee2a00"/>
    </file>
  </section>
  <section name="targets">
--- a/server_example.pb
+++ b/server_example.pb
@ -2,7 +2,7 @@
 ;*
 ;* Lihaso Web Server 
 ;*
-;* (c)2015 by Linder Hard- und Software
+;* (c)2015 - 2021 by Linder Hard- und Software
 ;*
 ;* V0.1
 ;* - Initial Web Server