ctags.rb 1.0.0

data/ext/vendor/exuberant-ctags/lua.c

@@ -0,0 +1,133 @@
+/*
+*   $Id: lua.c 443 2006-05-30 04:37:13Z darren $
+*
+*   Copyright (c) 2000-2001, Max Ischenko <mfi@ukr.net>.
+*
+*   This source code is released for free distribution under the terms of the
+*   GNU General Public License.
+*
+*   This module contains functions for generating tags for Lua language.
+*/
+
+/*
+*   INCLUDE FILES
+*/
+#include "general.h"  /* must always come first */
+
+#include <string.h>
+
+#include "options.h"
+#include "parse.h"
+#include "read.h"
+#include "vstring.h"
+
+/*
+*   DATA DEFINITIONS
+*/
+typedef enum {
+	K_FUNCTION
+} luaKind;
+
+static kindOption LuaKinds [] = {
+	{ TRUE, 'f', "function", "functions" }
+};
+
+/*
+*   FUNCTION DEFINITIONS
+*/
+
+/* for debugging purposes */
+static void __unused__ print_string (char *p, char *q)
+{
+	for ( ; p != q; p++)
+		fprintf (errout, "%c", *p);
+	fprintf (errout, "\n");
+}
+
+/*
+ * Helper function.
+ * Returns 1 if line looks like a line of Lua code.
+ *
+ * TODO: Recognize UNIX bang notation.
+ * (Lua treat first line as a comment if it starts with #!)
+ *
+ */
+static boolean is_a_code_line (const unsigned char *line)
+{
+	boolean result;
+	const unsigned char *p = line;
+	while (isspace ((int) *p))
+		p++;
+	if (p [0] == '\0')
+		result = FALSE;
+	else if (p [0] == '-' && p [1] == '-')
+		result = FALSE;
+	else
+		result = TRUE;
+	return result;
+}
+
+static void extract_name (const char *begin, const char *end, vString *name)
+{
+	if (begin != NULL  &&  end != NULL  &&  begin < end)
+	{
+		const char *cp;
+
+		while (isspace ((int) *begin))
+			begin++;
+		while (isspace ((int) *end))
+			end--;
+		if (begin < end)
+		{
+			for (cp = begin ; cp != end; cp++)
+				vStringPut (name, (int) *cp);
+			vStringTerminate (name);
+
+			makeSimpleTag (name, LuaKinds, K_FUNCTION);
+			vStringClear (name);
+		}
+	}
+}
+
+static void findLuaTags (void)
+{
+	vString *name = vStringNew ();
+	const unsigned char *line;
+
+	while ((line = fileReadLine ()) != NULL)
+	{
+		const char *p, *q;
+
+		if (! is_a_code_line (line))
+			continue;
+
+		p = (const char*) strstr ((const char*) line, "function");
+		if (p == NULL)
+			continue;
+
+		q = strchr ((const char*) line, '=');
+		
+		if (q == NULL) {
+			p = p + 9;  /* skip the `function' word */
+			q = strchr ((const char*) p, '(');
+			extract_name (p, q, name);
+		} else {
+			p = (const char*) &line[0];
+			extract_name (p, q, name);
+		}
+	}
+	vStringDelete (name);
+}
+
+extern parserDefinition* LuaParser (void)
+{
+	static const char* const extensions [] = { "lua", NULL };
+	parserDefinition* def = parserNew ("Lua");
+	def->kinds      = LuaKinds;
+	def->kindCount  = KIND_COUNT (LuaKinds);
+	def->extensions = extensions;
+	def->parser     = findLuaTags;
+	return def;
+}
+
+/* vi:set tabstop=4 shiftwidth=4: */

data/ext/vendor/exuberant-ctags/mac.c

