list.c 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146
  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. #define window_size 21
  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. /* Print a window of window_size lines around line "line" of
  50. file "file".
  51. */
  52. window(file, line)
  53. p_file file;
  54. int line;
  55. {
  56. lines(file,
  57. line + ((window_size >> 1) - window_size), line + (window_size >> 1));
  58. }
  59. lines(file, l1, l2)
  60. register p_file file;
  61. int l1, l2;
  62. {
  63. static p_file last_file;
  64. static FILE *last_f;
  65. register FILE *f;
  66. register int n;
  67. if (last_file != file) {
  68. if (last_f) fclose(last_f);
  69. last_f = 0;
  70. if (!(f = open_file(file->f_sym->sy_idf->id_text,
  71. "r",
  72. &file->f_fullname))) {
  73. error("could not open %s", file->f_sym->sy_idf->id_text);
  74. return;
  75. }
  76. printf("filedesc = %d\n", fileno(f));
  77. last_file = file;
  78. last_f = f;
  79. if (! file->f_linepos) {
  80. line_positions(file, f);
  81. }
  82. }
  83. else f = last_f;
  84. if (l1 < 1) l1 = 1;
  85. if (l2 > file->f_nlines) l2 = file->f_nlines;
  86. if (l1 > l2) {
  87. error("%s has only %d lines", file->f_sym->sy_idf->id_text, file->f_nlines);
  88. return;
  89. }
  90. fseek(f, *(file->f_linepos+(l1-1)), 0);
  91. for (n = l1; n <= l2; n++) {
  92. register int c;
  93. fprintf(db_out, "%6d ", n);
  94. do {
  95. c = getc(f);
  96. if (c != EOF) putc(c, db_out);
  97. } while (c != '\n' && c != EOF);
  98. if (c == EOF) break;
  99. }
  100. clearerr(f);
  101. }
  102. static
  103. line_positions(file, f)
  104. p_file file;
  105. register FILE *f;
  106. {
  107. int nl;
  108. unsigned int n_alloc = 256;
  109. register long cnt = 0;
  110. register int c;
  111. file->f_linepos = (long *) Malloc(n_alloc * sizeof(long));
  112. file->f_linepos[0] = 0;
  113. nl = 1;
  114. while ((c = getc(f)) != EOF) {
  115. cnt++;
  116. if (c == '\n') {
  117. if (nl == n_alloc) {
  118. n_alloc <<= 1;
  119. file->f_linepos =
  120. (long *) Realloc((char *)(file->f_linepos),
  121. n_alloc * sizeof(long));
  122. }
  123. file->f_linepos[nl++] = cnt;
  124. }
  125. }
  126. if (cnt == file->f_linepos[nl-1]) nl--;
  127. file->f_linepos = (long *) Realloc((char *)(file->f_linepos),
  128. (unsigned)nl * sizeof(long));
  129. file->f_nlines = nl;
  130. clearerr(f);
  131. }