$! vmsbuild.com -- DCL procedure to build unixODBC on OpenVMS
$!
$ say := "write sys$OUTPUT"
$ whoami = f$parse(f$environment("PROCEDURE"),,,,"NO_CONCEAL")
$ cwd = f$parse(whoami,,,"DEVICE") + f$parse(whoami,,,"DIRECTORY") - ".][000000]" - "][" - ".]" - "]" + "]"
$ set default 'cwd'
$! 
$ basedir = cwd - "]"
$ define/translation=concealed ODBCSRC "''basedir'.]"
$!
$ if p1 .eqs. "" then $goto ERR_NOPARAMS
$!
$ includes = "ODBCSRC:[include],ODBCSRC:[extras],ODBCSRC:[libltdl]"
$! /first_include requires CC 6.4 or later but avoids impossibly long /define qualifier
$ CFLAGS="/names=as_is/prefix=all/include=(" + includes + ")/first_include=(ODBCSRC:[include]vmsconfig.h)
$ LFLAGS="/nodebug/notrace"
$!
$ if p2 .eqs. "DEBUG"
$ then
$     CFLAGS = CFLAGS + "/noopt/debug"
$     LFLAGS = LFLAGS + "/debug/trace"
$ endif
$!
$ if p1 .eqs. "CLEAN" 
$ then
$   set default 'cwd'
$   d = f$parse(whoami,,,"DEVICE") + f$parse(whoami,,,"DIRECTORY") - ".][000000]" - "][" - ".]" - "]" + "]"
$   say "Removing all object files and listings"
$   delete/noconfirm [...]*.obj;*, *.lis;*
$   say "Removing all object libraries and linker maps"
$   delete/noconfirm [...]*.olb;*, *.map;*
$   goto all_done
$ endif
$!
$ if p1 .eqs. "COMPILE" .or. p1 .eqs. "ALL"
$ then
$   say "Compiling unixODBC"
$   if f$search("ODBCSRC:[vms]libodbcinst.olb") .eqs. "" then library/create ODBCSRC:[vms]libodbcinst.olb
$   if f$search("ODBCSRC:[vms]libodbc.olb") .eqs. "" then library/create ODBCSRC:[vms]libodbc.olb
$   if f$search("ODBCSRC:[vms]libodbcpsql.olb") .eqs. "" then library/create ODBCSRC:[vms]libodbcpsql.olb
$   call create_vmsconfig_h
$   call compile "ODBCSRC:[extras]" "*.C" "ODBCSRC:[vms]libodbcinst.olb" "ODBCSRC:[vms]libodbc.olb"
$   call compile "ODBCSRC:[ini]" "*.C" "ODBCSRC:[vms]libodbcinst.olb" "ODBCSRC:[vms]libodbc.olb"
$   call compile "ODBCSRC:[log]" "*.C" "ODBCSRC:[vms]libodbcinst.olb"
$   call compile "ODBCSRC:[lst]" "*.C" "ODBCSRC:[vms]libodbcinst.olb" "ODBCSRC:[vms]libodbc.olb"
$   call compile "ODBCSRC:[odbcinst]" "*.C" "ODBCSRC:[vms]libodbcinst.olb"
$   call compile "ODBCSRC:[drivermanager]" "*.C" "ODBCSRC:[vms]libodbc.olb"
$   call compile "ODBCSRC:[exe]" "*.C"
$   call compile "ODBCSRC:[drivers.postgresql]" "*.C" "ODBCSRC:[vms]libodbcpsql.olb"
$   set default 'cwd'
$!
$ endif
$!
$ if f$trnlnm("ODBC_LIBDIR").eqs.""
$ then
$     if f$search("ODBCSRC:[000000]odbclib.dir") .eqs. ""
$     then
$       create/directory/log ODBCSRC:[odbclib]
$     endif
$     libdir = f$parse("ODBCSRC:[odbclib]",,,,"NO_CONCEAL")  -".][000000"-"]["-"].;"+"]"
$     define/process ODBC_LIBDIR 'libdir'
$     say "Defining ODBC_LIBDIR as """ + f$trnlnm("ODBC_LIBDIR") + """
$ else
$     if f$search("ODBC_LIBDIR") .eqs. ""
$     then
$       create/directory/log ODBC_LIBDIR
$     endif
$ endif
$!
$! Build Shared objects
$!
$ if p1 .eqs. "LINK" .or. p1 .eqs. "ALL"
$ then
$   set default ODBCSRC:[vms]
$!
$   say "Linking libodbcinst.exe"
$   link 'LFLAGS' libodbcinst.olb/library,odbcinst_axp.opt/opt/share=libodbcinst.exe
$!
$   say "Linking libodbc.exe"
$   link 'LFLAGS' libodbc.olb/library,odbc_axp.opt/opt/share=libodbc.exe
$!
$!  The following kludge brought to you by the fact that on ODS-5 disks the C compiler 
$!  may create module names in upper or mixed case depending on how the archive was 
$!  unpacked.  Try lower case and if it's not there, assume uppper case.
$!
$   module = "psqlodbc"
$   module_exists == 0
$   call check_module "''module'" "libodbcpsql.olb"
$   if .not. module_exists then module = f$edit(module,"UPCASE")
$!
$   say "Linking libodbcpsql.exe"
$   link 'LFLAGS' libodbcpsql.olb/library/include="''module'",odbc2_axp.opt/opt/share=libodbcpsql.exe
$!
$   set default ODBCSRC:[exe]
$   say "Linking isql.exe, dltest.exe and odbc-config.exe"
$   link 'LFLAGS' isql.OBJ,SYS$INPUT/OPT
ODBCSRC:[vms]libodbc.exe/SHARE
$ eod
$!
$   link 'LFLAGS' dltest.OBJ,ODBCSRC:[vms]libodbcinst.olb/library
$   link 'LFLAGS' odbc-config.OBJ
$ endif
$!
$ if p1 .eqs. "INSTALL" .or. p1 .eqs. "ALL"
$ then
$!
$   copy/log ODBCSRC:[vms]libodbc*.exe ODBC_LIBDIR:
$   copy/log ODBCSRC:[vms]odbc_setup.com ODBC_LIBDIR:
$   copy/log ODBCSRC:[exe]isql.exe ODBC_LIBDIR:
$   copy/log ODBCSRC:[exe]dltest.exe ODBC_LIBDIR:
$   copy/log ODBCSRC:[exe]odbc-config.exe ODBC_LIBDIR:
$!
$! check for odbc.ini and odbcinst.ini in ODBC_LIBDIR
$! 
$   file = f$search ("ODBC_LIBDIR:odbc.ini")
$   if file .eqs. ""
$   then 
$     say "Creating ODBC_LIBDIR:odbc.ini"
$     create ODBC_LIBDIR:odbc.ini

$   endif
$!
$   file = f$search ("ODBC_LIBDIR:odbcinst.ini")
$   if file .eqs. ""
$   then 
$     say "Creating ODBC_LIBDIR:odbcinst.ini"
$     create ODBC_LIBDIR:odbcinst.ini

$   endif
$!
$   set file ODBC_LIBDIR:*.*/protection=(w:re)
$ endif
$!
$ all_done:
$ set default 'cwd'
$ exit (1)
$!
$ ERR_NOPARAMS:
$ say " "
$ say "The correct calling sequence is: "
$ say " "
$ say "$ @vmsbuild p1 [p2]
$ say " "
$ say "Where p1 is : "
$ say " "
$ say "    ALL      : COMPILE LINK, and INSTALL steps."
$ say "    CLEAN    : Remove all objects and object libraries."
$ say "    COMPILE  : Compile all source and produce object libraries"
$ say "    LINK     : Create shareable images"
$ say "    INSTALL  : Copy shareable images to ODBC_LIBDIR:"
$ say " "
$ say "and DEBUG may optionally be specified for p2 when p1 is COMPILE, LINK, or ALL"
$ say " "
$ exit 44
$!
$! compile subroutine will compile all p2 source files
$! and place the resulting object files in libraries
$! specified as p3 and/or p4
$!
$ compile : subroutine
$ set default 'p1'
$ loop:
$   file = f$search ("''p2'",1)
$   if file .eqs. "" then goto complete
$   filename = f$parse (file,,,"name")
$   if f$edit(filename,"UPCASE") .eqs. "INIOS2PROFILE" then goto loop
$   object = F$SEARCH ("''filename'.OBJ;*",2)
$   if object .eqs. ""
$   then
$      say "cc" + CFLAGS + " ''filename'.C"
$      on warning then continue
$      cc 'CFLAGS' 'filename'
$!     keep module names upper case to avoid insanity on ODS-5 volumes
$      if p3 .nes. "" then library/replace/log 'p3' 'f$edit(filename,"UPCASE")'
$      if p4 .nes. "" then library/replace/log 'p4' 'f$edit(filename,"UPCASE")'
$   endif
$   goto loop
$ complete:
$ set default 'cwd'
$ exit
$ endsubroutine ! compile
$
$!
$ create_vmsconfig_h : subroutine
$!
$ SEARCH/KEY=(POS:2,SIZE:8) ODBCSRC:[000000]CONFIGURE. "VERSION="/EXACT/OUTPUT=version.tmp
$ open/read version version.tmp
$ read version versionline
$ close version
$ delete/noconfirm/nolog version.tmp;*
$ versionstring = f$element(1, "=", f$edit(versionline, "COLLAPSE"))
$!
$ if f$search("ODBCSRC:[include]vmsconfig.h") .nes. "" then delete/noconfirm/nolog ODBCSRC:[include]vmsconfig.h;*
$ open/write vmsconfig ODBCSRC:[include]vmsconfig.h
$ write vmsconfig "/* auto-generated definitions for VMS port */
$ write vmsconfig "#define UNIXODBC"
$ write vmsconfig "#define HAVE_PWD_H 1"
$ write vmsconfig "#if __VMS_VER >= 70000000"
$ write vmsconfig "#define HAVE_STRCASECMP"
$ write vmsconfig "#define HAVE_STRNCASECMP"
$ write vmsconfig "#define HAVE_STDARG_H"
$ write vmsconfig "#endif"
$ write vmsconfig "#define SIZEOF_LONG_INT 8"
$ write vmsconfig "#define UNIXODBC_SOURCE"
$ write vmsconfig "#define readonly __readonly"
$ write vmsconfig "#define DEFLIB_PATH ""ODBC_LIBDIR:[LIB]"""
$ write vmsconfig "#define SYSTEM_LIB_PATH ""ODBC_LIBDIR:[LIB]"""
$ write vmsconfig "#define SHLIBEXT "".exe"""
$ write vmsconfig "#define VERSION ""''versionstring'"""
$ write vmsconfig "#define PREFIX ""ODBC_LIBDIR:"""
$ write vmsconfig "#define EXEC_PREFIX ""ODBC_LIBDIR:[BIN]"""
$ write vmsconfig "#define BIN_PREFIX ""ODBC_LIBDIR:[BIN]"""
$ write vmsconfig "#define INCLUDE_PREFIX ""ODBC_LIBDIR:[INCLUDE]"""
$ write vmsconfig "#define LIB_PREFIX ""ODBC_LIBDIR:[ETC]"""
$ write vmsconfig "#define SYSTEM_FILE_PATH ""ODBC_LIBDIR:[ETC]"""
$ write vmsconfig "char* getvmsenv (char* symbol);"
$ close vmsconfig
$!
$ open/write unixodbcconfig ODBCSRC:[include]unixodbc_conf.h
$ write unixodbcconfig "/* auto-generated definitions for VMS port */
$ write unixodbcconfig "#ifndef HAVE_PWD_H"
$ write unixodbcconfig " #define HAVE_PWD_H"
$ write unixodbcconfig "#endif"
$ write unixodbcconfig "#ifndef SIZEOF_LONG_INT"
$ write unixodbcconfig " #define SIZEOF_LONG_INT 8"
$ write unixodbcconfig "#endif"
$ close unixodbcconfig
$ exit
$ endsubroutine ! create_vmsconfig_h
$!
$ check_module : subroutine
$!  Check for presence of a particular module in an object library.
$!  p1: module name, p2: object library
$ set noon
$ define/user_mode sys$output nl:
$ define/user_mode sys$error nl:
$ library/list/only="''p1'" 'p2'
$ if .not. $status 
$ then
$!    probably LBR$_KEYNOTFND; defer other errors until link time
$     module_exists == 0
$ else
$     module_exists == 1
$ endif
$ set on
$ exit
$ endsubroutine ! check_module