smalltalk
/
osmo-st-gsm
Archived
1
0
Fork 0
Code Releases Activity

GSM48: Move the class below the SimpelData definition

This commit is contained in:
Holger Hans Peter Freyther 2010-11-26 22:01:22 +01:00
parent 1bc0b1e49d
commit d16e674f22
1 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
GSM48.st
View File

@ -232,39 +232,6 @@ GSM48IE subclass: GSM48MIdentity [
]
]
GSM48IE subclass: GSM48RejectCause [
| cause |
GSM48RejectCause class >> createDefault [
<category: 'creation'>
^ self new
cause: 11;
yourself.
]
GSM48RejectCause class >> length: aByteArray [
^ 1
]
GSM48RejectCause class >> parseFrom: aByteArray [
^ self new
cause: (aByteArray at: 1);
yourself
]
cause [
^ cause
]
cause: aCause [
cause := aCause.
]
writeOnDirect: aMsg [
aMsg putByte: cause.
]
]
GSM48IE subclass: GSM48SimpleData [
| data |
@ -326,6 +293,39 @@ GSM48IE subclass: GSM48SimpleData [
]
]
GSM48IE subclass: GSM48RejectCause [
| cause |
GSM48RejectCause class >> createDefault [
<category: 'creation'>
^ self new
cause: 11;
yourself.
]
GSM48RejectCause class >> length: aByteArray [
^ 1
]
GSM48RejectCause class >> parseFrom: aByteArray [
^ self new
cause: (aByteArray at: 1);
yourself
]
cause [
^ cause
]
cause: aCause [
cause := aCause.
]
writeOnDirect: aMsg [
aMsg putByte: cause.
]
]
GSM48SimpleData subclass: GSM48AuthRand [
<category: 'osmo-meesage'>
<comment: 'I represent the 10.5.3.1 Authentication parameter RAND'>