Start transitioning towards using 'let X = y in' statements, instead of 'set X = y in'.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@7562 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Chris Lattner 2003-08-04 04:56:53 +00:00
parent e9d019c364
commit 42aa89eeb1
4 changed files with 42 additions and 40 deletions

View File

@ -159,7 +159,8 @@ dag { return DAG; }
class { return CLASS; }
def { return DEF; }
field { return FIELD; }
set { return SET; }
let { return LET; }
set { return LET; }
in { return IN; }
{Identifier} { Filelval.StrVal = new std::string(yytext, yytext+yyleng);

View File

@ -18,18 +18,18 @@ static Record *CurRec = 0;
typedef std::pair<Record*, std::vector<Init*>*> SubClassRefTy;
struct SetRecord {
struct LetRecord {
std::string Name;
std::vector<unsigned> Bits;
Init *Value;
bool HasBits;
SetRecord(const std::string &N, std::vector<unsigned> *B, Init *V)
LetRecord(const std::string &N, std::vector<unsigned> *B, Init *V)
: Name(N), Value(V), HasBits(B != 0) {
if (HasBits) Bits = *B;
}
};
static std::vector<std::vector<SetRecord> > SetStack;
static std::vector<std::vector<LetRecord> > LetStack;
extern std::ostream &err();
@ -168,7 +168,7 @@ static void addSubClass(Record *SC, const std::vector<Init*> &TemplateArgs) {
std::vector<SubClassRefTy> *SubClassList;
};
%token INT BIT STRING BITS LIST CODE DAG CLASS DEF FIELD SET IN
%token INT BIT STRING BITS LIST CODE DAG CLASS DEF FIELD LET IN
%token <IntVal> INTVAL
%token <StrVal> ID STRVAL CODEFRAGMENT
@ -340,7 +340,7 @@ Declaration : OptPrefix Type ID OptValue {
BodyItem : Declaration ';' {
delete $1;
} | SET ID OptBitList '=' Value ';' {
} | LET ID OptBitList '=' Value ';' {
setValue(*$2, $3, $5);
delete $2;
delete $3;
@ -399,11 +399,11 @@ ObjectBody : OptID {
}
// Process any variables on the set stack...
for (unsigned i = 0, e = SetStack.size(); i != e; ++i)
for (unsigned j = 0, e = SetStack[i].size(); j != e; ++j)
setValue(SetStack[i][j].Name,
SetStack[i][j].HasBits ? &SetStack[i][j].Bits : 0,
SetStack[i][j].Value);
for (unsigned i = 0, e = LetStack.size(); i != e; ++i)
for (unsigned j = 0, e = LetStack[i].size(); j != e; ++j)
setValue(LetStack[i][j].Name,
LetStack[i][j].HasBits ? &LetStack[i][j].Bits : 0,
LetStack[i][j].Value);
} Body {
CurRec->resolveReferences();
@ -446,22 +446,22 @@ DefInst : DEF ObjectBody {
Object : ClassInst | DefInst;
SETItem : ID OptBitList '=' Value {
SetStack.back().push_back(SetRecord(*$1, $2, $4));
LETItem : ID OptBitList '=' Value {
LetStack.back().push_back(LetRecord(*$1, $2, $4));
delete $1; delete $2;
};
SETList : SETItem | SETList ',' SETItem;
LETList : LETItem | LETList ',' LETItem;
// SETCommand - A 'SET' statement start...
SETCommand : SET { SetStack.push_back(std::vector<SetRecord>()); } SETList IN;
// LETCommand - A 'LET' statement start...
LETCommand : LET { LetStack.push_back(std::vector<LetRecord>()); } LETList IN;
// Support Set commands wrapping objects... both with and without braces.
Object : SETCommand '{' ObjectList '}' {
SetStack.pop_back();
Object : LETCommand '{' ObjectList '}' {
LetStack.pop_back();
}
| SETCommand Object {
SetStack.pop_back();
| LETCommand Object {
LetStack.pop_back();
};
ObjectList : Object {} | ObjectList Object {};

View File

@ -159,7 +159,8 @@ dag { return DAG; }
class { return CLASS; }
def { return DEF; }
field { return FIELD; }
set { return SET; }
let { return LET; }
set { return LET; }
in { return IN; }
{Identifier} { Filelval.StrVal = new std::string(yytext, yytext+yyleng);

View File

@ -18,18 +18,18 @@ static Record *CurRec = 0;
typedef std::pair<Record*, std::vector<Init*>*> SubClassRefTy;
struct SetRecord {
struct LetRecord {
std::string Name;
std::vector<unsigned> Bits;
Init *Value;
bool HasBits;
SetRecord(const std::string &N, std::vector<unsigned> *B, Init *V)
LetRecord(const std::string &N, std::vector<unsigned> *B, Init *V)
: Name(N), Value(V), HasBits(B != 0) {
if (HasBits) Bits = *B;
}
};
static std::vector<std::vector<SetRecord> > SetStack;
static std::vector<std::vector<LetRecord> > LetStack;
extern std::ostream &err();
@ -168,7 +168,7 @@ static void addSubClass(Record *SC, const std::vector<Init*> &TemplateArgs) {
std::vector<SubClassRefTy> *SubClassList;
};
%token INT BIT STRING BITS LIST CODE DAG CLASS DEF FIELD SET IN
%token INT BIT STRING BITS LIST CODE DAG CLASS DEF FIELD LET IN
%token <IntVal> INTVAL
%token <StrVal> ID STRVAL CODEFRAGMENT
@ -340,7 +340,7 @@ Declaration : OptPrefix Type ID OptValue {
BodyItem : Declaration ';' {
delete $1;
} | SET ID OptBitList '=' Value ';' {
} | LET ID OptBitList '=' Value ';' {
setValue(*$2, $3, $5);
delete $2;
delete $3;
@ -399,11 +399,11 @@ ObjectBody : OptID {
}
// Process any variables on the set stack...
for (unsigned i = 0, e = SetStack.size(); i != e; ++i)
for (unsigned j = 0, e = SetStack[i].size(); j != e; ++j)
setValue(SetStack[i][j].Name,
SetStack[i][j].HasBits ? &SetStack[i][j].Bits : 0,
SetStack[i][j].Value);
for (unsigned i = 0, e = LetStack.size(); i != e; ++i)
for (unsigned j = 0, e = LetStack[i].size(); j != e; ++j)
setValue(LetStack[i][j].Name,
LetStack[i][j].HasBits ? &LetStack[i][j].Bits : 0,
LetStack[i][j].Value);
} Body {
CurRec->resolveReferences();
@ -446,22 +446,22 @@ DefInst : DEF ObjectBody {
Object : ClassInst | DefInst;
SETItem : ID OptBitList '=' Value {
SetStack.back().push_back(SetRecord(*$1, $2, $4));
LETItem : ID OptBitList '=' Value {
LetStack.back().push_back(LetRecord(*$1, $2, $4));
delete $1; delete $2;
};
SETList : SETItem | SETList ',' SETItem;
LETList : LETItem | LETList ',' LETItem;
// SETCommand - A 'SET' statement start...
SETCommand : SET { SetStack.push_back(std::vector<SetRecord>()); } SETList IN;
// LETCommand - A 'LET' statement start...
LETCommand : LET { LetStack.push_back(std::vector<LetRecord>()); } LETList IN;
// Support Set commands wrapping objects... both with and without braces.
Object : SETCommand '{' ObjectList '}' {
SetStack.pop_back();
Object : LETCommand '{' ObjectList '}' {
LetStack.pop_back();
}
| SETCommand Object {
SetStack.pop_back();
| LETCommand Object {
LetStack.pop_back();
};
ObjectList : Object {} | ObjectList Object {};