Support for RPC across ZeroMQ#25

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
brotchie wants to merge 3 commits into
base:master
Choose a base branch
from
Open

Support for RPC across ZeroMQ #25

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
f17673b
Added preliminary C++ enum CodeGen for issue #1.
brotchie Jul 16, 2012
b0f8818
Updated to support conduit 0.5.0.
brotchie Jul 17, 2012
db060a4
Added initial support for a zeromq rpc server.
brotchie Jul 17, 2012
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 11 additions & 0 deletions msgpack-idl/Language/MessagePack/IDL/CodeGen/Cpp.hs
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -83,8 +83,19 @@ genTypeDecl _ MPType { .. } =
typedef #{genType tyType} #{tyName};
|]

genTypeDecl _ MPEnum { ..} =
[lt|
enum #{enumName} {
#{genEnum enumMem}
};|]


genTypeDecl _ _ = ""

genEnum :: [(Int, T.Text)] -> LT.Text
genEnum entries = LT.intercalate ",\n " $ map enumEntry entries
where enumEntry (val, name) = [lt|#{name} = #{show val}|]

genMsg name flds isExc =
let fields = map f flds
fs = map (maybe undefined fldName) $ sortField flds
Expand Down
48 changes: 45 additions & 3 deletions msgpack-rpc/Network/MessagePackRpc/Server.hs
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -27,6 +27,7 @@ module Network.MessagePackRpc.Server (
-- * RPC method types
RpcMethod,
RpcMethodType(..),
Endpoint(..),
-- * Create RPC method
fun,
-- * Start RPC server
Expand All@@ -39,14 +40,17 @@ import Control.DeepSeq
import Control.Exception as E
import Control.Monad
import Control.Monad.Trans
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.Attoparsec as CA
import qualified Data.Attoparsec as A
import Data.Maybe
import Data.MessagePack
import Network
import System.IO
import System.ZMQ

import Prelude hiding (catch)

Expand All@@ -71,19 +75,24 @@ fromObject' o =
fun :: RpcMethodType f => f -> RpcMethod
fun = toRpcMethod

data Endpoint = TCP Int
| ZeroMQ [String]
deriving Show

-- | Start RPC server with a set of RPC methods.
serve :: Int -- ^ Port number
serve :: Endpoint -- ^ listen on this endpoint
-> [(String, RpcMethod)] -- ^ list of (method name, RPC method)
-> IO ()
serve port methods = withSocketsDo $ do

serve (TCP port) methods = withSocketsDo $ do
sock <- listenOn (PortNumber $ fromIntegral port)
forever $ do
(h, host, hostport) <- accept sock
forkIO $
(processRequests h `finally` hClose h) `catches`
[ Handler $ \e ->
case e of
CA.ParseError ["demandInput"] _ -> return ()
CA.ParseError ["demandInput"] _ _ -> return ()
_ -> hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show e
, Handler $ \e ->
hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show (e :: SomeException)]
Expand DownExpand Up@@ -116,3 +125,36 @@ serve port methods = withSocketsDo $ do
fail $ "method '" ++ methodName ++ "' not found"
Just method ->
method args

serve (ZeroMQ endpoints) methods =
withContext 1 $ \ctx ->
withSocket ctx Rep $ \s -> do
mapM_ (bind s) endpoints
forever $ do
req <- receive s []
resp <- processRequest req
send s ((B.concat . BL.toChunks) resp) []
where
processRequest req =
case A.parseOnly get req of
Left _ -> fail "Parsing failed."
Right (rtype, msgid, method, args) -> do
resp <- try $ getResponse rtype method args
case resp of
Left err ->
return $ pack (1 :: Int, msgid :: Int, show (err :: SomeException), ())
Right ret ->
return $ pack (1 :: Int, msgid :: Int, (), ret)

getResponse rtype method args = do
when (rtype /= (0 :: Int)) $
fail "request type is not 0"
r <- callMethod (method :: String) (args :: [Object])
r `deepseq` return r

callMethod methodName args =
case lookup methodName methods of
Nothing ->
fail $ "method '" ++ methodName ++ "' not found"
Just method ->
method args
4 changes: 3 additions & 1 deletion msgpack-rpc/msgpack-rpc.cabal
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -23,10 +23,12 @@ Library
, network >= 2.2 && < 2.4
, random == 1.0.*
, mtl == 2.0.*
, conduit >= 0.2 && < 0.5
, conduit >= 0.5
, attoparsec
, attoparsec-conduit
, deepseq >= 1.1 && < 1.4
, msgpack == 0.7.*
, zeromq-haskell >= 0.8.4

Ghc-options: -Wall

Expand Down
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Add copy buttons to all 
 blocks\n(function() {\n function addCopyButtons() {\n document.querySelectorAll('pre code').forEach(function(codeBlock) {\n if (codeBlock.parentElement.hasAttribute('data-copy-added')) return;\n codeBlock.parentElement.setAttribute('data-copy-added', 'true');\n \n var btn = document.createElement('button');\n btn.textContent = 'Copy';\n btn.style.cssText = 'position:absolute;top:4px;right:4px;padding:2px 8px;font-size:11px;background:#4ecdc4;border:none;border-radius:4px;color:#1a1a2e;cursor:pointer;opacity:0.7;transition:opacity 0.2s;';\n btn.onmouseover = function() { this.style.opacity = '1'; };\n btn.onmouseout = function() { this.style.opacity = '0.7'; };\n btn.onclick = function() {\n navigator.clipboard.writeText(codeBlock.textContent).then(function() {\n btn.textContent = 'Copied!';\n setTimeout(function() { btn.textContent = 'Copy'; }, 1500);\n });\n };\n codeBlock.parentElement.style.position = 'relative';\n codeBlock.parentElement.appendChild(btn);\n });\n }\n \n addCopyButtons();\n \n // Re-run on dynamic content\n var observer = new MutationObserver(addCopyButtons);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Add Copy Buttons to Code Blocks");
}
} catch(__e) { console.warn('[Userscript:Add Copy Buttons to Code Blocks]', __e); }
})();
(function(){
try {
var __m = "github.com";
var __re = new RegExp('^' + "github\\.com" + '

Skip to content
Support for RPC across ZeroMQ#25

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

brotchie
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Support for RPC across ZeroMQ
#25
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
f17673b

Added preliminary C++ enum CodeGen for issue #1.


brotchie Jul 16, 2012
b0f8818

Updated to support conduit 0.5.0.


brotchie Jul 17, 2012
db060a4

Added initial support for a zeromq rpc server.


brotchie Jul 17, 2012

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


11 changes: 11 additions & 0 deletions
msgpack-idl/Language/MessagePack/IDL/CodeGen/Cpp.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -83,8 +83,19 @@ genTypeDecl _ MPType { .. } =
typedef #{genType tyType} #{tyName};
|]

genTypeDecl _ MPEnum { ..} =
 [lt|
enum #{enumName} {
 #{genEnum enumMem}
};|]


genTypeDecl _ _ = ""

genEnum :: [(Int, T.Text)] -> LT.Text
genEnum entries = LT.intercalate ",\n " $ map enumEntry entries
 where enumEntry (val, name) = [lt|#{name} = #{show val}|]

genMsg name flds isExc =
 let fields = map f flds
 fs = map (maybe undefined fldName) $ sortField flds
Expand Down

48 changes: 45 additions & 3 deletions
msgpack-rpc/Network/MessagePackRpc/Server.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -27,6 +27,7 @@ module Network.MessagePackRpc.Server (
 -- * RPC method types
 RpcMethod,
 RpcMethodType(..),
 Endpoint(..),
 -- * Create RPC method
 fun,
 -- * Start RPC server
Expand All@@ -39,14 +40,17 @@ import Control.DeepSeq
import Control.Exception as E
import Control.Monad
import Control.Monad.Trans
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.Attoparsec as CA
import qualified Data.Attoparsec as A
import Data.Maybe
import Data.MessagePack
import Network
import System.IO
import System.ZMQ

import Prelude hiding (catch)

Expand All@@ -71,19 +75,24 @@ fromObject' o =
fun :: RpcMethodType f => f -> RpcMethod
fun = toRpcMethod

data Endpoint = TCP Int
 | ZeroMQ [String]
 deriving Show

-- | Start RPC server with a set of RPC methods.
serve :: Int -- ^ Port number
serve :: Endpoint -- ^ listen on this endpoint 
 -> [(String, RpcMethod)] -- ^ list of (method name, RPC method)
 -> IO ()
serve port methods = withSocketsDo $ do

serve (TCP port) methods = withSocketsDo $ do
 sock <- listenOn (PortNumber $ fromIntegral port)
 forever $ do
 (h, host, hostport) <- accept sock
 forkIO $
 (processRequests h `finally` hClose h) `catches`
 [ Handler $ \e ->
 case e of
 CA.ParseError ["demandInput"] _ -> return ()
 CA.ParseError ["demandInput"] _ _ -> return ()
 _ -> hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show e
 , Handler $ \e ->
 hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show (e :: SomeException)]
Expand DownExpand Up@@ -116,3 +125,36 @@ serve port methods = withSocketsDo $ do
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

serve (ZeroMQ endpoints) methods =
 withContext 1 $ \ctx ->
 withSocket ctx Rep $ \s -> do
 mapM_ (bind s) endpoints
 forever $ do
 req <- receive s []
 resp <- processRequest req
 send s ((B.concat . BL.toChunks) resp) []
 where
 processRequest req = 
 case A.parseOnly get req of
 Left _ -> fail "Parsing failed."
 Right (rtype, msgid, method, args) -> do
 resp <- try $ getResponse rtype method args
 case resp of
 Left err ->
 return $ pack (1 :: Int, msgid :: Int, show (err :: SomeException), ())
 Right ret ->
 return $ pack (1 :: Int, msgid :: Int, (), ret)

 getResponse rtype method args = do
 when (rtype /= (0 :: Int)) $
 fail "request type is not 0"
 r <- callMethod (method :: String) (args :: [Object])
 r `deepseq` return r

 callMethod methodName args =
 case lookup methodName methods of
 Nothing ->
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

4 changes: 3 additions & 1 deletion
msgpack-rpc/msgpack-rpc.cabal

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -23,10 +23,12 @@ Library
 , network >= 2.2 && < 2.4
 , random == 1.0.*
 , mtl == 2.0.*
 , conduit >= 0.2 && < 0.5
 , conduit >= 0.5
 , attoparsec
 , attoparsec-conduit
 , deepseq >= 1.1 && < 1.4
 , msgpack == 0.7.*
 , zeromq-haskell >= 0.8.4

 Ghc-options: -Wall

Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Force GitHub README to respect dark mode\n(function() {\n var style = document.createElement('style');\n style.textContent = '\n .markdown-body {\n color-scheme: dark light;\n }\n .markdown-body pre { background: #161b22 !important; }\n .markdown-body code { background: rgba(110, 118, 129, 0.4) !important; }\n .markdown-body table th, .markdown-body table td { border-color: #30363d !important; }\n .markdown-body img { background: #0d1117; }\n .markdown-body blockquote { border-left-color: #8b949e; }\n .markdown-body hr { border-color: #30363d; }\n ';\n document.head.appendChild(style);\n})();", "GitHub Dark Mode README Fix");
}
} catch(__e) { console.warn('[Userscript:GitHub Dark Mode README Fix]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Support for RPC across ZeroMQ#25

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

brotchie
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Support for RPC across ZeroMQ
#25
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
f17673b

Added preliminary C++ enum CodeGen for issue #1.


brotchie Jul 16, 2012
b0f8818

Updated to support conduit 0.5.0.


brotchie Jul 17, 2012
db060a4

Added initial support for a zeromq rpc server.


brotchie Jul 17, 2012

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


11 changes: 11 additions & 0 deletions
msgpack-idl/Language/MessagePack/IDL/CodeGen/Cpp.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -83,8 +83,19 @@ genTypeDecl _ MPType { .. } =
typedef #{genType tyType} #{tyName};
|]

genTypeDecl _ MPEnum { ..} =
 [lt|
enum #{enumName} {
 #{genEnum enumMem}
};|]


genTypeDecl _ _ = ""

genEnum :: [(Int, T.Text)] -> LT.Text
genEnum entries = LT.intercalate ",\n " $ map enumEntry entries
 where enumEntry (val, name) = [lt|#{name} = #{show val}|]

genMsg name flds isExc =
 let fields = map f flds
 fs = map (maybe undefined fldName) $ sortField flds
Expand Down

48 changes: 45 additions & 3 deletions
msgpack-rpc/Network/MessagePackRpc/Server.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -27,6 +27,7 @@ module Network.MessagePackRpc.Server (
 -- * RPC method types
 RpcMethod,
 RpcMethodType(..),
 Endpoint(..),
 -- * Create RPC method
 fun,
 -- * Start RPC server
Expand All@@ -39,14 +40,17 @@ import Control.DeepSeq
import Control.Exception as E
import Control.Monad
import Control.Monad.Trans
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.Attoparsec as CA
import qualified Data.Attoparsec as A
import Data.Maybe
import Data.MessagePack
import Network
import System.IO
import System.ZMQ

import Prelude hiding (catch)

Expand All@@ -71,19 +75,24 @@ fromObject' o =
fun :: RpcMethodType f => f -> RpcMethod
fun = toRpcMethod

data Endpoint = TCP Int
 | ZeroMQ [String]
 deriving Show

-- | Start RPC server with a set of RPC methods.
serve :: Int -- ^ Port number
serve :: Endpoint -- ^ listen on this endpoint 
 -> [(String, RpcMethod)] -- ^ list of (method name, RPC method)
 -> IO ()
serve port methods = withSocketsDo $ do

serve (TCP port) methods = withSocketsDo $ do
 sock <- listenOn (PortNumber $ fromIntegral port)
 forever $ do
 (h, host, hostport) <- accept sock
 forkIO $
 (processRequests h `finally` hClose h) `catches`
 [ Handler $ \e ->
 case e of
 CA.ParseError ["demandInput"] _ -> return ()
 CA.ParseError ["demandInput"] _ _ -> return ()
 _ -> hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show e
 , Handler $ \e ->
 hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show (e :: SomeException)]
Expand DownExpand Up@@ -116,3 +125,36 @@ serve port methods = withSocketsDo $ do
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

serve (ZeroMQ endpoints) methods =
 withContext 1 $ \ctx ->
 withSocket ctx Rep $ \s -> do
 mapM_ (bind s) endpoints
 forever $ do
 req <- receive s []
 resp <- processRequest req
 send s ((B.concat . BL.toChunks) resp) []
 where
 processRequest req = 
 case A.parseOnly get req of
 Left _ -> fail "Parsing failed."
 Right (rtype, msgid, method, args) -> do
 resp <- try $ getResponse rtype method args
 case resp of
 Left err ->
 return $ pack (1 :: Int, msgid :: Int, show (err :: SomeException), ())
 Right ret ->
 return $ pack (1 :: Int, msgid :: Int, (), ret)

 getResponse rtype method args = do
 when (rtype /= (0 :: Int)) $
 fail "request type is not 0"
 r <- callMethod (method :: String) (args :: [Object])
 r `deepseq` return r

 callMethod methodName args =
 case lookup methodName methods of
 Nothing ->
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

4 changes: 3 additions & 1 deletion
msgpack-rpc/msgpack-rpc.cabal

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -23,10 +23,12 @@ Library
 , network >= 2.2 && < 2.4
 , random == 1.0.*
 , mtl == 2.0.*
 , conduit >= 0.2 && < 0.5
 , conduit >= 0.5
 , attoparsec
 , attoparsec-conduit
 , deepseq >= 1.1 && < 1.4
 , msgpack == 0.7.*
 , zeromq-haskell >= 0.8.4

 Ghc-options: -Wall

Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Highlight search terms from Google/DuckDuckGo/Bing referrer\n(function() {\n var ref = document.referrer;\n var terms = [];\n \n if (ref.includes('google.com') || ref.includes('duckduckgo.com') || ref.includes('bing.com')) {\n var url = new URL(ref);\n var q = url.searchParams.get('q') || url.searchParams.get('p');\n if (q) {\n terms = q.split(/\\s+/).filter(function(t) { return t.length > 2; });\n }\n }\n \n if (terms.length === 0) return;\n \n var style = document.createElement('style');\n style.textContent = '.userscript-highlight { background: #fbbf24; color: #1a1a2e; padding: 1px 3px; border-radius: 2px; }';\n document.head.appendChild(style);\n \n function highlight(node) {\n if (node.nodeType === 3) { // text node\n var text = node.textContent;\n var found = false;\n terms.forEach(function(term) {\n var regex = new RegExp('(' + term.replace(/[.*+?^${}()|[\\]\\\\]/g, '\\\\') + ')', 'gi');\n if (regex.test(text)) {\n found = true;\n var frag = document.createDocumentFragment();\n var parts = text.split(regex);\n parts.forEach(function(part, i) {\n if (i % 2 === 0) {\n frag.appendChild(document.createTextNode(part));\n } else {\n var span = document.createElement('span');\n span.className = 'userscript-highlight';\n span.textContent = part;\n frag.appendChild(span);\n }\n });\n node.parentNode.replaceChild(frag, node);\n }\n });\n } else if (node.nodeType === 1 && node.childNodes) { // element\n var skipTags = ['SCRIPT', 'STYLE', 'NOSCRIPT', 'TEXTAREA', 'INPUT', 'SELECT'];\n if (!skipTags.includes(node.tagName)) {\n Array.from(node.childNodes).forEach(highlight);\n }\n }\n }\n \n highlight(document.body);\n \n // Re-highlight on dynamic content\n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1 || node.nodeType === 3) highlight(node);\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Highlight Search Terms");
}
} catch(__e) { console.warn('[Userscript:Highlight Search Terms]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Support for RPC across ZeroMQ#25

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

brotchie
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Support for RPC across ZeroMQ
#25
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
f17673b

Added preliminary C++ enum CodeGen for issue #1.


brotchie Jul 16, 2012
b0f8818

Updated to support conduit 0.5.0.


brotchie Jul 17, 2012
db060a4

Added initial support for a zeromq rpc server.


brotchie Jul 17, 2012

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


11 changes: 11 additions & 0 deletions
msgpack-idl/Language/MessagePack/IDL/CodeGen/Cpp.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -83,8 +83,19 @@ genTypeDecl _ MPType { .. } =
typedef #{genType tyType} #{tyName};
|]

genTypeDecl _ MPEnum { ..} =
 [lt|
enum #{enumName} {
 #{genEnum enumMem}
};|]


genTypeDecl _ _ = ""

genEnum :: [(Int, T.Text)] -> LT.Text
genEnum entries = LT.intercalate ",\n " $ map enumEntry entries
 where enumEntry (val, name) = [lt|#{name} = #{show val}|]

genMsg name flds isExc =
 let fields = map f flds
 fs = map (maybe undefined fldName) $ sortField flds
Expand Down

48 changes: 45 additions & 3 deletions
msgpack-rpc/Network/MessagePackRpc/Server.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -27,6 +27,7 @@ module Network.MessagePackRpc.Server (
 -- * RPC method types
 RpcMethod,
 RpcMethodType(..),
 Endpoint(..),
 -- * Create RPC method
 fun,
 -- * Start RPC server
Expand All@@ -39,14 +40,17 @@ import Control.DeepSeq
import Control.Exception as E
import Control.Monad
import Control.Monad.Trans
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.Attoparsec as CA
import qualified Data.Attoparsec as A
import Data.Maybe
import Data.MessagePack
import Network
import System.IO
import System.ZMQ

import Prelude hiding (catch)

Expand All@@ -71,19 +75,24 @@ fromObject' o =
fun :: RpcMethodType f => f -> RpcMethod
fun = toRpcMethod

data Endpoint = TCP Int
 | ZeroMQ [String]
 deriving Show

-- | Start RPC server with a set of RPC methods.
serve :: Int -- ^ Port number
serve :: Endpoint -- ^ listen on this endpoint 
 -> [(String, RpcMethod)] -- ^ list of (method name, RPC method)
 -> IO ()
serve port methods = withSocketsDo $ do

serve (TCP port) methods = withSocketsDo $ do
 sock <- listenOn (PortNumber $ fromIntegral port)
 forever $ do
 (h, host, hostport) <- accept sock
 forkIO $
 (processRequests h `finally` hClose h) `catches`
 [ Handler $ \e ->
 case e of
 CA.ParseError ["demandInput"] _ -> return ()
 CA.ParseError ["demandInput"] _ _ -> return ()
 _ -> hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show e
 , Handler $ \e ->
 hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show (e :: SomeException)]
Expand DownExpand Up@@ -116,3 +125,36 @@ serve port methods = withSocketsDo $ do
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

serve (ZeroMQ endpoints) methods =
 withContext 1 $ \ctx ->
 withSocket ctx Rep $ \s -> do
 mapM_ (bind s) endpoints
 forever $ do
 req <- receive s []
 resp <- processRequest req
 send s ((B.concat . BL.toChunks) resp) []
 where
 processRequest req = 
 case A.parseOnly get req of
 Left _ -> fail "Parsing failed."
 Right (rtype, msgid, method, args) -> do
 resp <- try $ getResponse rtype method args
 case resp of
 Left err ->
 return $ pack (1 :: Int, msgid :: Int, show (err :: SomeException), ())
 Right ret ->
 return $ pack (1 :: Int, msgid :: Int, (), ret)

 getResponse rtype method args = do
 when (rtype /= (0 :: Int)) $
 fail "request type is not 0"
 r <- callMethod (method :: String) (args :: [Object])
 r `deepseq` return r

 callMethod methodName args =
 case lookup methodName methods of
 Nothing ->
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

4 changes: 3 additions & 1 deletion
msgpack-rpc/msgpack-rpc.cabal

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -23,10 +23,12 @@ Library
 , network >= 2.2 && < 2.4
 , random == 1.0.*
 , mtl == 2.0.*
 , conduit >= 0.2 && < 0.5
 , conduit >= 0.5
 , attoparsec
 , attoparsec-conduit
 , deepseq >= 1.1 && < 1.4
 , msgpack == 0.7.*
 , zeromq-haskell >= 0.8.4

 Ghc-options: -Wall

Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Strip utm_, fbclid, gclid, etc. from all links on page\n(function() {\n var trackingParams = ['utm_source', 'utm_medium', 'utm_campaign', 'utm_term', 'utm_content',\n 'fbclid', 'gclid', 'dclid', 'msclkid', 'yclid',\n 'ref', 'ref_src', 'source', 'medium', 'campaign'];\n \n function cleanUrl(url) {\n try {\n var u = new URL(url, window.location.origin);\n var changed = false;\n trackingParams.forEach(function(p) {\n if (u.searchParams.has(p)) {\n u.searchParams.delete(p);\n changed = true;\n }\n });\n return changed ? u.toString() : url;\n } catch (e) {\n return url;\n }\n }\n \n function cleanLinks() {\n document.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n \n cleanLinks();\n \n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1) {\n if (node.tagName === 'A') cleanLinks();\n node.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Remove Tracking Parameters from Links");
}
} catch(__e) { console.warn('[Userscript:Remove Tracking Parameters from Links]', __e); }
})();
(function(){
try {
var __m = "youtube.com";
var __re = new RegExp('^' + "youtube\\.com" + '

Skip to content
Support for RPC across ZeroMQ#25

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

brotchie
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Support for RPC across ZeroMQ
#25
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
f17673b

Added preliminary C++ enum CodeGen for issue #1.


brotchie Jul 16, 2012
b0f8818

Updated to support conduit 0.5.0.


brotchie Jul 17, 2012
db060a4

Added initial support for a zeromq rpc server.


brotchie Jul 17, 2012

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


11 changes: 11 additions & 0 deletions
msgpack-idl/Language/MessagePack/IDL/CodeGen/Cpp.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -83,8 +83,19 @@ genTypeDecl _ MPType { .. } =
typedef #{genType tyType} #{tyName};
|]

genTypeDecl _ MPEnum { ..} =
 [lt|
enum #{enumName} {
 #{genEnum enumMem}
};|]


genTypeDecl _ _ = ""

genEnum :: [(Int, T.Text)] -> LT.Text
genEnum entries = LT.intercalate ",\n " $ map enumEntry entries
 where enumEntry (val, name) = [lt|#{name} = #{show val}|]

genMsg name flds isExc =
 let fields = map f flds
 fs = map (maybe undefined fldName) $ sortField flds
Expand Down

48 changes: 45 additions & 3 deletions
msgpack-rpc/Network/MessagePackRpc/Server.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -27,6 +27,7 @@ module Network.MessagePackRpc.Server (
 -- * RPC method types
 RpcMethod,
 RpcMethodType(..),
 Endpoint(..),
 -- * Create RPC method
 fun,
 -- * Start RPC server
Expand All@@ -39,14 +40,17 @@ import Control.DeepSeq
import Control.Exception as E
import Control.Monad
import Control.Monad.Trans
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.Attoparsec as CA
import qualified Data.Attoparsec as A
import Data.Maybe
import Data.MessagePack
import Network
import System.IO
import System.ZMQ

import Prelude hiding (catch)

Expand All@@ -71,19 +75,24 @@ fromObject' o =
fun :: RpcMethodType f => f -> RpcMethod
fun = toRpcMethod

data Endpoint = TCP Int
 | ZeroMQ [String]
 deriving Show

-- | Start RPC server with a set of RPC methods.
serve :: Int -- ^ Port number
serve :: Endpoint -- ^ listen on this endpoint 
 -> [(String, RpcMethod)] -- ^ list of (method name, RPC method)
 -> IO ()
serve port methods = withSocketsDo $ do

serve (TCP port) methods = withSocketsDo $ do
 sock <- listenOn (PortNumber $ fromIntegral port)
 forever $ do
 (h, host, hostport) <- accept sock
 forkIO $
 (processRequests h `finally` hClose h) `catches`
 [ Handler $ \e ->
 case e of
 CA.ParseError ["demandInput"] _ -> return ()
 CA.ParseError ["demandInput"] _ _ -> return ()
 _ -> hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show e
 , Handler $ \e ->
 hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show (e :: SomeException)]
Expand DownExpand Up@@ -116,3 +125,36 @@ serve port methods = withSocketsDo $ do
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

serve (ZeroMQ endpoints) methods =
 withContext 1 $ \ctx ->
 withSocket ctx Rep $ \s -> do
 mapM_ (bind s) endpoints
 forever $ do
 req <- receive s []
 resp <- processRequest req
 send s ((B.concat . BL.toChunks) resp) []
 where
 processRequest req = 
 case A.parseOnly get req of
 Left _ -> fail "Parsing failed."
 Right (rtype, msgid, method, args) -> do
 resp <- try $ getResponse rtype method args
 case resp of
 Left err ->
 return $ pack (1 :: Int, msgid :: Int, show (err :: SomeException), ())
 Right ret ->
 return $ pack (1 :: Int, msgid :: Int, (), ret)

 getResponse rtype method args = do
 when (rtype /= (0 :: Int)) $
 fail "request type is not 0"
 r <- callMethod (method :: String) (args :: [Object])
 r `deepseq` return r

 callMethod methodName args =
 case lookup methodName methods of
 Nothing ->
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

4 changes: 3 additions & 1 deletion
msgpack-rpc/msgpack-rpc.cabal

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -23,10 +23,12 @@ Library
 , network >= 2.2 && < 2.4
 , random == 1.0.*
 , mtl == 2.0.*
 , conduit >= 0.2 && < 0.5
 , conduit >= 0.5
 , attoparsec
 , attoparsec-conduit
 , deepseq >= 1.1 && < 1.4
 , msgpack == 0.7.*
 , zeromq-haskell >= 0.8.4

 Ghc-options: -Wall

Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Auto-enable theater mode on YouTube\n(function() {\n function tryTheater() {\n var btn = document.querySelector('button[aria-label=\"Theater mode\"], ytd-player #player button[title=\"Theater mode\"]');\n if (btn && !btn.classList.contains('activated')) {\n btn.click();\n }\n }\n \n // Try immediately\n tryTheater();\n \n // Try after navigation (SPA)\n var lastUrl = location.href;\n setInterval(function() {\n if (location.href !== lastUrl) {\n lastUrl = location.href;\n setTimeout(tryTheater, 500);\n }\n }, 1000);\n \n // Also try on player load\n var observer = new MutationObserver(tryTheater);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "YouTube Theater Mode Default");
}
} catch(__e) { console.warn('[Userscript:YouTube Theater Mode Default]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Support for RPC across ZeroMQ#25

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

brotchie
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Support for RPC across ZeroMQ
#25
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
f17673b

Added preliminary C++ enum CodeGen for issue #1.


brotchie Jul 16, 2012
b0f8818

Updated to support conduit 0.5.0.


brotchie Jul 17, 2012
db060a4

Added initial support for a zeromq rpc server.


brotchie Jul 17, 2012

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


11 changes: 11 additions & 0 deletions
msgpack-idl/Language/MessagePack/IDL/CodeGen/Cpp.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -83,8 +83,19 @@ genTypeDecl _ MPType { .. } =
typedef #{genType tyType} #{tyName};
|]

genTypeDecl _ MPEnum { ..} =
 [lt|
enum #{enumName} {
 #{genEnum enumMem}
};|]


genTypeDecl _ _ = ""

genEnum :: [(Int, T.Text)] -> LT.Text
genEnum entries = LT.intercalate ",\n " $ map enumEntry entries
 where enumEntry (val, name) = [lt|#{name} = #{show val}|]

genMsg name flds isExc =
 let fields = map f flds
 fs = map (maybe undefined fldName) $ sortField flds
Expand Down

48 changes: 45 additions & 3 deletions
msgpack-rpc/Network/MessagePackRpc/Server.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -27,6 +27,7 @@ module Network.MessagePackRpc.Server (
 -- * RPC method types
 RpcMethod,
 RpcMethodType(..),
 Endpoint(..),
 -- * Create RPC method
 fun,
 -- * Start RPC server
Expand All@@ -39,14 +40,17 @@ import Control.DeepSeq
import Control.Exception as E
import Control.Monad
import Control.Monad.Trans
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.Attoparsec as CA
import qualified Data.Attoparsec as A
import Data.Maybe
import Data.MessagePack
import Network
import System.IO
import System.ZMQ

import Prelude hiding (catch)

Expand All@@ -71,19 +75,24 @@ fromObject' o =
fun :: RpcMethodType f => f -> RpcMethod
fun = toRpcMethod

data Endpoint = TCP Int
 | ZeroMQ [String]
 deriving Show

-- | Start RPC server with a set of RPC methods.
serve :: Int -- ^ Port number
serve :: Endpoint -- ^ listen on this endpoint 
 -> [(String, RpcMethod)] -- ^ list of (method name, RPC method)
 -> IO ()
serve port methods = withSocketsDo $ do

serve (TCP port) methods = withSocketsDo $ do
 sock <- listenOn (PortNumber $ fromIntegral port)
 forever $ do
 (h, host, hostport) <- accept sock
 forkIO $
 (processRequests h `finally` hClose h) `catches`
 [ Handler $ \e ->
 case e of
 CA.ParseError ["demandInput"] _ -> return ()
 CA.ParseError ["demandInput"] _ _ -> return ()
 _ -> hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show e
 , Handler $ \e ->
 hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show (e :: SomeException)]
Expand DownExpand Up@@ -116,3 +125,36 @@ serve port methods = withSocketsDo $ do
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

serve (ZeroMQ endpoints) methods =
 withContext 1 $ \ctx ->
 withSocket ctx Rep $ \s -> do
 mapM_ (bind s) endpoints
 forever $ do
 req <- receive s []
 resp <- processRequest req
 send s ((B.concat . BL.toChunks) resp) []
 where
 processRequest req = 
 case A.parseOnly get req of
 Left _ -> fail "Parsing failed."
 Right (rtype, msgid, method, args) -> do
 resp <- try $ getResponse rtype method args
 case resp of
 Left err ->
 return $ pack (1 :: Int, msgid :: Int, show (err :: SomeException), ())
 Right ret ->
 return $ pack (1 :: Int, msgid :: Int, (), ret)

 getResponse rtype method args = do
 when (rtype /= (0 :: Int)) $
 fail "request type is not 0"
 r <- callMethod (method :: String) (args :: [Object])
 r `deepseq` return r

 callMethod methodName args =
 case lookup methodName methods of
 Nothing ->
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

4 changes: 3 additions & 1 deletion
msgpack-rpc/msgpack-rpc.cabal

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -23,10 +23,12 @@ Library
 , network >= 2.2 && < 2.4
 , random == 1.0.*
 , mtl == 2.0.*
 , conduit >= 0.2 && < 0.5
 , conduit >= 0.5
 , attoparsec
 , attoparsec-conduit
 , deepseq >= 1.1 && < 1.4
 , msgpack == 0.7.*
 , zeromq-haskell >= 0.8.4

 Ghc-options: -Wall

Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Remove or un-stick sticky/fixed headers that block content\n(function() {\n function unstick() {\n document.querySelectorAll('header, nav, [role=\"banner\"], .header, .navbar, .sticky, .fixed-top, [style*=\"position: fixed\"], [style*=\"position:sticky\"]').forEach(function(el) {\n if (el.style.position === 'fixed' || el.style.position === 'sticky' || \n getComputedStyle(el).position === 'fixed' || getComputedStyle(el).position === 'sticky') {\n el.style.position = 'static';\n el.style.top = 'auto';\n el.style.zIndex = 'auto';\n }\n });\n }\n \n unstick();\n \n var observer = new MutationObserver(unstick);\n observer.observe(document.body, { childList: true, subtree: true, attributes: true, attributeFilter: ['style', 'class'] });\n})();", "Kill Sticky Headers");
}
} catch(__e) { console.warn('[Userscript:Kill Sticky Headers]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Support for RPC across ZeroMQ#25

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

brotchie
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Support for RPC across ZeroMQ
#25
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
f17673b

Added preliminary C++ enum CodeGen for issue #1.


brotchie Jul 16, 2012
b0f8818

Updated to support conduit 0.5.0.


brotchie Jul 17, 2012
db060a4

Added initial support for a zeromq rpc server.


brotchie Jul 17, 2012

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


11 changes: 11 additions & 0 deletions
msgpack-idl/Language/MessagePack/IDL/CodeGen/Cpp.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -83,8 +83,19 @@ genTypeDecl _ MPType { .. } =
typedef #{genType tyType} #{tyName};
|]

genTypeDecl _ MPEnum { ..} =
 [lt|
enum #{enumName} {
 #{genEnum enumMem}
};|]


genTypeDecl _ _ = ""

genEnum :: [(Int, T.Text)] -> LT.Text
genEnum entries = LT.intercalate ",\n " $ map enumEntry entries
 where enumEntry (val, name) = [lt|#{name} = #{show val}|]

genMsg name flds isExc =
 let fields = map f flds
 fs = map (maybe undefined fldName) $ sortField flds
Expand Down

48 changes: 45 additions & 3 deletions
msgpack-rpc/Network/MessagePackRpc/Server.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -27,6 +27,7 @@ module Network.MessagePackRpc.Server (
 -- * RPC method types
 RpcMethod,
 RpcMethodType(..),
 Endpoint(..),
 -- * Create RPC method
 fun,
 -- * Start RPC server
Expand All@@ -39,14 +40,17 @@ import Control.DeepSeq
import Control.Exception as E
import Control.Monad
import Control.Monad.Trans
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.Attoparsec as CA
import qualified Data.Attoparsec as A
import Data.Maybe
import Data.MessagePack
import Network
import System.IO
import System.ZMQ

import Prelude hiding (catch)

Expand All@@ -71,19 +75,24 @@ fromObject' o =
fun :: RpcMethodType f => f -> RpcMethod
fun = toRpcMethod

data Endpoint = TCP Int
 | ZeroMQ [String]
 deriving Show

-- | Start RPC server with a set of RPC methods.
serve :: Int -- ^ Port number
serve :: Endpoint -- ^ listen on this endpoint 
 -> [(String, RpcMethod)] -- ^ list of (method name, RPC method)
 -> IO ()
serve port methods = withSocketsDo $ do

serve (TCP port) methods = withSocketsDo $ do
 sock <- listenOn (PortNumber $ fromIntegral port)
 forever $ do
 (h, host, hostport) <- accept sock
 forkIO $
 (processRequests h `finally` hClose h) `catches`
 [ Handler $ \e ->
 case e of
 CA.ParseError ["demandInput"] _ -> return ()
 CA.ParseError ["demandInput"] _ _ -> return ()
 _ -> hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show e
 , Handler $ \e ->
 hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show (e :: SomeException)]
Expand DownExpand Up@@ -116,3 +125,36 @@ serve port methods = withSocketsDo $ do
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

serve (ZeroMQ endpoints) methods =
 withContext 1 $ \ctx ->
 withSocket ctx Rep $ \s -> do
 mapM_ (bind s) endpoints
 forever $ do
 req <- receive s []
 resp <- processRequest req
 send s ((B.concat . BL.toChunks) resp) []
 where
 processRequest req = 
 case A.parseOnly get req of
 Left _ -> fail "Parsing failed."
 Right (rtype, msgid, method, args) -> do
 resp <- try $ getResponse rtype method args
 case resp of
 Left err ->
 return $ pack (1 :: Int, msgid :: Int, show (err :: SomeException), ())
 Right ret ->
 return $ pack (1 :: Int, msgid :: Int, (), ret)

 getResponse rtype method args = do
 when (rtype /= (0 :: Int)) $
 fail "request type is not 0"
 r <- callMethod (method :: String) (args :: [Object])
 r `deepseq` return r

 callMethod methodName args =
 case lookup methodName methods of
 Nothing ->
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

4 changes: 3 additions & 1 deletion
msgpack-rpc/msgpack-rpc.cabal

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -23,10 +23,12 @@ Library
 , network >= 2.2 && < 2.4
 , random == 1.0.*
 , mtl == 2.0.*
 , conduit >= 0.2 && < 0.5
 , conduit >= 0.5
 , attoparsec
 , attoparsec-conduit
 , deepseq >= 1.1 && < 1.4
 , msgpack == 0.7.*
 , zeromq-haskell >= 0.8.4

 Ghc-options: -Wall

Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Universal Dark Mode - works on any site\n(function() {\n var enabled = true;\n \n function applyDarkMode() {\n if (!enabled) return;\n \n // Create style element if it doesn't exist\n var style = document.getElementById('universal-dark-mode-style');\n if (!style) {\n style = document.createElement('style');\n style.id = 'universal-dark-mode-style';\n document.head.appendChild(style);\n }\n \n // Dark mode CSS - inverts colors but preserves images/video\n style.textContent = '\n /* Invert everything except media */\n html {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #1a1a2e !important;\n }\n \n /* Restore images, videos, iframes, canvas */\n img, video, iframe, canvas, svg, picture, [style*=\"background-image\"] {\n filter: invert(1) hue-rotate(180deg) !important;\n }\n \n /* Preserve specific elements that should not be inverted */\n .no-dark-mode, .no-dark-mode *,\n [data-theme=\"light\"], [data-theme=\"light\"],\n .ace_editor, .ace_editor *,\n .CodeMirror, .CodeMirror *,\n .monaco-editor, .monaco-editor *,\n .markdown-body pre, .markdown-body pre *,\n .highlight, .highlight *,\n pre code, pre code * {\n filter: none !important;\n }\n \n /* Fix common UI elements */\n .modal, .popup, .dropdown-menu, .tooltip, .popover {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #2d2d44 !important;\n border-color: #444 !important;\n }\n \n /* Scrollbars */\n ::-webkit-scrollbar { background: #1a1a2e !important; }\n ::-webkit-scrollbar-thumb { background: #444 !important; }\n ::-webkit-scrollbar-thumb:hover { background: #555 !important; }\n \n /* Selection */\n ::selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ::-moz-selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ';\n }\n \n function removeDarkMode() {\n var style = document.getElementById('universal-dark-mode-style');\n if (style) style.remove();\n }\n \n // Toggle with Alt+Shift+D\n document.addEventListener('keydown', function(e) {\n if (e.altKey && e.shiftKey && e.key === 'D') {\n e.preventDefault();\n enabled = !enabled;\n if (enabled) {\n applyDarkMode();\n console.log('[Universal Dark Mode] Enabled');\n } else {\n removeDarkMode();\n console.log('[Universal Dark Mode] Disabled');\n }\n }\n });\n \n // Apply on load\n applyDarkMode();\n \n // Re-apply on dynamic content\n var observer = new MutationObserver(function(mutations) {\n if (enabled && !document.getElementById('universal-dark-mode-style')) {\n applyDarkMode();\n }\n });\n observer.observe(document.head, { childList: true });\n \n console.log('[Universal Dark Mode] Loaded - Press Alt+Shift+D to toggle');\n})();", "Universal Dark Mode");
}
} catch(__e) { console.warn('[Userscript:Universal Dark Mode]', __e); }
})();
})();

Skip to content
Support for RPC across ZeroMQ#25

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

brotchie
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Support for RPC across ZeroMQ
#25
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
f17673b

Added preliminary C++ enum CodeGen for issue #1.


brotchie Jul 16, 2012
b0f8818

Updated to support conduit 0.5.0.


brotchie Jul 17, 2012
db060a4

Added initial support for a zeromq rpc server.


brotchie Jul 17, 2012

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


11 changes: 11 additions & 0 deletions
msgpack-idl/Language/MessagePack/IDL/CodeGen/Cpp.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -83,8 +83,19 @@ genTypeDecl _ MPType { .. } =
typedef #{genType tyType} #{tyName};
|]

genTypeDecl _ MPEnum { ..} =
 [lt|
enum #{enumName} {
 #{genEnum enumMem}
};|]


genTypeDecl _ _ = ""

genEnum :: [(Int, T.Text)] -> LT.Text
genEnum entries = LT.intercalate ",\n " $ map enumEntry entries
 where enumEntry (val, name) = [lt|#{name} = #{show val}|]

genMsg name flds isExc =
 let fields = map f flds
 fs = map (maybe undefined fldName) $ sortField flds
Expand Down

48 changes: 45 additions & 3 deletions
msgpack-rpc/Network/MessagePackRpc/Server.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -27,6 +27,7 @@ module Network.MessagePackRpc.Server (
 -- * RPC method types
 RpcMethod,
 RpcMethodType(..),
 Endpoint(..),
 -- * Create RPC method
 fun,
 -- * Start RPC server
Expand All@@ -39,14 +40,17 @@ import Control.DeepSeq
import Control.Exception as E
import Control.Monad
import Control.Monad.Trans
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.Attoparsec as CA
import qualified Data.Attoparsec as A
import Data.Maybe
import Data.MessagePack
import Network
import System.IO
import System.ZMQ

import Prelude hiding (catch)

Expand All@@ -71,19 +75,24 @@ fromObject' o =
fun :: RpcMethodType f => f -> RpcMethod
fun = toRpcMethod

data Endpoint = TCP Int
 | ZeroMQ [String]
 deriving Show

-- | Start RPC server with a set of RPC methods.
serve :: Int -- ^ Port number
serve :: Endpoint -- ^ listen on this endpoint 
 -> [(String, RpcMethod)] -- ^ list of (method name, RPC method)
 -> IO ()
serve port methods = withSocketsDo $ do

serve (TCP port) methods = withSocketsDo $ do
 sock <- listenOn (PortNumber $ fromIntegral port)
 forever $ do
 (h, host, hostport) <- accept sock
 forkIO $
 (processRequests h `finally` hClose h) `catches`
 [ Handler $ \e ->
 case e of
 CA.ParseError ["demandInput"] _ -> return ()
 CA.ParseError ["demandInput"] _ _ -> return ()
 _ -> hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show e
 , Handler $ \e ->
 hPutStrLn stderr $ host ++ ":" ++ show hostport ++ ": " ++ show (e :: SomeException)]
Expand DownExpand Up@@ -116,3 +125,36 @@ serve port methods = withSocketsDo $ do
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

serve (ZeroMQ endpoints) methods =
 withContext 1 $ \ctx ->
 withSocket ctx Rep $ \s -> do
 mapM_ (bind s) endpoints
 forever $ do
 req <- receive s []
 resp <- processRequest req
 send s ((B.concat . BL.toChunks) resp) []
 where
 processRequest req = 
 case A.parseOnly get req of
 Left _ -> fail "Parsing failed."
 Right (rtype, msgid, method, args) -> do
 resp <- try $ getResponse rtype method args
 case resp of
 Left err ->
 return $ pack (1 :: Int, msgid :: Int, show (err :: SomeException), ())
 Right ret ->
 return $ pack (1 :: Int, msgid :: Int, (), ret)

 getResponse rtype method args = do
 when (rtype /= (0 :: Int)) $
 fail "request type is not 0"
 r <- callMethod (method :: String) (args :: [Object])
 r `deepseq` return r

 callMethod methodName args =
 case lookup methodName methods of
 Nothing ->
 fail $ "method '" ++ methodName ++ "' not found"
 Just method ->
 method args

4 changes: 3 additions & 1 deletion
msgpack-rpc/msgpack-rpc.cabal

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -23,10 +23,12 @@ Library
 , network >= 2.2 && < 2.4
 , random == 1.0.*
 , mtl == 2.0.*
 , conduit >= 0.2 && < 0.5
 , conduit >= 0.5
 , attoparsec
 , attoparsec-conduit
 , deepseq >= 1.1 && < 1.4
 , msgpack == 0.7.*
 , zeromq-haskell >= 0.8.4

 Ghc-options: -Wall

Expand Down