493 lines
12 KiB
Smalltalk
493 lines
12 KiB
Smalltalk
"
|
|
(C) 2011 by Holger Hans Peter Freyther
|
|
All Rights Reserved
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Affero General Public License as
|
|
published by the Free Software Foundation, either version 3 of the
|
|
License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU Affero General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Affero General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
"
|
|
|
|
PackageLoader fileInPackage: 'PetitParser'.
|
|
|
|
PP.PPCompositeParser subclass: SIPGrammar [
|
|
| Response StatusLine message_header
|
|
CRLF SP HTAB HCOLON SWS LWS WSP COMMA SEMI SLASH COLON EQUAL
|
|
message_body SIPVersion StatusCode ReasonPhrase
|
|
extension_header header_name header_value
|
|
Request RequestLine Method extension_method
|
|
RequestURI
|
|
|
|
|
"http://sofia-sip.org/repos/sofia-sip/libsofia-sip-ua/sip/GRAMMAR"
|
|
<category: 'SIP-Core'>
|
|
<comment: 'I try to parse RFC3261'>
|
|
|
|
start [
|
|
<category: 'start'>
|
|
^ Request / Response
|
|
]
|
|
|
|
CRLF [
|
|
<category: 'misc'>
|
|
^ Character cr asParser, Character nl asParser
|
|
]
|
|
|
|
SP [
|
|
<category: 'misc'>
|
|
^ $ asParser
|
|
]
|
|
|
|
Request [
|
|
<category: 'request'>
|
|
^ RequestLine, message_header star, CRLF, message_body optional
|
|
]
|
|
|
|
RequestLine [
|
|
<category: 'request'>
|
|
^ Method, SP, RequestURI, SP, SIPVersion, CRLF
|
|
]
|
|
|
|
RequestURI [
|
|
<category: 'request'>
|
|
^ self SIPURI / self SIPSURI
|
|
]
|
|
|
|
SIPURI [
|
|
<category: 'request'>
|
|
^ 'sip:' asParser , self userinfo optional,
|
|
self hostport, self uri_parameters, self headers optional.
|
|
]
|
|
|
|
SIPSURI [
|
|
<category: 'request'>
|
|
^ 'sips:' asParser , self userinfo optional,
|
|
self hostport, self uri_parameters, self headers optional.
|
|
]
|
|
|
|
hostport [
|
|
<category: 'generic'>
|
|
^ self host, ($: asParser, self port) optional
|
|
]
|
|
|
|
host [
|
|
<category: 'generic'>
|
|
"TODO: too simplieified"
|
|
^ (#letter asParser / #digit asParser / $. asParser / $- asParser) plus flatten
|
|
]
|
|
|
|
port [
|
|
<category: 'generic'>
|
|
^ #digit asParser plus flatten
|
|
]
|
|
|
|
uri_parameters [
|
|
<category: 'generic'>
|
|
^ ($; asParser, self uri_parameter) star
|
|
]
|
|
|
|
uri_parameter [
|
|
<category: 'generic'>
|
|
"TODO: simplified"
|
|
^ self other_param
|
|
]
|
|
|
|
other_param [
|
|
<category: 'generic'>
|
|
^ self pname, ($= asParser, self pvalue) optional
|
|
]
|
|
|
|
pname [
|
|
<category: 'generic'>
|
|
^ self paramchar plus flatten
|
|
]
|
|
|
|
pvalue [
|
|
<category: 'generic'>
|
|
^ self paramchar plus flatten
|
|
]
|
|
|
|
paramchar [
|
|
<category: 'generic'>
|
|
^ self param_unreserved / self unreserved / self escaped
|
|
]
|
|
|
|
param_unreserved [
|
|
<category: 'generic'>
|
|
^ $[ asParser / $] asParser / $/ asParser / $: asParser /
|
|
$& asParser / $+ asParser / $$ asParser.
|
|
]
|
|
|
|
headers [
|
|
<category: 'generic'>
|
|
^ $? asParser, self header, ($& asParser, self header) star
|
|
]
|
|
|
|
header [
|
|
<category: 'generic'>
|
|
^ self hname, $= asParser, self hvalue
|
|
]
|
|
|
|
hname [
|
|
<category: 'generic'>
|
|
^ (self hnv_unreserved / self unreserved / self escaped) plus flatten
|
|
]
|
|
|
|
hvalue [
|
|
<category: 'generic'>
|
|
^ (self hnv_unreserved / self unreserved / self escaped) star flatten
|
|
]
|
|
|
|
hnv_unreserved [
|
|
<category: 'generic'>
|
|
^ $[ asParser / $] asParser / $/ asParser / $? asParser /
|
|
$: asParser / $+ asParser / $$ asParser.
|
|
]
|
|
|
|
userinfo [
|
|
<category: 'generic'>
|
|
"telephone-subscriber not defined"
|
|
^ ( self user "/ self telephone_subscriber"),
|
|
($: asParser, self password) optional, $@ asParser
|
|
]
|
|
|
|
user [
|
|
<category: 'generic'>
|
|
^ (self unreserved / self escaped / self user_unreserved) plus flatten
|
|
]
|
|
|
|
user_unreserved [
|
|
<category: 'generic'>
|
|
^ $& asParser / $= asParser / $+ asParser / $$ asParser / $, asParser / $; asParser / $? asParser / $/ asParser
|
|
]
|
|
|
|
escaped [
|
|
<category: 'generic'>
|
|
^ $% asParser, self HEXDIG, self HEXDIG
|
|
]
|
|
|
|
HEXDIG [
|
|
<category: 'RFC5234'>
|
|
^ #digit asParser / $A asParser / $B asParser / $C asParser /
|
|
$D asParser / $E asParser / $F asParser
|
|
]
|
|
|
|
unreserved [
|
|
<category: 'generic'>
|
|
^ (#letter asParser / #digit asParser) / self mark
|
|
]
|
|
|
|
reserved [
|
|
<category: 'generic'>
|
|
^ ($; asParser / $/ asParser / $? asParser / $: asParser /
|
|
$@ asParser / $& asParser / $= asParser / $+ asParser /
|
|
$$ asParser / $, asParser)
|
|
]
|
|
|
|
mark [
|
|
^ $- asParser / $_ asParser / $. asParser / $! asParser / $~ asParser /
|
|
$* asParser / $' asParser / $( asParser / $) asParser
|
|
]
|
|
|
|
password [
|
|
<category: 'request'>
|
|
^ ( self unreserved / self escaped / $& asParser /
|
|
$= asParser / $+ asParser / $$ asParser / $, asParser) star
|
|
]
|
|
|
|
Method [
|
|
<category: 'request'>
|
|
^ 'INVITE' asParser /
|
|
'ACK' asParser /
|
|
'OPTIONS' asParser /
|
|
'BYE' asParser /
|
|
'CANCEL' asParser /
|
|
'REGISTER' asParser /
|
|
extension_method
|
|
]
|
|
|
|
extension_method [
|
|
^ self token
|
|
]
|
|
|
|
Response [
|
|
<category: 'response'>
|
|
^ StatusLine, message_header star, CRLF, message_body optional
|
|
]
|
|
|
|
StatusLine [
|
|
<category: 'response'>
|
|
^ SIPVersion, SP, StatusCode, SP, ReasonPhrase, CRLF
|
|
]
|
|
|
|
SIPVersion [
|
|
<category: 'generic'>
|
|
^ 'SIP/' asParser, #digit asParser, $. asParser, #digit asParser
|
|
]
|
|
|
|
StatusCode [
|
|
<category: 'response'>
|
|
"Combined into one..."
|
|
^ '100' asParser / "Trying"
|
|
'180' asParser / "Ringing"
|
|
'181' asParser / "Call Is Being Forwarded"
|
|
'182' asParser / "Queued"
|
|
'183' asParser / "Session Progress"
|
|
|
|
'200' asParser / "OK"
|
|
|
|
'300' asParser / "Multiple Choices"
|
|
'301' asParser / "Moved Permanently"
|
|
'302' asParser / "Moved Temporarily"
|
|
'380' asParser / "Alternative Service"
|
|
|
|
'400' asParser / "Bad Request"
|
|
'401' asParser / "Unauthorized"
|
|
'402' asParser / "Payment Required"
|
|
'403' asParser / "Forbidden"
|
|
'404' asParser / "Not Found"
|
|
'405' asParser / "Method Not Allowed"
|
|
'406' asParser / "Not Acceptable"
|
|
'407' asParser / "Proxy Authentication Required"
|
|
'408' asParser / "Request Timeout"
|
|
'410' asParser / "Gone"
|
|
'413' asParser / "Request Entity Too Large"
|
|
'414' asParser / "Request-URI Too Large"
|
|
'415' asParser / "Unsupported Media Type"
|
|
'416' asParser / "Unsupported URI Scheme"
|
|
'420' asParser / "Bad Extension"
|
|
'421' asParser / "Extension Required"
|
|
'423' asParser / "Interval Too Brief"
|
|
'480' asParser / "Temporarily not available"
|
|
'481' asParser / "Call Leg/Transaction Does Not Exist"
|
|
'482' asParser / "Loop Detected"
|
|
'483' asParser / "Too Many Hops"
|
|
'484' asParser / "Address Incomplete"
|
|
'485' asParser / "Ambiguous"
|
|
'486' asParser / "Busy Here"
|
|
'487' asParser / "Request Terminated"
|
|
'488' asParser / "Not Acceptable Here"
|
|
'491' asParser / "Request Pending"
|
|
'493' asParser / "Undecipherable"
|
|
|
|
'500' asParser / "Internal Server Error"
|
|
'501' asParser / "Not Implemented"
|
|
'502' asParser / "Bad Gateway"
|
|
'503' asParser / "Service Unavailable"
|
|
'504' asParser / "Server Time-out"
|
|
'505' asParser / "SIP Version not supported"
|
|
'513' asParser / "Message Too Large"
|
|
|
|
'600' asParser / "Busy Everywhere"
|
|
'603' asParser /"Decline"
|
|
'604' asParser /"Does not exist anywhere"
|
|
'606' asParser "Not Acceptable"
|
|
]
|
|
|
|
ReasonPhrase [
|
|
<category: 'response'>
|
|
|
|
^ (self reserved / self unreserved / self escaped /
|
|
SP / HTAB / #letter asParser) star flatten
|
|
]
|
|
|
|
message_header [
|
|
"Simplified..."
|
|
<category: 'generic'>
|
|
|
|
^ (self Via / self CSeq / extension_header), CRLF
|
|
]
|
|
|
|
message_body [
|
|
^ #any asParser plus flatten
|
|
]
|
|
|
|
Via [
|
|
<category: 'via'>
|
|
^ ( 'Via' asParser / 'v' asParser), self HCOLON,
|
|
self via_parm, (COMMA, self via_parm) star
|
|
]
|
|
|
|
via_parm [
|
|
<category: 'via'>
|
|
^ self sent_protocol, LWS, self sent_by, (SEMI, self via_params) star
|
|
]
|
|
|
|
via_params [
|
|
<category: 'via'>
|
|
^ self via_ttl / self via_maddr / self via_received /
|
|
self via_branch / self via_extension
|
|
]
|
|
|
|
via_ttl [
|
|
<category: 'via'>
|
|
^ 'ttl' asParser, EQUAL, self ttl
|
|
]
|
|
|
|
via_maddr [
|
|
<category: 'via'>
|
|
^ 'maadr' asParser, EQUAL, self host
|
|
]
|
|
|
|
via_received [
|
|
<category: 'via'>
|
|
"TODO: IPv6 support is missing"
|
|
^ 'received' asParser, EQUAL, (self IPv4address)
|
|
]
|
|
|
|
via_branch [
|
|
<category: 'via'>
|
|
^ 'branch' asParser, EQUAL, self token
|
|
]
|
|
|
|
via_extension [
|
|
<category: 'via'>
|
|
^ self generic_param
|
|
]
|
|
|
|
ttl [
|
|
<category: 'generic'>
|
|
^ #digit asParser min: 1 max: 3
|
|
]
|
|
|
|
IPv4address [
|
|
^ (#digit asParser min: 1 max: 3), $. asParser,
|
|
(#digit asParser min: 1 max: 3), $. asParser,
|
|
(#digit asParser min: 1 max: 3), $. asParser,
|
|
(#digit asParser min: 1 max: 3).
|
|
]
|
|
|
|
CSeq [
|
|
<category: 'cseq'>
|
|
^ 'CSeq' asParser, HCOLON, (#digit asParser plus flatten, LWS, self Method)
|
|
]
|
|
|
|
generic_param [
|
|
<category: 'generic'>
|
|
^ self token, (EQUAL, self gen_value) optional
|
|
]
|
|
|
|
gen_value [
|
|
<category: 'generic'>
|
|
"TODO: quoted string not ported"
|
|
^ self token / self host "/ self quoted_string"
|
|
]
|
|
|
|
sent_protocol [
|
|
<category: 'via'>
|
|
^ self protocol_name, SLASH, self protocol_version, SLASH, self transport
|
|
]
|
|
|
|
sent_by [
|
|
<category: 'via'>
|
|
^ self host, (COLON, self port) optional
|
|
]
|
|
|
|
protocol_name [
|
|
<category: 'via'>
|
|
^ 'SIP' asParser / self token.
|
|
]
|
|
|
|
protocol_version [
|
|
<category: 'via'>
|
|
^ self token
|
|
]
|
|
|
|
transport [
|
|
<category: 'via'>
|
|
^ 'UDP' asParser / 'TCP' asParser / 'TLS' asParser /
|
|
'SCTP' asParser / self other_transport
|
|
]
|
|
|
|
other_transport [
|
|
<category: 'via'>
|
|
^ self token
|
|
]
|
|
|
|
extension_header [
|
|
<category: 'generic'>
|
|
^ header_name, HCOLON, header_value
|
|
]
|
|
|
|
token [
|
|
<category: 'generic'>
|
|
|
|
^ (#letter asParser / #digit asParser /
|
|
$- asParser / $. asParser /
|
|
$! asParser / $% asParser /
|
|
$* asParser / $_ asParser /
|
|
$+ asParser / $` asParser /
|
|
$' asParser / $~ asParser) star flatten
|
|
]
|
|
|
|
header_name [
|
|
<category: 'generic'>
|
|
"hmm 1*() should be optional but it must be star here"
|
|
^ self token
|
|
]
|
|
|
|
header_value [
|
|
<category: 'generic'>
|
|
"TODO: TEXT-UTF8char / UTF8-CONT"
|
|
^ (#letter asParser / #digit asParser / #punctuation asParser / #blank asParser / LWS) star flatten
|
|
]
|
|
|
|
HTAB [
|
|
<category: 'generic'>
|
|
^ Character tab asParser
|
|
]
|
|
|
|
HCOLON [
|
|
<category: 'generic'>
|
|
|
|
^ (SP / HTAB) star, $: asParser, SWS
|
|
]
|
|
|
|
WSP [
|
|
<category: 'misc'>
|
|
^ #blank asParser
|
|
]
|
|
|
|
LWS [
|
|
<category: 'generic'>
|
|
^ (WSP star, CRLF) optional, WSP plus
|
|
]
|
|
|
|
COMMA [
|
|
<category: 'generic'>
|
|
^ SWS, $, asParser, SWS
|
|
]
|
|
|
|
SEMI [
|
|
<category: 'generic'>
|
|
^ SWS, $; asParser, SWS
|
|
]
|
|
|
|
SLASH [
|
|
<category: 'generic'>
|
|
^ SWS, $/ asParser, SWS
|
|
]
|
|
|
|
COLON [
|
|
<category: 'generic'>
|
|
^ SWS, $: asParser, SWS
|
|
]
|
|
|
|
EQUAL [
|
|
<category: 'generic'>
|
|
^ SWS, $= asParser, SWS
|
|
]
|
|
|
|
SWS [
|
|
<category: 'generic'>
|
|
^ LWS optional
|
|
]
|
|
]
|