Return to make-support.c CVS log

Up to [Apple XNU] / GNUtools / cc

Annotation of GNUtools/cc/make-support.c, revision 1.1.1.1

1.1       root        1: 
                      2: #include "make.h"
                      3: #include <string.h>
                      4: #include <stdio.h>
                      5: #include <stdlib.h>
                      6: #include <mach/mach.h>
                      7: #include <servers/netname.h>
                      8: #include <sys/param.h>
                      9: 
                     10: void
                     11: make_support (type, name, file, line, msg, arg1, arg2, arg3)
                     12:       int type;
                     13:       char *name;
                     14:       char *file;
                     15:       int line;
                     16:       char *msg;
                     17:       int arg1;
                     18:       int arg2;
                     19:       int arg3;
                     20: {
                     21:   static port_t port = PORT_NULL;
                     22:   static int already_tried = 0;
                     23:   static char directory[MAXPATHLEN];
                     24:   char message[1000];
                     25:   
                     26:   if (port == PORT_NULL && already_tried == 0)
                     27:     {
                     28:       char *port_name = getenv ("MAKEPORT");
                     29:       char *host_name = getenv ("MAKEHOST");
                     30:       
                     31:       already_tried = 1;
                     32:       
                     33:       if (port_name == NULL)
                     34:         return;
                     35:       
                     36:       if (host_name == NULL)
                     37:         host_name = "";
                     38:       
                     39:       netname_look_up (name_server_port, host_name, port_name, &port);
                     40:       
                     41:       if (port == PORT_NULL)
                     42:        return;
                     43:       
                     44:       getwd (directory);
                     45:     }
                     46:   
                     47:   if (name == NULL)
                     48:     name = "";
                     49:   
                     50:   if (file == NULL)
                     51:     file = "";
                     52:   
                     53:   if (msg == NULL)
                     54:     message[0] = '\0';
                     55:   else
                     56:     sprintf (message, msg, arg1, arg2, arg3);
                     57:   
                     58:   make_alert (port,
                     59:              type,
                     60:              name, strlen (name) + 1,
                     61:              file, strlen (file) + 1,
                     62:              directory, strlen (directory) + 1,
                     63:              line,
                     64:              message, strlen (message) + 1);
                     65: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.