Initial import
git-svn-id: http://moon:8086/svn/software/trunk/libsrc/libtiff_2007@1 b431acfa-c32f-4a4a-93f1-934dc6c82436
This commit is contained in:
Executable
+229
@@ -0,0 +1,229 @@
|
||||
$!========================================================================
|
||||
$!
|
||||
$! Name : MAKEVMS
|
||||
$!
|
||||
$! Purpose : Compile TIFF library
|
||||
$!
|
||||
$! Arguments : If P1 is DEBUG, compile with debug
|
||||
$!
|
||||
$! Created 1-DEC-1994 Karsten Spang
|
||||
$!
|
||||
$!========================================================================
|
||||
$ CURRENT_DIR=F$ENVIRONMENT("DEFAULT")
|
||||
$ ON CONTROL_Y THEN GOTO EXIT
|
||||
$ ON ERROR THEN GOTO EXIT
|
||||
$!
|
||||
$! Get hold on definitions
|
||||
$!
|
||||
$! Older versions of VMS may not recoqnize the "ARCH_NAME" keyword
|
||||
$! This happens only on VAX
|
||||
$!
|
||||
$ SAVE_MESS=F$ENVIRONMENT("MESSAGE")
|
||||
$ SET MESSAGE/NOID/NOFAC/NOSEV/NOTEXT
|
||||
$ ARCH=F$GETSYI("ARCH_NAME")
|
||||
$ SET MESSAGE 'SAVE_MESS'
|
||||
$ IF F$TYPE(ARCH).EQS."" THEN ARCH="VAX"
|
||||
$ ARCH=F$EDIT(ARCH,"UPCASE")
|
||||
$!
|
||||
$ DEFINE/NOLOG SYS SYS$LIBRARY
|
||||
$ THIS_FILE=F$ENVIRONMENT("PROCEDURE")
|
||||
$ PROC_NAME=F$PARSE(THIS_FILE,,,"NAME","SYNTAX_ONLY")
|
||||
$ THIS_DIR=F$PARSE(THIS_FILE,,,"DEVICE","SYNTAX_ONLY")+ -
|
||||
F$PARSE(THIS_FILE,,,"DIRECTORY","SYNTAX_ONLY")
|
||||
$ SET DEFAULT 'THIS_DIR'
|
||||
$ IF ARCH.EQS."ALPHA"
|
||||
$ THEN
|
||||
$ CONF_FP="HAVE_IEEEFP=1"
|
||||
$ ELSE
|
||||
$ CONF_FP="HAVE_IEEEFP=0"
|
||||
$ ENDIF
|
||||
$ CONF_LIBRARY="BSDTYPES,HAVE_MMAP"
|
||||
$ IF P1.EQS."DEBUG"
|
||||
$ THEN
|
||||
$ DEBUG_OPTIONS="/DEBUG/NOOPTIMIZE"
|
||||
$ CONF_LIBRARY=CONF_LIBRARY+",DEBUG"
|
||||
$ LINK_OPTIONS="/DEBUG"
|
||||
$ ELSE
|
||||
$ DEBUG_OPTIONS=""
|
||||
$ LINK_OPTIONS=""
|
||||
$ ENDIF
|
||||
$ DEFINES="/DEFINE=("+CONF_FP+","+CONF_LIBRARY+")"
|
||||
$ C_COMPILE="CC"+DEBUG_OPTIONS+DEFINES
|
||||
$ IF ARCH.EQS."ALPHA"
|
||||
$ THEN
|
||||
$!
|
||||
$! You may want a different floating point option
|
||||
$!
|
||||
$ C_COMPILE=C_COMPILE+ -
|
||||
"/FLOAT=IEEE_FLOAT/PREFIX_LIBRARY_ENTRIES=ALL_ENTRIES"
|
||||
$ ENDIF
|
||||
$!
|
||||
$ SOURCES="TIF_AUX,TIF_CLOSE,TIF_CODEC,TIF_COMPRESS,"+ -
|
||||
"TIF_DIR,TIF_DIRINFO,TIF_DIRREAD,TIF_DIRWRITE,"+ -
|
||||
"TIF_DUMPMODE,TIF_ERROR,TIF_FAX3,TIF_FAX3SM,TIF_FLUSH,TIF_GETIMAGE,"+ -
|
||||
-! "TIF_JPEG,"+ -
|
||||
"TIF_LZW,TIF_NEXT,TIF_OPEN,TIF_PACKBITS,TIF_PIXARLOG,TIF_PREDICT,"+ -
|
||||
"TIF_PRINT,TIF_READ,TIF_STRIP,TIF_SWAB,TIF_THUNDER,TIF_TILE,"+ -
|
||||
"TIF_VERSION,TIF_VMS,TIF_WARNING,TIF_WRITE"
|
||||
! ",TIF_ZIP"
|
||||
$ LIBFILE="TIFF"
|
||||
$ IF F$SEARCH(LIBFILE+".OLB").EQS."" THEN -
|
||||
LIBRARY/CREATE 'LIBFILE'
|
||||
$!
|
||||
$! Create the port library
|
||||
$!
|
||||
$ LIBPORT="[-.PORT]PORT"
|
||||
$ IF F$SEARCH(LIBPORT+".OLB") .EQS ""
|
||||
$ THEN
|
||||
$ WRITE SYS$OUTPUT "Creating PORT.OLB"
|
||||
$ LIBRARY/CREATE 'LIBPORT'
|
||||
$ CREATE DUM.C
|
||||
main(){getopt();strtoul();strcasecmp();}
|
||||
$ C_COMPILE DUM
|
||||
$ SET MESSAGE/ID/FAC/SEV/TEXT
|
||||
$ DEFINE/USER SYS$OUTPUT LINK.WARNINGS
|
||||
$ DEFINE/USER SYS$ERROR NLA0:
|
||||
$ IF ARCH.EQS."ALPHA"
|
||||
$ THEN
|
||||
$ LINK DUM
|
||||
$ ELSE
|
||||
$ LINK DUM,SYS$INPUT:/OPTIONS
|
||||
SYS$SHARE:VAXCRTL/SHARE
|
||||
$ ENDIF
|
||||
$ DELETE DUM.C;,DUM.OBJ;,DUM.EXE;
|
||||
$ SEARCH/OUT=MISSING.OBJECTS LINK.WARNINGS LINK-I-UDFSYM
|
||||
$ DELETE LINK.WARNINGS;
|
||||
$ OPEN/READ MISSING MISSING.OBJECTS
|
||||
$NEXTMIS:
|
||||
$ READ/END=NOMOREMIS MISSING LINE
|
||||
$ LINE=F$EDIT(LINE,"TRIM,COMPRESS,UPCASE")
|
||||
$ LINE=F$ELEMENT(1," ",LINE)
|
||||
$ IF LINE .EQS. " " THEN GOTO NEXTMIS
|
||||
$ WRITE SYS$OUTPUT " "+LINE
|
||||
$ C_COMPILE/OBJECT=[-.PORT]'LINE' [-.PORT]'LINE'
|
||||
$ LIBRARY 'LIBPORT' [-.PORT]'LINE'
|
||||
$ DELETE [-.PORT]'LINE'.OBJ;
|
||||
$ GOTO NEXTMIS
|
||||
$NOMOREMIS:
|
||||
$ CLOSE MISSING
|
||||
$ DELETE MISSING.OBJECTS;
|
||||
$ ENDIF
|
||||
$!
|
||||
$! Create VERSION.H
|
||||
$!
|
||||
$ IF F$SEARCH("VERSION.H").EQS.""
|
||||
$ THEN
|
||||
$ WRITE SYS$OUTPUT "Creating VERSION.H"
|
||||
$ IF F$SEARCH("MKVERSION.EXE").EQS.""
|
||||
$ THEN
|
||||
$ IF F$SEARCH("MKVERSION.OBJ").EQS.""
|
||||
$ THEN
|
||||
$ C_COMPILE MKVERSION
|
||||
$ ENDIF
|
||||
$ IF ARCH.EQS."ALPHA"
|
||||
$ THEN
|
||||
$ LINK MKVERSION,'LIBPORT'/LIBRARY
|
||||
$ ELSE
|
||||
$ LINK MKVERSION,'LIBPORT'/LIBRARY,SYS$INPUT:/OPTIONS
|
||||
SYS$SHARE:VAXCRTL/SHARE
|
||||
$ ENDIF
|
||||
$ DELETE MKVERSION.OBJ;*
|
||||
$ ENDIF
|
||||
$ MKVERSION:=$'THIS_DIR'MKVERSION
|
||||
$ MKVERSION -V [-]VERSION -A [-.DIST]TIFF.ALPHA VERSION.H
|
||||
$ DELETE MKVERSION.EXE;*
|
||||
$ ENDIF
|
||||
$!
|
||||
$! Create TIF_FAX3SM.C
|
||||
$!
|
||||
$ IF F$SEARCH("TIF_FAX3SM.C").EQS.""
|
||||
$ THEN
|
||||
$ WRITE SYS$OUTPUT "Creating FAX3SM.C"
|
||||
$ IF F$SEARCH("MKG3STATES.EXE").EQS.""
|
||||
$ THEN
|
||||
$ IF F$SEARCH("MKG3STATES.OBJ").EQS.""
|
||||
$ THEN
|
||||
$ C_COMPILE MKG3STATES
|
||||
$ ENDIF
|
||||
$ IF ARCH.EQS."ALPHA"
|
||||
$ THEN
|
||||
$ LINK MKG3STATES,'LIBPORT'/LIBRARY
|
||||
$ ELSE
|
||||
$ LINK MKG3STATES,'LIBPORT'/LIBRARY,SYS$INPUT:/OPTIONS
|
||||
SYS$SHARE:VAXCRTL/SHARE
|
||||
$ ENDIF
|
||||
$ DELETE MKG3STATES.OBJ;*
|
||||
$ ENDIF
|
||||
$ MKG3STATES:=$'THIS_DIR'MKG3STATES
|
||||
$ MKG3STATES -c const TIF_FAX3SM.C
|
||||
$ DELETE MKG3STATES.EXE;*
|
||||
$ ENDIF
|
||||
$!
|
||||
$! Loop over modules
|
||||
$!
|
||||
$ NUMBER=0
|
||||
$COMPILE_LOOP:
|
||||
$ FILE=F$ELEMENT(NUMBER,",",SOURCES)
|
||||
$ IF FILE.EQS."," THEN GOTO END_COMPILE
|
||||
$ C_FILE=F$PARSE(FILE,".C",,,"SYNTAX_ONLY")
|
||||
$ C_FILE=F$SEARCH(C_FILE)
|
||||
$ IF C_FILE.EQS.""
|
||||
$ THEN
|
||||
$ WRITE SYS$OUTPUT "Source file "+FILE+" not found"
|
||||
$ GOTO EXIT
|
||||
$ ENDIF
|
||||
$ C_DATE=F$CVTIME(F$FILE_ATTRIBUTES(C_FILE,"RDT"))
|
||||
$ OBJ_FILE=F$PARSE("",".OBJ",C_FILE,,"SYNTAX_ONLY")
|
||||
$ OBJ_FILE=F$EXTRACT(0,F$LOCATE(";",OBJ_FILE),OBJ_FILE)
|
||||
$ FOUND_OBJ_FILE=F$SEARCH(OBJ_FILE)
|
||||
$ IF FOUND_OBJ_FILE.EQS.""
|
||||
$ THEN
|
||||
$ OBJ_DATE=""
|
||||
$ ELSE
|
||||
$ OBJ_DATE=F$CVTIME(F$FILE_ATTRIBUTES(FOUND_OBJ_FILE,"CDT"))
|
||||
$ ENDIF
|
||||
$ IF OBJ_DATE.LTS.C_DATE
|
||||
$ THEN
|
||||
$ WRITE SYS$OUTPUT "Compiling "+FILE
|
||||
$ ON ERROR THEN CONTINUE
|
||||
$ C_COMPILE/OBJECT='OBJ_FILE' 'C_FILE'
|
||||
$ ON ERROR THEN GOTO EXIT
|
||||
$ LIBRARY 'LIBFILE' 'OBJ_FILE'
|
||||
$
|
||||
$ ENDIF
|
||||
$ NUMBER=NUMBER+1
|
||||
$ GOTO COMPILE_LOOP
|
||||
$END_COMPILE:
|
||||
$ IF ARCH.EQS."ALPHA"
|
||||
$ THEN
|
||||
$ OPT_FILE="TIFFSHRAXP"
|
||||
$ ELSE
|
||||
$ OPT_FILE="TIFFSHRVAX"
|
||||
$ FILE="TIFFVEC"
|
||||
$ MAR_FILE=F$PARSE(FILE,".MAR",,,"SYNTAX_ONLY")
|
||||
$ MAR_FILE=F$SEARCH(MAR_FILE)
|
||||
$ MAR_FILE=F$SEARCH("TIFFVEC.MAR")
|
||||
$ MAR_DATE=F$CVTIME(F$FILE_ATTRIBUTES(MAR_FILE,"RDT"))
|
||||
$ OBJ_FILE=F$PARSE("",".OBJ",MAR_FILE,,"SYNTAX_ONLY")
|
||||
$ OBJ_FILE=F$EXTRACT(0,F$LOCATE(";",OBJ_FILE),OBJ_FILE)
|
||||
$ FOUND_OBJ_FILE=F$SEARCH(OBJ_FILE)
|
||||
$ IF FOUND_OBJ_FILE.EQS.""
|
||||
$ THEN
|
||||
$ OBJ_DATE=""
|
||||
$ ELSE
|
||||
$ OBJ_DATE=F$CVTIME(F$FILE_ATTRIBUTES(FOUND_OBJ_FILE,"CDT"))
|
||||
$ ENDIF
|
||||
$ IF OBJ_DATE.LTS.MAR_DATE
|
||||
$ THEN
|
||||
$ WRITE SYS$OUTPUT "Compiling "+FILE
|
||||
$ MACRO 'MAR_FILE'
|
||||
$ LIBRARY 'LIBFILE' 'OBJ_FILE'
|
||||
$ PURGE 'OBJ_FILE'
|
||||
$ ENDIF
|
||||
$ ENDIF
|
||||
$ WRITE SYS$OUTPUT "Creating shareable library"
|
||||
$ LINK/SHAREABLE='THIS_DIR'TIFFSHR'LINK_OPTIONS' 'OPT_FILE'/OPTIONS
|
||||
$ PURGE/LOG TIFFSHR.EXE
|
||||
$EXIT:
|
||||
$ SET DEFAULT 'CURRENT_DIR'
|
||||
$ EXIT
|
||||
Executable
+131
@@ -0,0 +1,131 @@
|
||||
.TITLE TIFFVEC - Transfer vector for TIFF library
|
||||
.IDENT /LIBTIFF 3.4-002/
|
||||
;
|
||||
.PSECT TIFFVEC,EXE,NOWRT,PIC,SHR,GBL,QUAD
|
||||
;
|
||||
; Macro that defines one entry in the transfer vector
|
||||
;
|
||||
.MACRO VECTOR,NAME
|
||||
.ALIGN QUAD
|
||||
.TRANSFER NAME
|
||||
.MASK NAME
|
||||
JMP L^NAME+2
|
||||
.ENDM
|
||||
;
|
||||
; Here goes the definitions of all public functions in the library, plus
|
||||
; a few extra that are called by the tools.
|
||||
; The sequence MUST NOT be changed, otherwise you will have to relink
|
||||
; all applications. Add new functions at the end.
|
||||
;
|
||||
VECTOR TIFFCheckTile
|
||||
VECTOR TIFFClose
|
||||
VECTOR TIFFComputeStrip
|
||||
VECTOR TIFFComputeTile
|
||||
VECTOR TIFFCurrentDirectory
|
||||
VECTOR TIFFCurrentRow
|
||||
VECTOR TIFFCurrentStrip
|
||||
VECTOR TIFFCurrentTile
|
||||
VECTOR TIFFError
|
||||
VECTOR TIFFFdOpen
|
||||
VECTOR TIFFFileName
|
||||
VECTOR TIFFFileno
|
||||
VECTOR TIFFFlush
|
||||
VECTOR TIFFFlushData
|
||||
VECTOR TIFFGetField
|
||||
VECTOR TIFFGetFieldDefaulted
|
||||
;
|
||||
; TIFFGetFileSize was removed in version 3.2. It has been replaced by a
|
||||
; dummy value that makes the program abort with a privileged instruction
|
||||
; fault, in case an old program calls TIFFGetFileSize.
|
||||
;
|
||||
; VECTOR TIFFGetFileSize
|
||||
.QUAD 0
|
||||
;
|
||||
VECTOR TIFFGetMode
|
||||
VECTOR TIFFIsTiled
|
||||
;
|
||||
; TIFFModeCCITTFax3 gone in 3.3 beta 024
|
||||
; VECTOR TIFFModeCCITTFax3
|
||||
.QUAD 0
|
||||
VECTOR TIFFNumberOfStrips
|
||||
VECTOR TIFFNumberOfTiles
|
||||
VECTOR TIFFOpen
|
||||
VECTOR TIFFPrintDirectory
|
||||
VECTOR TIFFReadBufferSetup
|
||||
VECTOR TIFFReadDirectory
|
||||
VECTOR TIFFReadEncodedStrip
|
||||
VECTOR TIFFReadEncodedTile
|
||||
VECTOR TIFFReadRawStrip
|
||||
VECTOR TIFFReadRawTile
|
||||
VECTOR TIFFReadRGBAImage
|
||||
VECTOR TIFFReadScanline
|
||||
VECTOR TIFFReadTile
|
||||
VECTOR TIFFReverseBits
|
||||
VECTOR TIFFScanlineSize
|
||||
VECTOR TIFFSetDirectory
|
||||
VECTOR TIFFSetErrorHandler
|
||||
VECTOR TIFFSetField
|
||||
VECTOR TIFFSetWarningHandler
|
||||
VECTOR TIFFStripSize
|
||||
VECTOR TIFFSwabShort
|
||||
VECTOR TIFFSwabLong
|
||||
VECTOR TIFFSwabArrayOfShort
|
||||
VECTOR TIFFSwabArrayOfLong
|
||||
VECTOR TIFFTileRowSize
|
||||
VECTOR TIFFTileSize
|
||||
VECTOR TIFFVGetField
|
||||
VECTOR TIFFVGetFieldDefaulted
|
||||
VECTOR TIFFVSetField
|
||||
VECTOR TIFFWarning
|
||||
VECTOR TIFFWriteDirectory
|
||||
VECTOR TIFFWriteEncodedStrip
|
||||
VECTOR TIFFWriteEncodedTile
|
||||
VECTOR TIFFWriteRawStrip
|
||||
VECTOR TIFFWriteRawTile
|
||||
VECTOR TIFFWriteScanline
|
||||
VECTOR TIFFWriteTile
|
||||
;
|
||||
; New entries in version 3.1
|
||||
;
|
||||
VECTOR TIFFClientOpen
|
||||
VECTOR TIFFVStripSize ; For tiffcp
|
||||
;
|
||||
; New entries in version 3.2
|
||||
;
|
||||
VECTOR TIFFGetVersion
|
||||
VECTOR TIFFGetBitRevTable
|
||||
VECTOR _TIFFmalloc ; For fax2tiff
|
||||
;
|
||||
; New entries in version 3.3
|
||||
;
|
||||
VECTOR TIFFIsByteSwapped
|
||||
VECTOR TIFFSetWriteOffset
|
||||
;
|
||||
; New entries in version 3.3 beta 020
|
||||
;
|
||||
VECTOR TIFFSetSubDirectory
|
||||
VECTOR TIFFUnlinkDirectory
|
||||
;
|
||||
; New entries in version 3.3 beta 026 (for the tools)
|
||||
;
|
||||
VECTOR _TIFFfree
|
||||
VECTOR _TIFFrealloc
|
||||
VECTOR _TIFFmemset
|
||||
VECTOR _TIFFmemcpy
|
||||
VECTOR _TIFFmemcmp
|
||||
;
|
||||
; New entries in version 3.4 beta 002
|
||||
;
|
||||
VECTOR TIFFRasterScanlineSize
|
||||
VECTOR TIFFDefaultStripSize
|
||||
VECTOR TIFFDefaultTileSize
|
||||
VECTOR TIFFVTileSize ; not new, but omitted previously
|
||||
VECTOR TIFFSwabDouble
|
||||
VECTOR TIFFSwabArrayOfDouble
|
||||
VECTOR TIFFLastDirectory ; not new either
|
||||
;
|
||||
; New entries in version 3.4 beta 007 through 032
|
||||
;
|
||||
VECTOR TIFFCurrentDirOffset
|
||||
VECTOR TIFFWriteBufferSetup
|
||||
.END
|
||||
Executable
+113
@@ -0,0 +1,113 @@
|
||||
$!========================================================================
|
||||
$!
|
||||
$! Name : MAKEVMS
|
||||
$!
|
||||
$! Purpose : Compile TIFF tools
|
||||
$!
|
||||
$! Arguments :
|
||||
$!
|
||||
$! Created 6-DEC-1991 Karsten Spang
|
||||
$!
|
||||
$!========================================================================
|
||||
$ CURRENT_DIR=F$ENVIRONMENT("DEFAULT")
|
||||
$ ON CONTROL_Y THEN GOTO EXIT
|
||||
$ ON ERROR THEN GOTO EXIT
|
||||
$!
|
||||
$! Get hold on definitions
|
||||
$!
|
||||
$! Older versions of VMS may not recoqnize the "ARCH_NAME" keyword
|
||||
$! This happens only on VAX
|
||||
$!
|
||||
$ SAVE_MESS=F$ENVIRONMENT("MESSAGE")
|
||||
$ SET MESSAGE/NOID/NOFAC/NOSEV/NOTEXT
|
||||
$ ARCH=F$GETSYI("ARCH_NAME")
|
||||
$ SET MESSAGE 'SAVE_MESS'
|
||||
$ IF F$TYPE(ARCH).EQS."" THEN ARCH="VAX"
|
||||
$ ARCH=F$EDIT(ARCH,"UPCASE")
|
||||
$!
|
||||
$ DEFINE SYS SYS$LIBRARY
|
||||
$ THIS_FILE=F$ENVIRONMENT("PROCEDURE")
|
||||
$ PROC_NAME=F$PARSE(THIS_FILE,,,"NAME","SYNTAX_ONLY")
|
||||
$ THIS_DIR=F$PARSE(THIS_FILE,,,"DEVICE","SYNTAX_ONLY")+ -
|
||||
F$PARSE(THIS_FILE,,,"DIRECTORY","SYNTAX_ONLY")
|
||||
$ SET DEFAULT 'THIS_DIR'
|
||||
$ LIB_DIR=F$PARSE("[-.LIBTIFF]")
|
||||
$ LIB_DIR=F$PARSE(LIB_DIR,,,"DEVICE","SYNTAX_ONLY")+ -
|
||||
F$PARSE(LIB_DIR,,,"DIRECTORY","SYNTAX_ONLY")
|
||||
$ DEFINE TIFFSHR 'LIB_DIR'TIFFSHR
|
||||
$ CONF_LIBRARY="USE_VARARGS=0,USE_PROTOTYPES=1,USE_CONST=1,"+ -
|
||||
"BSDTYPES,MMAP_SUPPORT"
|
||||
$ IF ARCH.EQS."ALPHA"
|
||||
$ THEN
|
||||
$!
|
||||
$! You may want a different floating point option
|
||||
$!
|
||||
$ CONF_FP="HAVE_IEEEFP=1"
|
||||
$ ALPHA_OPT="/PREFIX_LIBRARY_ENTRIES=ALL_ENTRIES/FLOAT=IEEE_FLOAT"
|
||||
$ ELSE
|
||||
$ CONF_FP="HAVE_IEEEFP=0"
|
||||
$ ALPHA_OPT=""
|
||||
$ ENDIF
|
||||
$ DEFINES="/DEFINE=("+CONF_LIBRARY+","+CONF_FP+")"
|
||||
$ INCLUDES="/INCLUDE="+LIB_DIR
|
||||
$ IF P1.EQS."DEBUG"
|
||||
$ THEN
|
||||
$ DEBUG_OPTIONS="/DEBUG/NOOPTIMIZE"
|
||||
$ LINK_OPTIONS="/DEBUG"
|
||||
$ ELSE
|
||||
$ DEBUG_OPTIONS=""
|
||||
$ LINK_OPTIONS=""
|
||||
$ ENDIF
|
||||
$ C_COMPILE="CC"+DEBUG_OPTIONS+DEFINES+INCLUDES+ALPHA_OPT
|
||||
$ LIBPORT="[-.PORT]PORT"
|
||||
$!
|
||||
$ SOURCES="FAX2PS,FAX2TIFF,GIF2TIFF,PAL2RGB," + -
|
||||
"PPM2TIFF,RAS2TIFF,RGB2YCBCR," + -
|
||||
"THUMBNAIL,TIFF2BW," + -
|
||||
"TIFF2PS,TIFFCMP,TIFFCP,TIFFDITHER," + -
|
||||
"TIFFDUMP,TIFFINFO,TIFFMEDIAN,TIFFSPLIT,YCBCR"
|
||||
$!
|
||||
$! Loop over programs
|
||||
$!
|
||||
$ NUMBER=0
|
||||
$COMPILE_LOOP:
|
||||
$ FILE=F$ELEMENT(NUMBER,",",SOURCES)
|
||||
$ IF FILE.EQS."," THEN GOTO END_COMPILE
|
||||
$ C_FILE=F$PARSE(FILE,".C",,,"SYNTAX_ONLY")
|
||||
$ C_FILE=F$SEARCH(C_FILE)
|
||||
$ IF C_FILE.EQS.""
|
||||
$ THEN
|
||||
$ WRITE SYS$OUTPUT "Source file "+FILE+" not found"
|
||||
$ GOTO EXIT
|
||||
$ ENDIF
|
||||
$ C_DATE=F$CVTIME(F$FILE_ATTRIBUTES(C_FILE,"RDT"))
|
||||
$ EXE_FILE=F$PARSE("",".EXE",C_FILE,,"SYNTAX_ONLY")
|
||||
$ EXE_FILE=F$EXTRACT(0,F$LOCATE(";",EXE_FILE),EXE_FILE)
|
||||
$ FOUND_EXE_FILE=F$SEARCH(EXE_FILE)
|
||||
$ IF FOUND_EXE_FILE.EQS.""
|
||||
$ THEN
|
||||
$ EXE_DATE=""
|
||||
$ ELSE
|
||||
$ EXE_DATE=F$CVTIME(F$FILE_ATTRIBUTES(FOUND_EXE_FILE,"CDT"))
|
||||
$ ENDIF
|
||||
$ IF EXE_DATE.LTS.C_DATE
|
||||
$ THEN
|
||||
$ WRITE SYS$OUTPUT "Compiling "+FILE
|
||||
$ C_COMPILE 'FILE'
|
||||
$ IF ARCH.EQS."ALPHA"
|
||||
$ THEN
|
||||
$ LINK'LINK_OPTIONS' 'FILE','LIBPORT'/LIB,'LIB_DIR'TIFF/OPTIONS
|
||||
$ ELSE
|
||||
$ LINK'LINK_OPTIONS' 'FILE','LIBPORT'/LIB, -
|
||||
'LIB_DIR'TIFF/OPTIONS,SYS$INPUT:/OPTIONS
|
||||
SYS$SHARE:VAXCRTL/SHAREABLE
|
||||
$ ENDIF
|
||||
$ DELETE 'FILE'.OBJ;*
|
||||
$ PURGE 'EXE_FILE'
|
||||
$ ENDIF
|
||||
$ NUMBER=NUMBER+1
|
||||
$ GOTO COMPILE_LOOP
|
||||
$END_COMPILE:
|
||||
$EXIT:
|
||||
$ SET DEFAULT 'CURRENT_DIR'
|
||||
$ EXIT
|
||||
Reference in New Issue
Block a user