1$ ! To compile iODBC for VMS, just type $ @VMSCOMPILE or $ @VMSCOMPILE DEBUG 2$ ! Compile *.c, and remember all object files created. 3$ ! Create a shared library from all the created object files. 4$ !--------------------------------------------------------------------------- 5$ debug=0 6$ if p1 .eqs. "DEBUG" then debug=1 7$ ! Find version number by searching the configure. file 8$ search/exact/out=x.tmp configure. "VERSION=" 9$ version="" 10$ open/read fi x.tmp 11$ read/end=CLOSEFILE fi version 12$ CLOSEFILE: 13$ close fi 14$ version=version-"VERSION=" 15$ if version .eqs. "" 16$ then 17$ version="1.1" 18$ write sys$output "Could not find the version number of iODBC in CONFIGURE." 19$ endif 20$ write sys$output "Creating iODBC version ''version'" 21$ stdopts="/INCLUDE=SYS$DISK:[]/PREFIX=ALL/NOLIS" 22$ configure="/DEFINE=(""VERSION=""""''version'"""""")" 23$ debugopt="" 24$ if debug then debugopt="/DEBUG" 25$ if debug then stdopts=stdopts+"/NOOPT" 26$ objects="" 27$ NEXTFILE: 28$ file=f$search("*.c") 29$ if file .eqs. "" then goto LINKIT 30$ filename=f$parse(file,,,"name") 31$ objects=objects+filename+"," 32$ write sys$output "$ cc''debugopt' ''filename'" 33$ cc'stdopts' 'configure' 'debugopt' 'filename' 34$ goto NEXTFILE 35$ LINKIT: 36$ write sys$output "$ LINK''debugopt' IODBC.EXE" 37$ open/write fo x.opt 38$ sversion=version-"." 39$ write fo "GSMATCH=LEQ,1,"+sversion 40$ close fo 41$ link/share=IODBC 'debugopt' 'objects' x/opt,sys$input/opt 42SYMBOL_VECTOR=(SQLTables=PROCEDURE) 43SYMBOL_VECTOR=(SQLColumns=PROCEDURE) 44SYMBOL_VECTOR=(SQLStatistics=PROCEDURE) 45SYMBOL_VECTOR=(SQLTablePrivileges=PROCEDURE) 46SYMBOL_VECTOR=(SQLColumnPrivileges=PROCEDURE) 47SYMBOL_VECTOR=(SQLSpecialColumns=PROCEDURE) 48SYMBOL_VECTOR=(SQLPrimaryKeys=PROCEDURE) 49SYMBOL_VECTOR=(SQLForeignKeys=PROCEDURE) 50SYMBOL_VECTOR=(SQLProcedures=PROCEDURE) 51SYMBOL_VECTOR=(SQLProcedureColumns=PROCEDURE) 52SYMBOL_VECTOR=(SQLAllocEnv=PROCEDURE) 53SYMBOL_VECTOR=(SQLAllocConnect=PROCEDURE) 54SYMBOL_VECTOR=(SQLConnect=PROCEDURE) 55SYMBOL_VECTOR=(SQLDriverConnect=PROCEDURE) 56SYMBOL_VECTOR=(SQLBrowseConnect=PROCEDURE) 57SYMBOL_VECTOR=(SQLDisconnect=PROCEDURE) 58SYMBOL_VECTOR=(SQLFreeConnect=PROCEDURE) 59SYMBOL_VECTOR=(SQLFreeEnv=PROCEDURE) 60SYMBOL_VECTOR=(SQLExecute=PROCEDURE) 61SYMBOL_VECTOR=(SQLExecDirect=PROCEDURE) 62SYMBOL_VECTOR=(SQLNativeSql=PROCEDURE) 63SYMBOL_VECTOR=(SQLParamData=PROCEDURE) 64SYMBOL_VECTOR=(SQLPutData=PROCEDURE) 65SYMBOL_VECTOR=(SQLCancel=PROCEDURE) 66SYMBOL_VECTOR=(SQLGetFunctions=PROCEDURE) 67SYMBOL_VECTOR=(SQLGetInfo=PROCEDURE) 68SYMBOL_VECTOR=(SQLGetTypeInfo=PROCEDURE) 69SYMBOL_VECTOR=(SQLSetConnectOption=PROCEDURE) 70SYMBOL_VECTOR=(SQLSetStmtOption=PROCEDURE) 71SYMBOL_VECTOR=(SQLGetConnectOption=PROCEDURE) 72SYMBOL_VECTOR=(SQLGetStmtOption=PROCEDURE) 73SYMBOL_VECTOR=(SQLAllocStmt=PROCEDURE) 74SYMBOL_VECTOR=(SQLFreeStmt=PROCEDURE) 75SYMBOL_VECTOR=(SQLPrepare=PROCEDURE) 76SYMBOL_VECTOR=(SQLSetParam=PROCEDURE) 77SYMBOL_VECTOR=(SQLBindParameter=PROCEDURE) 78SYMBOL_VECTOR=(SQLDescribeParam=PROCEDURE) 79SYMBOL_VECTOR=(SQLParamOptions=PROCEDURE) 80SYMBOL_VECTOR=(SQLNumParams=PROCEDURE) 81SYMBOL_VECTOR=(SQLSetScrollOptions=PROCEDURE) 82SYMBOL_VECTOR=(SQLSetCursorName=PROCEDURE) 83SYMBOL_VECTOR=(SQLGetCursorName=PROCEDURE) 84SYMBOL_VECTOR=(SQLNumResultCols=PROCEDURE) 85SYMBOL_VECTOR=(SQLDescribeCol=PROCEDURE) 86SYMBOL_VECTOR=(SQLColAttributes=PROCEDURE) 87SYMBOL_VECTOR=(SQLBindCol=PROCEDURE) 88SYMBOL_VECTOR=(SQLFetch=PROCEDURE) 89SYMBOL_VECTOR=(SQLGetData=PROCEDURE) 90SYMBOL_VECTOR=(SQLMoreResults=PROCEDURE) 91SYMBOL_VECTOR=(SQLRowCount=PROCEDURE) 92SYMBOL_VECTOR=(SQLSetPos=PROCEDURE) 93SYMBOL_VECTOR=(SQLExtendedFetch=PROCEDURE) 94SYMBOL_VECTOR=(SQLError=PROCEDURE) 95SYMBOL_VECTOR=(SQLTransact=PROCEDURE) 96SYMBOL_VECTOR=(SQLDataSources=PROCEDURE) 97SYMBOL_VECTOR=(SQLDrivers=PROCEDURE) 98$ delete x.opt.* 99$ exit 100