//#define FOO (～～) id to wc
//#define BAR($1) (～～) idwithargs to wc(replaced)
//#diseble FOOBAR
//#dim piyo, i
//#dims puyo, j
//static List<string> keywordsList = new List<string>();
private void analyzeSharpDefine(StringStream st, ScriptPosition position)
{
//LexicalAnalyzer.SkipWhiteSpace(st);呼び出し前に行う。
var srcID = LexicalAnalyzer.ReadSingleIdentifier(st);
if (srcID == null)
{
throw new CodeEE("置換元の識別子がありません", position);
}
if (Config.ICVariable)
{
srcID = srcID.ToUpper();
}
//ここで名称重複判定しないと、大変なことになる
var errMes = "";
var errLevel = -1;
idDic.CheckUserMacroName(ref errMes, ref errLevel, srcID);
if (errLevel >= 0)
{
ParserMediator.Warn(errMes, position, errLevel);
if (errLevel >= 2)
{
noError = false;
return;
}
}
var hasArg = st.Current == '('; //引数を指定する場合には直後に(が続いていなければならない。ホワイトスペースも禁止。
//1808a3 代入演算子許可（関数宣言用）
var wc = LexicalAnalyzer.Analyse(st, LexEndWith.EoL, LexAnalyzeFlag.AllowAssignment);
if (wc.EOL)
{
//throw new CodeEE("置換先の式がありません", position);
//1808a3 空マクロの許可
var nullmac = new DefineMacro(srcID, new WordCollection(), 0);
idDic.AddMacro(nullmac);
return;
}
var argID = new List <string>();
if (hasArg) //関数型マクロの引数解析
{
wc.ShiftNext(); //'('を読み飛ばす
if (wc.Current.Type == ')')
{
throw new CodeEE("関数型マクロの引数を0個にすることはできません", position);
}
while (!wc.EOL)
{
var word = wc.Current as IdentifierWord;
if (word == null)
{
throw new CodeEE("置換元の引数指定の書式が間違っています", position);
}
word.SetIsMacro();
var id = word.Code;
if (argID.Contains(id))
{
throw new CodeEE("置換元の引数に同じ文字が2回以上使われています", position);
}
argID.Add(id);
wc.ShiftNext();
if (wc.Current.Type == ',')
{
wc.ShiftNext();
continue;
}
if (wc.Current.Type == ')')
{
break;
}
throw new CodeEE("置換元の引数指定の書式が間違っています", position);
}
if (wc.EOL)
{
throw new CodeEE("')'が閉じられていません", position);
}
wc.ShiftNext();
}
if (wc.EOL)
{
throw new CodeEE("置換先の式がありません", position);
}
var destWc = new WordCollection();
while (!wc.EOL)
{
destWc.Add(wc.Current);
wc.ShiftNext();
}
if (hasArg) //関数型マクロの引数セット
{
while (!destWc.EOL)
{
var word = destWc.Current as IdentifierWord;
if (word == null)
{
destWc.ShiftNext();
continue;
}
for (var i = 0; i < argID.Count; i++)
{
if (string.Equals(word.Code, argID[i], Config.SCVariable))
{
destWc.Remove();
destWc.Insert(new MacroWord(i));
break;
}
}
destWc.ShiftNext();
}
destWc.Pointer = 0;
}
if (hasArg) //1808a3 関数型マクロの封印
{
throw new CodeEE("関数型マクロは宣言できません", position);
}
var mac = new DefineMacro(srcID, destWc, argID.Count);
idDic.AddMacro(mac);
}
