home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21fb.zip / octave / PATOS2.ZIP / find-defines.cmd < prev    next >
OS/2 REXX Batch file  |  1998-01-03  |  2KB  |  111 lines
  1. /* Searches for all Makros */
  2. /* (c) K. Gebhardt, 1998 */
  3.  
  4. '@echo off'
  5.  
  6. 'setlocal'
  7. 'set deldir='
  8.  
  9.  
  10.  
  11. 'rm -f grep.res grep.res~'
  12.  
  13.  
  14.  
  15. 'cd liboctave'
  16. 'grep -e "#if" *.h >> ../grep.res'
  17. 'grep -e "#if" *.c* >> ../grep.res'
  18. 'grep -e "HAVE_" *.h >> ../grep.res'
  19. 'grep -e "HAVE_" *.c* >> ../grep.res'
  20. 'cd ..'
  21.  
  22. 'cd src'
  23. 'grep -e "#if" *.h >> ../grep.res'
  24. 'grep -e "#if" *.c* >> ../grep.res'
  25. 'grep -e "HAVE_" *.h >> ../grep.res'
  26. 'grep -e "HAVE_" *.c* >> ../grep.res'
  27. 'cd ..'
  28.  
  29.  
  30.  
  31. 'cut -d: -f2 grep.res >grep.res~'
  32. 'h:\bin\sort grep.res~ | uniq >grep.res'
  33.  
  34. 'sed -e "s/#[ ]*ifndef//g" grep.res >grep.res~'
  35. 'mv grep.res~ grep.res'
  36.  
  37. 'sed -e "s/#[ ]*ifdef//g" grep.res >grep.res~'
  38. 'mv grep.res~ grep.res'
  39.  
  40. 'sed -e "s/#[ ]*if//g" grep.res >grep.res~'
  41. 'mv grep.res~ grep.res'
  42.  
  43. 'sed -e "s/#[ ]*elif//g" grep.res >grep.res~'
  44. 'mv grep.res~ grep.res'
  45.  
  46. 'sed -e "s/#[ ]*else//g" grep.res >grep.res~'
  47. 'mv grep.res~ grep.res'
  48.  
  49. 'sed -e "s/#[ ]*endif//g" grep.res >grep.res~'
  50. 'mv grep.res~ grep.res'
  51.  
  52. 'sed -e "s/#[ ]*define//g" grep.res >grep.res~'
  53. 'mv grep.res~ grep.res'
  54.  
  55. 'sed -e "s/\/\*.*\*\///g" grep.res >grep.res~'
  56. 'mv grep.res~ grep.res'
  57.  
  58. 'sed -e "s/[()!&|\\=<>]*//g" grep.res >grep.res~'
  59. 'mv grep.res~ grep.res'
  60.  
  61. 'sed -e "s/defined//g" grep.res >grep.res~'
  62. 'mv grep.res~ grep.res'
  63.  
  64. 'sed -e "/octave_.*_h/d" grep.res >grep.res~'
  65. 'mv grep.res~ grep.res'
  66.  
  67. rc = stream('grep.res','c','open read');
  68. rc = stream('grep.res~','c','open write');
  69.  
  70. do while(chars('grep.res')>0)
  71.   c = charin('grep.res');
  72.   if (c < ' ') then rc = charout('grep.res~',x2c('0A'));
  73.   else              rc = charout('grep.res~',c);
  74. end
  75.  
  76. rc = stream('grep.res','c','close');
  77. rc = stream('grep.res~','c','close');
  78. 'mv grep.res~ grep.res'
  79.  
  80. 'sed -e "s/ //g" grep.res >grep.res~'
  81. 'mv grep.res~ grep.res'
  82.  
  83. 'sed -e "/^$/d" grep.res >grep.res~'
  84. 'mv grep.res~ grep.res'
  85.  
  86. 'sed -e "/^[_01248]/d" grep.res >grep.res~'
  87. 'mv grep.res~ grep.res'
  88.  
  89. 'sed -e "/^yy/d" grep.res >grep.res~'
  90. 'mv grep.res~ grep.res'
  91.  
  92. 'sed -e "/^SIG/d" grep.res >grep.res~'
  93. 'mv grep.res~ grep.res'
  94.  
  95. 'sed -e "/^F2C/d" grep.res >grep.res~'
  96. 'mv grep.res~ grep.res'
  97.  
  98. 'sed -e "/^F77/d" grep.res >grep.res~'
  99. 'mv grep.res~ grep.res'
  100.  
  101. 'sed -e "/^CC/d" grep.res >grep.res~'
  102. 'mv grep.res~ grep.res'
  103.  
  104. 'sed -e "/^YY/d" grep.res >grep.res~'
  105. 'h:\bin\sort grep.res~ | uniq >grep.res'
  106. 'rm -f grep.res~'
  107.  
  108. 'endlocal'
  109.  
  110. exit
  111.