homere_damocles.f

Go to the documentation of this file.

!                       ***********************
                        PROGRAM homere_damocles
!                       ***********************
      USE dico_data
      USE utils_latex
      USE utils_cata
      IMPLICIT NONE
!
!-----------------------------------------------------------------------
!
      CHARACTER(LEN=PATH_LEN) :: DICTIONARY
      CHARACTER(LEN=PATH_LEN) :: DEPENDENCIES
      CHARACTER(LEN=PATH_LEN) :: LATEX_FILE
      CHARACTER(LEN=PATH_LEN) :: ENUM_FILE
      CHARACTER(LEN=PATH_LEN) :: TS_PATH
      CHARACTER(LEN=5) :: TODO
      CHARACTER(LEN=10) :: CODE_NAME
      INTEGER LLNG
      LOGICAL :: FILE_EXIST
!
      WRITE(6,*) 'ENTER ACTION [LATEX,CATA,DUMP]'
      READ(5,'(A)') todo

      IF(todo.EQ.'LATEX') THEN
        WRITE(6,*) 'ENTER DICTIONARY FILE: '
        READ(5,'(A)') dictionary
        WRITE(6,*) 'DICTIONARY: ',trim(dictionary)
        WRITE(6,*) 'ENTER LATEX FILE: '
        READ(5,'(A)') latex_file
        WRITE(6,*) 'LATEX_FILE: ',trim(latex_file)
        WRITE(6,*) 'ENTER LANGUAGE [1: FRENCH, 2: ENGLISH]: '
        READ(5,'(I1)') llng
        WRITE(6,*) 'LANGUAGE: ',llng
        ! Checking that the two file exist and that lng is 1 or 2
        INQUIRE(file=dictionary,exist=file_exist)
        IF(.NOT.file_exist) THEN
          WRITE(6,*) 'ERROR FILE: ',trim(dictionary),' DOES NOT EXIST'
          CALL plante(1)
          stop
        ENDIF
        IF(lng.NE.lng_en.AND.lng.NE.lng_fr) THEN
          WRITE(6,*) 'WRONG LANGUAGE: ',llng
        ENDIF
        ! Reading dictionary
        CALL read_dictionary(dictionary)
        ! Writing Latex file
        CALL write2latex(latex_file,llng)
      ELSE IF(todo(1:4).EQ.'CATA') THEN
        WRITE(6,*) 'ENTER CODE NAME: '
        READ(5,'(A)') code_name
        WRITE(6,*) 'ENTER DICTIONARY FILE: '
        READ(5,'(A)') dictionary
        WRITE(6,*) 'DICTIONARY: ',trim(dictionary)
        WRITE(6,*) 'ENTER DEPENDENCIES FILE: '
        READ(5,'(A)') dependencies
        WRITE(6,*) 'DEPENDENCIES: ',trim(dependencies)
        WRITE(6,*) 'ENTER CATA FILE: '
        READ(5,'(A)') latex_file
        WRITE(6,*) 'CATA: ',trim(latex_file)
        WRITE(6,*) 'ENTER ENUM FILE: '
        READ(5,'(A)') enum_file
        WRITE(6,*) 'ENUM: ',trim(enum_file)
        WRITE(6,*) 'ENTER TS PATH FILE: '
        READ(5,'(A)') ts_path
        WRITE(6,*) 'TS PATH: ',trim(ts_path)
        ! Checking that the two file exist and that llng is 1 or 2
        INQUIRE(file=dictionary,exist=file_exist)
        IF(.NOT.file_exist) THEN
          WRITE(6,*) 'ERROR FILE: ',trim(dictionary),' DOES NOT EXIST'
          CALL plante(1)
          stop
        ENDIF
        ! Reading dictionary
        CALL read_dictionary(dictionary)
        ! Reading dependencies
        CALL read_dependencies(dependencies)
        ! Writing Latex file
        CALL write2cata(latex_file, code_name)
        ! WRITING Enumerate for CHOIX and keywords
        CALL write_enum(enum_file)
        ! WRITING TS
        CALL write_ts(code_name, ts_path)
      ELSE IF(todo(1:5).EQ.'DUMP2') THEN
        WRITE(6,*) 'ENTER DICTIONARY FILE: '
        READ(5,'(A)') dictionary
        WRITE(6,*) 'DICTIONARY: ',trim(dictionary)
        WRITE(6,*) 'ENTER OUTPUT FILE: '
        READ(5,'(A)') latex_file
        WRITE(6,*) 'CATA: ',trim(latex_file)
        ! Checking that the two file exist and that llng is 1 or 2
        INQUIRE(file=dictionary,exist=file_exist)
        IF(.NOT.file_exist) THEN
          WRITE(6,*) 'ERROR FILE: ',trim(dictionary),' DOES NOT EXIST'
          CALL plante(1)
          stop
        ENDIF
        ! Reading dictionary
        CALL read_dictionary(dictionary)
        ! Writing Latex file
        CALL dump_dictionary_index(latex_file)
      ELSE IF(todo(1:4).EQ.'DUMP') THEN
        WRITE(6,*) 'ENTER DICTIONARY FILE: '
        READ(5,'(A)') dictionary
        WRITE(6,*) 'DICTIONARY: ',trim(dictionary)
        WRITE(6,*) 'ENTER OUTPUT FILE: '
        READ(5,'(A)') latex_file
        WRITE(6,*) 'CATA: ',trim(latex_file)
        ! Checking that the two file exist and that llng is 1 or 2
        INQUIRE(file=dictionary,exist=file_exist)
        IF(.NOT.file_exist) THEN
          WRITE(6,*) 'ERROR FILE: ',trim(dictionary),' DOES NOT EXIST'
          CALL plante(1)
          stop
        ENDIF
        ! Reading dictionary
        CALL read_dictionary(dictionary)
        ! Writing Latex file
        CALL dump_dictionary_rub(latex_file)
      ELSE
        WRITE(6,*) 'UNKNOWN ACTION',todo
        CALL plante(1)
        stop
      ENDIF
      stop 0
      END