[BACK]Return to %KILLJOB.m CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / contrib
File:  [Coherent Logic Development] / freem / contrib / %KILLJOB.m
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jan 19 02:04:04 2025 UTC (6 months, 1 week ago) by snw
Branches: MAIN, CoherentLogicDevelopment
CVS tags: v0-63-1-rc1, v0-63-0-rc1, v0-63-0, v0-62-3, v0-62-2, v0-62-1, v0-62-0, start, HEAD
FreeM

    1: %KILLJOB ; A.Trocha; killjob utility [1999/01/29- 4:28:46]
    2: 	; $Source: /home/cvsroot/freem/contrib/%KILLJOB.m,v $
    3: 	; $Revision: 1.1.1.1 $ $Date: 2025/01/19 02:04:04 $
    4: 	N ss,ss1,pid
    5: 	W !!,?20,"FreeM - Job Termination Utility"
    6: 	W !,?23,$ZD,"  ",$ZT
    7: query	W !!,"Job number to be halted? "
    8: 	R pid
    9: 	I pid="?" D help G query
   10: 	I pid="^L" D ^%SS G query
   11: 	I pid="" G end
   12: 	D ss^%SS
   13: 	I $G(ss1(pid))="" W !,"Invalid job number!",*7 G query
   14: 	V 100:pid
   15: 	W !!,"killed...",*7
   16: 	G query
   17: end	W !! Q
   18: 	;
   19: help	W !!,"enter job number to be halted or"
   20: 	W !,"enter '^L' to list all jobs..."
   21: 	Q
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>