18 #include "../base/base_uses.f90"
24 LOGICAL :: in_use = .false.
25 INTEGER :: old_input_line_number = huge(0)
26 INTEGER :: old_icol = huge(0)
27 INTEGER :: old_icol1 = huge(0)
28 INTEGER :: old_icol2 = huge(0)
29 CHARACTER(LEN=max_line_length) :: old_input_line =
""
31 TYPE(buffer_type),
POINTER :: buffer => null()
35 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'cp_parser_status_types'
46 TYPE(status_type),
POINTER :: status
48 cpassert(.NOT.
ASSOCIATED(status))
60 TYPE(status_type),
POINTER :: status
62 cpassert(
ASSOCIATED(status))
a module to allow simple buffering of read lines of a parser
subroutine, public create_buffer_type(buffer)
Creates the parser buffer type.
recursive subroutine, public release_buffer_type(buffer)
Releases the parser buffer type.
a module to allow the storage of the parser status
subroutine, public create_status_type(status)
creates the parser status type
subroutine, public release_status_type(status)
releases the parser status type
Defines the basic variable types.
integer, parameter, public max_line_length