pwg: print working group

[fred at umcp-cs.UUCP]

This is a silly little command which prints your current group-id.
Sometimes useful.

: Run this shell script with "sh" not "csh"
PATH=:/bin:/usr/bin:/usr/ucb
export PATH
/bin/echo 'Extracting pwg.1'
sed 's/^X//' <<'//go.sysin dd *' >pwg.1
X.TH PWG 1 "1/22/82 (U of M)"
X.UC 4
X.SH NAME
Xpwg \- print working (current) group name
X.SH SYNOPSIS
X.B pwg
X.SH DESCRIPTION
X.I Pwg
Xprints the name of the (accounting) group you are currently logged in to.
X.SH "SEE ALSO"
Xnewgrp(1), chgrp(8)
X.SH BUGS
//go.sysin dd *
/bin/chmod 644 pwg.1
/bin/echo -n '	'; /bin/ls -ld pwg.1
/bin/echo 'Extracting pwg.c'
sed 's/^X//' <<'//go.sysin dd *' >pwg.c
Xstatic char *sccsid = "@(#)pwg.c	1/22/82	(University of Maryland)";
X
X#include <stdio.h>
X#include <grp.h>
X
X/*
X * pwg - print working group name
X *
X * Fred Blonder <fred at umcp-cs>
X */
X
Xmain()
X{
Xregister struct group *gp;
Xregister int gid;
Xstruct group *getgrgid();
X
Xgid = getgid();
X
Xif ((gp = getgrgid(gid)) != NULL)
X	printf("%s\n", gp -> gr_name);
Xelse
X	printf("%d\n", gid);
X}
//go.sysin dd *
/bin/chmod 644 pwg.c
/bin/echo -n '	'; /bin/ls -ld pwg.c