Compare commits
2 Commits
Author | SHA1 | Date | |
---|---|---|---|
|
e9a93f9d14 | ||
|
5d6bd6ac88 |
@ -81,7 +81,6 @@ executable GypsFulvus
|
|||||||
other-modules: GypsFulvus.PluginStuff,GypsFulvus, Carrion.Plugin.IO.STDIO, Carrion.Plugin.TCL, Carrion.Plugin.IO.IRC.Client
|
other-modules: GypsFulvus.PluginStuff,GypsFulvus, Carrion.Plugin.IO.STDIO, Carrion.Plugin.TCL, Carrion.Plugin.IO.IRC.Client
|
||||||
exposed-modules: GypsFulvus
|
exposed-modules: GypsFulvus
|
||||||
extra-libraries: tcl8.6
|
extra-libraries: tcl8.6
|
||||||
-- extra-include-dirs: /var/run/current-system/sw/include
|
|
||||||
Includes: tcl.h,
|
Includes: tcl.h,
|
||||||
src/tclstubswrapper/tclstubs.h
|
src/tclstubswrapper/tclstubs.h
|
||||||
C-Sources: src/tclstubswrapper/tclstubs.c
|
C-Sources: src/tclstubswrapper/tclstubs.c
|
||||||
|
@ -159,7 +159,7 @@ processCommand wi s ip = do
|
|||||||
case st of
|
case st of
|
||||||
0 -> tcl_GetStringResult interp >>= \rs -> if nullPtr == rs then dumpDebug ("Command: " ++ c ++" ; returned a null pointer result.") >> return "FAILED" else peekCString rs >>= \nrs -> dumpDebug ("Output of command: " ++ c ++ " ;" ++ nrs ++ ";") >> return nrs
|
0 -> tcl_GetStringResult interp >>= \rs -> if nullPtr == rs then dumpDebug ("Command: " ++ c ++" ; returned a null pointer result.") >> return "FAILED" else peekCString rs >>= \nrs -> dumpDebug ("Output of command: " ++ c ++ " ;" ++ nrs ++ ";") >> return nrs
|
||||||
_ -> errorInfo >> tcl_GetStringResult interp >>= peekCString
|
_ -> errorInfo >> tcl_GetStringResult interp >>= peekCString
|
||||||
performFromIRC = doTheTCL $ "pub:tcl:perform {" ++ sewNick ++ "} {" ++ sewMask ++ "} {} {" ++ sewChan ++ "} {" ++ sewCmd ++ "}"
|
performFromIRC = doTheTCL $ "pub:tcl:perform \"" ++ sewNick ++ "\" \"" ++ sewMask ++ "\" {} \"" ++ sewChan ++ "\" {" ++ sewCmd ++ "}"
|
||||||
performAdminLevel = doTheTCL sewCmd
|
performAdminLevel = doTheTCL sewCmd
|
||||||
res <- if (ip) then performAdminLevel else performFromIRC
|
res <- if (ip) then performAdminLevel else performFromIRC
|
||||||
atomically $ putTMVar i interp
|
atomically $ putTMVar i interp
|
||||||
|
@ -167,9 +167,9 @@ method {inspect proc} proc {
|
|||||||
if ![info exists vars_existing_before_eval($var)] {
|
if ![info exists vars_existing_before_eval($var)] {
|
||||||
$self did create var $var
|
$self did create var $var
|
||||||
} else {
|
} else {
|
||||||
# if [info exists vars_touched_during_eval($var)] {
|
if [info exists vars_touched_during_eval($var)] {
|
||||||
$self did update var $var
|
$self did update var $var
|
||||||
# }
|
}
|
||||||
unset vars_existing_before_eval($var)
|
unset vars_existing_before_eval($var)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
10
stack.yaml
10
stack.yaml
@ -28,11 +28,11 @@ resolver: lts-16.13
|
|||||||
# subdirs:
|
# subdirs:
|
||||||
# - auto-update
|
# - auto-update
|
||||||
# - wai
|
# - wai
|
||||||
nix:
|
#nix:
|
||||||
enable: true
|
# enable: true
|
||||||
packages:
|
# packages:
|
||||||
- "zlib"
|
# - "zlib"
|
||||||
- "tcl"
|
# - "tcl"
|
||||||
|
|
||||||
packages:
|
packages:
|
||||||
- .
|
- .
|
||||||
|
@ -5,29 +5,26 @@
|
|||||||
|
|
||||||
packages:
|
packages:
|
||||||
- completed:
|
- completed:
|
||||||
cabal-file:
|
commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
|
||||||
size: 2531
|
git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
|
||||||
sha256: 5eb50363b5f7a5539d91db5ce245adc2fd5bec634c58ad8c9498fcfd1c183d69
|
|
||||||
name: plugins
|
name: plugins
|
||||||
version: 1.6.0
|
|
||||||
git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
|
|
||||||
pantry-tree:
|
pantry-tree:
|
||||||
size: 34501
|
|
||||||
sha256: bcd754b80924fc9c852557ea2a79947eab426e7fc6ef07ae82bccac9e7c4ab91
|
sha256: bcd754b80924fc9c852557ea2a79947eab426e7fc6ef07ae82bccac9e7c4ab91
|
||||||
commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
|
size: 34501
|
||||||
|
version: 1.6.0
|
||||||
original:
|
original:
|
||||||
git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
|
|
||||||
commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
|
commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
|
||||||
|
git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
|
||||||
- completed:
|
- completed:
|
||||||
hackage: haskeline-0.8.1.0@sha256:6a6158c90b929ce7aa5331ff5e9819aa32c7df8f4a7ba324b3cc055ee96b48cb,5818
|
hackage: haskeline-0.8.1.0@sha256:6a6158c90b929ce7aa5331ff5e9819aa32c7df8f4a7ba324b3cc055ee96b48cb,5818
|
||||||
pantry-tree:
|
pantry-tree:
|
||||||
size: 2955
|
|
||||||
sha256: b80332551d20389637851299b618679a8435531bed1fed905195ae7163526999
|
sha256: b80332551d20389637851299b618679a8435531bed1fed905195ae7163526999
|
||||||
|
size: 2955
|
||||||
original:
|
original:
|
||||||
hackage: haskeline-0.8.1.0
|
hackage: haskeline-0.8.1.0
|
||||||
snapshots:
|
snapshots:
|
||||||
- completed:
|
- completed:
|
||||||
|
sha256: 6ee17f7996e5bc75ae4406250841f1362ad4196418a4d90a0615ff4f26ac98df
|
||||||
size: 532381
|
size: 532381
|
||||||
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/16/13.yaml
|
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/16/13.yaml
|
||||||
sha256: 6ee17f7996e5bc75ae4406250841f1362ad4196418a4d90a0615ff4f26ac98df
|
|
||||||
original: lts-16.13
|
original: lts-16.13
|
||||||
|
2
state
2
state
@ -1 +1 @@
|
|||||||
Subproject commit a6dbbbfd08f0b39c04c16252bef6c22a999cc430
|
Subproject commit 18d6107288bce2d3cfe9d6ee61bc60cea967a64c
|
Loading…
x
Reference in New Issue
Block a user