// - 2. Special registers (allocate a storage area on reference) -
internal StorageArea CreateLinageCounterSpecialRegister(CodeElementsParser.LinageCounterSpecialRegisterContext context)
{
var specialRegister = new FilePropertySpecialRegister(
ParseTreeUtils.GetFirstToken(context.LINAGE_COUNTER()),
CobolWordsBuilder.CreateFileNameReference(context.fileNameReference()));
if(specialRegister.DataDescriptionEntry != null) {
var dataDescription = specialRegister.DataDescriptionEntry;
CobolWordsBuilder.symbolInformationForTokens[specialRegister.DataDescriptionEntry.DataName.NameLiteral.Token] = specialRegister.DataDescriptionEntry.DataName;
}
if (specialRegister.SymbolReference != null) {
CobolWordsBuilder.symbolInformationForTokens[specialRegister.SymbolReference.NameLiteral.Token] = specialRegister.SymbolReference;
}
return specialRegister;
}
public virtual bool Visit(FilePropertySpecialRegister filePropertySpecialRegister)
{
return(true);
}