/* Alpha VMS external format of Libraries.

  Copyright (C) 2010-2024 Free Software Foundation, Inc.
  Written by Tristan Gingold <[email protected]>, AdaCore.

  This file is part of BFD, the Binary File Descriptor library.

  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 3 of the License, or
  (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  MA 02110-1301, USA.  */

#ifndef _VMS_LBR_H
#define _VMS_LBR_H

/* Libray HeaDer.  */

/* Magic numbers.  Should match the major version.  */

#define LHD_SANEID_DCX 319232342
#define LHD_SANEID3 233579905
#define LHD_SANEID6 233579911

/* Library type.  */
#define LBR__C_TYP_UNK    0     /* Unknown / unspecified.  */
#define LBR__C_TYP_OBJ    1     /* Vax object.  */
#define LBR__C_TYP_MLB    2     /* Macro.  */
#define LBR__C_TYP_HLP    3     /* Help.  */
#define LBR__C_TYP_TXT    4     /* Text.  */
#define LBR__C_TYP_SHSTB  5     /* Vax shareable image.  */
#define LBR__C_TYP_NCS    6     /* NCS.  */
#define LBR__C_TYP_EOBJ   7     /* Alpha object.  */
#define LBR__C_TYP_ESHSTB 8     /* Alpha shareable image.  */
#define LBR__C_TYP_IOBJ   9     /* IA-64 object.  */
#define LBR__C_TYP_ISHSTB 10    /* IA-64 shareable image.  */

struct vms_lhd
{
 /* Type of the library.  See above.  */
 unsigned char type;

 /* Number of indexes.  Generally 1, 2 for object libraries.  */
 unsigned char nindex;

 unsigned char fill_1[2];

 /* Sanity Id.  */
 unsigned char sanity[4];

 /* Version.  */
 unsigned char majorid[2];
 unsigned char minorid[2];

 /* Tool name.  */
 unsigned char lbrver[32];

 /* Create time.  */
 unsigned char credat[8];

 /* Update time.  */
 unsigned char updtim[8];

 /* Size of the MHD.  */
 unsigned char mhdusz;

 unsigned char idxblkf[2];     /* Unused.  */
 unsigned char fill_2;
 unsigned char closerror[2];

 unsigned char spareword[2];

 /* First free block, and number of free blocks.  */
 unsigned char freevbn[4];
 unsigned char freeblk[4];

 unsigned char nextrfa[6];
 unsigned char nextvbn[4];

 /* Free pre-allocated index block.  */
 /* Number of free blocks.  */
 unsigned char freidxblk[4];
 /* VBN of a simply linked list of free blocks.  The list is terminated by a
    nul VBN.  */
 unsigned char freeidx[4];

 /* Highest pre-allocated index block and in use.  */
 unsigned char hipreal[4];
 unsigned char hiprusd[4];

 /* Number of index blocks in use.  */
 unsigned char idxblks[4];

 /* Number of index entries.  */
 unsigned char idxcnt[4];

 /* Number of modules entries.  */
 unsigned char modcnt[4];

 unsigned char fill_3[2];

 /* Number of module headers.  */
 unsigned char modhdrs[4];

 /* Overhead index pointers.  */
 unsigned char idxovh[4];

 /* Update history records.  */
 unsigned char maxluhrec[2];
 unsigned char numluhrec[2];
 unsigned char begluhrfa[6];
 unsigned char endluhrfa[6];

 /* DCX map.  */
 unsigned char dcxmapvbn[4];

 unsigned char fill_4[4 * 13];
};

/* Known major ids.  */
#define LBR_MAJORID 3           /* Alpha libraries.  */
#define LBR_ELFMAJORID 6        /* Elf libraries (new index, new data).  */

/* Offset of the first IDD.  */
#define LHD_IDXDESC 196

/* InDex Description.  */
struct vms_idd
{
 unsigned char flags[2];

 /* Max length of the key.  */
 unsigned char keylen[2];

 /* First index block.  */
 unsigned char vbn[4];
};

/* IDD flags.  */
#define IDD__FLAGS_ASCII 1
#define IDD__FLAGS_LOCKED 2
#define IDD__FLAGS_VARLENIDX 4
#define IDD__FLAGS_NOCASECMP 8
#define IDD__FLAGS_NOCASENTR 16
#define IDD__FLAGS_UPCASNTRY 32

#define IDD_LENGTH 8

/* Index block.  */
#define INDEXDEF__LENGTH 512
#define INDEXDEF__BLKSIZ 500

