list.c 2.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134
  1. /* $Id$ */
  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. #include "misc.h"
  9. static line_positions();
  10. extern char *dirs[];
  11. extern FILE *fopen();
  12. extern FILE *db_out;
  13. extern t_lineno currline;
  14. extern int interrupted;
  15. static void
  16. mk_filnm(dir, file, newname)
  17. char *dir;
  18. char *file;
  19. char **newname;
  20. {
  21. register char *dst = Malloc((unsigned) (strlen(dir) + strlen(file) + 2));
  22. *newname = dst;
  23. if (*dir) {
  24. while (*dst++ = *dir++) /* nothing */;
  25. *(dst - 1) = '/';
  26. }
  27. while (*dst++ = *file++) /* nothing */;
  28. }
  29. static FILE *
  30. open_file(fn, mode, ffn)
  31. char *fn;
  32. char *mode;
  33. char **ffn;
  34. {
  35. FILE *f;
  36. char **p;
  37. if (fn[0] == '/') {
  38. *ffn = fn;
  39. return fopen(fn, mode);
  40. }
  41. p = dirs;
  42. while (*p) {
  43. mk_filnm(*p++, fn, ffn);
  44. if ((f = fopen(*ffn, mode)) != NULL) {
  45. return f;
  46. }
  47. free(*ffn);
  48. }
  49. return NULL;
  50. }
  51. lines(file, l1, l2)
  52. register p_file file;
  53. int l1, l2;
  54. {
  55. static p_file last_file;
  56. static FILE *last_f;
  57. register FILE *f;
  58. register int n;
  59. if (last_file != file) {
  60. if (last_f) fclose(last_f);
  61. last_f = 0;
  62. if (!(f = open_file(file->f_sym->sy_idf->id_text,
  63. "r",
  64. &file->f_fullname))) {
  65. error("could not open %s", file->f_sym->sy_idf->id_text);
  66. return;
  67. }
  68. last_file = file;
  69. last_f = f;
  70. if (! file->f_linepos) {
  71. line_positions(file, f);
  72. }
  73. }
  74. else f = last_f;
  75. if (l1 < 1) l1 = 1;
  76. if (l1 > file->f_nlines) l1 = file->f_nlines;
  77. if (l1+l2-1 > file->f_nlines) l2 = file->f_nlines - l1 + 1;
  78. fseek(f, *(file->f_linepos+(l1-1)), 0);
  79. for (n = l1; n < l1 + l2; n++) {
  80. register int c;
  81. if (interrupted) return;
  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. }