main: implement the setter and getter for parser specific fields defined in an optlib parser

Signed-off-by: Masatake YAMATO <yamato@redhat.com>

Author: masatake

Tmain/flags-fielddef-datatype.d/stdout-expected.txt

@@ -1,6 +1,6 @@
 #LETTER NAME         ENABLED LANGUAGE  JSTYPE FIXED OP DESCRIPTION
--       boolfield    no      FIELDTEST --b    no    -- a field having boolean value
+-       boolfield    no      FIELDTEST --b    no    rw a field having boolean value
 -       deffield     no      FIELDTEST s--    no    -- a field that type is not specified
--       intfield     no      FIELDTEST -i-    no    -- a field having integer value
--       strboolfield no      FIELDTEST s-b    no    -- a field having string value or false
--       strfield     no      FIELDTEST s--    no    -- a field having string value
+-       intfield     no      FIELDTEST -i-    no    rw a field having integer value
+-       strboolfield no      FIELDTEST s-b    no    rw a field having string value or false
+-       strfield     no      FIELDTEST s--    no    rw a field having string value

Tmain/list-fielddef-flags.d/stdout-expected.txt

@@ -1,2 +1,2 @@
 #LETTER NAME          DESCRIPTION
--       datatype=TYPE acceaptable datatype of the field ([str]|bool|int|str+bool)
+-       datatype=TYPE acceaptable datatype of the field (str|bool|int|str+bool)

Tmain/list-fields-with-prefix.d/stdout-expected.txt

