Document and Code Generation by LINQ and XSL

Public Module Xslt_Final

	Public Function ClassTransform_Final() As XElement

		Dim xslt = <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
					   xmlns:msxsl="urn:schemas-microsoft-com:xslt"
					   xmlns:user="urn:my-scripts">

					   <msxsl:script language="C#" implements-prefix="user">
						   <![CDATA[
public static string CreateProperty(string fieldType, string fieldName)
{
	StringBuilder sb = new StringBuilder();

	sb.Append("\n");
	sb.Append("		/// <summary>\n");
	sb.Append("		/// Get/Set for " + PropertyName(fieldName) + "\n");
	sb.Append("		/// </summary>\n");
	sb.Append("		public " + FieldType(fieldType) + " " + PropertyName(fieldName) + "\n" );
	sb.Append("		{\n");
	sb.Append("		    get { return (" + FieldName(fieldName) + "); }\n");
	sb.Append("		    set { " + FieldName(fieldName) + " = value; }\n");
	sb.Append("		}\n");

	return (sb.ToString());
}

public static string FieldType(string fieldtype)
{
	switch (fieldtype.ToLower())
	{
		case "smallint":
			return "short";
		case "uniqueidentifier":
			return "Guid";
		case "varchar":
			return "string";
		default:
			return fieldtype;
	}
}

public static  string FieldName(string fieldtype)
{
	int index = 0;

	StringBuilder sb = new StringBuilder(fieldtype);

	for (index = 0; index < sb.Length; index++)
	{
		if (char.IsUpper(sb[index]))
		{
			sb[index] = Char.ToLower(sb[index]);
		}
		else if (char.IsLower(sb[index]))
		{
			if (index > 0)
			{
				sb[index - 1] = Char.ToUpper(sb[index - 1]);
			}

			break;
		}
	}

    return "_" + sb.ToString();
}

public static string PropertyName(string fieldname)
{
	string propertyName = FieldName(fieldname);
	propertyName = Char.ToUpper(propertyName[1]) + propertyName.Substring(2);

	return propertyName;
}

public string InsertText(string text)
{
    return (text);
}
                            ]]>

					   </msxsl:script>

					   <xsl:template match="class_1">
						   <xsl:value-of select="data_1"/>

						   <xsl:for-each select="data_2/data_2a">
							   <xsl:value-of select="text()"/>
							   <xsl:value-of select="user:FieldType(fieldtype)"/>
							   <xsl:value-of select="user:InsertText(' ')"/>
							   <xsl:value-of select="user:FieldName(fieldname)"/>
							   <xsl:value-of select="user:InsertText(';')"/>
						   </xsl:for-each>


						   <xsl:value-of select="data_3"/>
						   <xsl:value-of select="data_4"/>
						   <xsl:value-of select="data_5"/>

						   <xsl:for-each select="data_6/data_6a">
							   <xsl:value-of select="user:CreateProperty(fieldtype, fieldname)" disable-output-escaping="yes"/>
						   </xsl:for-each>

						   <xsl:value-of select="data_7"/>

					   </xsl:template>
				   </xsl:stylesheet>

		Return xslt

	End Function

End Module