Hmm,
What problem are you trying to solve, or just curios?
Ever heard about Google? Wonderful invention! Try it some day?!
it leads me to: http://h71000.www7.hp.com/openvms/journal/v8/ssi.pdf
Of course it helps knowing that that existed, having talked to Ruth about it :-)
And what about $ HELP SET PROC /SSLOG and $ HELP **bleep**/SSLOG.
[edit: stupid computers (programmers).... I'll let you analyze as to why it bleeb my perfectly honorable reply ]
Now if you experiemnt with that, I recommend to SPAWN first, then try.
When I last used it it was not entirely stable.
I also received the following text and code from Harmut B, some 5 years ago.
See below.
Hope this helps,
Hein.
----------------------- Hartmut --------------------------------------------------------
If you want to use just ssi$declare_intercept.
I append a small example, which I tested on I64/V8.3-1H1.
The SSI_BLOCK is filled like
static SSI_BLOCK ssi_block = {
0, 0,
SSI$C_LENGTH, DYN$C_MISC, DYN$C_SSI_BLOCK,
SSI$K_VERSION_QUAD_LIST, 0,
pre, post};
So you will get into your pre() and post() for all system services, once you successfully called the declare routine.
To do processing just for one system service, you need to check against its declared address, as in starlet.h or for example with a "extern int sys$asctim();". Once in your pre() or post() this system service address is in ps_ssadr.
You can make the call to ssi$declare_intercept from your main image. If you don't have control over main, you can place the call in an init routine in a shareable image and let it call during the image initialization via the lib$initialize mechanism.
On Alpha, if your shareable image is not activated with main, that is SYS$SSISHR is not activated with main, then you can't intercept system service calls from main (and all the shareable images it depends on).
Yes, you should be able to do the same with replacing a few system services. You should also be able to use a single generic replacement routine. There you check the passed ps_ssadr against you list and call the original system service as passed in ss_ssadr. I didn't try that, so far, and therefore don't have an example.
You just link against the SYS$SSISHR, that's all.
That's my understanding, it may be incomplete or not 100% correct, but I hope it helps to get you started or even going.
#include <pdscdef.h>
#include <ssdef.h>
#include <ssidef.h>
#include <starlet.h>
#include <stdio.h>
#include <dyndef.h>
#include <descrip.h>
static char timbuf[32] ;
static $DESCRIPTOR (timbuf_d, timbuf) ;
static short int timlen ;
static int preasctim;
static int postss;
static void pre(int *arg_list, int (*ss_ssadr)(), SSI_PDSC *ps_ssadr, int retadr, SSI_BLOCK *ssi_block_ptr) {
if ((int(*)())ps_ssadr==sys$asctim)
preasctim++;}
static void post() {postss++;}
static SSI_BLOCK ssi_block = {
0, 0, SSI$C_LENGTH, DYN$C_MISC, DYN$C_SSI_BLOCK, SSI$K_VERSION_QUAD_LIST, 0,
pre, post};
main() {
int status;
printf ("preasctim: %d, postss: %d\n", preasctim, postss);
status= ssi$declare_intercept (&ssi_block);
if (status!=SS$_NORMAL)
printf ("status: 0x%x\n", status);
else {
printf ("hello ssi\n");
sys$asctim (&timlen,&timbuf_d,0,0);
printf ("time: %.*s\n", timlen, timbuf) ;
fsync (fileno (stdout));
printf ("preasctim: %d, postss: %d\n", preasctim, postss);
}
}
