From f653a23da50f2a2a7a7f7c89cc9dcdc5aac9cee8 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Tue, 25 Dec 2012 10:43:07 +0100
Subject: [PATCH] gsm: Provide access to the cell description..

---
 GSM48.st | 17 +++++++++++++++++
 Tests.st |  5 +++++
 2 files changed, 22 insertions(+)

diff --git a/GSM48.st b/GSM48.st
index 34e66e4..6c20156 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -291,6 +291,23 @@ GSM48SimpleData subclass: GSM48CellDescription [
     <comment: 'I represent a 10.5.2.2 Cell Description'>
     <gsmName: 'cellDescription'>
     <gsmValueLength: 2>
+
+    ncc [
+        <category: 'accessing'>
+        ^ (data first bitShift: -3) bitAnd: 2r111
+    ]
+
+    bcc [
+        <category: 'accessing'>
+        ^ (data first bitShift: -0) bitAnd: 2r111
+    ]
+
+    bcch [
+        | hi low |
+        hi := data first bitShift: -6.
+        low := data second.
+        ^ (hi bitShift: 8) bitOr: low.
+    ]
 ]
 
 GSM48SimpleData subclass: GSM48ChannelDescription [
diff --git a/Tests.st b/Tests.st
index b0b8669..4866593 100644
--- a/Tests.st
+++ b/Tests.st
@@ -435,6 +435,11 @@ TestCase subclass: GSM48Test [
         inp := #(16r06 16r2B 16rFF 16r29 16r0B 16rE3 16r29 16r00 16r00) asByteArray.
         dec := GSM48MSG decode: inp readStream.
         self assert: dec toMessage asByteArray = inp.
+
+        "Now test some decoding inside"
+        self assert: dec cellDescription bcc = 7.
+        self assert: dec cellDescription ncc = 7.
+        self assert: dec cellDescription bcch = 809.
     ]
 ]