home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / perl / 5871 < prev    next >
Encoding:
Text File  |  1992-09-11  |  1.5 KB  |  52 lines
  1. Path: sparky!uunet!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: inctree, p. 274 in Programming Perl
  5. Keywords: inctree #include tree
  6. Message-ID: <1992Sep11.174538.22982@netlabs.com>
  7. Date: 11 Sep 92 17:45:38 GMT
  8. References: <BuDq2p.GM9@unx.sas.com>
  9. Organization: NetLabs, Inc.
  10. Lines: 40
  11.  
  12. In article <BuDq2p.GM9@unx.sas.com> bultman@sonny.unx.sas.com (David Bultman) writes:
  13. : 
  14. : I typed in the inctree program in Programming Perl and something is awry.
  15. : (p. 274 in the First edition, I checked the latest edition and the program
  16. :  is identical)
  17. : 
  18. : If anyone has any ideas or previous experience with this, your feedback 
  19. : would be greatly appreciated.
  20. : 
  21. : When I try inctree main.c and main.c looks like,
  22. : -- here --
  23. : #include <stdio.h>
  24. : main()
  25. : {
  26. : }
  27. : -- to here --
  28. : 
  29. : the output is,
  30. : 
  31. : Start program
  32. : main.c
  33. :     /usr/include/stdio.h
  34. :     /usr/include/sys/stdsyms.h
  35. :         
  36. :         /usr/include/stdio.h  DUPLICATE
  37. :         main.c  DUPLICATE
  38.  
  39. This line must be failing somehow:
  40.  
  41. :         if ($stack[$#stack-1] eq $filename) {  # Leaving file.
  42.  
  43. The clue is the blank line, and the double indentation to the line after.
  44. The inctree script is looking for lines that match /^# \d/.  It
  45. would appear that something in the cpp output is spoofing it into
  46. thinking it has a valid line directive when it doesn't.  Since the
  47. invalid line directive is processed as a "push", and there's no
  48. corresponding "pop", inctree doesn't return to stdio.h when it should
  49. because stdio.h is buried down at $#stack - 2.
  50.  
  51. Larry
  52.