//#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); }