Data update

Task/Write-to-Windows-event-log/FreeBASIC/write-to-windows-event-log.basic

@@ -0,0 +1,36 @@
+Dim As String argV(1 To 5)
+Dim Shared As String t()
+
+Sub Split (cadena As String, t() As String, sep As String = " ")
+    Dim As Integer i, j = 0
+    Dim As String word = ""
+    For i = 1 To Len(cadena)
+        If Mid(cadena, i, 1) <> sep Then
+            word &= Mid(cadena, i, 1)
+        Else
+            Redim Preserve t(j)
+            t(j) = word
+            word = ""
+            j += 1
+        End If
+    Next i
+    If word <> "" Then
+        Redim Preserve t(j)
+        t(j) = word
+    End If
+End Sub
+
+Split(Command, t())
+
+#ifdef __FB_WIN32__
+    If Ubound(t) <> 3 Then
+        Print "Usage: "; Command(0); " <Followed by level, id, source string and description>"
+    Else
+        For i As Integer = 1 To 4
+            argV(i) = t(i-1)
+        Next i
+        Shell "EventCreate /t " & argV(1) & " /id " & argV(2) & " /l APPLICATION /so " & argV(3) & " /d """ & argV(4) & """"
+    End If
+#else
+    Print "Not implemented for *nix, only Windows."
+#endif

Task/Write-to-Windows-event-log/PascalABC.NET/write-to-windows-event-log.pas

@@ -0,0 +1,7 @@
+uses System.Diagnostics;
+
+begin
+  if not EventLog.SourceExists('MyApp') then
+    EventLog.CreateEventSource('MyApp', 'Application');
+  EventLog.WriteEntry('MyApp', 'Hello from PABC!');
+end.