Add lib/version/Internals.pod to MANIFEST and Porting/Maintainers.pl
[perl.git] / vos / vos.c
1 /* Beginning of modification history */
2 /* Written 02-01-02 by Nick Ing-Simmons (nick@ing-simmons.net) */
3 /* Modified 02-03-27 by Paul Green (Paul.Green@stratus.com) to
4      add socketpair() dummy. */
5 /* Modified 02-04-24 by Paul Green (Paul.Green@stratus.com) to
6      have pow(0,0) return 1, avoiding c-1471. */
7 /* Modified 06-09-25 by Paul Green (Paul.Green@stratus.com) to
8      add syslog entries. */
9 /* Modified 08-02-04 by Paul Green (Paul.Green@stratus.com) to
10      open the syslog file in the working dir. */
11 /* End of modification history */
12
13 #include <errno.h>
14 #include <fcntl.h>
15 #include <stdio.h>
16 #include <stdlib.h>
17 #include <string.h>
18 #include <sys/types.h>
19 #include <unistd.h>
20
21 #include "vos/syslog.h"
22
23 /* VOS doesn't supply a truncate function, so we build one up
24    from the available POSIX functions.  */
25
26 int
27 truncate(const char *path, off_t len)
28 {
29  int fd = open(path,O_WRONLY);
30  int code = -1;
31  if (fd >= 0) {
32    code = ftruncate(fd,len);
33    close(fd); 
34  }
35  return code;
36 }
37
38 /* VOS doesn't implement AF_UNIX (AF_LOCAL) style sockets, and
39    the perl emulation of them hangs on VOS (due to stcp-1257),
40    so we supply this version that always fails.  */
41
42 int
43 socketpair (int family, int type, int protocol, int fd[2]) {
44  fd[0] = 0;
45  fd[1] = 0;
46  errno = ENOSYS;
47  return -1;
48 }
49
50 /* Supply a private version of the power function that returns 1
51    for x**0.  This avoids c-1471.  Abigail's Japh tests depend
52    on this fix.  We leave all the other cases to the VOS C
53    runtime.  */
54
55 double s_crt_pow(double *x, double *y);
56
57 double pow(x,y)
58 double x, y;
59 {
60      if (y == 0e0)                 /* c-1471 */
61      {
62           errno = EDOM;
63           return (1e0);
64      }
65
66      return(s_crt_pow(&x,&y));
67 }
68
69 /* entries */
70
71 extern void s$log_system_message (
72 /*             char_varying (256)  *message_text, 
73                char_varying (66)   *module_name, 
74                short int           *error_code */ );
75
76 /* constants */
77
78 #define    ALL_PRIORITIES 255  /* 8 priorities, all enabled */
79 #define    BUFFER_LEN 256
80 #define    IDENT_LEN 64
81 #define    MSG_LEN 256
82 #define    PATH_LEN 257
83
84 /* static */
85
86 int  vos_syslog_facility = LOG_USER>>3;
87 int  vos_syslog_fd = -1;
88 int  vos_syslog_logopt = 0;
89 char vos_syslog_ident[IDENT_LEN] = "";
90 int  vos_syslog_ident_len = 0;
91 int  vos_syslog_mask = ALL_PRIORITIES;
92 char vos_syslog_path[PATH_LEN] = "syslog";
93
94 char vos_syslog_facility_name [17][10] = {
95      "[KERN] ",    /* LOG_KERN */
96      "[USER] ",    /* LOG_USER */
97      "[MAIL] ",    /* LOG_MAIL */
98      "[NEWS] ",    /* LOG_NEWS */
99      "[UUCP] ",    /* LOG_UUCP */
100      "[DAEMON] ",  /* LOG_DAEMON */
101      "[AUTH] ",    /* LOG_AUTH */
102      "[CRON] ",    /* LOG_CRON */
103      "[LPR] ",     /* LOG_LPR */
104      "[LOCAL0] ",  /* LOG_LOCAL0 */
105      "[LOCAL1] ",  /* LOG_LOCAL1 */
106      "[LOCAL2] ",  /* LOG_LOCAL2 */
107      "[LOCAL3] ",  /* LOG_LOCAL3 */
108      "[LOCAL4] ",  /* LOG_LOCAL4 */
109      "[LOCAL5] ",  /* LOG_LOCAL5 */
110      "[LOCAL6] ",  /* LOG_LOCAL6 */
111      "[LOCAL7] "}; /* LOG_LOCAL7 */
112
113 /* syslog functions */
114
115 static void open_syslog (void)
116 {
117      if (vos_syslog_fd >= 0)
118           return;
119
120      vos_syslog_fd = open (vos_syslog_path, O_RDWR | O_CREAT | O_APPEND, 0777);
121      if (vos_syslog_fd < 0)
122           fprintf (stderr, "Unable to open %s (errno=%d, os_errno=%d)\n",
123                vos_syslog_path, errno, os_errno);
124 }
125
126 void closelog (void)
127 {
128      if (vos_syslog_fd >= 0)
129           close (vos_syslog_fd);
130
131      vos_syslog_facility = LOG_USER>>3;
132      vos_syslog_fd = -1;
133      vos_syslog_logopt = 0;
134      vos_syslog_ident[0] = '\0';
135      vos_syslog_ident_len = 0;
136      vos_syslog_mask = ALL_PRIORITIES;
137      return;
138 }
139
140 void openlog (const char *ident, int logopt, int facility)
141 {
142 int  n;
143
144      if (ident != NULL)
145      {
146           strncpy (vos_syslog_ident, ident, sizeof (vos_syslog_ident));
147           n = IDENT_LEN -
148                strnlen (vos_syslog_ident, sizeof (vos_syslog_ident));
149           strncat (vos_syslog_ident, ": ", n);
150           vos_syslog_ident_len = strnlen (vos_syslog_ident,
151                sizeof (vos_syslog_ident));
152      }
153
154      vos_syslog_logopt = logopt;
155      vos_syslog_facility = facility>>3;
156
157      if ((logopt & LOG_NDELAY) == LOG_NDELAY)
158           open_syslog ();
159
160      return;
161 }
162
163 int setlogmask (int maskpri)
164 {
165 int  old_mask;
166
167      old_mask = vos_syslog_mask;
168
169      if (maskpri > 0)
170           vos_syslog_mask = maskpri;
171
172      return old_mask;
173 }
174
175 void syslog (int priority, const char *format, ...)
176 {
177 va_list             ap;
178 int                 bare_facility;
179 int                 bare_priority;
180 int                 buffer_n;
181 char                buffer[BUFFER_LEN];
182 short int           code;
183 char_varying(MSG_LEN) message;
184 char_varying(66)    module_name;
185 int                 n;
186 int                 pid_n;
187 char                pid_string[32];
188 int                 r;
189 int                 user_n;
190 char                user_string[256];
191
192      /* Calculate priority and facility value.  */
193
194      bare_priority = priority & 3;
195      bare_facility = priority >> 3;
196
197      /* If the priority is not set in the mask, do not log the
198         message.  */
199
200      if ((vos_syslog_mask & LOG_MASK(bare_priority)) == 0)
201           return;
202
203      /* Output facility name.  */
204
205      if (bare_facility == 0)
206           bare_facility = vos_syslog_facility;
207
208      strcpy (buffer, vos_syslog_facility_name[bare_facility]);
209
210      /* Output priority value. */
211
212      /* TBD */
213
214      /* Output identity string. */
215
216      buffer_n = BUFFER_LEN - strlen (buffer);
217      strncat (buffer, vos_syslog_ident, buffer_n);
218
219      /* Output process ID.  */
220
221      if ((vos_syslog_logopt & LOG_PID) == LOG_PID)
222      {
223           pid_n = snprintf (pid_string, sizeof (pid_string),
224                "PID=0x%x ", getpid ());
225           if (pid_n)
226           {
227                buffer_n = BUFFER_LEN - strlen (buffer);
228                strncat (buffer, pid_string, buffer_n);
229           }
230      }
231
232      /* Output formatted message.  */
233
234      va_start (ap, format);
235      user_n = vsnprintf (user_string, sizeof (user_string), format, ap);
236      va_end (ap);
237
238      /* Ensure string ends in a newline.  */
239
240      if (user_n > 0)
241      {
242           if (user_n >= sizeof (user_string))
243                user_n = sizeof (user_string) - 1;
244
245           /* arrays are zero-origin.... */
246
247           if (user_string [user_n-1] != '\n')
248           {
249                user_string [user_n-1] = '\n';
250                user_string [user_n++] = '\0';
251           }
252      }        
253      else
254      {
255           user_string [0] = '\n';
256           user_string [1] = '\0';
257           user_n = 1;
258      }
259
260      buffer_n = BUFFER_LEN - strnlen (buffer, sizeof (buffer));
261      strncat (buffer, user_string, buffer_n);
262
263      /* If the log is not open, try to open it now.  */
264
265      if (vos_syslog_fd < 0)
266           open_syslog ();
267
268      /* Try to write the message to the syslog file.  */
269
270      if (vos_syslog_fd < 0)
271           r = -1;
272      else
273      {
274           buffer_n = strnlen (buffer, sizeof (buffer));
275           r = write (vos_syslog_fd, buffer, buffer_n);
276      }
277
278      /* If we were unable to write to the log and if LOG_CONS is
279         set, send it to the console.  */
280
281      if (r < 0)
282           if ((vos_syslog_logopt & LOG_CONS) == LOG_CONS)
283           {
284                strcpy_vstr_nstr (&message, "syslog: ");
285                n = MSG_LEN - sizeof ("syslog: ");
286                strncat_vstr_nstr (&message, buffer, n);
287                strcpy_vstr_nstr (&module_name, "");
288                s$log_system_message (&message, &module_name, &code);
289           }
290
291      return;
292 }