/* */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

deffile=ARG(1)
if ARG(1)="" then deffile="tst.def"

theVersion=VALUE("DESKTOPVERSION", ,"OS2ENVIRONMENT")
if theVersion="" THEN theVersion="0.0.0"

/* File defining the DLL exports */
exportsfile="EXPORTS.DEF"

def="; NOBJTK.DEF: DEF-file for vobjtk.dll"||'0d'x||'0a'x
def=def||";"||'0d'x||'0a'x
def=def||";                    (C) Chris Wohlgemuth 2003-"||WORD(DATE(), 3)  ||'0d'x||'0a'x
def=def||";/*"||'0d'x||'0a'x
def=def||"; */"||'0d'x||'0a'x
def=def||";/*"||'0d'x||'0a'x
def=def||"; * http://www.os2world.com/cdwriting"||'0d'x||'0a'x
def=def||"; * http://www.geocities.com/SiliconValley/Sector/5785/"||'0d'x||'0a'x
def=def||"; */"||'0d'x||'0a'x

def=def||'0d'x||'0a'x

def=def||"LIBRARY NOBJTK INITGLOBAL"||'0d'x||'0a'x
def=def||"DESCRIPTION '$@#(C) C. Wohlgemuth 2003-"
def=def||WORD(DATE(),3)||":"||LEFT(theVersion,3)||"        #@##1## "||DATE("E")||" "||TIME("N")||"        My ;-)  ::::"||WORD(TRANSLATE(theVersion," ", "."),3)||"::@@Voyager Object TK V"||theVersion||"'"||'0d'x||'0a'x



'@type NUL > 'deffile
/* Write header */
call lineout deffile, def
/* Write the exports */
DO WHILE LINES(exportsfile)
	call lineout deffile, LINEIN(exportsfile)
END
call stream exportsfile, "C", "close"
call stream deffile, "C", "close"

SAY "  New VOBJTK.DEF created for V"||theVersion||"."
exit