/tags/rel-1-3-26/SWIG/vms/scripts/compil_cparse.com

# · Unknown · 98 lines · 98 code · 0 blank · 0 comment · 0 complexity · 94197173ee50cdd35fef76e97fd3e3d9 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.CPARSE]
  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]cscanner.obj -
  19. "cc ''cflags'" cscanner.c
  20. $ call make swig_root:[vms.o_alpha]parser.obj -
  21. "cc ''cflags'" parser.c
  22. $ call make swig_root:[vms.o_alpha]templ.obj -
  23. "cc ''cflags'" templ.c
  24. $ call make swig_root:[vms.o_alpha]util.obj -
  25. "cc ''cflags'" util.c
  26. $ exit
  27. $!
  28. $!
  29. $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
  30. $ V = 'F$Verify(0)
  31. $! P1 = What we are trying to make
  32. $! P2 = Command to make it
  33. $! P3 = Source file
  34. $! P4 - P8 What it depends on
  35. $
  36. $ modname = f$parse(p3,,,"name")
  37. $ set noon
  38. $ set message/nofacility/noident/noseverity/notext
  39. $ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
  40. $ set message/facility/ident/severity/text
  41. $ on error then exit
  42. $ open/read swigtmp swig_root:[vms]swiglib.tmp
  43. $! skip header
  44. $ read swigtmp r
  45. $ read swigtmp r
  46. $ read swigtmp r
  47. $ read swigtmp r
  48. $ read swigtmp r
  49. $ read swigtmp r
  50. $ read swigtmp r
  51. $ read swigtmp r
  52. $ read swigtmp r
  53. $!
  54. $
  55. $ read/end=module_not_found swigtmp r
  56. $ modfound = 1
  57. $ Time = f$cvtime(f$extract(49, 20, r))
  58. $ goto end_search_module
  59. $ module_not_found:
  60. $ modfound = 0
  61. $
  62. $ end_search_module:
  63. $ close swigtmp
  64. $ delete swig_root:[vms]swiglib.tmp;*
  65. $
  66. $ if modfound .eq. 0 then $ goto Makeit
  67. $
  68. $! Time = F$CvTime(F$File(P1,"RDT"))
  69. $arg=3
  70. $Loop:
  71. $ Argument = P'arg
  72. $ If Argument .Eqs. "" Then Goto Exit
  73. $ El=0
  74. $Loop2:
  75. $ File = F$Element(El," ",Argument)
  76. $ If File .Eqs. " " Then Goto Endl
  77. $ AFile = ""
  78. $Loop3:
  79. $ OFile = AFile
  80. $ AFile = F$Search(File)
  81. $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
  82. $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
  83. $ Goto Loop3
  84. $NextEL:
  85. $ El = El + 1
  86. $ Goto Loop2
  87. $EndL:
  88. $ arg=arg+1
  89. $ If arg .Le. 8 Then Goto Loop
  90. $ Goto Exit
  91. $
  92. $Makeit:
  93. $ VV=F$VERIFY(1)
  94. $ 'P2' 'P3'
  95. $ VV='F$Verify(VV)
  96. $Exit:
  97. $ If V Then Set Verify
  98. $ENDSUBROUTINE