home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / CGAZV5N3.ZIP / SVC.C < prev    next >
C/C++ Source or Header  |  1991-02-25  |  5KB  |  138 lines
  1. /************  Listing 2  ********************** SVC.C ****************
  2. *  svc.c --  Object Explorer, Service routines
  3. *  Author:   Thomas E. Siering, 1991. See Listing 1 for copyright.
  4. *  Usage:    These routines are general-purpose, not strictly related
  5. *            to the Object Explorer software and reusable.                 
  6. * 
  7. *  Compiler: Microsoft C 6.0, Turbo C++ 1.0
  8. * 
  9. *  Compile time switches: none
  10. * 
  11. *  Links with: ox.c and apps.c
  12. ***********************************************************************/
  13. #include <stdio.h>
  14. #include <stdlib.h>
  15. #include <stdarg.h>
  16. #include <string.h>
  17. #include "ox.h"       /* see Listing 4 */
  18.  
  19. /*-------------------------------------------------------------------
  20. *  InstList  -- Instantiate a linked list.  Setting the InfoP pointer 
  21. *      to NULL will identify this node as the header.  The list data
  22. *      can be any type desired by client.
  23. *------------------------------------------------------------------*/
  24. PUBLIC void InstList(LNODE *ListHeader)
  25. {
  26.     ListHeader->InfoP = NULL;
  27.     ListHeader->NextP = NULL;
  28. }
  29.  
  30. /*----------------------------------------------------------------
  31. *  AddListNode  --  Add a new node to existing linked list.
  32. *      This linked list uses a little trick: the header's InfoP                
  33. *      pointer field, since not otherwise utilized will point to               
  34. *      the terminating list member thus avoiding a linear search.              
  35. *      NOTE: This function will allocate space for the list node               
  36. *      but NOT for the data put into list (since the data's type               
  37. *      is of no concern to list manager).  If the client pollutes              
  38. *      this memory (free()s it or clobbers it) disaster strikes!               
  39. *----------------------------------------------------------------*/
  40. PUBLIC LNODE AddListNode(LNODE ListHeader, void *NewData)
  41. {
  42.     LNODE *NewNode;
  43.  
  44.     if ((NewNode = (LNODE *) malloc(sizeof(LNODE))) == NULL) 
  45.     {
  46.         /* let the client worry about the consequences of this */
  47.         ListHeader.InfoP = NULL;
  48.         return (ListHeader);
  49.     }
  50.     NewNode->InfoP = NewData;
  51.     NewNode->NextP = NULL;
  52.  
  53.     if (ListHeader.InfoP != NULL)
  54.     /* link to last previous list element */
  55.         ((LNODE *) ListHeader.InfoP)->NextP = NewNode;
  56.     else
  57.         ListHeader.NextP = NewNode;
  58.     ListHeader.InfoP = NewNode;
  59.     return (ListHeader);
  60. }
  61.  
  62. /*-------------------------------------------------------------------
  63. *   GetListNode  -- Retrieve a node from the linked list
  64. *         NOTE: List node 0 is header and shouldn't need retrieval
  65. *-------------------------------------------------------------------*/
  66. PUBLIC LNODE *GetListNode(LNODE ListHeader, unsigned int NodeIdx)
  67. {
  68.     LNODE *NodeP = ListHeader.NextP;
  69.     unsigned int   i;
  70.  
  71.     if (NodeIdx < 1)                /* nonsensical request */
  72.         return (NULL);
  73.  
  74.     for (i = 1; i < NodeIdx; i++) 
  75.     {
  76.         NodeP = NodeP->NextP;
  77.         if (NodeP == NULL)         /* erroneous index > last element */
  78.             break;
  79.     }
  80.     return (NodeP);
  81. }
  82.  
  83. /*----------------------------------------------------------------------
  84. *   MakeASCIIZ  --  Convert string in Intel format (1 byte string length    
  85. *        followed by actual string with no terminating 0) to ASCIIZ.
  86. *----------------------------------------------------------------------*/
  87. PUBLIC void *MakeASCIIZ(char *data)
  88. {
  89.     char *ASCIIZString;
  90.     unsigned char StringLength;
  91.  
  92.     StringLength = *data++;
  93.  
  94.     if ((ASCIIZString = malloc((int) StringLength + 1)) == NULL)
  95.         return (NULL);
  96.  
  97.     ASCIIZString[StringLength] = '\0';
  98.     strncpy(ASCIIZString, data, StringLength);
  99.     return (ASCIIZString);
  100. }
  101.  
  102. /*-----------------------------------------------------------------
  103. *   Output  --  Write to the output stream. This function adds an 
  104. *     exception-handling layer to disk I/O. In addition, it handles
  105. *     abnormal program termination, and warnings to both stderr and         
  106. *     output. Three types of message can be handled:
  107. *        Message - simply printed to a file                                    
  108. *        Warning - print to file AND stderr                                    
  109. *        Error - same as Warning, but terminate with abnormal exit code        
  110. *-----------------------------------------------------------------*/
  111. PUBLIC void Output(MESSAGETYPE MsgType, FILE *Stream, 
  112.                     char *OutputFormat, ...)
  113. {
  114.     char OutputBuffer[133];
  115.     va_list VarArgP;
  116.  
  117.     va_start(VarArgP, OutputFormat);
  118.     vsprintf(OutputBuffer, OutputFormat, VarArgP);
  119.  
  120.     /* If this is (non-fatal) warning or (fatal) error, 
  121.        then also send it to stderr */
  122.     if (MsgType != Message)
  123.         fprintf(stderr, "\a%s", OutputBuffer);
  124.  
  125.     /* In any case: attempt to print message to output file.  
  126.        Exception check. */
  127.     if ((size_t) fprintf(Stream, OutputBuffer) != strlen(OutputBuffer)) 
  128.     {
  129.         fprintf(stderr, "\aDisk Write Failure!\n");
  130.         exit(0xFF);
  131.     }
  132.  
  133.     /* If this was (fatal) error message, abort on the spot */
  134.     if (MsgType == Error)
  135.         exit(0xFF);
  136.  
  137.     va_end(VarArgP);
  138. }