开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编辑器/阅读器 > 查看源码
main.c
资源名称：vim53src.zip　[点击查看]
上传用户：gddssl
上传日期：2007-01-06
资源大小：1003k
文件大小：36k
源码类别：

编辑器/阅读器

开发平台：

DOS

main.c：源码内容
  1. /*****************************************************************************
  2. *   $Id: main.c,v 6.23 1998/08/18 04:26:50 darren Exp $
  3. *
  4. *   Copyright (c) 1996-1998, Darren Hiebert
  5. *
  6. *   Author: Darren Hiebert <darren@hiebert.com>, <darren@hiwaay.net>
  7. *           http://darren.hiebert.com
  8. *
  9. *   This source code is released for free distribution under the terms of the
  10. *   GNU General Public License. It is provided on an as-is basis and no
  11. *   responsibility is accepted for its failure to perform as expected.
  12. *
  13. *   This is a reimplementation of the ctags(1) program. It is an attempt to
  14. *   provide a fully featured ctags program which is free of the limitations
  15. *   which most (all?) others are subject to.
  16. *
  17. *   It is derived from and inspired by the ctags program by Steve Kirkendall
  18. *   (kirkenda@cs.pdx.edu) that comes with the Elvis vi clone (though almost
  19. *   none of the original code remains). This, too, was freely available.
  20. *
  21. *   This program provides the following features:
  22. *
  23. *   Support for both K&R style and new ANSI style function definitions.
  24. *
  25. *   Generates tags for the following objects:
  26. * - macro definitions
  27. * - enumeration values
  28. * - function definitions (and C++ methods)
  29. * - function declarations (optional)
  30. * - enum, struct and union tags and C++ class names
  31. * - typedefs
  32. * - variables
  33. *
  34. *   This module contains top level start-up and portability functions.
  35. *****************************************************************************/
  37. /*============================================================================
  38. =   Include files
  39. ============================================================================*/
  40. #ifdef HAVE_CONFIG_H
  41. # include <config.h>
  42. #endif
  44. #if defined(__STDC__) || defined(MSDOS) || defined(WIN32) || defined(OS2)
  45. # define ENABLE_STDARG
  46. #endif
  48. #if defined(MSDOS) || defined(WIN32)
  49. # define HAVE_DOS_H
  50. # define HAVE_IO_H
  51. # define HAVE_TIME_H
  52. # define HAVE_CLOCK
  53. # define HAVE_CHSIZE
  54. # define HAVE_STRERROR
  55. # define HAVE_FINDNEXT
  56. # ifdef __BORLANDC__
  57. #  define HAVE_DIR_H
  58. #  define HAVE_DIRENT_H
  59. #  define HAVE_FINDFIRST
  60. # else
  61. #  ifdef _MSC_VER
  62. #   define HAVE__FINDFIRST
  63. #  endif
  64. # endif
  65. #endif
  67. #ifdef DJGPP
  68. # define HAVE_DIR_H
  69. # define HAVE_UNISTD_H
  70. # define HAVE_FINDFIRST
  71. # define HAVE_TRUNCATE
  72. #endif
  74. #if defined(OS2)
  75. # define HAVE_DIRENT_H
  76. # define HAVE_TIME_H
  77. # define HAVE_IO_H
  78. # define HAVE_CLOCK
  79. # define HAVE_CHSIZE
  80. # define HAVE_OPENDIR
  81. # define HAVE_STRERROR
  82. #endif
  84. #ifdef AMIGA
  85. # define HAVE_TIME_H
  86. # define HAVE_SYS_STAT_H
  87. # define HAVE_CLOCK
  88. # define HAVE_STRERROR
  89. # define PATH_MAX 255
  90. # include <dos/dosasl.h> /* for struct AnchorPath */
  91. # include <clib/dos_protos.h> /* function prototypes */
  92. # define ANCHOR_BUF_SIZE (512)
  93. # define ANCHOR_SIZE (sizeof(struct AnchorPath) + ANCHOR_BUF_SIZE)
  94. #endif
  96. #if defined(HAVE_UNISTD_H)
  97. # include <unistd.h> /* to declare close(), ftruncate(), truncate() */
  98. #endif
  100. #include <errno.h>
  102. #ifdef ENABLE_STDARG
  103. # include <stdarg.h>
  104. #else
  105. # include <varargs.h>
  106. #endif
  108. /*  To declare "struct stat" and stat().
  109.  */
  110. #if defined(__MWERKS__) && defined(__MACINTOSH__)
  111. # include <stat.h> /* there is no sys directory on the Mac */
  112. #else
  113. # include <sys/types.h>
  114. # include <sys/stat.h>
  115. #endif
  117. #ifdef HAVE_DIRENT_H
  118. # ifdef __BORLANDC__
  119. #  define boolean BORLAND_boolean
  120. # endif
  121. # include <dirent.h>
  122. # undef boolean
  123. #endif
  125. /*  These header files provide for the functions necessary to do file
  126.  *  truncation.
  127.  */
  128. #include <fcntl.h>
  129. #ifdef HAVE_IO_H
  130. # include <io.h>
  131. #endif
  132. #ifdef HAVE_DOS_H
  133. # include <dos.h>
  134. #endif
  135. #ifdef HAVE_DIR_H
  136. # include <dir.h>
  137. #endif
  139. /*  To define the maximum path length
  140.  */
  141. #include <limits.h> /* to define PATH_MAX (hopefully) */
  142. #ifndef PATH_MAX
  143. # ifdef MAXNAMLEN
  144. #  define PATH_MAX MAXNAMLEN
  145. # endif
  146. #endif
  147. #if !defined(PATH_MAX) && defined(MAXPATH) /* found in Borland C <dir.h> */
  148. # define PATH_MAX MAXPATH
  149. #endif
  150. #ifndef PATH_MAX
  151. # define PATH_MAX 127 /* ultimate fall-back */
  152. #endif
  154. /*  To provide timings features if available.
  155.  */
  156. #ifdef HAVE_CLOCK
  157. # ifdef HAVE_TIME_H
  158. #  include <time.h>
  159. # endif
  160. #else
  161. # ifdef HAVE_TIMES
  162. #  ifdef HAVE_SYS_TIMES_H
  163. #   include <sys/times.h>
  164. #  endif
  165. # endif
  166. #endif
  168. #ifdef DEBUG
  169. # include <assert.h>
  170. #endif
  172. #include "ctags.h"
  174. /*============================================================================
  175. =   Defines
  176. ============================================================================*/
  178. /*----------------------------------------------------------------------------
  179.  *  Portability defines
  180.  *--------------------------------------------------------------------------*/
  181. #if !defined(HAVE_TRUNCATE) && !defined(HAVE_FTRUNCATE) && !defined(HAVE_CHSIZE)
  182. # define USE_REPLACEMENT_TRUNCATE
  183. #endif
  185. #if defined(MSDOS) || defined(WIN32) || defined(OS2)
  186. # define PATH_SEPARATOR '\'
  187. #else
  188. # define PATH_SEPARATOR '/'
  189. #endif
  191. /*  File type tests.
  192.  */
  193. #ifndef S_ISREG
  194. # if defined(S_IFREG) && !defined(AMIGA)
  195. #  define S_ISREG(mode)     ((mode) & S_IFREG)
  196. # else
  197. #  define S_ISREG(mode)     TRUE /* assume regular file */
  198. # endif
  199. #endif
  201. #ifndef S_ISLNK
  202. # ifdef S_IFLNK
  203. #  define S_ISLNK(mode)     (((mode) & S_IFMT) == S_IFLNK)
  204. # else
  205. #  define S_ISLNK(mode)     FALSE /* assume no soft links */
  206. # endif
  207. #endif
  209. #ifndef S_ISDIR
  210. # ifdef S_IFDIR
  211. #  define S_ISDIR(mode)     (((mode) & S_IFMT) == S_IFDIR)
  212. # else
  213. #  define S_ISDIR(mode)     FALSE /* assume no soft links */
  214. # endif
  215. #endif
  217. /*  Hack for rediculous practice of Microsoft Visual C++.
  218.  */
  219. #if defined(WIN32) && defined(_MSC_VER)
  220. # define chsize _chsize
  221. # define open _open
  222. # define close _close
  223. # define stat _stat
  224. # define O_RDWR  _O_RDWR
  225. #endif
  227. /*----------------------------------------------------------------------------
  228.  *  Miscellaneous defines
  229.  *--------------------------------------------------------------------------*/
  230. #ifndef ETAGS
  231. # define ETAGS "etags" /* name which causes default use of to -e */
  232. #endif
  234. #define selected(var,feature) (((int)(var) & (int)(feature)) == (int)feature)
  236. #define plural(value) (((unsigned long)(value) == 1L) ? "" : "s")
  238. /*============================================================================
  239. =   Data definitions
  240. ============================================================================*/
  241. #if defined(MSDOS) || defined(WIN32) || defined(OS2)
  242. static const char DosPathDelimiters[] = ":/\";
  243. #endif
  245. static const char *ExecutableName = NULL;
  247. static struct { long files, lines, bytes; } Totals = { 0, 0, 0 };
  249. tagFile TagFile = {
  250.     NULL, /* file name */
  251.     NULL, /* file pointer */
  252.     { 0, 0 }, /* numTags */
  253.     { 0, 0, 0 }, /* max */
  254.     { "", NULL }, /* etags */
  255.     { 0, NULL } /* line */
  256. };
  258. memberInfo NoClass = { MEMBER_NONE, VIS_UNDEFINED, FALSE, "" };
  260. /*============================================================================
  261. =   Function prototypes
  262. ============================================================================*/
  263. #ifdef NEED_PROTO_STAT
  264. extern int stat __ARGS((const char *, struct stat *));
  265. #endif
  267. #ifdef NEED_PROTO_TRUNCATE
  268. extern int truncate __ARGS((const char *path, off_t length));
  269. #endif
  271. #ifdef NEED_PROTO_FTRUNCATE
  272. extern int ftruncate __ARGS((int fd, off_t length));
  273. #endif
  275. static const char *baseFilename __ARGS((const char *const path));
  276. static boolean isAbsolutePath __ARGS((const char *const path));
  277. static void combinePathAndFile __ARGS((char *const filePath, const char *const path, const char *const file));
  279. static const char *findExtension __ARGS((const char *const fileName));
  280. static boolean isFileHeader __ARGS((const char *const FileName));
  281. static boolean isExtensionInList __ARGS((const char *const extension, const char *const *const list));
  282. static langType getExtensionLanguage __ARGS((const char *const extension));
  283. static langType getFileLanguage __ARGS((const char *const FileName));
  285. static boolean isValidTagAddress __ARGS((const char *const tag));
  286. static boolean isCtagsLine __ARGS((const char *const tag));
  287. static boolean isEtagsLine __ARGS((const char *const tag));
  288. static boolean isTagFile __ARGS((const char *const filename));
  289. static void openTagFile __ARGS((const boolean toStdout));
  290. static void closeTagFile __ARGS((const boolean resize));
  292. static void beginEtagsFile __ARGS((void));
  293. static void endEtagsFile __ARGS((const char *const name));
  294. static boolean createTagsForFile __ARGS((const char *const filePath, const langType language));
  295. static const char *getNextListFile __ARGS((FILE *const fp));
  296. static const char *sourceFilePath __ARGS((const char *const file));
  297. static boolean createTagsWithFallback __ARGS((const char *const fileName, const langType language));
  298. static boolean createTagsForDirectory __ARGS((const char *const dirName));
  299. static boolean createTagsForEntry __ARGS((const char *const entryName));
  300. static boolean createTagsForList __ARGS((const char *const listFile));
  301. static boolean createTagsForArgs __ARGS((const char *const *const argList));
  302. static void printTotals __ARGS((const clock_t *const timeStamps));
  303. static void makeTags __ARGS((const char *const *const argList));
  305. static void setExecutableName __ARGS((const char *const path));
  306. static void setDefaultTagFileName __ARGS((void));
  307. static void setOptionDefaults __ARGS((void));
  308. static void testEtagsInvocation __ARGS((void));
  310. extern int main __ARGS((int argc, char **argv));
  312. /*============================================================================
  313. =   Function definitions
  314. ============================================================================*/
  316. #ifdef ENABLE_STDARG
  317. extern void error( const errorSelection selection,
  318.    const char *const format, ... )
  319. #else
  320. extern void error( va_alist )
  321.     va_dcl
  322. #endif
  323. {
  324.     va_list ap;
  326. #ifdef ENABLE_STDARG
  327.     va_start(ap, format);
  328. #else
  329.     const char *format;
  330.     errorSelection selection;
  332.     va_start(ap);
  333.     selection = va_arg(ap, errorSelection);
  334.     format = va_arg(ap, char *);
  335. #endif
  336.     fprintf(errout, "%s: %s", getExecutableName(),
  337.     selected(selection, WARNING) ? "warning: " : "");
  338.     vfprintf(errout, format, ap);
  339.     if (selected(selection, PERROR))
  340. #ifdef HAVE_STRERROR
  341. fprintf(errout, " : %s", strerror(errno));
  342. #else
  343. perror(" ");
  344. #endif
  345.     fputs("n", errout);
  346.     va_end(ap);
  347.     if (selected(selection, FATAL))
  348. exit(1);
  349. }
  351. extern unsigned long getFileSize( name )
  352.     const char *const __unused__ name;
  353. {
  354.     struct stat fileStatus;
  355.     unsigned long size = 0;
  357.     if (stat(name, &fileStatus) == 0)
  358. size = fileStatus.st_size;
  360.     return size;
  361. }
  363. extern boolean isNormalFile( name )
  364.     const char *const name;
  365. {
  366.     struct stat fileStatus;
  367.     boolean isNormal = FALSE;
  369.     if (stat(name, &fileStatus) == 0)
  370. isNormal = (boolean)(S_ISLNK(fileStatus.st_mode) ||
  371.      S_ISREG(fileStatus.st_mode)  );
  373.     return isNormal;
  374. }
  376. extern boolean isDirectory( name )
  377.     const char *const name;
  378. {
  379.     boolean isDir = FALSE;
  380. #ifdef AMIGA
  381.     struct FileInfoBlock *const fib = (struct FileInfoBlock *)
  382. malloc(sizeof(struct FileInfoBlock));
  384.     if (fib != NULL)
  385.     {
  386. const BPTR flock = Lock((UBYTE *)name, (long)ACCESS_READ);
  388. if (flock != (BPTR)NULL)
  389. {
  390.     if (Examine(flock, fib))
  391. isDir = ((fib->fib_DirEntryType >= 0) ? TRUE : FALSE);
  392.     UnLock(flock);
  393. }
  394. free(fib);
  395.     }
  396. #else
  397.     struct stat fileStatus;
  399.     if (stat(name, &fileStatus) == 0)
  400. isDir = (boolean)S_ISDIR(fileStatus.st_mode);
  401. #endif
  402.     return isDir;
  403. }
  405. extern boolean doesFileExist( fileName )
  406.     const char *const fileName;
  407. {
  408.     struct stat fileStatus;
  410.     return (boolean)(stat(fileName, &fileStatus) == 0);
  411. }
  413. extern void addTotals( files, lines, bytes )
  414.     const unsigned int files;
  415.     const unsigned long lines;
  416.     const unsigned long bytes;
  417. {
  418.     Totals.files += files;
  419.     Totals.lines += lines;
  420.     Totals.bytes += bytes;
  421. }
  423. /*----------------------------------------------------------------------------
  424.  *  Pathname manipulation (O/S dependent!!!)
  425.  *--------------------------------------------------------------------------*/
  427. static const char *baseFilename( filePath )
  428.     const char *const filePath;
  429. {
  430. #if defined(MSDOS) || defined(WIN32) || defined(OS2)
  431.     const char *tail = NULL;
  432.     unsigned int i;
  434.     /*  Find whichever of the path delimiters is last.
  435.      */
  436.     for (i = 0  ;  i < strlen(DosPathDelimiters)  ;  ++i)
  437.     {
  438. const char *sep = strrchr(filePath, DosPathDelimiters[i]);
  440. if (sep > tail)
  441.     tail = sep;
  442.     }
  443. #else
  444.     const char *tail = strrchr(filePath, PATH_SEPARATOR);
  445. #endif
  446.     if (tail == NULL)
  447. tail = filePath;
  448.     else
  449. ++tail; /* step past last delimiter */
  451.     return tail;
  452. }
  454. static boolean isAbsolutePath( path )
  455.     const char *const path;
  456. {
  457. #if defined(MSDOS) || defined(WIN32) || defined(OS2)
  458.     return (strchr(DosPathDelimiters, path[0]) != NULL);
  459. #else
  460.     return (boolean)(path[0] == PATH_SEPARATOR);
  461. #endif
  462. }
  464. static void combinePathAndFile( filePath, path, file )
  465.     char *const filePath;
  466.     const char *const path;
  467.     const char *const file;
  468. {
  469. #if defined(MSDOS) || defined(WIN32) || defined(OS2)
  470.     if (strchr(DosPathDelimiters, path[strlen(path)-1]) != NULL)
  471. sprintf(filePath, "%s%s", path, file);
  472.     else
  473. sprintf(filePath, "%s%c%s", path, PATH_SEPARATOR, file);
  474. #else
  475.     if ((path[strlen(path) - 1]) == PATH_SEPARATOR)
  476. sprintf(filePath, "%s%s", path, file);
  477.     else
  478. sprintf(filePath, "%s%c%s", path, PATH_SEPARATOR, file);
  479. #endif
  480. }
  482. /*----------------------------------------------------------------------------
  483.  *  File extension and language handling
  484.  *--------------------------------------------------------------------------*/
  486. static const char *findExtension( fileName )
  487.     const char *const fileName;
  488. {
  489.     const char *extension;
  490.     const char *const start = strrchr(fileName, '.'); /* find last '.' */
  492.     if (start == NULL)
  493. extension = "";
  494.     else
  495. extension = start + 1; /* skip to character after '.' */
  497.     return extension;
  498. }
  500. /*  Determines whether the specified file name is considered to be a header
  501.  *  file for the purposes of determining whether enclosed tags are global or
  502.  *  static.
  503.  */
  504. static boolean isFileHeader( fileName )
  505.     const char *const fileName;
  506. {
  507.     const char *const extension = findExtension(fileName);
  508.     boolean header = FALSE;     /* default unless match found */
  509.     int i;
  511.     for (i = 0 ; Option.headerExt[i] != NULL ; ++i)
  512.     {
  513. if (strcmp(Option.headerExt[i], extension) == 0)
  514. {
  515.     header = TRUE;     /* found in list */
  516.     break;
  517. }
  518.     }
  519.     return header;
  520. }
  522. static boolean isExtensionInList( extension, list )
  523.     const char *const extension;
  524.     const char *const *const list;
  525. {
  526.     boolean isKnown = FALSE;
  528.     if (list != NULL)
  529.     {
  530. const char *const *pExtension = list;
  532. while (! isKnown  &&  *pExtension != NULL)
  533. {
  534. #if defined(MSDOS) || defined(WIN32) || defined(OS2)
  535.     if (strequiv(extension, *pExtension))
  536. #else
  537.     if (strcmp(extension, *pExtension) == 0)
  538. #endif
  539. isKnown = TRUE;
  540.     ++pExtension;
  541. }
  542.     }
  543.     return isKnown;
  544. }
  546. static langType getExtensionLanguage( extension )
  547.     const char *const extension;
  548. {
  549.     unsigned int i;
  550.     langType language = LANG_IGNORE;
  552.     for (i = 0  ;  i < (int)LANG_COUNT  ;  ++i)
  553.     {
  554. if (isExtensionInList(extension, Option.langMap[i]))
  555. {
  556.     language = (langType)i;
  557.     break;
  558. }
  559.     }
  560.     return language;
  561. }
  563. static langType getFileLanguage( fileName )
  564.     const char *const fileName;
  565. {
  566.     const char *const extension = findExtension(fileName);
  567.     langType language;
  569.     if (Option.language != LANG_AUTO)
  570. language = Option.language;
  571.     else if (isFileHeader(fileName))
  572. language = LANG_CPP;
  573.     else if (extension[0] == '')
  574. language = LANG_IGNORE; /* ignore files with no extension */
  575.     else
  576. language = getExtensionLanguage(extension);
  578.     return language;
  579. }
  581. /*----------------------------------------------------------------------------
  582.  *  Tag file management
  583.  *--------------------------------------------------------------------------*/
  585. static boolean isValidTagAddress( excmd )
  586.     const char *const excmd;
  587. {
  588.     boolean isValid = FALSE;
  590.     if (strchr("/?", excmd[0]) != NULL)
  591. isValid = TRUE;
  592.     else
  593.     {
  594. char *address = (char *)malloc(strlen(excmd) + 1);
  596. if (address != NULL)
  597. {
  598.     if (sscanf(excmd, "%[^;n]", address) == 1  &&
  599. strspn(address,"0123456789") == strlen(address))
  600.     isValid = TRUE;
  601.     free(address);
  602. }
  603.     }
  604.     return isValid;
  605. }
  607. static boolean isCtagsLine( line )
  608.     const char *const line;
  609. {
  610.     enum fieldList { TAG, TAB1, SRC_FILE, TAB2, EXCMD, NUM_FIELDS };
  611.     boolean ok = FALSE; /* we assume not unless confirmed */
  612.     const size_t fieldLength = strlen(line) + 1;
  613.     char *const fields = (char *)malloc((size_t)NUM_FIELDS * fieldLength);
  615.     if (fields == NULL)
  616. error(FATAL, "Cannot analyze tag file");
  617.     else
  618.     {
  619. #define field(x) (fields + ((size_t)(x) * fieldLength))
  621. const int numFields = sscanf(line, "%[^t]%[t]%[^t]%[t]%[^n]",
  622.      field(TAG), field(TAB1), field(SRC_FILE),
  623.      field(TAB2), field(EXCMD));
  625. /*  There must be exactly five fields: two tab fields containing
  626.  *  exactly one tab each, the tag must not begin with "#", and the
  627.  *  file name should not end with ";", and the excmd must be
  628.  *  accceptable.
  629.  *
  630.  *  These conditions will reject tag-looking lines like:
  631.  *      int a; <C-comment>
  632.  *      #define LABEL <C-comment>
  633.  */
  634. if (numFields == NUM_FIELDS   &&
  635.     strlen(field(TAB1)) == 1  &&
  636.     strlen(field(TAB2)) == 1  &&
  637.     field(TAG)[0] != '#'      &&
  638.     field(SRC_FILE)[strlen(field(SRC_FILE)) - 1] != ';'  &&
  639.     isValidTagAddress(field(EXCMD)))
  640. ok = TRUE;
  642. free(fields);
  643.     }
  644.     return ok;
  645. }
  647. static boolean isEtagsLine( line )
  648.     const char *const line;
  649. {
  650.     const char *const magic = "fn";
  652.     return (boolean)(strncmp(line, magic, strlen(magic)) == 0);
  653. }
  655. static boolean isTagFile( filename )
  656.     const char *const filename;
  657. {
  658.     boolean ok = FALSE; /* we assume not unless confirmed */
  659.     FILE *const fp = fopen(filename, "r");
  661.     if (fp == NULL  &&  errno == ENOENT)
  662. ok = TRUE;
  663.     else if (fp != NULL)
  664.     {
  665. const char *line = readLine(&TagFile.line, fp);
  667. if (line == NULL)
  668.     ok = TRUE;
  669. else if (Option.etags) /* check for etags magic number */
  670.     ok = isEtagsLine(line);
  671. else
  672.     ok = isCtagsLine(line);
  673. fclose(fp);
  674.     }
  675.     return ok;
  676. }
  678. static void openTagFile( toStdout )
  679.     const boolean toStdout;
  680. {
  681.     static char tempName[L_tmpnam];
  683.     /*  Open the tags File.
  684.      */
  685.     if (toStdout)
  686.     {
  687. TagFile.name = tmpnam(tempName);
  688. TagFile.fp = fopen(TagFile.name, "w");
  689.     }
  690.     else
  691.     {
  692. const char *const fname  = Option.tagFileName;
  693. const boolean fileExists = doesFileExist(fname);
  695. TagFile.name = fname;
  696. if (fileExists  &&  ! isTagFile(fname))
  697.     error(FATAL,
  698.       ""%s" doesn't look like a tag file; I refuse to overwrite it.",
  699.   fname);
  700. if (Option.append  &&  fileExists)
  701. {
  702.     TagFile.fp = fopen(fname, "r+");
  703.     if (TagFile.fp != NULL)
  704.     {
  705. TagFile.numTags.prev = updatePseudoTags();
  706. fseek(TagFile.fp, 0L, SEEK_END);
  707.     }
  708. }
  709. else
  710. {
  711.     TagFile.fp = fopen(fname, "w");
  712.     if (TagFile.fp != NULL)
  713. addPseudoTags();
  714. }
  715.     }
  716.     if (TagFile.fp == NULL)
  717.     {
  718. error(FATAL | PERROR, "cannot open tag file");
  719. exit(1);
  720.     }
  721. }
  723. #ifdef USE_REPLACEMENT_TRUNCATE
  725. static int copyChars __ARGS((FILE *const fpFrom, FILE *const fpTo, const off_t size));
  726. static int copyFile __ARGS((const char *const from, const char *const to, const off_t size));
  727. static int replacementTruncate __ARGS((const char *const name, const off_t size));
  729. static int copyChars( fpFrom, fpTo, size )
  730.     FILE *const fpFrom;
  731.     FILE *const fpTo;
  732.     const off_t size;
  733. {
  734.     off_t count;
  735.     int result = -1;
  737.     for (count = 0  ;  count < size  ;  ++count)
  738.     {
  739. const int c = getc(fpFrom);
  741. if (c == EOF  ||  putc(c, fpTo) == EOF)
  742.     break;
  743.     }
  744.     if (count == size)
  745. result = 0;
  746.     return result;
  747. }
  749. static int copyFile( from, to, size )
  750.     const char *const from;
  751.     const char *const to;
  752.     const off_t size;
  753. {
  754.     int result = -1;
  755.     FILE *const fpFrom = fopen(from, "r");
  757.     if (fpFrom != NULL)
  758.     {
  759. FILE *const fpTo = fopen(to, "w");
  761. if (fpFrom != NULL)
  762. {
  763.     result = copyChars(fpFrom, fpTo, size);
  764.     if (result == 0)
  765. result = fclose(fpTo);
  766. }
  767. if (result == 0)
  768.     result = fclose(fpFrom);
  769.     }
  770.     return result;
  771. }
  773. /*  Replacement for missing library function.
  774.  */
  775. static int replacementTruncate( name, size )
  776.     const char *const name;
  777.     const off_t size;
  778. {
  779.     char tempName[L_tmpnam];
  780.     int result = -1;
  782.     if (tmpnam(tempName) != NULL)
  783.     {
  784. result = copyFile(name, tempName, size);
  785. if (result == 0)
  786.     result = copyFile(tempName, name, size);
  787. if (result == 0)
  788.     result = remove(tempName);
  789.     }
  790.     return result;
  791. }
  793. #endif
  795. static void closeTagFile( resize )
  796.     const boolean resize;
  797. {
  798.     const long __unused__ size = ftell(TagFile.fp);
  800.     fclose(TagFile.fp);
  801.     if (resize)
  802.     {
  803. int __unused__ result = 0;
  805. #ifdef USE_REPLACEMENT_TRUNCATE
  806. result = replacementTruncate(TagFile.name, (off_t)size);
  807. #else
  808. # ifdef HAVE_TRUNCATE
  809. result = truncate(TagFile.name, (off_t)size);
  810. # else
  811. const int fd = open(TagFile.name, O_RDWR);
  813. if (fd != -1)
  814. {
  815. #  ifdef HAVE_FTRUNCATE
  816.     result = ftruncate(fd, (off_t)size);
  817. #  else
  818. #   ifdef HAVE_CHSIZE
  819.     result = chsize(fd, size);
  820. #   endif
  821. #  endif
  822.     close(fd);
  823. }
  824. # endif
  825. #endif
  826. if (result == -1)
  827.     fprintf(errout, "Cannot shorten tag file: errno = %dn", errno);
  828.     }
  829. }
  831. /*----------------------------------------------------------------------------
  832.  * Create tags
  833.  *--------------------------------------------------------------------------*/
  835. static void beginEtagsFile()
  836. {
  837.     tmpnam(TagFile.etags.name);
  838.     TagFile.etags.fp = fopen(TagFile.etags.name, "w+b");
  839.     if (TagFile.etags.fp == NULL)
  840. error(FATAL | PERROR, "cannot open "%s"", TagFile.etags.name);
  841.     TagFile.etags.byteCount = 0;
  842. }
  844. static void endEtagsFile( name )
  845.     const char *const name;
  846. {
  847.     const char *line;
  849.     fprintf(TagFile.fp, "fn%s,%ldn", name, (long)TagFile.etags.byteCount);
  850.     if (TagFile.etags.fp != NULL)
  851.     {
  852. rewind(TagFile.etags.fp);
  853. while ((line = readLine(&TagFile.line, TagFile.etags.fp)) != NULL)
  854.     fputs(line, TagFile.fp);
  855. fclose(TagFile.etags.fp);
  856. remove(TagFile.etags.name);
  857.     }
  858.     TagFile.etags.name[0] = '';
  859. }
  861. static boolean createTagsForFile( filePath, language )
  862.     const char *const filePath;
  863.     const langType language;
  864. {
  865.     boolean ok;
  867.     if (filePath == NULL)
  868. ok = FALSE;
  869.     else
  870.     {
  871. const boolean isHeader = isFileHeader(filePath);
  873. ok = TRUE;
  874. if (Option.etags)
  875.     beginEtagsFile();
  876. if (cppOpen(filePath, language, isHeader))
  877. {
  878.     tagInfo tag;
  880.     DebugStatement( clearString(tag.name, MaxNameLength); )
  881.     strcpy(tag.name, baseFilename(filePath));
  882.     tag.location   = 0;
  883.     tag.lineNumber = 1;
  885.     makeTag(&tag, &NoClass, SCOPE_GLOBAL, TAG_SOURCE_FILE);
  886.     ok = createTags(0, NULL);
  887.     cppClose();
  888. }
  889. if (Option.etags)
  890.     endEtagsFile(filePath);
  891.     }
  892.     return ok;
  893. }
  895. static const char *getNextListFile( fp )
  896.     FILE *const fp;
  897. {
  898.     static char fileName[PATH_MAX + 1];
  899.     const char *const buf = fgets(fileName, PATH_MAX + 1, fp);
  901.     if (buf != NULL)
  902.     {
  903. char *const newline = strchr(fileName, 'n');
  905. if (newline == NULL)
  906.     fileName[PATH_MAX] = '';
  907. else
  908.     *newline = '';
  909.     }
  910.     return buf;
  911. }
  913. static const char *sourceFilePath( file )
  914.     const char *const file;
  915. {
  916.     const char *result = NULL;
  918.     if (Option.path == NULL  ||  isAbsolutePath(file))
  919. result = file;
  920.     else if (strlen(Option.path) + strlen(file) < (size_t)PATH_MAX)
  921.     {
  922. static char filePath[PATH_MAX + 1];
  924. combinePathAndFile(filePath, Option.path, file);
  925. result = filePath;
  926.     }
  927.     return result;
  928. }
  930. static boolean createTagsWithFallback( fileName, language )
  931.     const char *const fileName;
  932.     const langType language;
  933. {
  934.     const char *const filePath = sourceFilePath(fileName);
  935.     const unsigned long numTags = TagFile.numTags.added;
  936.     const long tagFilePosition = ftell(TagFile.fp);
  937.     boolean resize = FALSE;
  939.     if (! createTagsForFile(filePath, language))
  940.     {
  941. /*  Restore prior state of tag file.
  942.  */
  943. fseek(TagFile.fp, tagFilePosition, SEEK_SET);
  944. TagFile.numTags.added = numTags;
  945. DebugStatement( debugPrintf(DEBUG_STATUS,
  946. "%s: formatting error; retryingn", fileName); )
  948. Option.braceFormat = TRUE;
  949.     createTagsForFile(filePath, language);
  950. Option.braceFormat = FALSE;
  951. resize = TRUE;
  952.     }
  953.     return resize;
  954. }
  956. # if defined(MSDOS) || defined(WIN32)
  958. static boolean createTagsForMatchingEntries __ARGS((char *const pattern));
  960. static boolean createTagsForMatchingEntries( pattern )
  961.     char *const pattern;
  962. {
  963.     boolean resize = FALSE;
  964.     const size_t tailIndex = baseFilename(pattern) - (const char *)pattern;
  965.     char *const tail = pattern + tailIndex;
  966. #ifdef HAVE_FINDFIRST
  967.     struct ffblk fileInfo;
  968.     int result = findfirst(pattern, &fileInfo, FA_DIREC);
  970.     while (result == 0)
  971.     {
  972. const char *const entryName = fileInfo.ff_name;
  974. /*  We must not recurse into the directories "." or "..".
  975.  */
  976. if (strcmp(entryName, ".") != 0  &&  strcmp(entryName, "..") != 0)
  977. {
  978.     strcpy(tail, entryName);
  979.     resize |= createTagsForEntry(pattern);
  980. }
  981. result = findnext(&fileInfo);
  982.     }
  983. #else
  984. # ifdef HAVE__FINDFIRST
  985.     struct _finddata_t fileInfo;
  986.     long hFile = _findfirst(pattern, &fileInfo);
  988.     if (hFile != -1L)
  989.     {
  990. do
  991. {
  992.     const char *const entryName = fileInfo.name;
  994.     /*  We must not recurse into the directories "." or "..".
  995.      */
  996.     if (strcmp(entryName, ".") != 0  &&  strcmp(entryName, "..") != 0)
  997.     {
  998. strcpy(tail, entryName);
  999. resize |= createTagsForEntry(pattern);
  1000.     }
  1001. } while (_findnext(hFile, &fileInfo) == 0);
  1002. _findclose(hFile);
  1003.     }
  1004. # endif /* HAVE__FINDFIRST */
  1005. #endif /* HAVE_FINDFIRST */
  1006.     return resize;
  1007. }
  1009. #else
  1010. # ifdef AMIGA
  1012. static boolean createTagsForMatchingEntries __ARGS((char *const pattern));
  1014. static boolean createTagsForMatchingEntries( pattern )
  1015.     char *const pattern;
  1016. {
  1017.     boolean resize = FALSE;
  1018.     struct AnchorPath *const anchor = (struct AnchorPath *)
  1019. calloc((size_t)1, (size_t)ANCHOR_SIZE);
  1021.     if (anchor != NULL)
  1022.     {
  1023. LONG result;
  1025. anchor->ap_Strlen = ANCHOR_BUF_SIZE; /* ap_Length no longer supported */
  1027. /*  Allow '.' for current directory.
  1028.  */
  1029. #ifdef APF_DODOT
  1030. anchor->ap_Flags = APF_DODOT | APF_DOWILD;
  1031. #else
  1032. anchor->ap_Flags = APF_DoDot | APF_DoWild;
  1033. #endif
  1035. result = MatchFirst((UBYTE *)pattern, anchor);
  1036. while (result == 0)
  1037. {
  1038.     resize |= createTagsForEntry((char *)anchor->ap_Buf);
  1039.     result = MatchNext(anchor);
  1040. }
  1041. MatchEnd(anchor);
  1042. free(anchor);
  1043.     }
  1044.     return resize;
  1045. }
  1047. # endif /* AMIGA */
  1048. #endif /* MSDOS || WIN32 */
  1050. static boolean createTagsForDirectory( dirName )
  1051.     const char *const dirName;
  1052. {
  1053. #ifdef HAVE_OPENDIR
  1054.     boolean resize = FALSE;
  1055.     DIR *const dir = opendir(dirName);
  1057.     if (dir == NULL)
  1058. error(WARNING, "");
  1059.     else
  1060.     {
  1061. struct dirent *entry;
  1063. DebugStatement( debugPrintf(DEBUG_STATUS, "RECURSING into %s%cn",
  1064.     dirName, PATH_SEPARATOR); )
  1065. while ((entry = readdir(dir)) != NULL)
  1066. {
  1067.     const char *const entryName = entry->d_name;
  1069.     if (strcmp(entryName, ".")    != 0  &&
  1070. strcmp(entryName, "..")   != 0  &&
  1071. strcmp(entryName, "SCCS") != 0   )
  1072.     {
  1073. char filePath[PATH_MAX + 1];
  1075. combinePathAndFile(filePath, dirName, entryName);
  1076. resize |= createTagsForEntry(filePath);
  1077.     }
  1078. }
  1079. closedir(dir);
  1080.     }
  1081.     return resize;
  1082. #else
  1083. # if defined(MSDOS) || defined(WIN32)
  1084.     char pattern[PATH_MAX + 1];
  1085.     boolean resize;
  1087.     DebugStatement( debugPrintf(DEBUG_STATUS, "RECURSING into %s%cn",
  1088. dirName, PATH_SEPARATOR); )
  1089.     strcpy(pattern, dirName);
  1090.     strcat(pattern, "\*.*");
  1091.     resize = createTagsForMatchingEntries(pattern);
  1093.     return resize;
  1094. # else
  1095. #  ifdef AMIGA
  1096.     char pattern[PATH_MAX + 1];
  1097.     boolean resize = FALSE;
  1099.     DebugStatement( debugPrintf(DEBUG_STATUS, "RECURSING into %s%cn",
  1100. dirName, PATH_SEPARATOR); )
  1101.     strcpy(pattern, dirName);
  1102.     if (pattern[0] != '')
  1103. strcat(pattern, "/");     /* "/#?" searches one directory upwards */
  1104.     strcat(pattern, "#?");
  1105.     resize = createTagsForMatchingEntries(pattern);
  1107.     return resize;
  1108. #  else /* !AMIGA */
  1109.     return FALSE;
  1110. #  endif
  1111. # endif
  1112. #endif /* HAVE_OPENDIR */
  1113. }
  1115. static boolean createTagsForEntry( entryName )
  1116.     const char *const entryName;
  1117. {
  1118.     boolean resize = FALSE;
  1119.     langType language;
  1121.     if (! doesFileExist(entryName))
  1122. error(WARNING | PERROR, "cannot open "%s"", entryName);
  1123.     else if (isDirectory(entryName))
  1124.     {
  1125. if (Option.recurse)
  1126.     resize = createTagsForDirectory(entryName);
  1127. else
  1128. {
  1129.     DebugStatement( debugPrintf(DEBUG_STATUS,"  no recurse into %s%cn",
  1130. entryName, PATH_SEPARATOR) );
  1131.     resize = FALSE;
  1132. }
  1133.     }
  1134.     else if (! isNormalFile(entryName))
  1135.     {
  1136. DebugStatement( if (debug(DEBUG_STATUS))
  1137. printf("  ignoring %s (special file)n", entryName) );
  1138.     }
  1139.     else if ((language = getFileLanguage(entryName)) == LANG_IGNORE)
  1140. DebugStatement( debugOpen(entryName, FALSE, language) );
  1141.     else
  1142.     {
  1143. resize = createTagsWithFallback(entryName, language);
  1144. addTotals(1, 0L, 0L);
  1145.     }
  1146.     return resize;
  1147. }
  1149. static boolean createTagsForArgs( argList )
  1150.     const char *const *const argList;
  1151. {
  1152.     boolean resize = FALSE;
  1153.     const char *const *pArg;
  1155.     /*  Generate tags for each argument on the command line.
  1156.      */
  1157.     for (pArg = argList  ;  *pArg != NULL  ;  ++pArg)
  1158.     {
  1159. const char *arg = *pArg;
  1161. #if defined(MSDOS) || defined(WIN32)
  1162. char pattern[PATH_MAX + 1];
  1164. strcpy(pattern, arg);
  1166. /*  We must transform the "." and ".." forms into something that can
  1167.  *  be expanded by the MSDOS/Windows functions.
  1168.  */
  1169. if (Option.recurse  &&
  1170.     (strcmp(pattern, ".") == 0  ||  strcmp(pattern, "..") == 0))
  1171. {
  1172.     strcat(pattern, "\*.*");
  1173. }
  1174. resize |= createTagsForMatchingEntries(pattern);
  1175. #else
  1176. resize |= createTagsForEntry(arg);
  1177. #endif
  1178.     }
  1180.     return resize;
  1181. }
  1183. /*  Create tags for the source files listed in the file specified by
  1184.  *  "listFile".
  1185.  */
  1186. static boolean createTagsForList( listFile )
  1187.     const char *const listFile;
  1188. {
  1189.     boolean resize = FALSE;
  1190.     FILE *const fp = (strcmp(listFile,"-") == 0) ? stdin : fopen(listFile, "r");
  1192.     if (fp == NULL)
  1193. error(FATAL | PERROR, "cannot open "%s"", listFile);
  1194.     else
  1195.     {
  1196. const char *fileName = getNextListFile(fp);
  1198. while (fileName != NULL  &&  fileName[0] != '')
  1199. {
  1200.     resize |= createTagsForEntry(fileName);
  1201.     fileName = getNextListFile(fp);
  1202. }
  1203. if (fp != stdin)
  1204.     fclose(fp);
  1205.     }
  1206.     return resize;
  1207. }
  1209. #ifdef HAVE_CLOCK
  1210. # define CLOCK_AVAILABLE
  1211. # ifndef CLOCKS_PER_SEC
  1212. #  define CLOCKS_PER_SEC 1000000
  1213. # endif
  1214. #else
  1215. # ifdef HAVE_TIMES
  1216. #  define CLOCK_AVAILABLE
  1217. #  define CLOCKS_PER_SEC 60
  1218. static clock_t clock __ARGS((void));
  1219. static clock_t clock()
  1220. {
  1221.     struct tms buf;
  1223.     times(&buf);
  1224.     return (buf.tms_utime + buf.tms_stime);
  1225. }
  1226. # else
  1227. #  define clock()  (clock_t)0
  1228. # endif
  1229. #endif
  1231. static void printTotals( timeStamps )
  1232.     const clock_t *const timeStamps;
  1233. {
  1234.     const unsigned long totalTags = TagFile.numTags.added +
  1235.     TagFile.numTags.prev;
  1237.     fprintf(errout, "%ld file%s, %ld line%s (%ld kB) scanned",
  1238.     Totals.files, plural(Totals.files),
  1239.     Totals.lines, plural(Totals.lines),
  1240.     Totals.bytes/1024L);
  1241. #ifdef CLOCK_AVAILABLE
  1242.     {
  1243. const double interval = ((double)(timeStamps[1] - timeStamps[0])) /
  1244. CLOCKS_PER_SEC;
  1246. fprintf(errout, " in %.01f seconds", interval);
  1247. if (interval != (double)0.0)
  1248.     fprintf(errout, " (%lu kB/s)",
  1249.     (unsigned long)(Totals.bytes / interval) / 1024L);
  1250.     }
  1251. #endif
  1252.     fputc('n', errout);
  1254.     fprintf(errout, "%lu tag%s added to tag file",
  1255.     TagFile.numTags.added, plural(TagFile.numTags.added));
  1256.     if (Option.append)
  1257. fprintf(errout, " (now %lu tags)", totalTags);
  1258.     fputc('n', errout);
  1260.     if (totalTags > 0  &&  Option.sorted)
  1261.     {
  1262. fprintf(errout, "%lu tag%s sorted", totalTags, plural(totalTags));
  1263. #ifdef CLOCK_AVAILABLE
  1264. fprintf(errout, " in %.02f seconds",
  1265. ((double)(timeStamps[3] - timeStamps[2])) / CLOCKS_PER_SEC);
  1266. #endif
  1267. fputc('n', errout);
  1268.     }
  1270. #ifdef DEBUG
  1271.     fprintf(errout, "longest tag line = %lun",
  1272.     (unsigned long)TagFile.max.line);
  1273. #endif
  1274. }
  1276. static void makeTags( argList )
  1277.     const char *const *const argList;
  1278. {
  1279.     boolean toStdout = FALSE;
  1280.     boolean resize = FALSE;
  1281.     clock_t timeStamps[4];
  1283.     if (Option.xref  ||  strcmp(Option.tagFileName, "-") == 0
  1284. #if !defined(MSDOS) && !defined(WIN32) && !defined(OS2)
  1285. || strcmp(Option.tagFileName, "/dev/stdout") == 0
  1286. #endif
  1287. )
  1288. toStdout = TRUE;
  1290.     openTagFile(toStdout);
  1292.     if (Option.printTotals) timeStamps[0] = clock();
  1294.     if (Option.fileList != NULL)
  1295. resize = createTagsForList(Option.fileList);
  1296.     resize = (boolean)(createTagsForArgs(argList) || resize);
  1298.     if (Option.printTotals) timeStamps[1] = clock();
  1300.     closeTagFile(resize);
  1301.     freeIgnoreList();
  1303.     if (TagFile.numTags.added + TagFile.numTags.prev > 0L)
  1304.     {
  1305. if (Option.sorted)
  1306. {
  1307.     if (Option.printTotals) timeStamps[2] = clock();
  1308. #ifdef EXTERNAL_SORT
  1309.     externalSortTags(toStdout);
  1310. #else
  1311.     internalSortTags(toStdout);
  1312. #endif
  1313.     if (Option.printTotals) timeStamps[3] = clock();
  1314. }
  1315. else if (toStdout)
  1316.     catFile(TagFile.name);
  1317.     }
  1318.     if (toStdout)
  1319. remove(TagFile.name); /* remove temporary file */
  1321.     if (Option.printTotals)
  1322. printTotals(timeStamps);
  1323. }
  1325. /*----------------------------------------------------------------------------
  1326.  * Start up code
  1327.  *--------------------------------------------------------------------------*/
  1329. static void setExecutableName( path )
  1330.     const char *const path;
  1331. {
  1332.     ExecutableName = baseFilename(path);
  1333. }
  1335. extern const char *getExecutableName()
  1336. {
  1337.     return ExecutableName;
  1338. }
  1340. static void setDefaultTagFileName()
  1341. {
  1342.     if (Option.tagFileName != NULL)
  1343. ; /* accept given name */
  1344.     else if (Option.etags)
  1345. Option.tagFileName = ETAGS_FILE;
  1346.     else
  1347. Option.tagFileName = CTAGS_FILE;
  1348. }
  1350. static void setOptionDefaults()
  1351. {
  1352.     if (Option.xref)
  1353. Option.include.sourceFiles = FALSE;
  1355.     setDefaultTagFileName();
  1356. }
  1358. static void testEtagsInvocation()
  1359. {
  1360.     if (strncmp(getExecutableName(), ETAGS, strlen(ETAGS)) == 0)
  1361.     {
  1362. Option.startedAsEtags = TRUE;
  1363. Option.etags = TRUE;
  1364. Option.sorted = FALSE;
  1365.     }
  1366. }
  1368. extern int main( argc, argv )
  1369.     int __unused__ argc;
  1370.     char **argv;
  1371. {
  1372.     char **envArgList;
  1373.     const char *const *fileList;
  1375. #ifdef __EMX__
  1376.     _wildcard(&argc, &argv); /* expand wildcards in argument list */
  1377. #endif
  1379.     setExecutableName(*argv++);
  1380.     testEtagsInvocation();
  1382.     /*  Parse options.
  1383.      */
  1384.     envArgList = parseEnvironmentOptions();
  1385.     fileList = (const char *const *)parseOptions(argv);
  1386.     setOptionDefaults();
  1387.     buildKeywordHash();
  1389.     /* Generate tags if there is at least one source file or a file list.
  1390.      */
  1391.     if (*fileList == NULL  &&  Option.fileList == NULL)
  1392.     {
  1393. if (! Option.recurse)
  1394.     error(FATAL, "No files specified. Try "%s --help".",
  1395. getExecutableName());
  1396. else
  1397. {
  1398.     static const char *defaultRecursionDir[] = { ".", NULL };
  1399.     fileList = defaultRecursionDir;
  1400. }
  1401.     }
  1402.     makeTags(fileList);
  1404.     /*  Post tag generation clean-up.
  1405.      */
  1406.     freeLineBuffer(&TagFile.line);
  1407.     if (envArgList != NULL)
  1408. free(envArgList);
  1409.     exit(0);
  1410.     return 0;
  1411. }
  1413. /* vi:set tabstop=8 shiftwidth=4: */