![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to osk.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / usr / bin / elvis|
Return to osk.c CVS log | Up to [MW Coherent from dump] / coherent / d / usr / bin / elvis |
1.1 root 1: /* osk.c */
2:
3: /* ------------------------------------------------------------------- *
4: |
5: | OS9Lib: stat(), fstat()
6: |
7: |
8: | Copyright (c) 1988 by Wolfgang Ocker, Puchheim,
9: | Ulli Dessauer, Germering and
10: | Reimer Mellin, Muenchen
11: | (W-Germany)
12: |
13: | This programm can be copied and distributed freely for any
14: | non-commercial purposes. It can only be incorporated into
15: | commercial software with the written permission of the authors.
16: |
17: | If you should modify this program, the authors would appreciate
18: | a notice about the changes. Please send a (context) diff or the
19: | complete source to:
20: |
21: | address: Wolfgang Ocker
22: | Lochhauserstrasse 35a
23: | D-8039 Puchheim
24: | West Germany
25: |
26: | e-mail: [email protected], [email protected], [email protected]
27: | pyramid!tmpmbx!recco!weo
28: | pyramid!tmpmbx!nitmar!ud
29: | pyramid!tmpmbx!ramsys!ram
30: |
31: * ----------------------------------------------------------------- */
32:
33: #ifdef OSK
34:
35: #define PATCHLEVEL 1
36:
37: #ifndef VIREC
38: #include <stdio.h>
39: #include "osk.h"
40: #include <modes.h>
41: #include <errno.h>
42: #endif
43: #include <signal.h>
44: #include <sgstat.h>
45: #include <sg_codes.h>
46: #include <direct.h>
47:
48: /*
49: * f s t a t
50: */
51: int fstat(fd, buff)
52: int fd;
53: struct stat *buff;
54: {
55: struct fildes ftmp;
56: struct tm ttmp;
57: struct _sgr fopt;
58:
59: if (_gs_gfd(fd, &ftmp, 16) < 0) /* 16 insteat of sizeof(struct fildes) */
60: return(-1); /* used due to a bug in stupid os9net */
61:
62: if (_gs_opt(fd, &fopt) < 0)
63: return(-1);
64:
65: ttmp.tm_year = (int) ftmp.fd_date[0];
66: ttmp.tm_mon = (int) ftmp.fd_date[1] - 1;
67: ttmp.tm_mday = (int) ftmp.fd_date[2];
68: ttmp.tm_hour = (int) ftmp.fd_date[3];
69: ttmp.tm_min = (int) ftmp.fd_date[4];
70: ttmp.tm_sec = 0;
71: ttmp.tm_isdst = -1;
72:
73: buff->st_atime = buff->st_mtime = mktime(&ttmp);
74:
75: ttmp.tm_year = (int) ftmp.fd_dcr[0];
76: ttmp.tm_mon = (int) ftmp.fd_dcr[1] - 1;
77: ttmp.tm_mday = (int) ftmp.fd_dcr[2];
78: ttmp.tm_hour = ttmp.tm_min = ttmp.tm_sec = 0;
79: ttmp.tm_isdst = -1;
80:
81: buff->st_ctime = mktime(&ttmp);
82:
83: memcpy(&(buff->st_size), ftmp.fd_fsize, sizeof(long)); /* misalignment! */
84: buff->st_uid = ftmp.fd_own[1];
85: buff->st_gid = ftmp.fd_own[0];
86: buff->st_mode = ftmp.fd_att;
87: buff->st_nlink = ftmp.fd_link;
88:
89: buff->st_ino = fopt._sgr_fdpsn;
90: buff->st_dev = fopt._sgr_dvt;
91:
92: return(0);
93: }
94:
95: /*
96: * s t a t
97: */
98: int stat(filename, buff)
99: char *filename;
100: struct stat *buff;
101: {
102: register int i, ret;
103:
104: if ((i = open(filename, S_IREAD)) < 0)
105: if ((i = open(filename, S_IFDIR | S_IREAD)) < 0)
106: return(-1);
107:
108: ret = fstat(i, buff);
109: close(i);
110:
111: return(ret);
112: }
113:
114: /*
115: unix library functions mist in OSK
116: Author: Peter Reinig
117: */
118:
119: /* NOTE: this version of link() is only capable of renaming files, not true
120: * UNIX-style linking. That's okay, though, because elvis only uses it for
121: * renaming.
122: */
123: link(from,to)
124: char *from,*to;
125: {
126: char *buffer;
127: int status;
128: char *malloc();
129:
130: if ((buffer = malloc(strlen(from) + strlen(to) + 12)) == NULL)
131: return -1;
132: sprintf(buffer,"rename %s %s\n",from,to);
133: status = system(buffer);
134: free(buffer);
135: return status;
136: }
137:
138: typedef (*procref)();
139: #define MAX_SIGNAL 10
140:
141: extern exit();
142:
143: static int (*sig_table[MAX_SIGNAL])();
144: static int _sig_install = 0;
145:
146: sig_handler(sig)
147: int sig;
148: {
149: if ((int) sig_table[sig] > MAX_SIGNAL)
150: sig_table[sig](sig);
151: }
152:
153: procref signal(sig,func)
154: int sig;
155: int (*func)();
156: {
157: int i, (*sav)();
158:
159: if (!_sig_install) {
160: for (i=0; i < MAX_SIGNAL; i++)
161: sig_table[i] = exit;
162: _sig_install = 1;
163: intercept(sig_handler);
164: }
165: sav = sig_table[sig];
166: switch ((int) func) {
167: case SIG_DFL : sig_table[sig] = exit;
168: break;
169: case SIG_IGN : sig_table[sig] = 0;
170: break;
171: default : sig_table[sig] = func;
172: break;
173: }
174: return sav;
175: }
176:
177: perror(str)
178: char *str;
179: {
180: static int path = 0;
181: if (!path && (path = open("/dd/sys/Errmsg", S_IREAD)) == -1) {
182: fprintf(stderr,"Can\'t open error message file\n");
183: path = 0;
184: }
185: if (str && *str) {
186: fprintf(stderr,"%s: ",str);
187: fflush(stderr);
188: }
189: prerr(path,(short) errno);
190: }
191:
192: isatty(fd)
193: int fd;
194: {
195: struct sgbuf buffer;
196: char type;
197:
198: _gs_opt(fd,&buffer);
199: type = buffer.sg_class;
200: if (type == DT_SCF)
201: return 1;
202: else
203: return 0;
204: }
205: #endif /* OSK */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.