void Ccsf_file::write(byte* d) const
{
byte* w = d;
t_csf_header& header = *reinterpret_cast<t_csf_header*>(w);
w += sizeof(t_csf_header);
header.id = csf_file_id;
header.flags1 = 3;
header.count1 = get_c_strings();
header.count2 = get_c_strings();
header.zero = 0;
header.flags2 = 0;
for (auto& i : m_map)
{
write_int(w, csf_label_id);
write_int(w, 1);
write_string(w, i.first);
write_int(w, i.second.extra_value.empty() ? csf_string_id : csf_string_w_id);
write_wstring(w, i.second.value);
if (!i.second.extra_value.empty())
write_string(w, i.second.extra_value);
}
assert(w - d == get_write_size());
}
int ft_printf_wstring(va_list ap, t_printf_flags *flags)
{
int *str;
int prec;
int l_prec;
int len;
char marg;
str = va_arg(ap, int*);
len = wstring_len(str);
prec = (flags->precision >= 0) ? flags->precision : -1;
l_prec = (prec > 0) ? w_prec(str, prec, &prec) : 0;
len = (prec >= 0 && prec < len) ? prec : len;
marg = (flags->FLAGS_ZERO) ? '0' : ' ';
if (!flags->FLAGS_DASH)
ft_printf_margin(marg, flags->width - len);
if (!str)
ft_printf_buffer("(null)", BUF_WRITE);
else
write_wstring(str, prec, l_prec);
if (flags->FLAGS_DASH)
ft_printf_margin(' ', flags->width - len);
return (0);
}
int Linker::Link(int argctr, aCHAR* *pargv)
{
FILE *pFobj, *pFtarg;
int filei, i, j, count, pos;
int fpos_eoa;
aBYTE ibuf[CL_HEAD_LENGTH+4];
aBYTE checksum, curbyte;
bool is_system = false;
#if defined(_WIN32)
DWORD v = ::GetVersion();
g_osver = v < 0x80000000 ? WNT : W95;
#else
g_osver = OtherOS;
#endif
try {
// locking(); // get the registration status and info
output(aS("Linking: %s"), pargv[0]);
if (Lstrstr(pargv[0], aS("alis.xpl")) != NULL ||
Lstrstr(pargv[0], aS("acmp.xpl")) != NULL ||
Lstrstr(pargv[0], aS("aidl.xpl")) != NULL ||
Lstrstr(pargv[0], aS("axrf.xpl")) != NULL ) {
is_system = true; }
// Open output .xpl file
if (NULL == (pFtarg = Lfopen(pargv[0], aS("w+b"))))
abort_linker(aS("Error: Cannot open xpl file %s"), pargv[0]);
// make two passes through files - first one builds
// complete atom table - second pass constructs new file
// header and atom table then writes out clauses
// pass 0 - initialise
if (NULL == (GAtomTable = (G_ATOM*) new G_ATOM[eMaxAtoms] ))
abort_linker(aS("Insufficient memory for global atom table"));
//for(i = 0; i < eMaxAtoms; ++i)
// GAtomTable[i].name = NULL;
if (NULL == (LAtomTable = (L_ATOM*) new L_ATOM[eMaxAtoms] ))
abort_linker(aS("Insufficient memory for local atom table"));
for(i = 0; i < eMaxAtoms; ++i)
LAtomTable[i] = NULL;
// pass1
for (filei = 1; filei < argctr; ++filei)
{
output(aS("Opening: '%s'"), pargv[filei]);
if (NULL == (pFobj = Lasys_fopen(pargv[filei], aS("rb"), aS("abin"))))
abort_linker(aS("Error: Cannot open plm file '%s'"), pargv[filei]);
else
{
//output(aS("Reading Atom Table: %s"), pargv[filei]);
read_g_atoms(pFobj, filei);
fclose(pFobj);
}
}
// now read through global atom table setting index field
// to the index of the atom as it will be when the table
// is written out
count = 0;
for(i = 0; i < eMaxAtoms; ++i)
if (GAtomTable[i].name)
{
GAtomTable[i].index = count;
++count;
}
for (i = 0; i < CL_HEAD_LENGTH+4; i++)
ibuf[i] = 0;
/* Header bytes
0 - ff indicating a load module
1 - xpl/plm flag + unicode flag + large + longcode
2 - version
3 - build
4 - check sum of remaining header stuff + atom table
5 - 0, 1, 2 for professional or personal or evaluation edition
6 - platform id based on linker - 1 - Win32
7-? - serial number product code (ex. APX)
- serial number platform code (ex. PC)
- serial number sequence ID, as a long (ex. 93309)
*/
// write header
ibuf[0] = 0xFF; // the tag
#ifdef _UNICODE
ibuf[1] = 0x72; // .xpl + Unicode + large + long code
#else
ibuf[1] = 0x22; // signifying .xpl file + large
#endif
ibuf[2] = VERSION_NUMBER; // set module bit
ibuf[3] = BUILD_NUMBER; // oldest compiler version supported
#ifdef DISTVER
#ifdef BUG_LINK
fprintf(lout, "** Starting Initialization\n");
fflush(lout);
#endif
ibuf[8] = 0;
ibuf[9] = 0;
ibuf[10] = 0;
ibuf[11] = 0;
ibuf[12] = 0;
ibuf[13] = 0;
ibuf[14] = 0;
ibuf[15] = 0;
for (i = 16, j=0; i < CL_HEAD_LENGTH; i++, j++)
ibuf[i] = ibuf[8+j] ^ (aBYTE)i;
#endif // DISTVER
// fill out header and first four bytes of atom table length with 0s
ucFWRITE(ibuf, 1, CL_HEAD_LENGTH+4, pFtarg);
count = 0;
for(i = 0; i < eMaxAtoms; ++i) // now write the atom table
{
if (GAtomTable[i].name)
{
aCHAR *nptr = GAtomTable[i].name;
write_wstring(GAtomTable[i].name, pFtarg);
++count;
}
}
pos = (int) ftell(pFtarg); // currrent pos
fpos_eoa = pos; // end of atom table file pos
fseek(pFtarg, CL_HEAD_LENGTH, SEEK_SET); // posn for atom table length
pos = pos - (CL_HEAD_LENGTH + 4); // length of table
//printf("pos = 0x%x\n",pos); ray
write_int32(pos, pFtarg); // write it out
// write_int16(pos, pFtarg); // write it out
#ifdef BUG_LINK
fprintf(lout, "** Atom Table Done\n");
fflush(lout);
#endif
// compute check sum, starting with byte #5 and ending before fpos_eoa.
fseek(pFtarg, 5, SEEK_SET); // write it in byte #4.
checksum = 0xaa;
for (i=5; i<fpos_eoa; i++)
{
fread(&curbyte, 1, 1, pFtarg);
curbyte += (aBYTE)i;
checksum ^= curbyte;
}
fseek(pFtarg, 4, SEEK_SET);
ucFWRITE(&checksum, 1, 1, pFtarg);
#ifdef BUG_LINK
fprintf(lout, "** Check Sum Done\n");
fflush(lout);
#endif
// Back to the end of the atom table to continue the real work.
fseek(pFtarg, (long)(pos+CL_HEAD_LENGTH+4), SEEK_SET);
for (filei = 1; filei < argctr; ++filei)
{
if (NULL == (pFobj = Lasys_fopen(pargv[filei], aS("rb"), aS("abin"))))
abort_linker(aS("Warning: Cannot open PLM file %s"), pargv[filei]);
else
{
//output(aS("Reading Code Segments: %s"), pargv[filei]);
read_code_segs(pFobj, pFtarg, filei);
fclose(pFobj);
}
}
#ifdef BUG_LINK
fprintf(lout, "** Code Segments Done\n");
fflush(lout);
#endif
// originally added to catch a bug with binary files and VMS,
// but is now used to determine end of code, so leave in.
ibuf[0] = 0;
for (i=0; i<4; i++)
ucFWRITE(ibuf, 1, 1, pFtarg);
// write file names at end of file, so that ensure_loaded, if
// used, can check to see if a given file was loaded as part
// of an .xpl file, end with zeroes as above.
for (filei = 1; filei < argctr; ++filei)
{
write_wstring(pargv[filei], pFtarg);
}
// originally added to catch a bug with binary files and VMS,
// but is now used to determine end of file as well, so leave in.
ibuf[0] = 0;
for (i=0; i<4; i++)
ucFWRITE(ibuf, 1, 1, pFtarg);
fclose(pFtarg);
for(i = 1, count = 0; i < eMaxAtoms; ++i)
{
if (GAtomTable[i].name)
++count;
}
//output(aS("%d Global Atoms"), count);
output(aS("Link Done"));
} catch (ErrCode)
{
#ifdef BUG_LINK
fprintf(lout, "** Returning NOTOK 1\n");
fflush(lout);
#endif
#ifdef BUG_LINK
fclose(lout);
#endif
return NOTOK;
}
catch (...)
{
#ifdef BUG_LINK
fprintf(lout, "** Returning NOTOK 2\n");
fflush(lout);
#endif
#ifdef BUG_LINK
fclose(lout);
#endif
output(aS("\nUnrecognized system error"));
return NOTOK;
}
#ifdef BUG_LINK
fprintf(lout, "** Returning OK\n");
fflush(lout);
#endif
#ifdef BUG_LINK
fclose(lout);
#endif
return OK;
}