@@ -0,0 +1,273 @@
+/*
+*   $Id: mac.c 443 2006-05-30 04:37:13Z darren $
+*
+*   Copyright (c) 2001, Maarten L. Hekkelman
+*
+*   Author: Maarten L. Hekkelman <maarten@hekkelman.com>
+*           http://www.hekkelman.com
+*
+*   This source code is released for free distribution under the terms of the
+*   GNU General Public License. It is provided on an as-is basis and no
+*   responsibility is accepted for its failure to perform as expected.
+*
+*   This module contains support functions for Exuberant Ctags on Macintosh.
+*/
+
+/*
+*   INCLUDE FILES
+*/
+#include "general.h"
+
+#include <Files.h>
+#include <TextUtils.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+
+/*
+*   FUNCTION DEFINITIONS
+*/
+
+static int get_path(const char* in_unix_path, unsigned char* out_mac_path)
+{
+	int l = strlen(in_unix_path);
+	int result = 0;
+	
+	if (l > 254)
+		result = -1;
+	else
+	{
+		const char* s = in_unix_path;
+		char *d = (char*)out_mac_path + 1;
+		
+		if (*s != '/')
+			*d++ = ':';
+		else
+			++s;
+		
+		while (*s)
+		{
+			if (s[0] == '.' && s[1] == '.' && s[2] == '/')
+			{
+				s += 3;
+				*d++ = ':';
+			}
+			else if (s[0] == '.' && s[1] == '/')
+				s += 2;
+			else if (s[0] == '/')
+			{
+				*d++ = ':';
+				
+				++s;
+				while (*s == '/')
+					++s;
+			}
+			else
+				*d++ = *s++;
+		}
+
+		out_mac_path[0] = (d - (char*)out_mac_path) - 1;
+	}
+	
+	return result;
+}
+
+DIR *opendir(const char *dirname)
+{
+	DIR* dirp = (DIR*)calloc(1, sizeof(DIR));
+
+	if (dirp != NULL)
+	{
+		OSErr err;
+		Str255 s;
+		CInfoPBRec pb = { 0 };
+		
+		if (strcmp(dirname, "."))
+		{
+			get_path(dirname, s);
+			pb.hFileInfo.ioNamePtr = s;
+		}
+		else
+			pb.hFileInfo.ioNamePtr = NULL;
+		
+		err = PBGetCatInfoSync(&pb);
+		if (err != noErr || (pb.hFileInfo.ioFlAttrib & ioDirMask) == 0)
+		{
+			free(dirp);
+			dirp = NULL;
+		}
+		else
+		{
+			dirp->file.vRefNum = pb.hFileInfo.ioVRefNum;
+			dirp->file.parID = pb.hFileInfo.ioDirID;
+			dirp->file.name[0] = '\0';
+			dirp->index = 1;
+		}
+	}
+	
+	return dirp;
+}
+
+struct dirent *readdir(DIR *dirp)
+{
+	if (dirp)
+	{
+		CInfoPBRec pb = { 0 };
+		
+		pb.hFileInfo.ioVRefNum = dirp->file.vRefNum;
+		pb.hFileInfo.ioDirID = dirp->file.parID;
+		pb.hFileInfo.ioFDirIndex = dirp->index++;
+		pb.hFileInfo.ioNamePtr = dirp->file.name;
+	
+		if (PBGetCatInfoSync(&pb) != noErr)
+			return NULL;
+		
+		memcpy(dirp->ent.d_name, dirp->file.name + 1, dirp->file.name[0]);
+		dirp->ent.d_name[dirp->file.name[0]] = 0;
+		return &dirp->ent;
+	}
+	return NULL;
+}
+
+int closedir(DIR *dirp)
+{
+	if (dirp)
+		free(dirp);
+	return 0;
+}
+
+void rewinddir(DIR *dirp)
+{
+	if (dirp)
+		dirp->index = 1;
+}
+
+int mstat(const char* file, struct stat* st)
+{
+	CInfoPBRec		pb;
+	unsigned char	path[256];
+	int				result = 0;
+
+	memset(&pb, 0, sizeof(CInfoPBRec));
+
+	if (strcmp(file, ".") == 0)
+	{
+		memset(st, 0, sizeof(struct stat));
+		st->st_mode = S_IFDIR;
+		st->st_ino = -1;
+	}
+	else
+	{
+		result = get_path(file, path);
+		
+		if (result == 0)
+		{
+			pb.hFileInfo.ioNamePtr = path;
+			
+			if (PBGetCatInfoSync(&pb) != noErr)
+				result = -1;
+			else
+			{
+				memset(st, 0, sizeof(struct stat));
+	
+				if (pb.hFileInfo.ioFlAttrib & ioDirMask)
+					st->st_mode = S_IFDIR;
+				else
+					st->st_mode = S_IFREG;
+
+				st->st_ino = pb.hFileInfo.ioFlStBlk;
+				st->st_dev = pb.hFileInfo.ioVRefNum;
+				st->st_nlink = 1;
+				st->st_size = pb.hFileInfo.ioFlLgLen;
+				st->st_atime = pb.hFileInfo.ioFlMdDat;
+				st->st_mtime = pb.hFileInfo.ioFlMdDat;
+				st->st_ctime = pb.hFileInfo.ioFlCrDat;
+			}
+		}
+	}
+
+	return result;
+}
+
+#undef fopen
+
+FILE* mfopen(const char* file, const char* mode)
+{
+	unsigned char path[256];
+		
+	if (get_path(file, path) == 0)
+	{
+		int l = path[0];
+		memmove(path, path + 1, l);
+		path[l] = 0;
+		return fopen((char*)path, mode);
+	}
+	else
+		return NULL;
+}
+
+char* getcwd(char* out_path, int out_path_len)
+{
+	OSErr		err = noErr;
+	CInfoPBRec	pb;
+	FSSpec		cwd;
+
+	if (out_path == NULL)
+	{
+		if (out_path_len < PATH_MAX)
+			out_path_len = PATH_MAX;
+		out_path = (char*)malloc(out_path_len);
+	}
+	
+	err = FSMakeFSSpec(0, 0, "\p:", &cwd);
+	
+	if (cwd.parID == fsRtParID)
+	{
+		*out_path = '/';
+		memcpy(out_path + 1, cwd.name + 1, cwd.name[0]);
+		out_path[1 + cwd.name[0]] = 0;
+	}
+	else
+	{
+		/* The object isn't a volume */
+		
+		/* Is the object a file or a directory? */
+		
+		char t[PATH_MAX];
+		char* s;
+
+		s = t + PATH_MAX - cwd.name[0] - 1;
+		memcpy(s, cwd.name + 1, cwd.name[0]);
+		s[cwd.name[0]] = 0;
+		
+		/* Get the ancestor directory names */
+		pb.dirInfo.ioNamePtr = cwd.name;
+		pb.dirInfo.ioVRefNum = cwd.vRefNum;
+		pb.dirInfo.ioDrParID = cwd.parID;
+		do  /* loop until we have an error or find the root directory */
+		{
+			pb.dirInfo.ioFDirIndex = -1;
+			pb.dirInfo.ioDrDirID = pb.dirInfo.ioDrParID;
+			err = PBGetCatInfoSync(&pb);
+			if ( err == noErr )
+			{
+				*--s = '/';
+				s -= cwd.name[0];
+				memcpy(s, cwd.name + 1, cwd.name[0]);
+			}
+		}
+		while (err == noErr && pb.dirInfo.ioDrDirID != fsRtDirID && s > t + 1);
+
+		if (s > t + 1)
+		{
+			*--s = '/';
+			strcpy(out_path, s);
+		}
+		else
+			strcpy(out_path, ".");
+	}
+
+	return out_path;
+}
+
+/* vi:set tabstop=4 shiftwidth=4: */

data/ext/vendor/exuberant-ctags/magic.diff

@@ -0,0 +1,21 @@
+This file contains a patch to the Linux file /usr/share/magic which will
+allow the "file" command to properly identify tags file producted by
+Exuberant Ctags. To apply the patch, issue the following command as root:
+
+    patch -p0 < magic.diff
+
+*** /usr/share/magic.orig	Wed Feb 16 19:04:09 2000
+--- /usr/share/magic	Mon Aug 14 20:27:01 2000
+***************
+*** 1155,1160 ****
+--- 1155,1164 ----
+  >84	belong&0x18000000	=0x18000000	undefined fpmode
+  
+  #------------------------------------------------------------------------------
++ # ctags:  file (1) magic for Exuberant Ctags files
++ 0	string	!_TAG	Exuberant Ctags tag file
++ 
++ #------------------------------------------------------------------------------
+  # database:  file(1) magic for various databases
+  #
+  # extracted from header/code files by Graeme Wilford (eep2gw@ee.surrey.ac.uk)