@@ -31,16 +31,16 @@ x       UCTAGSxpath          no      NONE             s--    no    -- xpath for
 -       UCTAGShowImported    no      Go               s--    no    -- how the package is imported ("inline" for `.' or "init" for `_')
 -       UCTAGSpackage        yes     Go               s--    no    -- the real package specified by the package name
 -       UCTAGSpackageName    yes     Go               s--    no    -- the name for referring the package
--       UCTAGSimplements     yes     Inko             s--    no    -- Trait being implemented
+-       UCTAGSimplements     yes     Inko             s--    no    rw Trait being implemented
 -       UCTAGSassignment     yes     LdScript         s--    no    -- how a value is assigned to the symbol
 -       UCTAGSdefiner        yes     Lisp             s--    no    -- the name of the function or macro that defines the unknown/Y-kind object
 -       UCTAGSsectionMarker  no      Markdown         s--    no    -- character used for declaring section(#, ##, =, or -)
 -       UCTAGSwrapping       yes     Moose            s--    no    -- how a wrapper wrapping the method (around, after, or before)
 -       UCTAGSlangid         yes     NSIS             s--    no    -- language identifier specified in (License)LangString commands
 -       UCTAGScategory       yes     ObjectiveC       s--    no    -- category attached to the class
 -       UCTAGSprotocols      yes     ObjectiveC       s--    no    -- protocols that the class (or category) confirms to
--       UCTAGShome           yes     Passwd           s--    no    -- home directory
--       UCTAGSshell          yes     Passwd           s--    no    -- login shell
+-       UCTAGShome           yes     Passwd           s--    no    rw home directory
+-       UCTAGSshell          yes     Passwd           s--    no    rw login shell
 -       UCTAGSdecorators     no      Python           s--    no    -- decorators on functions and classes
 -       UCTAGSnameref        yes     Python           s--    no    -- the original name for the tag
 -       UCTAGSassignmentop   no      R                s--    no    -- operator for assignment

Tmain/list-fields.d/stdout-expected.txt

@@ -49,16 +49,16 @@ z	kind	no	NONE	s--	no	r-	[tags output] prepend "kind:" to k/ (or K/) field outpu
 -	howImported	no	Go	s--	no	--	how the package is imported ("inline" for `.' or "init" for `_')
 -	package	yes	Go	s--	no	--	the real package specified by the package name
 -	packageName	yes	Go	s--	no	--	the name for referring the package
--	implements	yes	Inko	s--	no	--	Trait being implemented
+-	implements	yes	Inko	s--	no	rw	Trait being implemented
 -	assignment	yes	LdScript	s--	no	--	how a value is assigned to the symbol
 -	definer	yes	Lisp	s--	no	--	the name of the function or macro that defines the unknown/Y-kind object
 -	sectionMarker	no	Markdown	s--	no	--	character used for declaring section(#, ##, =, or -)
 -	wrapping	yes	Moose	s--	no	--	how a wrapper wrapping the method (around, after, or before)
 -	langid	yes	NSIS	s--	no	--	language identifier specified in (License)LangString commands
 -	category	yes	ObjectiveC	s--	no	--	category attached to the class
 -	protocols	yes	ObjectiveC	s--	no	--	protocols that the class (or category) confirms to
--	home	yes	Passwd	s--	no	--	home directory
--	shell	yes	Passwd	s--	no	--	login shell
+-	home	yes	Passwd	s--	no	rw	home directory
+-	shell	yes	Passwd	s--	no	rw	login shell
 -	decorators	no	Python	s--	no	--	decorators on functions and classes
 -	nameref	yes	Python	s--	no	--	the original name for the tag
 -	assignmentop	no	R	s--	no	--	operator for assignment

main/field.c

@@ -1316,7 +1316,7 @@ static const char* defaultRenderer (const tagEntryInfo *const tag CTAGS_ATTR_UNU
 	return renderEscapedString (value, tag, buffer);
 }
 
-static bool isValueAvailableGeneric (const tagEntryInfo *const e, const fieldDefinition *fdef)
+extern bool isValueAvailableGeneric (const tagEntryInfo *const e, const fieldDefinition *fdef)
 {
 	return getParserFieldValueForType(e, fdef->ftype)? true: false;
 }
@@ -1925,3 +1925,82 @@ static EsObject* setFieldValueForInherits (tagEntryInfo *tag, const fieldDefinit
 
 	return es_false;
 }
+
+extern EsObject* getFieldValueGeneric (const tagEntryInfo *tag, const fieldDefinition *fdef)
+{
+	const char *value = getParserFieldValueForType(tag, fdef->ftype);
+	unsigned int dt = fdef->dataType;
+
+	if (dt & FIELDTYPE_STRING)
+	{
+		if (value == NULL)
+			return es_nil;
+		return (dt & FIELDTYPE_BOOL && value[0] == '\0')
+			? es_false
+			: opt_string_new_from_cstr (value);
+	}
+	else if (dt & FIELDTYPE_INTEGER)
+	{
+		long tmp;
+
+		if (value == NULL)
+			return es_nil;
+		else if (value[0] == '\0')
+			tmp = 0;
+		else if (!strToLong (value, 10, &tmp))
+			tmp = 1;
+
+		return es_integer_new ((int)tmp);
+	}
+	else if (dt & FIELDTYPE_BOOL)
+		return value? es_true: es_nil;
+	else
+	{
+		AssertNotReached ();
+		return es_nil;
+	}
+}
+
+extern EsObject* setFieldValueGeneric (tagEntryInfo *tag, const fieldDefinition *fdef, const EsObject *obj)
+{
+	unsigned int dt = fdef->dataType;
+	const char * val;
+	char buf[1 /* [+-] */ + 20 + 1 /* for \0 */];
+
+	if (dt & FIELDTYPE_STRING)
+	{
+		if (es_object_get_type (obj) == OPT_TYPE_STRING)
+			val = opt_string_get_cstr (obj);
+		else if ((dt & FIELDTYPE_BOOL) && es_object_equal (es_false, obj))
+			val = "";
+		else
+			return OPT_ERR_TYPECHECK;
+	}
+	else if (dt & FIELDTYPE_INTEGER)
+	{
+		int tmp = es_integer_get (obj);
+		/* 2^64 => "18446744073709551616" */
+		snprintf(buf, sizeof(buf), "%d", tmp);
+		val = buf;
+	}
+	else if (dt & FIELDTYPE_BOOL)
+	{
+		if (es_boolean_get (obj))
+			val = "";
+		else
+		{
+			if (doesFieldHaveValue(fdef->ftype, tag))
+				return OPTSCRIPT_ERR_FIELDRESET;
+			val = NULL;
+		}
+	}
+	else
+	{
+		val = "";
+		AssertNotReached ();
+	}
+
+	if (val)
+		attachParserField (tag, fdef->ftype, val);
+	return es_false;
+}