|
From: Patrick C. <pa...@us...> - 2005-10-25 07:32:25
|
Update of /cvsroot/linux-decnet/dnprogs/libvaxdata/vms In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7174/vms Added Files: make.com readme Log Message: Add in libvaxdata --- NEW FILE: make.com --- $ verify = 'F$Verify( 0 )' $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! $! ! $! Make.com - Make library of functions for reading and writing VAX format ! $! data for OpenVMS using DEC/Compaq/HP VAX C or DEC C (CC). ! $! ! $! DCL command syntax: @Make [ all | libvaxdata | clean ] ! $! ! $! ! $! Author: Lawrence M. Baker ! $! U.S. Geological Survey ! $! 345 Middlefield Road MS977 ! $! Menlo Park, CA 94025 ! $! ba...@us... ! $! ! $! Citation: Baker, Lawrence M., 2005, libvaxdata: VAX Data Format Conver- ! $! sion Routines, US Geological Survey, Open-File Report no. ! $! 2005-XXX, nn p. ! $! ! $! ! $! Disclaimer ! $! ! $! Although this program has been used by the USGS, no warranty, expressed or ! $! implied, is made by the USGS or the United States Government as to the ! $! accuracy and functioning of the program and related program material, nor ! $! shall the fact of distribution constitute any such warranty, and no ! $! responsibility is assumed by the USGS in connection therewith. ! $! ! $! ! $! Modification History: ! $! ! $! 12-Oct-2005 L. M. Baker Original version (from make.libvfbb). ! $! ! $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! $! $ lib_name = "LibVAXData" $ args = "||all|libvaxdata|clean|" $ P1 = F$Edit( P1, "TRIM,LOWERCASE" ) $ If ( F$Locate( "|''P1'|", args ) .eq. F$Length( args ) ) $ Then $ Write Sys$Error - "DCL command syntax: @Make [ all | libvaxdata | clean ]" $ Goto EXIT $ EndIf $! $ arch = F$GetSYI( "ARCH_NAME" ) $! $ If ( F$Search( "'arch'.DIR;1" ) .eqs. "" ) $ Then $ Set Verify $ Create /Directory [.'arch'] $ junk = 'F$Verify( 0 )' $ EndIf $! $ cflags = "" $! $ Set Verify $ Set Default [.'arch'] $ junk = 'F$Verify( 0 )' $ If ( P1 .nes. "" ) Then $ Goto 'P1' $! $ALL: $LIBVAXDATA: $! $! VAX Data Conversion Routines (upper case) $! $ Set Verify $ CC 'cflags' [--.Src]From_VAX_I2 $ CC 'cflags' [--.Src]From_VAX_I4 $ CC 'cflags' [--.Src]From_VAX_R4 $ CC 'cflags' [--.Src]From_VAX_D8 $ CC 'cflags' [--.Src]From_VAX_G8 $ CC 'cflags' [--.Src]From_VAX_H16 $ CC 'cflags' [--.Src]To_VAX_I2 $ CC 'cflags' [--.Src]To_VAX_I4 $ CC 'cflags' [--.Src]To_VAX_R4 $ CC 'cflags' [--.Src]To_VAX_D8 $ CC 'cflags' [--.Src]To_VAX_G8 $ CC 'cflags' [--.Src]To_VAX_H16 $ CC 'cflags' [--.Src]Is_Little_Endian $ junk = 'F$Verify( 0 )' $! $ If ( arch .eqs. "VAX" ) $ Then $ blocks = 18 $ modules = 13 $ Else $ blocks = 97 $ modules = 26 $ EndIf $! $! Create a static library $! $ Set Verify $ Library /Create=(Blocks:'blocks',Modules:'modules',Globals:'modules',- KeySize:16,History:0) 'lib_name' $ Library /Insert 'lib_name' - From_VAX_I2 , From_VAX_I4 , From_VAX_R4 , From_VAX_D8 , - From_VAX_G8 , From_VAX_H16 , To_VAX_I2 , To_VAX_I4 , - To_VAX_R4 , To_VAX_D8 , To_VAX_G8 , To_VAX_H16 , - Is_Little_Endian $ Purge 'lib_name'.olb $ Delete From_VAX_I2.obj;* , From_VAX_I4.obj;* , From_VAX_R4.obj;* , - From_VAX_D8.obj;* , From_VAX_G8.obj;* , From_VAX_H16.obj;* , - To_VAX_I2.obj;* , To_VAX_I4.obj;* , To_VAX_R4.obj;* , - To_VAX_D8.obj;* , To_VAX_G8.obj;* , To_VAX_H16.obj;* , - Is_Little_Endian.obj;* $ junk = 'F$Verify( 0 )' $! $ If ( arch .nes. "VAX" ) $ Then $! $ cflags = cflags + " /Names=As_Is" $! $! VAX Data Conversion Routines (lower case) $! $ Set Verify $ CC 'cflags' [--.Src]From_VAX_I2 $ CC 'cflags' [--.Src]From_VAX_I4 $ CC 'cflags' [--.Src]From_VAX_R4 $ CC 'cflags' [--.Src]From_VAX_D8 $ CC 'cflags' [--.Src]From_VAX_G8 $ CC 'cflags' [--.Src]From_VAX_H16 $ CC 'cflags' [--.Src]To_VAX_I2 $ CC 'cflags' [--.Src]To_VAX_I4 $ CC 'cflags' [--.Src]To_VAX_R4 $ CC 'cflags' [--.Src]To_VAX_D8 $ CC 'cflags' [--.Src]To_VAX_G8 $ CC 'cflags' [--.Src]To_VAX_H16 $ CC 'cflags' [--.Src]Is_Little_Endian $ junk = 'F$Verify( 0 )' $! $ Set Verify $ Library /Insert 'lib_name' - From_VAX_I2 , From_VAX_I4 , From_VAX_R4 , From_VAX_D8 , - From_VAX_G8 , From_VAX_H16 , To_VAX_I2 , To_VAX_I4 , - To_VAX_R4 , To_VAX_D8 , To_VAX_G8 , To_VAX_H16 , - Is_Little_Endian $ Delete From_VAX_I2.obj;* , From_VAX_I4.obj;* , From_VAX_R4.obj;* , - From_VAX_D8.obj;* , From_VAX_G8.obj;* , From_VAX_H16.obj;* , - To_VAX_I2.obj;* , To_VAX_I4.obj;* , To_VAX_R4.obj;* , - To_VAX_D8.obj;* , To_VAX_G8.obj;* , To_VAX_H16.obj;* , - Is_Little_Endian.obj;* $ junk = 'F$Verify( 0 )' $ EndIf $! $ Goto DONE $! $CLEAN: $! $ Set NoOn $ Set Verify $ Delete 'lib_name'.olb;* $ Delete From_VAX_I2.obj;* , From_VAX_I4.obj;* , From_VAX_R4.obj;* , - From_VAX_D8.obj;* , From_VAX_G8.obj;* , From_VAX_H16.obj;* , - To_VAX_I2.obj;* , To_VAX_I4.obj;* , To_VAX_R4.obj;* , - To_VAX_D8.obj;* , To_VAX_G8.obj;* , To_VAX_H16.obj;* , - Is_Little_Endian.obj;* $ junk = 'F$Verify( 0 )' $ Set On $! $DONE: $! $ Set Verify $ Set Default [-] $ junk = 'F$Verify( 0 )' $! $EXIT: $ Exit 1 + ( 0 * F$Verify( verify ) ) --- NEW FILE: readme --- An OpenVMS command procedure has been provided to compile libvaxdata on either OpenVMS/VAX or OpenVMS/Alpha using DEC/Compaq/HP C. To create libvaxdata.o from here: $ @make [ all | libvaxdata | clean ] The default make target is all. The library and all object files will be written to a subdirectory named for the system architecture returned by the DCL lexical function F$GetSYI( "ARCH_NAME" ). To link a C program with the library: $ Link program,[here.arch]libvaxdata/Library substituting the path to the library for here.arch (assuming it has not been moved or copied somewhere else). |
