home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / c / xv221src / unsupt / vms / make_jpe.com < prev    next >
Encoding:
Text File  |  1992-04-26  |  1.2 KB  |  33 lines

  1. $!
  2. $! build library for JPEG compression.  Default directory must be the same
  3. $! directory that contains the JPEG source files.
  4. $!
  5. $ cc = "cc/define=__STDC__"
  6. $ sources = "jbsmooth,jcarith,jccolor,jcdeflts,jcexpand,jchuff," + -
  7.         "jcmaster,jcmcu,jcpipe,jcsample,jdarith,jdcolor,"+ -
  8.         "jddeflts,jdhuff,jdmaster,jdmcu,jdpipe,jdsample," + -
  9.         "jerror,jquant1,jquant2,jfwddct,jrevdct,jutils,jvirtmem,jrdjfif,"+ -
  10.     "jrdgif,jrdppm,jrdrle,jrdtarga,jwrjfif,jwrgif,jwrppm,jwrrle,jwrtarga"
  11. $
  12. $ INCLUDES= "jinclude.h,jconfig.h,jpegdata.h,jversion.h,egetopt.c"
  13. $!
  14. $ sndx = 0
  15. $ new_objects = ""
  16. $ next_source:
  17. $    sfile = f$element(sndx,",",sources)
  18. $    sndx = sndx + 1
  19. $    if sfile .eqs. "," then goto sources_done
  20. $    ofile = f$parse(".OBJ",sfile)
  21. $    if f$search(ofile) .nes. "" then goto next_source
  22. $    write sys$Output "Compiling ", sfile, ".c ..."
  23. $    cc 'sfile'.c
  24. $    if f$search(ofile) .nes. "" then new_objects = new_objects + sfile + ","
  25. $    goto next_source
  26. $!
  27. $ sources_done:
  28. $ if new_objects .eqs. "" then exit
  29. $ new_objects = f$extract(0,f$length(new_objects)-1,new_objects)
  30. $ if f$search("jpeglib.olb") .eqs. "" then library/create jpeglib.olb
  31. $ library/replace jpeglib 'new_objects'
  32. $ exit
  33.