// - 2. Special registers (allocate a storage area on reference) -
 internal StorageArea CreateLinageCounterSpecialRegister(CodeElementsParser.LinageCounterSpecialRegisterContext context)
 {
     return new FilePropertySpecialRegister(
         ParseTreeUtils.GetFirstToken(context.LINAGE_COUNTER()),
         CobolWordsBuilder.CreateFileNameReference(context.fileNameReference()));
 }
예제 #2
0
 // - 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;
 }