/// <summary>
/// parses ( Variable list ) in CREATE FUNCTION, CREATE VIEW, CREATE PROCEDURE, CREATE TRIGGER
/// adds a newline for each comma in
/// CREATE PROC name (@variable, @variable)
/// </summary>
private void Parse_CREATE(ref ParseItem i_Item)
{
i_Item = i_Item.Next;
switch (getCmd(i_Item))
{
case eCmd.Function:
case eCmd.Procedure:
case eCmd.Trigger:
case eCmd.View:
break;
default:
return; // CREATE command not supported (e.g. CREATE DATABASE)
}
i_Item = i_Item.Next;
if (getType(i_Item) != eType.Unknown)
return; // name of procedure, function,... is missing
// Set linebreak after name
ParseItem.SetLinebreakAfter(i_Item, 1);
// indent only the outermost parenthesis (not "varchar(128)") if it contains a comma
int s32_Parenth = 0;
bool b_Indented = false;
bool b_RemoveLF = true;
do
{
Application.DoEvents();
if (mb_Abort)
return;
i_Item = i_Item.Next;
switch (getType(i_Item))
{
case eType.ParOpen:
if (s32_Parenth == 0)
{
if (i_Item.Contains(eType.Comma)) // ( .. , .. , .. )
{
i_Item.Indent = eIndent.DoubleLF;
b_Indented = true;
}
}
s32_Parenth++;
break;
case eType.ParClose:
s32_Parenth--;
if (b_Indented && s32_Parenth == 0)
{
i_Item.Outdent = eIndent.DoubleLF;
b_Indented = false;
}
break;
case eType.LineBreak:
if (b_RemoveLF)
i_Item.Remove(false); // remove user linebreaks
break;
case eType.Comma: // newline for each comma in CREATE (@variable, @variable)
if (getType(i_Item.Next) != eType.CommentL)
ParseItem.SetLinebreakAfter(i_Item, 1);
break;
case eType.Keyword:
switch (i_Item.Cmd)
{
case eCmd.As:
if (s32_Parenth == 0) // ignore AS inside parenthesis
{
ParseItem.SetLinebreakBefore(i_Item, 1);
return; // stop parsing here
}
break;
case eCmd.On: // Trigger
ParseItem.SetLinebreakBefore(i_Item, 1);
b_RemoveLF = false; // no further linebreak parsing for triggers
break;
case eCmd.Returns: // Function
ParseItem.SetLinebreakBefore(i_Item, 1);
break;
}
break;
case eType.Comand:
switch (i_Item.Cmd)
{
// in a Trigger these words are keywords and not commands
case eCmd.Delete:
case eCmd.Insert:
case eCmd.Update:
i_Item.Type = eType.Keyword;
break;
}
break;
}
}
while (i_Item != null);
}