Skip to content

Commit b77552f

Browse files
committed
Adds ChrB and Space function aliases
Closes #3219
1 parent 619ab9b commit b77552f

File tree

2 files changed

+41
-0
lines changed

2 files changed

+41
-0
lines changed

Rubberduck.Parsing/Grammar/Tokens.cs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -27,6 +27,7 @@ public static class Tokens
2727
public static readonly string ChDir = "ChDir";
2828
public static readonly string ChDrive = "ChDrive";
2929
public static readonly string Chr = "Chr";
30+
public static readonly string ChrB = "ChrB";
3031
public static readonly string ChrW = "ChrW";
3132
public static readonly string CInt = "CInt";
3233
public static readonly string CLng = "CLng";

Rubberduck.Parsing/Symbols/DeclarationLoaders/AliasDeclarations.cs

Lines changed: 40 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -38,6 +38,7 @@ public IReadOnlyList<Declaration> Load()
3838
Grammar.Tokens.Command,
3939
Grammar.Tokens.Environ,
4040
Grammar.Tokens.Chr,
41+
Grammar.Tokens.ChrB,
4142
Grammar.Tokens.ChrW,
4243
Grammar.Tokens.Format,
4344
Grammar.Tokens.LCase,
@@ -50,6 +51,7 @@ public IReadOnlyList<Declaration> Load()
5051
Grammar.Tokens.Right,
5152
Grammar.Tokens.RightB,
5253
Grammar.Tokens.RTrim,
54+
Grammar.Tokens.Space,
5355
Grammar.Tokens.String,
5456
Grammar.Tokens.UCase,
5557
Grammar.Tokens.Date,
@@ -179,6 +181,7 @@ private List<FunctionDeclaration> FunctionAliasesWithoutParameters()
179181
CommandFunction(),
180182
EnvironFunction(),
181183
ChrFunction(),
184+
ChrBFunction(),
182185
ChrwFunction(),
183186
FormatFunction(),
184187
LCaseFunction(),
@@ -191,6 +194,7 @@ private List<FunctionDeclaration> FunctionAliasesWithoutParameters()
191194
RightFunction(),
192195
RightBFunction(),
193196
RTrimFunction(),
197+
SpaceFunction(),
194198
StringFunction(),
195199
UCaseFunction(),
196200
InputFunction(),
@@ -360,6 +364,24 @@ private FunctionDeclaration ChrFunction()
360364
new Attributes());
361365
}
362366

367+
private FunctionDeclaration ChrBFunction()
368+
{
369+
return new FunctionDeclaration(
370+
new QualifiedMemberName(_stringsModule.QualifiedName.QualifiedModuleName, "ChrB"),
371+
_stringsModule,
372+
_stringsModule,
373+
"Variant",
374+
null,
375+
string.Empty,
376+
Accessibility.Global,
377+
null,
378+
new Selection(),
379+
false,
380+
false,
381+
new List<IAnnotation>(),
382+
new Attributes());
383+
}
384+
363385
private FunctionDeclaration ChrwFunction()
364386
{
365387
return new FunctionDeclaration(
@@ -576,6 +598,24 @@ private FunctionDeclaration RTrimFunction()
576598
new Attributes());
577599
}
578600

601+
private FunctionDeclaration SpaceFunction()
602+
{
603+
return new FunctionDeclaration(
604+
new QualifiedMemberName(_stringsModule.QualifiedName.QualifiedModuleName, "Space"),
605+
_stringsModule,
606+
_stringsModule,
607+
"Variant",
608+
null,
609+
string.Empty,
610+
Accessibility.Global,
611+
null,
612+
new Selection(),
613+
false,
614+
false,
615+
new List<IAnnotation>(),
616+
new Attributes());
617+
}
618+
579619
private FunctionDeclaration StringFunction()
580620
{
581621
return new FunctionDeclaration(

0 commit comments

Comments
 (0)