Compare commits
12 Commits
41c27d9466
...
master
Author | SHA1 | Date | |
---|---|---|---|
8ef020cb64 | |||
375a1c5326 | |||
bc09b09473 | |||
7a7da4c563 | |||
fe8f251586 | |||
7eeee47f2f | |||
6b2aa321a4 | |||
3668a427b9 | |||
69d84db6b8 | |||
e7f8a4d95b | |||
339d6ea318 | |||
1c93745c78 |
9
.gitmodules
vendored
9
.gitmodules
vendored
@ -1,6 +1,6 @@
|
|||||||
[submodule "tclcurl-fa"]
|
[submodule "tclcurl-fa"]
|
||||||
path = tclcurl-fa
|
path = tclcurl-fa
|
||||||
url = https://github.com/mmb1488/tclcurl-fa.git
|
url = gitea@gitea.phosphoros.delivery:wrath/shaniqua-tclcurl-fa.git
|
||||||
[submodule "tclx"]
|
[submodule "tclx"]
|
||||||
path = tclx
|
path = tclx
|
||||||
url = https://github.com/flightaware/tclx.git
|
url = https://github.com/flightaware/tclx.git
|
||||||
@ -9,8 +9,5 @@
|
|||||||
url = https://github.com/tcltk/tcllib.git
|
url = https://github.com/tcltk/tcllib.git
|
||||||
[submodule "state"]
|
[submodule "state"]
|
||||||
path = state
|
path = state
|
||||||
url = git@bitbucket.org:hastur666/fountain-of-wisdom.git
|
url = gitea@gitea.phosphoros.delivery:wrath/shaniqua-smeggdrop.git
|
||||||
[submodule "tclcurl-fa/"]
|
|
||||||
url = https://github.com/flightaware/tclcurl-fa.git
|
|
||||||
[submodule "tclx/"]
|
|
||||||
url = https://github.com/flightaware/tclx.git
|
|
||||||
|
@ -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)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -41,8 +41,8 @@ packages:
|
|||||||
# forks / in-progress versions pinned to a git hash. For example:
|
# forks / in-progress versions pinned to a git hash. For example:
|
||||||
#
|
#
|
||||||
extra-deps:
|
extra-deps:
|
||||||
- git: git@github.com:v-e-h/plugins.git
|
- git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
|
||||||
commit: e175d3c2ea9a8cc08126d37d9e30a327d8dc8b29
|
commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
|
||||||
- haskeline-0.8.1.0
|
- haskeline-0.8.1.0
|
||||||
|
|
||||||
# - acme-missiles-0.3
|
# - acme-missiles-0.3
|
||||||
|
@ -10,14 +10,14 @@ packages:
|
|||||||
sha256: 5eb50363b5f7a5539d91db5ce245adc2fd5bec634c58ad8c9498fcfd1c183d69
|
sha256: 5eb50363b5f7a5539d91db5ce245adc2fd5bec634c58ad8c9498fcfd1c183d69
|
||||||
name: plugins
|
name: plugins
|
||||||
version: 1.6.0
|
version: 1.6.0
|
||||||
git: git@github.com:v-e-h/plugins.git
|
git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
|
||||||
pantry-tree:
|
pantry-tree:
|
||||||
size: 34501
|
size: 34501
|
||||||
sha256: bcd754b80924fc9c852557ea2a79947eab426e7fc6ef07ae82bccac9e7c4ab91
|
sha256: bcd754b80924fc9c852557ea2a79947eab426e7fc6ef07ae82bccac9e7c4ab91
|
||||||
commit: e175d3c2ea9a8cc08126d37d9e30a327d8dc8b29
|
commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
|
||||||
original:
|
original:
|
||||||
git: git@github.com:v-e-h/plugins.git
|
git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
|
||||||
commit: e175d3c2ea9a8cc08126d37d9e30a327d8dc8b29
|
commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
|
||||||
- completed:
|
- completed:
|
||||||
hackage: haskeline-0.8.1.0@sha256:6a6158c90b929ce7aa5331ff5e9819aa32c7df8f4a7ba324b3cc055ee96b48cb,5818
|
hackage: haskeline-0.8.1.0@sha256:6a6158c90b929ce7aa5331ff5e9819aa32c7df8f4a7ba324b3cc055ee96b48cb,5818
|
||||||
pantry-tree:
|
pantry-tree:
|
||||||
|
2
state
2
state
Submodule state updated: 57a2107ec4...a6dbbbfd08
Reference in New Issue
Block a user