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