home *** CD-ROM | disk | FTP | other *** search
- $!
- $! build library for JPEG compression. Default directory must be the same
- $! directory that contains the JPEG source files.
- $!
- $ cc = "cc/define=__STDC__"
- $ sources = "jbsmooth,jcarith,jccolor,jcdeflts,jcexpand,jchuff," + -
- "jcmaster,jcmcu,jcpipe,jcsample,jdarith,jdcolor,"+ -
- "jddeflts,jdhuff,jdmaster,jdmcu,jdpipe,jdsample," + -
- "jerror,jquant1,jquant2,jfwddct,jrevdct,jutils,jvirtmem,jrdjfif,"+ -
- "jrdgif,jrdppm,jrdrle,jrdtarga,jwrjfif,jwrgif,jwrppm,jwrrle,jwrtarga"
- $
- $ INCLUDES= "jinclude.h,jconfig.h,jpegdata.h,jversion.h,egetopt.c"
- $!
- $ sndx = 0
- $ new_objects = ""
- $ next_source:
- $ sfile = f$element(sndx,",",sources)
- $ sndx = sndx + 1
- $ if sfile .eqs. "," then goto sources_done
- $ ofile = f$parse(".OBJ",sfile)
- $ if f$search(ofile) .nes. "" then goto next_source
- $ write sys$Output "Compiling ", sfile, ".c ..."
- $ cc 'sfile'.c
- $ if f$search(ofile) .nes. "" then new_objects = new_objects + sfile + ","
- $ goto next_source
- $!
- $ sources_done:
- $ if new_objects .eqs. "" then exit
- $ new_objects = f$extract(0,f$length(new_objects)-1,new_objects)
- $ if f$search("jpeglib.olb") .eqs. "" then library/create jpeglib.olb
- $ library/replace jpeglib 'new_objects'
- $ exit
-