 { This record is located at the starting byte of the object library. }
{ It is immediately followed by an array of dictionary pointers }
{ (llt$object_library_dictionaries) with header.number_of_dictionaries }
{ elements. }

  TYPE
    llt$object_library_header = record
      version: string (4),
      number_of_dictionaries: 0 .. llc$max_dictionaries_on_library,
    recend,

    llt$object_library_dictionaries = array [1 .. * ] of
      llt$object_library_dictionary,

    llt$object_library_dictionary = record
      case kind: llt$library_dictionary_kind of
      = llc$module_dictionary =
        module_dictionary: REL (llt$object_library) ^llt$module_dictionary,
      = llc$entry_point_dictionary =
        entry_point_dictionary: REL (llt$object_library)
          ^llt$entry_point_dictionary,
      = llc$command_dictionary =
        command_dictionary: REL (llt$object_library) ^llt$command_dictionary,
      = llc$function_dictionary =
        function_dictionary: REL (llt$object_library) ^llt$function_dictionary,
      = llc$help_module_dictionary =
        help_module_dictionary: REL (llt$object_library)
          ^llt$help_module_dictionary,
      = llc$message_module_dictionary =
        message_module_dictionary: REL (llt$object_library)
          ^llt$message_module_dictionary,
      = llc$panel_dictionary =
        panel_dictionary: REL (llt$object_library) ^llt$panel_dictionary,
      casend,
    recend,

    llt$library_dictionary_kind = (llc$module_dictionary,
      llc$entry_point_dictionary, llc$command_dictionary,
      llc$function_dictionary, llc$help_module_dictionary,
      llc$message_module_dictionary, llc$panel_dictionary);

  CONST
    llc$max_dictionaries_on_library = 0ff(16);

  TYPE
    llt$object_library_header_v1_0 = record
      version: string (4),
      module_dictionary: REL (llt$object_library) ^llt$module_dictionary,
      number_of_modules: llt$module_index,
      entry_point_dictionary: REL (llt$object_library)
        ^llt$entry_point_dictionary,
      number_of_entry_points: llt$entry_point_index,
    recend;

  CONST
    llc$object_library_version = 'V1.1';

*copyc llt$command_dictionary
*copyc llt$entry_point_dictionary
*copyc llt$function_dictionary
*copyc llt$help_module_dictionary
*copyc llt$message_module_dictionary
*copyc llt$module_dictionary
*copyc llt$panel_dictionary
