Added logfile

Tools/logfile.f90

+!
+! Copyright (C) 2015-2017 M. Govoni 
+! This file is distributed under the terms of the
+! GNU General Public License. See the file `License'
+! in the root directory of the present distribution,
+! or http://www.gnu.org/copyleft/gpl.txt .
+!
+! This file is part of WEST. 
+!
+! Contributors to this file: 
+! Marco Govoni
+!
+!-----------------------------------------------------------------------
+MODULE logfile_mod
+  !-----------------------------------------------------------------------
+  !
+  USE kinds,                ONLY : DP 
+  !
+  IMPLICIT NONE
+  !
+  !
+  CONTAINS
+    !
+    SUBROUTINE append_log(jsonText,attr)
+       !
+       USE westcom,    ONLY: logfile
+       !
+       USE forpy_mod,  ONLY: call_py, call_py_noret, import_py, module_py
+       USE forpy_mod,  ONLY: tuple, tuple_create 
+       USE forpy_mod,  ONLY: dict, dict_create 
+       USE forpy_mod,  ONLY: list, list_create 
+       USE forpy_mod,  ONLY: object, cast
+       USE forpy_mod,  ONLY : exception_matches, KeyError, err_clear, err_print 
+       !
+       IMPLICIT NONE
+       !
+       CHARACTER(LEN=:),ALLOCATABLE,INTENT(IN) :: jsonText
+       TYPE(dict),INTENT(IN) :: attr
+       !
+       INTEGER :: IERR
+       TYPE(tuple) :: args
+       TYPE(dict) :: kwargs
+       TYPE(module_py) :: pymod
+       TYPE(object) :: return_obj
+       !
+       IERR = import_py(pymod, "logfile")
+       !  
+       IERR = tuple_create(args, 2)
+       IERR = args%setitem(0, logfile // ".prova" )
+       IERR = args%setitem(1, jsonText )
+       IERR = dict_create(kwargs)
+       IERR = kwargs%setitem("attributes", attr )
+       !
+       IERR = call_py(return_obj, pymod, "append_xml_message", args, kwargs)
+       !
+       CALL args%destroy
+       CALL kwargs%destroy
+       CALL return_obj%destroy
+       CALL pymod%destroy 
+       !
+    END SUBROUTINE
+    !
+    SUBROUTINE clear_log()
+       !
+       USE westcom,    ONLY: logfile
+       !
+       USE forpy_mod,  ONLY: call_py, call_py_noret, import_py, module_py
+       USE forpy_mod,  ONLY: tuple, tuple_create 
+       USE forpy_mod,  ONLY: dict, dict_create 
+       USE forpy_mod,  ONLY: list, list_create 
+       USE forpy_mod,  ONLY: object, cast
+       USE forpy_mod,  ONLY : exception_matches, KeyError, err_clear, err_print 
+       !
+       IMPLICIT NONE
+       !
+       INTEGER :: IERR
+       TYPE(tuple) :: args
+       TYPE(dict) :: kwargs
+       TYPE(module_py) :: pymod
+       TYPE(object) :: return_obj
+       !
+       IERR = import_py(pymod, "logfile")
+       !  
+       IERR = tuple_create(args, 1)
+       IERR = args%setitem(0, logfile // ".prova" )
+       IERR = dict_create(kwargs)
+       !
+       IERR = call_py(return_obj, pymod, "clear_file", args, kwargs)
+       !
+       CALL args%destroy
+       CALL kwargs%destroy
+       CALL return_obj%destroy
+       CALL pymod%destroy 
+       !
+    END SUBROUTINE
+    !
+    FUNCTION ltoa(l) RESULT(res)
+       CHARACTER(:),ALLOCATABLE :: res
+       LOGICAL,INTENT(IN) :: l
+       CHARACTER(4) :: t="true"
+       CHARACTER(5) :: f="false"
+       IF( l ) THEN 
+          res = t
+       ELSE 
+          res =f 
+       ENDIF
+    END FUNCTION
+    !
+    FUNCTION itoa(i) RESULT(res)
+       CHARACTER(:),ALLOCATABLE :: res
+       INTEGER,INTENT(IN) :: i
+       CHARACTER(RANGE(i)+2) :: tmp
+       WRITE(tmp,'(I0)') i
+       res = TRIM(tmp)
+    END FUNCTION
+    !
+    FUNCTION dtoa(d) RESULT(res)
+       CHARACTER(:),ALLOCATABLE :: res
+       REAL(DP),INTENT(IN) :: d
+       CHARACTER(14) :: tmp
+       WRITE(tmp,'(ES14.6)') d
+       res = TRIM(tmp)
+    END FUNCTION
+    !
+END MODULE

Tools/logfile.py

+#!/usr/bin/python3
+
+import json
+import yaml
+import datetime
+
+def dump_message(fileName,docText,meta={}) :
+    data = {}
+    try : 
+       data = yaml.load(docText,Loader=yaml.SafeLoader) 
+    except :
+       print("Cannot interpret docText :",docText)
+    # append
+    with open(fileName, 'a+') as file:
+       file.write("---\n")
+       file.write("time: "+datetime.datetime.utcnow().replace(microsecond=0).isoformat()+"\n")
+       file.write("meta: "+json.dumps(meta)+"\n")
+       file.write("data: "+json.dumps(data)+"\n")
+
+def append_log(*args, **kwargs):
+    #
+    fileName = args[0]
+    jsonText = args[1]
+    if "meta" in kwargs.keys() : 
+       dump_message(fileName,jsonText,meta=kwargs["meta"])
+    else : 
+       dump_message(fileName,jsonText)
+
+def clear_file(*args, **kwargs):
+    #
+    fileName = args[0]
+    with open(fileName, 'w') as file:
+       pass
+
+def test() :
+    #
+    fileName = "west.log.yaml"
+    jsonText = '{ "a" : "b", "c" : [1,2], "d" : { "e": 2, "f" : [3.5677,3.909090900], "l" : true } }'
+    clear_file(fileName)
+    append_log(fileName,jsonText)
+    append_log(fileName,jsonText,meta={"type" : "setup" })
+    append_log(fileName,jsonText,meta={"type" : "setup", "ciao" : True })
+    append_log(fileName,jsonText,meta={"ciao" : False })
+
+if __name__ == "__main__":
+    # execute only if run as a script
+    test()
+