Funções em C ANSI

Identificação da Impressora 3174

#include <stdio.h>
#include "natuser.h"
 
/*----------------------------------------------------------------------*
 *									*
 *	Modulo .................. PB19020C				*
 *	Autor ................... Lercio Teotonio Gontijo		*
 *	Data .................... Janeiro de 96				*
 *	Local ................... PRODABEL - BELO HORIZONTE		*
 *	Funcao .................. Identificacao de impressora 3174	*
 *									*
 *----------------------------------------------------------------------*/
long PB19020A (WORD nparm, BYTE **parmptr, FINFO *parmdec)
{
   static FILE *in;
   WORD parms, qtde;
   char *pointer, group[10], user[10], queue[40], filename[100];
 
   pointer = getenv("GROUP");
   strcpy(group,pointer);
   pointer = getenv("USER");
   strcpy(user,pointer);
   sprintf(filename,"/tmp/queue.%s.%s",group,user);
   if ((in = fopen(filename,"rt")) == NULL)
   {
         system("clear");
         printf("Nome do group %s\n",group);
         printf("PROGRAMA ABORTADO\n");
         printf("Chamada NATURAL a funcao PB19020A\n");
         printf("Nao existe fila de impressao associada ao grupo\n");
         perror("Use o comando \"qg\" para associar grupo a fila. ");
         system("stty sane");
         abort();
   }
 
   fgets(queue,39,in);
   fclose(in);
   queue[strlen(queue)-1] = '\0';
   pointer = strstr(queue,"PRTQ");
 
   if (pointer) return 1l;
   return 0l;
}