/usr/share/slsh/local-packages/xpvm.sl is in slang-pvm 0.1.5-12.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | require ("pvm");
static define _xpvm_init_trace ()
{
variable xpvm_tid;
xpvm_tid = pvm_gettid ("xpvm", 0);
if (xpvm_tid <= 0)
{
vmessage ("XPVM not running, cannot trace");
return;
}
% set self trace and output destinations and message codes
pvm_setopt (PvmSelfTraceTid, xpvm_tid);
pvm_setopt (PvmSelfTraceCode, 666);
pvm_setopt (PvmSelfOutputTid, xpvm_tid);
pvm_setopt (PvmSelfOutputCode, 667);
% set future children's trace and output destinations and codes
pvm_setopt (PvmTraceTid, xpvm_tid);
pvm_setopt (PvmTraceCode, 666);
pvm_setopt (PvmOutputTid, xpvm_tid);
pvm_setopt (PvmOutputCode, 667);
% generate default trace mask
variable trace_mask = Pvmtmask_Type;
pvm_tev_mask_init (trace_mask);
pvm_tev_mask_set (trace_mask, TEV_MCAST);
pvm_tev_mask_set (trace_mask, TEV_SEND);
pvm_tev_mask_set (trace_mask, TEV_RECV);
pvm_tev_mask_set (trace_mask, TEV_NRECV);
% set self trace mask
pvm_settmask (PvmTaskSelf, trace_mask);
% set future children's trace mask
pvm_settmask (PvmTaskChild, trace_mask);
}
public define xpvm_setup ()
{
ERROR_BLOCK
{
_clear_error();
return;
}
_xpvm_init_trace ();
}
provide ("xpvm");
|