Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
gargantext-ihaskell
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
gargantext-ihaskell
Commits
8de1a9e0
Commit
8de1a9e0
authored
Oct 03, 2016
by
Libby Horacek
Committed by
Sumit Sahrawat
Oct 10, 2016
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add CommInfoRequest and CommInfoReply
parent
73791d37
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
41 additions
and
0 deletions
+41
-0
EasyKernel.hs
ipython-kernel/src/IHaskell/IPython/EasyKernel.hs
+6
-0
Parser.hs
ipython-kernel/src/IHaskell/IPython/Message/Parser.hs
+6
-0
Writer.hs
ipython-kernel/src/IHaskell/IPython/Message/Writer.hs
+7
-0
Types.hs
ipython-kernel/src/IHaskell/IPython/Types.hs
+15
-0
Main.hs
main/Main.hs
+7
-0
No files found.
ipython-kernel/src/IHaskell/IPython/EasyKernel.hs
View file @
8de1a9e0
...
...
@@ -174,6 +174,12 @@ replyTo config _ _ KernelInfoRequest{} replyHeader =
,
protocolVersion
=
kernelProtocolVersion
config
}
replyTo
config
_
_
CommInfoRequest
{}
replyHeader
=
return
CommInfoReply
{
header
=
replyHeader
,
commInfo
=
[]
}
replyTo
config
_
interface
ShutdownRequest
{
restartPending
=
pending
}
replyHeader
=
do
liftIO
$
writeChan
(
shellReplyChannel
interface
)
$
ShutdownReply
replyHeader
pending
liftIO
exitSuccess
...
...
ipython-kernel/src/IHaskell/IPython/Message/Parser.hs
View file @
8de1a9e0
...
...
@@ -90,6 +90,7 @@ parser ShutdownRequestMessage = shutdownRequestParser
parser
InputReplyMessage
=
inputReplyParser
parser
CommOpenMessage
=
commOpenParser
parser
CommDataMessage
=
commDataParser
parser
CommInfoRequestMessage
=
commInfoRequestParser
parser
CommCloseMessage
=
commCloseParser
parser
HistoryRequestMessage
=
historyRequestParser
parser
StatusMessage
=
statusMessageParser
...
...
@@ -104,6 +105,11 @@ parser other = error $ "Unknown message type " ++ show other
kernelInfoRequestParser
::
LByteString
->
Message
kernelInfoRequestParser
_
=
KernelInfoRequest
{
header
=
noHeader
}
-- | Parse a comm info request. A comm info request has no auxiliary information, so ignore the
-- body.
commInfoRequestParser
::
LByteString
->
Message
commInfoRequestParser
_
=
CommInfoRequest
{
header
=
noHeader
}
-- | Parse an execute_input response. Fields used are:
executeInputParser
::
LByteString
->
Message
executeInputParser
=
requestParser
$
\
obj
->
do
...
...
ipython-kernel/src/IHaskell/IPython/Message/Writer.hs
View file @
8de1a9e0
...
...
@@ -32,6 +32,13 @@ instance ToJSON Message where
,
"language_info"
.=
languageInfo
rep
]
toJSON
CommInfoReply
{
header
=
header
,
commInfo
=
commInfo
}
=
object
[
"comm_info"
.=
commInfo
]
toJSON
ExecuteRequest
{
getCode
=
code
,
getSilent
=
silent
...
...
ipython-kernel/src/IHaskell/IPython/Types.hs
View file @
8de1a9e0
...
...
@@ -193,6 +193,8 @@ data MessageType = KernelInfoReplyMessage
|
InputReplyMessage
|
CommOpenMessage
|
CommDataMessage
|
CommInfoRequestMessage
|
CommInfoReplyMessage
|
CommCloseMessage
|
HistoryRequestMessage
|
HistoryReplyMessage
...
...
@@ -224,6 +226,8 @@ showMessageType InputRequestMessage = "input_request"
showMessageType
InputReplyMessage
=
"input_reply"
showMessageType
CommOpenMessage
=
"comm_open"
showMessageType
CommDataMessage
=
"comm_msg"
showMessageType
CommInfoRequestMessage
=
"comm_info_request"
showMessageType
CommInfoReplyMessage
=
"comm_info_reply"
showMessageType
CommCloseMessage
=
"comm_close"
showMessageType
HistoryRequestMessage
=
"history_request"
showMessageType
HistoryReplyMessage
=
"history_reply"
...
...
@@ -256,6 +260,8 @@ instance FromJSON MessageType where
"input_reply"
->
return
InputReplyMessage
"comm_open"
->
return
CommOpenMessage
"comm_msg"
->
return
CommDataMessage
"comm_info_request"
->
return
CommInfoRequestMessage
"comm_info_reply"
->
return
CommInfoReplyMessage
"comm_close"
->
return
CommCloseMessage
"history_request"
->
return
HistoryRequestMessage
"history_reply"
->
return
HistoryReplyMessage
...
...
@@ -293,6 +299,14 @@ data Message =
,
implementation
::
String
-- ^ e.g. IHaskell
,
implementationVersion
::
String
-- ^ The version of the implementation
,
languageInfo
::
LanguageInfo
|
-- | A request from a frontend for information about the comms.
CommInfoRequest
{
header
::
MessageHeader
}
|
-- | A response to a CommInfoRequest.
CommInfoReply
{
header
::
MessageHeader
,
commInfo
::
[(
String
,
String
)]
-- ^ A dictionary of the comms, indexed by uuids.
}
|
-- | A request from a frontend to execute some code.
...
...
@@ -519,6 +533,7 @@ replyType InspectRequestMessage = Just InspectReplyMessage
replyType
ShutdownRequestMessage
=
Just
ShutdownReplyMessage
replyType
HistoryRequestMessage
=
Just
HistoryReplyMessage
replyType
CommOpenMessage
=
Just
CommDataMessage
replyType
CommInfoRequestMessage
=
Just
CommInfoReplyMessage
replyType
_
=
Nothing
-- | Data for display: a string with associated MIME type.
...
...
main/Main.hs
View file @
8de1a9e0
...
...
@@ -263,6 +263,13 @@ replyTo _ KernelInfoRequest{} replyHeader state =
}
})
replyTo
_
CommInfoRequest
{}
replyHeader
state
=
return
(
state
,
CommInfoReply
{
header
=
replyHeader
,
commInfo
=
[]
})
-- Reply to a shutdown request by exiting the main thread. Before shutdown, reply to the request to
-- let the frontend know shutdown is happening.
replyTo
interface
ShutdownRequest
{
restartPending
=
restartPending
}
replyHeader
_
=
liftIO
$
do
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment