/branches/joelandersson-matlab/vms/scripts/compil_modules1_1.com

# · Unknown · 132 lines · 132 code · 0 blank · 0 comment · 0 complexity · fbe81883819d4d691152b47b93135694 MD5 · raw file

  1. $!
  2. $! Generated by genbuild.py
  3. $!
  4. $ libname = "swig_root:[vms.o_alpha]swig.olb"
  5. $
  6. $ set default SWIG_ROOT:[SOURCE.MODULES1_1]
  7. $
  8. $ idir := swig_root:[source.swig]
  9. $ idir = idir + ",swig_root:[source.doh.include]"
  10. $ idir = idir + ",swig_root:[source.include]"
  11. $ idir = idir + ",swig_root:[source.preprocessor]"
  12. $
  13. $ iflags = "/include=(''idir', sys$disk:[])"
  14. $ oflags = "/object=swig_root:[vms.o_alpha]
  15. $ cflags = "''oflags'''iflags'''dflags'"
  16. $ cxxflags = "''oflags'''iflags'''dflags'"
  17. $
  18. $ call make swig_root:[vms.o_alpha]allocate.obj -
  19. "cxx ''cxxflags'" allocate.cxx
  20. $ call make swig_root:[vms.o_alpha]browser.obj -
  21. "cxx ''cxxflags'" browser.cxx
  22. $ call make swig_root:[vms.o_alpha]contract.obj -
  23. "cxx ''cxxflags'" contract.cxx
  24. $ call make swig_root:[vms.o_alpha]emit.obj -
  25. "cxx ''cxxflags'" emit.cxx
  26. $ call make swig_root:[vms.o_alpha]guile.obj -
  27. "cxx ''cxxflags'" guile.cxx
  28. $ call make swig_root:[vms.o_alpha]java.obj -
  29. "cxx ''cxxflags'" java.cxx
  30. $ call make swig_root:[vms.o_alpha]lang.obj -
  31. "cxx ''cxxflags'" lang.cxx
  32. $ call make swig_root:[vms.o_alpha]main.obj -
  33. "cxx ''cxxflags'" main.cxx
  34. $ call make swig_root:[vms.o_alpha]module.obj -
  35. "cxx ''cxxflags'" module.cxx
  36. $ call make swig_root:[vms.o_alpha]mzscheme.obj -
  37. "cxx ''cxxflags'" mzscheme.cxx
  38. $ call make swig_root:[vms.o_alpha]ocaml.obj -
  39. "cxx ''cxxflags'" ocaml.cxx
  40. $ call make swig_root:[vms.o_alpha]overload.obj -
  41. "cxx ''cxxflags'" overload.cxx
  42. $ call make swig_root:[vms.o_alpha]perl5.obj -
  43. "cxx ''cxxflags'" perl5.cxx
  44. $ call make swig_root:[vms.o_alpha]php4.obj -
  45. "cxx ''cxxflags'" php4.cxx
  46. $ call make swig_root:[vms.o_alpha]pike.obj -
  47. "cxx ''cxxflags'" pike.cxx
  48. $ call make swig_root:[vms.o_alpha]python.obj -
  49. "cxx ''cxxflags'" python.cxx
  50. $ call make swig_root:[vms.o_alpha]ruby.obj -
  51. "cxx ''cxxflags'" ruby.cxx
  52. $ call make swig_root:[vms.o_alpha]swigmain.obj -
  53. "cxx ''cxxflags'" swigmain.cxx
  54. $ call make swig_root:[vms.o_alpha]tcl8.obj -
  55. "cxx ''cxxflags'" tcl8.cxx
  56. $ call make swig_root:[vms.o_alpha]typepass.obj -
  57. "cxx ''cxxflags'" typepass.cxx
  58. $ call make swig_root:[vms.o_alpha]xml.obj -
  59. "cxx ''cxxflags'" xml.cxx
  60. $ exit
  61. $!
  62. $!
  63. $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
  64. $ V = 'F$Verify(0)
  65. $! P1 = What we are trying to make
  66. $! P2 = Command to make it
  67. $! P3 = Source file
  68. $! P4 - P8 What it depends on
  69. $
  70. $ modname = f$parse(p3,,,"name")
  71. $ set noon
  72. $ set message/nofacility/noident/noseverity/notext
  73. $ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
  74. $ set message/facility/ident/severity/text
  75. $ on error then exit
  76. $ open/read swigtmp swig_root:[vms]swiglib.tmp
  77. $! skip header
  78. $ read swigtmp r
  79. $ read swigtmp r
  80. $ read swigtmp r
  81. $ read swigtmp r
  82. $ read swigtmp r
  83. $ read swigtmp r
  84. $ read swigtmp r
  85. $ read swigtmp r
  86. $ read swigtmp r
  87. $!
  88. $
  89. $ read/end=module_not_found swigtmp r
  90. $ modfound = 1
  91. $ Time = f$cvtime(f$extract(49, 20, r))
  92. $ goto end_search_module
  93. $ module_not_found:
  94. $ modfound = 0
  95. $
  96. $ end_search_module:
  97. $ close swigtmp
  98. $ delete swig_root:[vms]swiglib.tmp;*
  99. $
  100. $ if modfound .eq. 0 then $ goto Makeit
  101. $
  102. $! Time = F$CvTime(F$File(P1,"RDT"))
  103. $arg=3
  104. $Loop:
  105. $ Argument = P'arg
  106. $ If Argument .Eqs. "" Then Goto Exit
  107. $ El=0
  108. $Loop2:
  109. $ File = F$Element(El," ",Argument)
  110. $ If File .Eqs. " " Then Goto Endl
  111. $ AFile = ""
  112. $Loop3:
  113. $ OFile = AFile
  114. $ AFile = F$Search(File)
  115. $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
  116. $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
  117. $ Goto Loop3
  118. $NextEL:
  119. $ El = El + 1
  120. $ Goto Loop2
  121. $EndL:
  122. $ arg=arg+1
  123. $ If arg .Le. 8 Then Goto Loop
  124. $ Goto Exit
  125. $
  126. $Makeit:
  127. $ VV=F$VERIFY(1)
  128. $ 'P2' 'P3'
  129. $ VV='F$Verify(VV)
  130. $Exit:
  131. $ If V Then Set Verify
  132. $ENDSUBROUTINE