Counter Strike : Global Offensive Source Code
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

132 lines
3.5 KiB

  1. $!------------------------------------------------------------------------------
  2. $! make "PNG: The Definitive Guide" demo programs (for X) under OpenVMS
  3. $!
  4. $! Script created by Martin Zinser for libpng; modified by Greg Roelofs
  5. $! for standalone pngbook source distribution.
  6. $!
  7. $!
  8. $! Set locations where zlib and libpng sources live.
  9. $!
  10. $ zpath = ""
  11. $ pngpath = ""
  12. $!
  13. $ if f$search("[---.zlib]zlib.h").nes."" then zpath = "[---.zlib]"
  14. $ if f$search("[--]png.h").nes."" then pngpath = "[--]"
  15. $!
  16. $ if f$search("[-.zlib]zlib.h").nes."" then zpath = "[-.zlib]"
  17. $ if f$search("[-.libpng]png.h").nes."" then pngpath = "[-.libpng]"
  18. $!
  19. $ if zpath .eqs. ""
  20. $ then
  21. $ write sys$output "zlib include not found. Exiting..."
  22. $ exit 2
  23. $ endif
  24. $!
  25. $ if pngpath .eqs. ""
  26. $ then
  27. $ write sys$output "libpng include not found. Exiting..."
  28. $ exit 2
  29. $ endif
  30. $!
  31. $! Look for the compiler used.
  32. $!
  33. $ ccopt="/include=(''zpath',''pngpath')"
  34. $ if f$getsyi("HW_MODEL").ge.1024
  35. $ then
  36. $ ccopt = "/prefix=all"+ccopt
  37. $ comp = "__decc__=1"
  38. $ if f$trnlnm("SYS").eqs."" then define sys sys$library:
  39. $ else
  40. $ if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs.""
  41. $ then
  42. $ if f$trnlnm("SYS").eqs."" then define sys sys$library:
  43. $ if f$search("SYS$SYSTEM:VAXC.EXE").eqs.""
  44. $ then
  45. $ comp = "__gcc__=1"
  46. $ CC :== GCC
  47. $ else
  48. $ comp = "__vaxc__=1"
  49. $ endif
  50. $ else
  51. $ if f$trnlnm("SYS").eqs."" then define sys decc$library_include:
  52. $ ccopt = "/decc/prefix=all"+ccopt
  53. $ comp = "__decc__=1"
  54. $ endif
  55. $ endif
  56. $ open/write lopt lib.opt
  57. $ write lopt "''pngpath'libpng.olb/lib"
  58. $ write lopt "''zpath'libz.olb/lib"
  59. $ close lopt
  60. $ open/write xopt x11.opt
  61. $ write xopt "sys$library:decw$xlibshr.exe/share"
  62. $ close xopt
  63. $!
  64. $! Build 'em.
  65. $!
  66. $ write sys$output "Compiling PNG book programs ..."
  67. $ CALL MAKE readpng.OBJ "cc ''CCOPT' readpng" -
  68. readpng.c readpng.h
  69. $ CALL MAKE readpng2.OBJ "cc ''CCOPT' readpng2" -
  70. readpng2.c readpng2.h
  71. $ CALL MAKE writepng.OBJ "cc ''CCOPT' writepng" -
  72. writepng.c writepng.h
  73. $ write sys$output "Building rpng-x..."
  74. $ CALL MAKE rpng-x.OBJ "cc ''CCOPT' rpng-x" -
  75. rpng-x.c readpng.h
  76. $ call make rpng-x.exe -
  77. "LINK rpng-x,readpng,lib.opt/opt,x11.opt/opt" -
  78. rpng-x.obj readpng.obj
  79. $ write sys$output "Building rpng2-x..."
  80. $ CALL MAKE rpng2-x.OBJ "cc ''CCOPT' rpng2-x" -
  81. rpng2-x.c readpng2.h
  82. $ call make rpng2-x.exe -
  83. "LINK rpng2-x,readpng2,lib.opt/opt,x11.opt/opt" -
  84. rpng2-x.obj readpng2.obj
  85. $ write sys$output "Building wpng..."
  86. $ CALL MAKE wpng.OBJ "cc ''CCOPT' wpng" -
  87. wpng.c writepng.h
  88. $ call make wpng.exe -
  89. "LINK wpng,writepng,lib.opt/opt" -
  90. wpng.obj writepng.obj
  91. $ exit
  92. $!
  93. $!
  94. $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
  95. $ V = 'F$Verify(0)
  96. $! P1 = What we are trying to make
  97. $! P2 = Command to make it
  98. $! P3 - P8 What it depends on
  99. $
  100. $ If F$Search(P1) .Eqs. "" Then Goto Makeit
  101. $ Time = F$CvTime(F$File(P1,"RDT"))
  102. $arg=3
  103. $Loop:
  104. $ Argument = P'arg
  105. $ If Argument .Eqs. "" Then Goto Exit
  106. $ El=0
  107. $Loop2:
  108. $ File = F$Element(El," ",Argument)
  109. $ If File .Eqs. " " Then Goto Endl
  110. $ AFile = ""
  111. $Loop3:
  112. $ OFile = AFile
  113. $ AFile = F$Search(File)
  114. $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
  115. $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
  116. $ Goto Loop3
  117. $NextEL:
  118. $ El = El + 1
  119. $ Goto Loop2
  120. $EndL:
  121. $ arg=arg+1
  122. $ If arg .Le. 8 Then Goto Loop
  123. $ Goto Exit
  124. $
  125. $Makeit:
  126. $ VV=F$VERIFY(0)
  127. $ write sys$output P2
  128. $ 'P2
  129. $ VV='F$Verify(VV)
  130. $Exit:
  131. $ If V Then Set Verify
  132. $ENDSUBROUTINE