/* This is OS/2 REXX */
/* $XFree86: xc/config/util/makedef.cmd,v 1.5 2004/01/14 17:32:39 dawes Exp $
*
* This file was taken from Odin32 project and modified to suit
* XFree86 4.x build process
*
* Generate *os2.def linker definition files for OS/2
*/
if RxFuncQuery('SysLoadFuncs')=1 THEN
DO
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs';
call SysLoadFuncs;
END
/*
* Set default parameter values.
*/
sLibrary = '';
sDBFile = '';
sOrdinals = 0;
sASDFeatureId = '';
sCountryCode = '';
sDateTime = left(' 'date()' 'time(), 26);
sDescription = 'XFree86 4.4';
sFixPakVer = '';
sHostname = strip(substr(VALUE('HOSTNAME',,'OS2ENVIRONMENT'), 1, 11));
sLanguageCode = '';
sMiniVer = '';
sVendor = 'XFree86';
sVersion = '4.4.0';
/*
* Parse parameters.
*/
parse arg sArgs
if (sArgs = '') then
do
call syntax;
exit(1);
end
do while (sArgs <> '')
sArgs = strip(sArgs);
if (substr(sArgs, 1, 1) = '-' | substr(sArgs, 1, 1) = '/') then
do /*
* Option.
*/
ch = translate(substr(sArgs, 2, 1));
if (pos(ch, 'ACDHLMNOPRTV') < 1) then
do
say 'invalid option:' substr(sArgs, 1, 2);
call syntax;
exit(2);
end
/* get value and advance sArgs to next or to end. */
if (substr(sArgs, 3, 1) = '"') then
do
iNext = pos('"', sArgs, 4);
fQuote = 1;
end
else
do
iNext = pos(' ', sArgs, 3);
if (iNext <= 0) then
iNext = length(sArgs);
fQuote = 0;
end
if (iNext > 3 | ch = 'R') then
do
sValue = substr(sArgs, 3 + fQuote, iNext - 3 - fQuote);
sArgs = strip(substr(sArgs, iNext+1));
/*say 'iNext:' iNext 'sValue:' sValue 'sArgs:' sArgs; */
/* check if we're gonna search for something in an file. */
if (sValue <> '' & pos('#define=', sValue) > 0) then
sValue = LookupDefine(sValue);
end
else
do
say 'syntax error near' substr(sArgs, 1, 2)'.';
call syntax;
exit(3);
end
/* set value */
select
when (ch = 'A') then /* ASD Feature Id */
sASDFeatureId = sValue;
when (ch = 'C') then /* Country code */
sCountryCode = sValue;
when (ch = 'D') then /* Description */
sDescription = sValue;
when (ch = 'H') then /* Hostname */
sHostname = sValue;
when (ch = 'L') then /* Language code */
sLanguageCode = sValue;
when (ch = 'M') then /* MiniVer */
sMiniVer = sValue;
when (ch = 'N') then /* Vendor */
sVendor = sValue;
when (ch = 'O') then /* Ordinals */
sOrdinals = 1;
when (ch = 'R') then /* Vendor */
sDescription = ReadDescription(sValue, sDefFile);
when (ch = 'P') then /* Fixpak version */
sFixPakVer = sValue;
when (ch = 'T') then /* Date Time */
sDateTime = sValue;
when (ch = 'V') then /* Version */
sVersion = sValue;
/* Otherwise it's an illegal option */
otherwise:
say 'invalid option:' substr(sArgs, 1, 2);
call syntax;
exit(2);
end /* select */
end
else
do /*
* Table file name, typically xc/config/cf/os2def.db
*/
if (sLibrary <> '') then
do
say 'Syntax error: Can''t specify more than two files!';
exit(4);
end
if (sDBFile = '') then
parse value sArgs with sDBFile' 'sArgs
else
parse value sArgs with sLibrary' 'sArgs
sArgs = strip(sArgs);
end
end
/* check that a definition file was specified. */
if (sLibrary = '') then
do
say 'Syntax error: Will have to specify a library stem.';
call syntax;
exit(5);
end
/*
* Trim strings to correct lengths.
*/
sVendor = strip(substr(sVendor, 1, 31));
if (substr(sDateTime, 1, 1) <> ' ') then
sDateTime = ' ' || sDateTime;
sDateTime = left(sDateTime, 26);
sHostname = strip(substr(sHostname, 1, 11));
sMiniVer = strip(substr(sMiniVer, 1, 11));
sDescription = strip(substr(sDescription, 1, 80));
sCountryCode = strip(substr(sCountryCode, 1, 4));
sLanguageCode = strip(substr(sLanguageCode, 1, 4));
sASDFeatureId = strip(substr(sASDFeatureId, 1, 11));
sFixPakVer = strip(substr(sFixPakVer, 1, 11));
/* load database file, only accept lines for the specified sLibrary */
ordHash.0 = 0
sRealName = ''
sInitTerm = 0
rc = LoadDBFile(sDBFile,sLibrary)
/* engage gcc to parse the corresponding -def.cpp file */
'@gcc -E -D__UNIXOS2__ 'sLibrary'-def.cpp >tmpos2.def'
/* Signature */
sEnhSign = '##1##'
/*
* Build description string.
*/
sDescription = '@#'sVendor':'sVersion'#@'sEnhSign||,
sDateTime||sHostname||,
':'sASDFeatureId':'sLanguageCode':'sCountryCode':'sMiniVer||,
'::'sFixPakVer'@@'sDescription;
/*
* Update .def-file.
*/
rc = UpdateDefFile(sLibrary,sDescription,sRealName,sOrdinals,sInitTerm);
call SysFileDelete('tmpos2.def')
exit(rc);
LoadDBFile: procedure expose ordHash. sRealname sInitTerm
parse arg dbfile,libname;
rc = stream(dbfile, 'c', 'open read');
if (pos('READY', rc) <> 1) then
do
say 'error: failed to open 'dbfile;
exit(-1);
end
do while (lines(dbfile) > 0)
line = translate(strip(linein(dbfile)),' ',' ');
if pos(';',line) > 0 then iterate;
if pos('LIBRARY',line) > 0 then do
if word(line,2) = libname then do
sRealname = word(line,3)
if word(line,4) <> '' then
sInitTerm = 1
end
iterate
end
if word(line,1) = libname then do
name = word(line,2)
ordHash.name = word(line,3)
end
end
rc = stream(dbfile,'c','close')
return rc
/**
* Display script syntax.
*/
syntax: procedure
say 'Syntax: MakeDef.cmd [options] <dbfile> <libname> [options]'
say ' <dbfile> Ordinals database.'
say ' <libname> Library stem'
say 'Options:'
say ' -A<string> ASD Feature Id.'
say ' -C<string> Country code.'
say ' -D<string> Description.'
say ' -O<string> Ordinals definition file.'
say ' -R[deffile] Read description from .def file.'
say ' -H<string> Hostname.'
say ' -L<string> Language code.'
say ' -M<string> MiniVer.'
say ' -N<string> Vendor.'
say ' -P<string> Fixpak version.'
say ' -T<string> Date Time.'
say ' -V<string> Version.'
say '<string> could be a double quoted string or a single word.'
say ' You could also reference #defines in C/C++ include files.'
say ' The string should then have this form:'
say ' "#define=<DEFINE_NAME>,<includefile.h>"'
say '';
return;
/**
* Search for a #define in an C/C++ header or source file.
*
* @returns String containing the defined value
* found for the define in the header file.
* Quits on fatal errors.
* @param A string on the form: "#define=DEFINETOFIND,includefile.h"
* @remark Write only code... - let's hope it works.
*/
LookupDefine: procedure
parse arg '#'sDefine'='sMacro','sIncludeFile
/*
* Validate parameters.
*/
sMacro = strip(sMacro);
sIncludeFile = strip(sIncludeFile);
if (sMacro = '') then
do
say 'syntax error: #define=<DEFINE_NAME>,<includefile.h>.';
say ' <DEFINE_NAME> was empty.';
exit(-20);
end
if (sIncludeFile = '') then
do
say 'syntax error: #define=<DEFINE_NAME>,<includefile.h>.';
say ' <includefile.h> was empty.';
exit(-20);
end
sIllegal = translate(translate(sMacro),,
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!',,
'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_');
if (strip(translate(sIllegal, ' ', '!')) <> '') then
do
say 'syntax error: #define=<DEFINE_NAME>,<includefile.h>.';
say ' <DEFINE_NAME> contains illegal charater(s).'
say ' 'sMacro;
say ' 'translate(sIllegal, ' ', '!');
exit(-20);
end
/*
* Open include file.
*/
sRc = stream(sIncludeFile, 'c', 'open read');
if (pos('READY', sRc) <> 1) then
do /* search INCLUDE variable */
sFile = SysSearchPath('INCLUDE', sIncludeFile);
if (sFile = '') then
do
say 'Can''t find include file 'sIncludeFile'.';
exit(-20);
end
sIncludeFile = sFile;
sRc = stream(sIncludeFile, 'c', 'open read');
if (pos('READY', sRc) <> 1) then
do
say 'Failed to open include file' sIncludeFile'.';
exit(-20);
end
end
/*
* Search the file line by line.
* We'll check for lines starting with a hash (#) char.
* Then check that the word after the hash is 'define'.
* Then match the next word with the macro name.
* Then then get the next rest of the line to comment or continuation char.
* (continuation is not supported)
* Finally strip quotes.
*/
sValue = '';
do while (lines(sIncludeFile) > 0)
sLine = strip(linein(sIncludeFile));
if (sLine = '') then
iterate;
if (substr(sLine, 1, 1) <> '#') then
iterate;
sLine = substr(sLine, 2);
if (word(sLine, 1) <> 'define') then
iterate;
sLine = strip(substr(sLine, wordpos(sLine, 1) + length('define')+1));
if ( substr(sLine, 1, length(sMacro)) <> sMacro,
| substr(sLine, length(sMacro)+1, 1) <> ' ') then
iterate;
sLine = strip(substr(sLine, length(sMacro) + 1));
if (sLine = '') then
do
say 'error: #define' sMacro' is empty.';
call stream sIncludeFile, 'c', 'close';
exit(-20);
end
chQuote = substr(sLine, 1, 1);
if (chQuote = '"' | chQuote = "'") then
do /* quoted string */
iLastQuote = 0;
do forever
iLast = pos(chQuote, sLine, 2);
if (iLast <= 0) then
leave;
if (substr(sLine, iLast, 1) = '\') then
iterate;
iLastQuote = iLast;
leave;
end
if (iLastQuote <= 0) then
do
say 'C/C++ syntax error in 'sIncludefile': didn''t find end quote.';
call stream sIncludeFile, 'c', 'close';
exit(-20);
end
call stream sIncludeFile, 'c', 'close';
sValue = substr(sLine, 2, iLastQuote - 2);
say 'Found 'sMacro'='sValue;
return sValue;
end
else
do
iCommentCPP = pos('//',sLine);
iCommentC = pos('/*',sLine);
if (iCommentC > 0 & iCommentCPP > 0 & iCommentC > iCommentCPP) then
iComment = iCommentCPP;
else if (iCommentC > 0 & iCommentCPP > 0 & iCommentC < iCommentCPP) then
iComment = iCommentC;
else if (iCommentCPP > 0) then
iComment = iCommentCPP;
else if (iCommentC > 0) then
iComment = iCommentC;
else
iComment = 0;
if (iComment > 0) then
sValue = strip(substr(sLine, 1, iComment-1));
else
sValue = strip(sLine);
if (sValue <> '') then
do
if (substr(sValue, length(sValue)) = '\') then
do
say 'Found continuation char: Multiline definitions are not supported!\n';
call stream sIncludeFile, 'c', 'close';
exit(-20);
end
end
if (sValue = '') then
say 'warning: The #define has no value.';
call stream sIncludeFile, 'c', 'close';
say 'Found 'sMacro'='sValue;
return sValue;
end
end
call stream sIncludeFile, 'c', 'close';
say 'error: didn''t find #define' sMacro'.';
exit(-20);
/**
* Reads the description line for a .def-file.
* @returns The Description string, with quotes removed.
* Empty string is acceptable.
* On error we'll terminate the script.
* @param sDefFile Filename of .def-file to read the description from.
* @param sDefFile2 Used if sDefFile is empty.
* @author knut st. osmundsen (knut.stange.osmundsen@mynd.no)
*/
ReadDescription: procedure;
parse arg sDefFile, sDefFile2
/*
* Validate parameters.
*/
if (sDefFile = '') then
sDefFile = sDefFile2;
if (sDefFile = '') then
do
say 'error: no definition file to get description from.'
exit(-1);
end
/*
* Open file
*/
rc = stream(sDefFile, 'c', 'open read');
if (pos('READY', rc) <> 1) then
do
say 'error: failed to open deffile file.';
exit(-1);
end
/*
* Search for the 'DESCRIPTION' line.
*/
do while (lines(sDefFile) > 0)
sLine = strip(linein(sDefFile));
if (sLine = '') then
iterate;
if (translate(word(sLine, 1)) <> 'DESCRIPTION') then
iterate;
sLine = strip(substr(sLine, wordpos(sLine, 1) + length('DESCRIPTION')+1));
ch = substr(sLine, 1, 1);
if (ch <> "'" & ch <> '"') then
do
say 'syntax error: description line in' sDefFile 'is misformed.';
call stream sDefFile, 'c', 'close';
exit(-10);
end
iEnd = pos(ch, sLine, 2);
if (iEnd <= 0) then
do
say 'syntax error: description line in' sDefFile 'is misformed.';
call stream sDefFile, 'c', 'close';
exit(-10);
end
call stream sDefFile, 'c', 'close';
sValue = substr(sLine, 2, iEnd - 2);
say 'Found Description:' sValue;
return sValue;
end
call stream sDefFile, 'c', 'close';
say 'info: Didn''t find description line in' sDefFile'.';
return '';
AddCodeDataSection: procedure
parse arg outfile;
call lineout outfile,"CODE PRELOAD";
call lineout outfile,"DATA MULTIPLE NONSHARED";
return '';
findOrdinal: procedure expose ordHash.
parse arg line,sOrdinal;
line = strip(line,,' ');
line = word(translate(strip(line),' ','='),1)
if (sOrdinal) then do
ordinal = ordHash.line;
if (ordinal = 'ORDHASH.'line) then do
say 'Oops: DB lacks ordinal for symbol "'line'" Create one!'
return ' 'line
end
else
return ' 'line' @ 'ordinal
end
else
return ' 'line
/**
* This is a function which reads sLibrary into an
* internal array and changes the DESCRIPTION text if found.
* If DESCRIPTION isn't found, it is added at the end.
* The array is written to sDBFile.
* @returns 0 on succes.
* Errorcode on error.
* @param sLibrary library stem
* @param sDescription New description string.
* @param sRealname real 8.3 name of library
* @param sOrdinals flag to denote generation of ordinals
* @param sInitTerm flag to denote adding INITINSTANCE/TERM... qualifiers
* @author knut st. osmundsen (knut.stange.osmundsen@mynd.no)
* @author heavily modified by Platon & Holger
*/
UpdateDefFile: procedure expose ordHash.;
parse arg sLibrary, sDescription, sRealname, sOrdinals, sInitTerm
initterm = ''
if sInitTerm = 1 then initterm = 'INITINSTANCE TERMINSTANCE'
/* Open input file. */
infile = 'tmpos2.def'
rc = stream(infile, 'c', 'open read');
if (pos('READY', rc) <> 1) then do
say 'error: failed to open' infile 'file.';
return 110;
end
/* open output file. */
if sOrdinals = 1 then
outfile = sLibrary'o_os2.def'
else
outfile = sLibrary'os2.def'
call SysFileDelete(outfile)
rc = stream(outfile, 'c', 'open write');
if (pos('READY', rc) <> 1) then do
say 'error: failed to open outputfile' outfile 'file.';
return 110;
end
call lineout outfile, '; Created by makedef.cmd on' date() time()'. Do not edit.', 1;
/*
* Search for the specific lines.
*/
fDescription = 0;
fExports = 0;
fWinLib = 0;
do while (lines(infile) > 0)
line = strip(linein(infile));
line = strip(line,,' ');
if line = '' then iterate;
if pos('#',line) = 1 then iterate;
if pos(';',line) = 1 then iterate;
if pos('/*',line) = 1 then iterate;
firstsym = translate(word(line,1))
if firstsym = 'LIBRARY' then do
call lineout outfile,'LIBRARY 'sRealName' 'initterm
iterate
end
if firstsym = 'VERSION' then do
call lineout outfile, 'DESCRIPTION "'sDescription sLibrary'"'
fDescription = 1;
AddCodeDataSection(outfile);
end
if (firstsym = 'EXPORTS') then do
call lineout outfile,'EXPORTS'
fExports = 1;
iterate;
end
if (fExports) then do
call lineout outfile, findOrdinal(line,sOrdinals);
iterate;
end
end
/*
* Add description is none was found.
*/
if (\fDescription) then
do
call lineout outfile,"DESCRIPTION '"||sDescription sLibrary||"'";
AddCodeDataSection(outfile);
end
/*
* Close input file and open output file.
*/
call stream outfile, 'c', 'close';
call stream infile, 'c', 'close';
if sOrdinals = 1 then do
call SysFileDelete('dll.name');
call stream 'dll.name', 'c', 'open write';
call charout 'dll.name', sRealName".dll";
call stream 'dll.name', 'c'. 'close';
end
return 0;