forked from mirrors/org-mode
updates to the external StartOzServer.oz script
the author of these changes is Torsten Anders * contrib/scripts/StartOzServer.oz (MyStream):
This commit is contained in:
parent
90f6765cdf
commit
a56e7c7508
|
@ -60,7 +60,7 @@ MyCompiler = Emacs.condSend.compiler
|
||||||
{MyCompiler enqueue(setSwitch(expression true))}
|
{MyCompiler enqueue(setSwitch(expression true))}
|
||||||
{Browse
|
{Browse
|
||||||
{MyCompiler enqueue(feedVirtualString(
|
{MyCompiler enqueue(feedVirtualString(
|
||||||
{LUtils.accum ["try\n"
|
{Accum ["try\n"
|
||||||
% "skip\n" % do something in any case..
|
% "skip\n" % do something in any case..
|
||||||
"1 div 0" % my code
|
"1 div 0" % my code
|
||||||
% "1" % my code
|
% "1" % my code
|
||||||
|
@ -188,7 +188,7 @@ thread
|
||||||
proc {$ Code}
|
proc {$ Code}
|
||||||
Result
|
Result
|
||||||
%% Catch any exception (so the will not cause blocking) and return nil in that case
|
%% Catch any exception (so the will not cause blocking) and return nil in that case
|
||||||
FullCode = {LUtils.accum ["try\n"
|
FullCode = {Accum ["try\n"
|
||||||
% "skip\n" % do something in any case..
|
% "skip\n" % do something in any case..
|
||||||
Code
|
Code
|
||||||
"\ncatch E then {Error.printException E}\n"
|
"\ncatch E then {Error.printException E}\n"
|
||||||
|
@ -198,7 +198,7 @@ thread
|
||||||
in
|
in
|
||||||
%% ?? Should I make setting switches etc atomic?
|
%% ?? Should I make setting switches etc atomic?
|
||||||
{MyCompiler enqueue(setSwitch(expression true))}
|
{MyCompiler enqueue(setSwitch(expression true))}
|
||||||
Result = {MyCompiler enqueue(feedVirtualString(FullCode return(result: $)))}
|
{MyCompiler enqueue(feedVirtualString(FullCode return(result: ?Result)))}
|
||||||
{MyCompiler enqueue(setSwitch(expression false))}
|
{MyCompiler enqueue(setSwitch(expression false))}
|
||||||
%%
|
%%
|
||||||
{Wait Result}
|
{Wait Result}
|
||||||
|
@ -212,6 +212,17 @@ end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
|
%%
|
||||||
|
%% Aux defs
|
||||||
|
%%
|
||||||
|
|
||||||
|
/** %% Binds the accumulation of the binary function Fn on all neighbors in Xs to Y. E.g., Accum returns the sum in Xs if Fn is Number.'+'.
|
||||||
|
%% */
|
||||||
|
proc {Accum Xs Fn Y}
|
||||||
|
{List.foldL Xs.2 Fn Xs.1 Y}
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue