X-NEWS: cerritos.edu vmsnet.sources: 351
Relay-Version: VMS News - V6.0-1 14/11/90 VAX/VMS V5.3; site cerritos.edu
Path: cerritos.edu!usc!rutgers!maverick.ksu.ksu.edu!deimos.cis.ksu.edu!mccall!miclon!ibmpcug!ctssuk!VERKADE
Newsgroups: vmsnet.sources
Subject: DWUTILS V1.0 part 5 of 6
Message-ID: <901223133610.00000F02@MARVIN.CTSS.CO.UK>
From: VERKADE@CTSS.CO.UK (Herman Verkade)
Date: 23 Dec 90 13:36:10 GMT
Followup-To: vmsnet.sources.d
Organization: CompuThoughts Software Solutions (UK) Ltd.
Keywords: DECwindows utilities
Lines: 383

-+-+-+-+-+-+-+-+ START OF PART 5 -+-+-+-+-+-+-+-+
X * Description:`09Definitions for shareable part of DWSTART
X *
X * Revision History:
X *
X *  6-dec-1990 000 HHV`09- New Module
X */
X
X#include "DWstart.h"
X
Xvoid CreateMailbox();
Xvoid CloseMailbox();
Xvoid CreateDECterm();
Xvoid CreateProcess(char*, char*, char*, int, int);
Xvoid CreateDisplay(char*, char*, char*, char*);
Xunsigned int lib$sig_to_ret();
X
Xglobalvalue unsigned int DWSTART_ASSIGNERR;
Xglobalvalue unsigned int DWSTART_READERR;
Xglobalvalue unsigned int DWSTART_WRITEERR;
Xglobalvalue unsigned int DWSTART_GETDVIERR;
Xglobalvalue unsigned int DWSTART_NETWDISCERR;
Xglobalvalue unsigned int DWSTART_DASSGNERR;
Xglobalvalue unsigned int DWSTART_DISPINFOERR;
Xglobalvalue unsigned int DWSTART_TOOMANYLINKS;
Xglobalvalue unsigned int DWSTART_TOOMANYPROC;
Xglobalvalue unsigned int DWSTART_REMOTE;
Xglobalvalue unsigned int DWSTART_PROCEXIT;
Xglobalvalue unsigned int DWSTART_CREPRCERR;
Xglobalvalue unsigned int DWSTART_ERRTRANS;
Xglobalvalue unsigned int DWSTART_PARSEERR;
Xglobalvalue unsigned int DWSTART_PROC_ID;
Xglobalvalue unsigned int DWSTART_CREMBXERR;
Xglobalvalue unsigned int DWSTART_WRITEMBXERR;
Xglobalvalue unsigned int DWSTART_CLOSEMBXERR;
X
Xnoshare char MailBox`5BMAILBOXNAME_LEN + 1`5D;
Xnoshare char DisplayName`5BDISPLAYNAME_LEN + 1`5D;
Xnoshare unsigned int DisplayUnit;
Xnoshare char *LocalNodeName;
Xnoshare void (*AstRoutine)(int);
Xnoshare int AstParam;
Xnoshare int DeliverAST;
$ CALL UNPACK DWSTART_SHARE.H;30 35414856
$ create 'f'
X`09.title`09dwstart_share
X`09.ident`09/V1-000/
X
X`09.macro`09Define_Routine`09Routine
X`09.align`09quad
X`09.extrn`09Routine
X`09.transfer`09Routine
X`09.mask`09Routine
X`09jmp`09Routine+2
X`09.endm
X
X`09.psect $$$vector`09pic,usr,con,rel,lcl,shr,exe,rd,nowrt,quad
X
X`09Define_Routine`09DWS_Start_Application
X`09Define_Routine`09DWS_Get_Local_NodeName
X`09Define_Routine`09DWS_Get_DeviceName
X`09Define_Routine`09DWS_Get_DisplayName
X
X`09.end
$ CALL UNPACK DWSTART_SHARE.MAR;12 88156087
$ create 'f'
Xname = dwstart_share
Xgsmatch = lequal,1,1
Xsys$share:decw$xlibshr/share
Xsys$share:decw$dwtlibshr/share
Xsys$share:decw$terminalshr/share
$ CALL UNPACK DWSTART_SHARE.OPT;4 1198333136
$ create 'f'
Xident = "DWUTILS V1.0"
$ CALL UNPACK DWUTILS.OPT;1 1718755229
$ create 'f'
X/*
X *`09Module:`09`09FABDEF.H
X *`09Description:`09System include file
X *
X *`09Revision history:
X *
X *`09000`09 5-jan-1990`09- Generated by MAR_TO_H T1.0-007 on VMS  V5.2   `20
X */
X
X#include "datatypes.h"
X
X#define FAB$C_BID 3
X#define FAB$C_SEQ 0
X#define FAB$C_REL 16
X#define FAB$C_IDX 32
X#define FAB$C_HSH 48
X#define FAB$C_RFM_DFLT 2
X#define FAB$C_UDF 0
X#define FAB$C_FIX 1
X#define FAB$C_VAR 2
X#define FAB$C_VFC 3
X#define FAB$C_STM 4
X#define FAB$C_STMLF 5
X#define FAB$C_STMCR 6
X#define FAB$C_MAXRFM 6
X#define FAB$K_BLN 80
X#define FAB$C_BLN 80
Xstruct FAB `7B
X    BYTE fab$b_bid;`09`09`09`09`09/* 0 */
X    BYTE fab$b_bln;`09`09`09`09`09/* 1 */
X    variant_union `7B
X`09struct `7B
X`09    unsigned : 6;`09`09`09`09`09    /* 0 */
X#define FAB$S_PPF_RAT 8
X`09    unsigned fab$v_ppf_rat : 8;`09`09`09    /* 6 */
X`09    unsigned fab$v_ppf_ind : 1;`09`09`09    /* 14 */
X`09    unsigned : 1;`09`09`09`09`09    /* 15 */
X`09`7D fab$r_ifi_bits;
X`09WORD fab$w_ifi;`09`09`09`09`09/* 2 */
X    `7D fab$r_ifi_overlay;
X    variant_union `7B
X`09struct `7B
X`09    unsigned fab$v_asy : 1;`09`09`09`09    /* 0 */
X`09    unsigned fab$v_mxv : 1;`09`09`09`09    /* 1 */
X`09    unsigned fab$v_sup : 1;`09`09`09`09    /* 2 */
X`09    unsigned fab$v_tmp : 1;`09`09`09`09    /* 3 */
X`09    unsigned fab$v_tmd : 1;`09`09`09`09    /* 4 */
X`09    unsigned fab$v_dfw : 1;`09`09`09`09    /* 5 */
X`09    unsigned fab$v_sqo : 1;`09`09`09`09    /* 6 */
X`09    unsigned fab$v_rwo : 1;`09`09`09`09    /* 7 */
X`09    unsigned fab$v_pos : 1;`09`09`09`09    /* 8 */
X`09    unsigned fab$v_wck : 1;`09`09`09`09    /* 9 */
X`09    unsigned fab$v_nef : 1;`09`09`09`09    /* 10 */
X`09    unsigned fab$v_rwc : 1;`09`09`09`09    /* 11 */
X`09    unsigned fab$v_dmo : 1;`09`09`09`09    /* 12 */
X`09    unsigned fab$v_spl : 1;`09`09`09`09    /* 13 */
X`09    unsigned fab$v_scf : 1;`09`09`09`09    /* 14 */
X`09    unsigned fab$v_dlt : 1;`09`09`09`09    /* 15 */
X`09    unsigned fab$v_nfs : 1;`09`09`09`09    /* 16 */
X`09    unsigned fab$v_ufo : 1;`09`09`09`09    /* 17 */
X`09    unsigned fab$v_ppf : 1;`09`09`09`09    /* 18 */
X`09    unsigned fab$v_inp : 1;`09`09`09`09    /* 19 */
X`09    unsigned fab$v_ctg : 1;`09`09`09`09    /* 20 */
X`09    unsigned fab$v_cbt : 1;`09`09`09`09    /* 21 */
X`09    unsigned fab$v_syncsts : 1;`09`09`09`09    /* 22 */
X`09    unsigned fab$v_rck : 1;`09`09`09`09    /* 23 */
X`09    unsigned fab$v_nam : 1;`09`09`09`09    /* 24 */
X`09    unsigned fab$v_cif : 1;`09`09`09`09    /* 25 */
X`09    unsigned : 1;`09`09`09`09`09    /* 26 */
X`09    unsigned fab$v_esc : 1;`09`09`09`09    /* 27 */
X`09    unsigned fab$v_tef : 1;`09`09`09`09    /* 28 */
X`09    unsigned fab$v_ofp : 1;`09`09`09`09    /* 29 */
X`09    unsigned fab$v_kfo : 1;`09`09`09`09    /* 30 */
X`09    unsigned : 1;`09`09`09`09`09    /* 31 */
X`09`7D fab$r_fop_bits;`09`09`09`09`09/* 4 */
X`09LONGWORD fab$l_fop;
X    `7D fab$r_fop_overlay;
X    LONGWORD fab$l_sts;`09`09`09`09`09/* 8 */
X    LONGWORD fab$l_stv;`09`09`09`09`09/* 12 */
X    LONGWORD fab$l_alq;`09`09`09`09`09/* 16 */
X    WORD fab$w_deq;`09`09`09`09`09/* 20 */
X    variant_union `7B
X`09struct `7B
X`09    unsigned fab$v_put : 1;`09`09`09`09    /* 0 */
X`09    unsigned fab$v_get : 1;`09`09`09`09    /* 1 */
X`09    unsigned fab$v_del : 1;`09`09`09`09    /* 2 */
X`09    unsigned fab$v_upd : 1;`09`09`09`09    /* 3 */
X`09    unsigned fab$v_trn : 1;`09`09`09`09    /* 4 */
X`09    unsigned fab$v_bio : 1;`09`09`09`09    /* 5 */
X`09    unsigned fab$v_bro : 1;`09`09`09`09    /* 6 */
X`09    unsigned fab$v_exe : 1;`09`09`09`09    /* 7 */
X`09`7D fab$r_fac_bits;
X`09BYTE fab$b_fac;`09`09`09`09`09/* 22 */
X    `7D fab$r_fav_overlay;
X    variant_union `7B
X`09struct `7B
X`09    unsigned fab$v_shrput : 1;`09`09`09    /* 0 */
X`09    unsigned fab$v_shrget : 1;`09`09`09    /* 1 */
X`09    unsigned fab$v_shrdel : 1;`09`09`09    /* 2 */
X`09    unsigned fab$v_shrupd : 1;`09`09`09    /* 3 */
X`09    unsigned fab$v_mse : 1;`09`09`09`09    /* 4 */
X`09    unsigned fab$v_nil : 1;`09`09`09`09    /* 5 */
X`09    unsigned fab$v_upi : 1;`09`09`09`09    /* 6 */
X`09    unsigned : 1;`09`09`09`09`09    /* 7 */
X`09`7D fab$r_shr_bits;
X`09BYTE fab$b_shr;`09`09`09`09`09/* 23 */
X    `7D fab$r_shr_overlay;
X    LONGWORD fab$l_ctx;`09`09`09`09`09/* 24 */
X    BYTE fab$b_rtv;`09`09`09`09`09/* 28 */
X    variant_union `7B
X`09struct `7B
X`09    unsigned : 4;`09`09`09`09`09    /* 0 */
X#define FAB$S_ORG 4
X`09    unsigned fab$v_org : 4;`09`09`09`09    /* 4 */
X`09`7D fab$r_org_bits;
X`09BYTE fab$b_org;`09`09`09`09`09/* 29 */
X    `7D fab$r_org_overlay;
X    variant_union `7B
X`09struct `7B
X`09    unsigned fab$v_ftn : 1;`09`09`09`09    /* 0 */
X`09    unsigned fab$v_cr : 1;`09`09`09`09    /* 1 */
X`09    unsigned fab$v_prn : 1;`09`09`09`09    /* 2 */
X`09    unsigned fab$v_blk : 1;`09`09`09`09    /* 3 */
X`09    unsigned : 4;`09`09`09`09`09    /* 4 */
X`09`7D fab$r_rat_bits;
X`09BYTE fab$b_rat;`09`09`09`09`09/* 30 */
X    `7D fab$r_rat_overlay;
X    BYTE fab$b_rfm;`09`09`09`09`09/* 31 */
X    variant_union `7B
X`09struct `7B
X`09    unsigned fab$v_only_ru : 1;`09`09`09    /* 0 */
X`09    unsigned fab$v_ru : 1;`09`09`09`09    /* 1 */
X`09    unsigned fab$v_bi : 1;`09`09`09`09    /* 2 */
X`09    unsigned fab$v_ai : 1;`09`09`09`09    /* 3 */
X`09    unsigned fab$v_at : 1;`09`09`09`09    /* 4 */
X`09    unsigned fab$v_never_ru : 1;`09`09`09    /* 5 */
X`09    unsigned fab$v_journal_file : 1;`09`09    /* 6 */
X`09    unsigned : 1;`09`09`09`09`09    /* 7 */
X`09`7D fab$r_journal_bits;
X`09BYTE fab$b_journal;`09`09`09`09`09/* 32 */
X    `7D fab$r_journal_overlay;
X    BYTE fab$b_ru_facility;`09`09`09`09/* 33 */
X    WORD fab$w_unused_1;`09`09`09`09/* 34 */
X    LONGWORD fab$l_xab;`09`09`09`09`09/* 36 */
X    LONGWORD fab$l_nam;`09`09`09`09`09/* 40 */
X    LONGWORD fab$l_fna;`09`09`09`09`09/* 44 */
X    LONGWORD fab$l_dna;`09`09`09`09`09/* 48 */
X    BYTE fab$b_fns;`09`09`09`09`09/* 52 */
X    BYTE fab$b_dns;`09`09`09`09`09/* 53 */
X    WORD fab$w_mrs;`09`09`09`09`09/* 54 */
X    LONGWORD fab$l_mrn;`09`09`09`09`09/* 56 */
X    WORD fab$w_bls;`09`09`09`09`09/* 60 */
X    BYTE fab$b_bks;`09`09`09`09`09/* 62 */
X    BYTE fab$b_fsz;`09`09`09`09`09/* 63 */
X    LONGWORD fab$l_dev;`09`09`09`09`09/* 64 */
X    LONGWORD fab$l_sdc;`09`09`09`09`09/* 68 */
X    WORD fab$w_gbc;`09`09`09`09`09/* 72 */
X    variant_union `7B
X`09struct `7B
X#define FAB$S_LNM_MODE 2
X`09    unsigned fab$v_lnm_mode : 2;`09`09`09    /* 0 */
X#define FAB$S_CHAN_MODE 2
X`09    unsigned fab$v_chan_mode : 2;`09`09`09    /* 2 */
X#define FAB$S_FILE_MODE 2
X`09    unsigned fab$v_file_mode : 2;`09`09`09    /* 4 */
X#define FAB$S_CALLERS_MODE 2
X`09    unsigned fab$v_callers_mode : 2;`09`09    /* 6 */
X`09`7D fab$r_acmodes_bits;
X`09BYTE fab$b_acmodes;`09`09`09`09`09/* 74 */
X    `7D fab$r_acmodes_overlay;
X    variant_union `7B
X`09struct `7B
X`09    unsigned fab$v_rcf_ru : 1;`09`09`09    /* 0 */
X`09    unsigned fab$v_rcf_ai : 1;`09`09`09    /* 1 */
X`09    unsigned fab$v_rcf_bi : 1;`09`09`09    /* 2 */
X`09    unsigned : 5;`09`09`09`09`09    /* 3 */
X`09`7D fab$r_rcf_bits;
X`09BYTE fab$b_rcf;`09`09`09`09`09/* 75 */
X    `7D fab$r_rcf_overlay;
X    LONGWORD fab$l_filler_1;`09`09`09`09/* 76 */
X`7D ;
X
Xglobalref struct FAB cc$rms_fab;        /* Declare initialized prototype dat
Va structure */
$ CALL UNPACK FABDEF.H;4 2081307687
$ create 'f'
X/*
X * Module:`09FIBDEF.H
X * Description:`09System include file
X * Author:`09Herman Verkade
X *
X * (c) 1990 CompuThoughts Software Solutions (UK) Ltd, Glasgow, Scotland, UK
X * All rights reserved.
X *
X * Revision history:
X *
X * 000 17-jul-1990 - New module
X */
X
X#ifndef __FIDDEF_LOADED
X#define __FIDDEF_LOADED 1
X
X#include "datatypes.h"
X
Xstruct FID `7B
X    variant_union `7B
X`09variant_struct `7B
X`09    WORD fid$w_num;`09`09`09`09`09/* 0 - 1 */
X`09    WORD fid$w_seq;`09`09`09`09`09/* 2 - 3 */
X`09    variant_union `7B
X`09`09variant_struct `7B
X`09`09    BYTE fib$b_fid_rvn;`09`09`09`09/* 4 - 4 */
X`09`09    BYTE fib$b_fid_nmx;`09`09`09`09/* 5 - 5 */
X`09`09`7D fid$_rvn_fields;`09   `20
X`09`09WORD fib$w_fid_rvn;`09`09`09`09/* 4 - 5 */
X`09    `7D fid$_rvn_overlay;
X`09`7D fid$_fid_fields;
X`09WORD fib$w_fid`5B3`5D;`09`09`09`09`09/* 0 - 5 */
X    `7D fid$_fid_overlay;
X`7D ;
X#endif
$ CALL UNPACK FIDDEF.H;2 957837901
$ create 'f'
Xall : DWstart_Share.exe DWstart_Share52.exe DWstart_Main.exe
Xall : DWstart_Server.exe DWstart_Server52.exe ShowDisplay.exe
X
Xrelease : all
X`09$ vms_share *.txt,*.c,*.h,makefile. dwutils.share
X
XDWstart_Main.exe : DWstart_Main.obj DWstart.opt
X`09$ link $(LFLAGS) DWstart_Main,sys$input/opt,DWutils/opt
X`09DWstart_Share/share
XDWstart_Main.obj : DWstart_Main.c DWstart.h
X`09$ cc $(CFLAGS) DWstart_Main
XDWstart_Server.exe : DWstart_Server.obj DWstart.opt
X`09$ link/notrace $(LFLAGS) DWstart_Server,sys$input/opt,DWutils/opt
X`09DWstart_Share/share
XDWstart_Server52.exe : DWstart_Server52.obj DWstart.opt
X`09$ link/notrace $(LFLAGS) DWstart_Server52,sys$input/opt,DWutils/opt
X`09DWstart_Share/share
XDWstart_Server.obj : DWstart_Server.c DWstart.h
X`09$ cc $(CFLAGS) DWstart_Server.c
XDWstart_Server52.obj : DWstart_Server.c DWstart.h
X`09$ cc $(CFLAGS) /object=DWstart_Server52/define=v52 DWstart_Server.c
XDWstart_Share.exe : DWstart_Share.obj DWstart_Application.obj
XDWstart_Share.exe : DWstart_Misc.obj DWstart_DECterm.obj DWstart_Remote.obj
XDWstart_Share.exe : DWstart_Commands.obj DWstart_Display.obj Resignal.obj
XDWstart_Share.exe : DWstart_Message.obj DWstart_Share.opt DWstart.opt
X`09$ link/share/notrace $(LFLAGS) DWstart_Share.obj,DWstart_Application,-
X`09DWstart_Misc,DWstart_DECterm,DWstart_Remote,DWstart_Display,-
X`09DWstart_Commands,Resignal,DWstart_Message,DWstart_Share.opt/options,-
X`09DWutils/opt
XDWstart_Share52.exe : DWstart_Share.obj DWstart_Application.obj
XDWstart_Share52.exe : DWstart_Misc.obj DWstart_DECterm52.obj DWstart_Remote.
Vobj
XDWstart_Share52.exe : DWstart_Commands.obj DWstart_Display.obj Resignal.obj
XDWstart_Share52.exe : DWstart_Message.obj DWstart_Share.opt DWstart.opt
X`09$ link/share=DWstart_Share52/notrace $(LFLAGS) DWstart_Share.obj,-
X`09DWstart_Application,DWstart_Misc,DWstart_DECterm52,DWstart_Remote,-
X`09DWstart_Display,Resignal,DWstart_Commands,DWstart_Message,-
X`09DWstart_Share.opt/options,DWutils/opt
XDWstart_Share.obj : DWstart_Share.mar
X`09$ macro/lis DWstart_Share
XDWstart_Application.obj : DWstart_Application.c DWstart_Share.h DWstart.h
X`09$ cc $(CFLAGS) DWstart_Application
XDWstart_DECterm.obj : DWstart_DECterm.c DWstart_Share.h DWstart.h
X`09$ cc $(CFLAGS) DWstart_DECterm
XDWstart_DECterm52.obj : DWstart_DECterm.c DWstart_Share.h DWstart.h
X`09$ cc $(CFLAGS) /obj=DWstart_DECterm52/define=v52 DWstart_DECterm
XDWstart_Misc.obj : DWstart_Misc.c DWstart_Share.h DWstart.h
X`09$ cc $(CFLAGS) DWstart_Misc
XDWstart_Remote.obj : DWstart_Remote.c DWstart_Share.h DWstart.h
X`09$ cc $(CFLAGS) DWstart_Remote
XDWstart_Display.obj : DWstart_Display.c DWstart_Share.h DWstart.h
X`09$ cc $(CFLAGS) DWstart_Display
XDWstart_Commands.obj : DWstart_Commands.cld
X`09$ set command/object/list DWstart_Commands
XDWstart_Message.obj : DWstart_Message.msg
X`09$ message/list DWstart_Message
XResignal.obj : Resignal.mar
X`09$ macro /list Resignal
X
XShowDisplay.exe : ShowDisplay.obj
X`09$ link $(LFLAGS) ShowDisplay,sys$input/opt
X`09DWstart_Share/share
XShowDisplay.obj : ShowDisplay.c
X`09$ cc $(CFLAGS) ShowDisplay
$ CALL UNPACK MAKEFILE.;8 1024675082
$ create 'f'
X$ ver = 'f$verify(0)
X$ on control_y then goto tidy
X$ on warning then goto tidy
X$ set verify
X$ macro/lis DWstart_Share
X$ cc /list/mach DWstart_Application
X$ cc /list/mach DWstart_Misc
X$ cc /list/mach DWstart_DECterm
X$ cc /list/mach DWstart_Remote
X$ set command/object/list DWstart_Commands
X$ cc /list/mach DWstart_Display
X$ macro /list Resignal
X$ message/list DWstart_Message
X$ link/share/notrace /map DWstart_Share.obj,DWstart_Application,-
XDWstart_Misc,DWstart_DECterm,DWstart_Remote,DWstart_Display,-
XDWstart_Commands,Resignal,DWstart_Message,DWstart_Share.opt/options,-
XDWutils/opt
+-+-+-+-+-+-+-+-  END  OF PART 5 +-+-+-+-+-+-+-+-