list.c 2.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134
  1. /* $Header$ */
  2. #include <stdio.h>
  3. #include <alloc.h>
  4. #include "position.h"
  5. #include "idf.h"
  6. #include "file.h"
  7. #include "symbol.h"
  8. static line_positions();
  9. extern char *dirs[];
  10. extern FILE *fopen();
  11. extern FILE *db_out;
  12. extern t_lineno currline;
  13. static int
  14. mk_filnm(dir, file, newname)
  15. char *dir;
  16. char *file;
  17. char **newname;
  18. {
  19. register char *dst = Malloc((unsigned) (strlen(dir) + strlen(file) + 2));
  20. *newname = dst;
  21. if (*dir) {
  22. while (*dst++ = *dir++) /* nothing */;
  23. *(dst - 1) = '/';
  24. }
  25. while (*dst++ = *file++) /* nothing */;
  26. }
  27. static FILE *
  28. open_file(fn, mode, ffn)
  29. char *fn;
  30. char *mode;
  31. char **ffn;
  32. {
  33. FILE *f;
  34. char **p;
  35. if (fn[0] == '/') {
  36. *ffn = fn;
  37. return fopen(fn, mode);
  38. }
  39. p = dirs;
  40. while (*p) {
  41. mk_filnm(*p++, fn, ffn);
  42. if ((f = fopen(*ffn, mode)) != NULL) {
  43. return f;
  44. }
  45. free(*ffn);
  46. }
  47. return NULL;
  48. }
  49. lines(file, l1, l2)
  50. register p_file file;
  51. int l1, l2;
  52. {
  53. static p_file last_file;
  54. static FILE *last_f;
  55. register FILE *f;
  56. register int n;
  57. if (last_file != file) {
  58. if (last_f) fclose(last_f);
  59. last_f = 0;
  60. if (!(f = open_file(file->f_sym->sy_idf->id_text,
  61. "r",
  62. &file->f_fullname))) {
  63. error("could not open %s", file->f_sym->sy_idf->id_text);
  64. return;
  65. }
  66. last_file = file;
  67. last_f = f;
  68. if (! file->f_linepos) {
  69. line_positions(file, f);
  70. }
  71. }
  72. else f = last_f;
  73. if (l1 < 1) l1 = 1;
  74. if (l2 > file->f_nlines) l2 = file->f_nlines;
  75. if (l1 > l2) {
  76. error("%s has only %d lines", file->f_sym->sy_idf->id_text, file->f_nlines);
  77. return;
  78. }
  79. fseek(f, *(file->f_linepos+(l1-1)), 0);
  80. for (n = l1; n <= l2; n++) {
  81. register int c;
  82. fprintf(db_out, "%c%5d\t", currfile && file == currfile->sy_file && n == currline ? '>' : ' ', n);
  83. do {
  84. c = getc(f);
  85. if (c != EOF) putc(c, db_out);
  86. } while (c != '\n' && c != EOF);
  87. if (c == EOF) break;
  88. }
  89. clearerr(f);
  90. }
  91. static
  92. line_positions(file, f)
  93. p_file file;
  94. register FILE *f;
  95. {
  96. int nl;
  97. unsigned int n_alloc = 256;
  98. register long cnt = 0;
  99. register int c;
  100. file->f_linepos = (long *) Malloc(n_alloc * sizeof(long));
  101. file->f_linepos[0] = 0;
  102. nl = 1;
  103. while ((c = getc(f)) != EOF) {
  104. cnt++;
  105. if (c == '\n') {
  106. if (nl == n_alloc) {
  107. n_alloc <<= 1;
  108. file->f_linepos =
  109. (long *) Realloc((char *)(file->f_linepos),
  110. n_alloc * sizeof(long));
  111. }
  112. file->f_linepos[nl++] = cnt;
  113. }
  114. }
  115. if (cnt == file->f_linepos[nl-1]) nl--;
  116. file->f_linepos = (long *) Realloc((char *)(file->f_linepos),
  117. (unsigned)nl * sizeof(long));
  118. file->f_nlines = nl;
  119. clearerr(f);
  120. }