home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / threads / src / gmalloc_patch.awk < prev    next >
Text File  |  1996-09-28  |  2KB  |  47 lines
  1. #  Copyright (C) 1992, the Florida State University
  2. #  Distributed by the Florida State University under the terms of the
  3. #  GNU Library General Public License.
  4. #
  5. #This file is part of Pthreads.
  6. #
  7. #Pthreads is free software; you can redistribute it and/or
  8. #modify it under the terms of the GNU Library General Public
  9. #License as published by the Free Software Foundation (version 2).
  10. #
  11. #Pthreads is distributed "AS IS" in the hope that it will be
  12. #useful, but WITHOUT ANY WARRANTY; without even the implied
  13. #warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14. #See the GNU Library General Public License for more details.
  15. #
  16. #You should have received a copy of the GNU Library General Public
  17. #License along with Pthreads; see the file COPYING.  If not, write
  18. #to the Free Software Foundation, 675 Mass Ave, Cambridge,
  19. #MA 02139, USA.
  20. #
  21. #Report problems and direct all questions to:
  22. #
  23. #  pthreads-bugs@ada.cs.fsu.edu
  24. #
  25. #   @(#)gmalloc_patch.awk    2.5 4/12/95
  26. #
  27.  
  28. #Replace string PATTERN with pthread_PATTERN if
  29. #it is followed by an open parathesis (for C file)
  30. #or by __P (for header files).
  31.  
  32. {
  33.   FOUND = 0
  34.   for (i = 1; i <= NF; i++)
  35.     if ($i == PATTERN && \
  36.         (substr($(i+1), 1, 1) == "(" || substr($(i+1), 1, 3) == "__P")) {
  37.       for (k = 1; k <= length($0) - length(PATTERN) + 1; k++)
  38.         if (substr($0, k, length(PATTERN)) == PATTERN)
  39.           break;
  40.       print substr($0, 1, k - 1) "pthread_" substr($0, k, length($0) - k + 1)
  41.       FOUND = 1
  42.     }
  43.  
  44.   if (FOUND == 0)
  45.     print $0
  46. }
  47.