struct vms_indexdef
{
 /* Number of bytes used.  */
 unsigned char used[2];

 /* VBN of the parent.  */
 unsigned char parent[4];

 unsigned char fill_1[6];

 /* The key field contains vms_idx/vms_elfidx structures, which are
    simply a key (= a string) and a rfa.  */
 unsigned char keys[INDEXDEF__BLKSIZ];
};

/* An offset in a file.  */

struct vms_rfa
{
 /* Logical block number, 1 based.
    0 means that the field is absent.  Block size is 512.  */
 unsigned char vbn[4];

 /* Offset within the block.  */
 unsigned char offset[2];
};

/* Index keys.  For version 3.  */

struct vms_idx
{
 /* Offset from the start of the vbn, so minimum should be
    DATA__DATA (ie 6).  */
 struct vms_rfa rfa;

 unsigned char keylen;
 /* The length of this field is in fact keylen.  */
 unsigned char keyname[256];
};

/* Index keys, for version 4 and later.  */

struct vms_elfidx
{
 struct vms_rfa rfa;

 unsigned char keylen[2];
 unsigned char flags;
 unsigned char keyname[256];
};

/* Flags of elfidx.  */

#define ELFIDX__WEAK 0x01       /* Weak symbol.  */
#define ELFIDX__GROUP 0x02      /* Group symbol.  */
#define ELFIDX__LISTRFA 0x04    /* RFA field points to an LHS.  */
#define ELFIDX__SYMESC 0x08     /* Long symbol.  */

#define RFADEF__C_INDEX 0xffff

/* List head structure.  That's what is pointed by rfa when LISTRFA flag
  is set in elfidx.  */

struct vms_lhs
{
 struct vms_rfa ng_g_rfa;      /* Non-group global.  */
 struct vms_rfa ng_wk_rfa;     /* Non-group weak.  */
 struct vms_rfa g_g_rfa;       /* Group global.  */
 struct vms_rfa g_wk_rfa;      /* Group weak.  */
 unsigned char flags;
};

/* List node structure.  Fields of LHS point to this structure.  */

struct vms_lns
{
 /* Next node in the list.  */
 struct vms_rfa nxtrfa;

 /* Module associated with the key.  */
 struct vms_rfa modrfa;
};

struct vms_datadef
{
 /* Number of records in this block.  */
 unsigned char recs;
 unsigned char fill_1;

 /* Next vbn.  */
 unsigned char link[4];

 /* Data.  The first word is the record length, followed by record
    data and a possible pad byte so that record length is always aligned.  */
 unsigned char data[506];
};
#define DATA__LENGTH 512
#define DATA__DATA 6

/* Key name block.  This is used for keys longer than 128 bytes.  */

struct vms_kbn
{
 /* Length of the key chunk.  */
 unsigned char keylen[2];

 /* RFA of the next chunk.  */
 struct vms_rfa rfa;

 /* Followed by the key chunk.  */
};

/* Module header.  */
struct vms_mhd
{
 /* Fixed part.  */
 unsigned char lbrflag;
 unsigned char id;
 unsigned char fill_1[2];
 unsigned char refcnt[4];
 unsigned char datim[8];

 unsigned char objstat;
 /* Ident or GSMATCH.  */
 unsigned char objidlng;
 unsigned char objid[31];

 unsigned char pad1[3];
 unsigned char otherefcnt[4];
 unsigned char modsize[4];
 unsigned char pad2[4];
};

#define MHD__C_MHDID 0xad       /* Value for id.  */
#define MHD__C_MHDLEN 16        /* Fixed part length.  */
#define MHD__C_USRDAT 16

/* Flags for objstat.  */
#define MHD__M_SELSRC 0x1       /* Selective search.  */
#define MHD__M_OBJTIR 0x2
#define MHD__M_WKSYM  0x4

struct vms_luh
{
 unsigned char nxtluhblk[4];
 unsigned char spare[2];
 unsigned char data[506];
};

struct vms_luhdef
{
 unsigned char rechdr[2];
 unsigned char reclen[2];
};
#define LUH__RECHDRLEN 4
#define LUH__RECHDRMRK 0xabba
#define LUH__DATAFLDLEN 506

/* Entry in the history.  */

struct vms_leh
{
 unsigned char date[8];
 unsigned char nbr_units[2];
 unsigned char action[2]; /* 1: delete, 2: insert, 3: replaced.  */
 unsigned char idlen;
 /* username
    modules... */
};

#endif /* _VMS_LBR_H */

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.