![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to syssub.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / g / usr / lib / uucp / tay104 / uuconf|
Return to syssub.c CVS log | Up to [MW Coherent from dump] / coherent / g / usr / lib / uucp / tay104 / uuconf |
1.1 ! root 1: /* syssub.c ! 2: System information subroutines. ! 3: ! 4: Copyright (C) 1992 Ian Lance Taylor ! 5: ! 6: This file is part of the Taylor UUCP uuconf library. ! 7: ! 8: This library is free software; you can redistribute it and/or ! 9: modify it under the terms of the GNU Library General Public License ! 10: as published by the Free Software Foundation; either version 2 of ! 11: the License, or (at your option) any later version. ! 12: ! 13: This library is distributed in the hope that it will be useful, but ! 14: WITHOUT ANY WARRANTY; without even the implied warranty of ! 15: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ! 16: Library General Public License for more details. ! 17: ! 18: You should have received a copy of the GNU Library General Public ! 19: License along with this library; if not, write to the Free Software ! 20: Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! 21: ! 22: The author of the program may be contacted at [email protected] or ! 23: c/o Infinity Development Systems, P.O. Box 520, Waltham, MA 02254. ! 24: */ ! 25: ! 26: #include "uucnfi.h" ! 27: ! 28: #if USE_RCS_ID ! 29: const char _uuconf_syssub_rcsid[] = "$Id: syssub.c,v 1.1 93/07/30 08:07:35 bin Exp Locker: bin $"; ! 30: #endif ! 31: ! 32: #include <errno.h> ! 33: ! 34: /* This macro operates on every string (char *) field in struct ! 35: uuconf_system. */ ! 36: #define SYSTEM_STRINGS(OP) \ ! 37: do \ ! 38: { \ ! 39: OP (uuconf_zname); \ ! 40: OP (uuconf_zalternate); \ ! 41: OP (uuconf_zdebug); \ ! 42: OP (uuconf_zmax_remote_debug); \ ! 43: OP (uuconf_zphone); \ ! 44: OP (uuconf_zcall_login); \ ! 45: OP (uuconf_zcall_password); \ ! 46: OP (uuconf_zcalled_login); \ ! 47: OP (uuconf_zprotocols); \ ! 48: OP (uuconf_zpubdir); \ ! 49: OP (uuconf_zlocalname); \ ! 50: } \ ! 51: while (0) ! 52: ! 53: /* This macro operates on every string array (char **) field in struct ! 54: uuconf_system. */ ! 55: #define SYSTEM_STRING_ARRAYS(OP) \ ! 56: do \ ! 57: { \ ! 58: OP (uuconf_pzalias); \ ! 59: OP (uuconf_pzlocal_send); \ ! 60: OP (uuconf_pzremote_send); \ ! 61: OP (uuconf_pzlocal_receive); \ ! 62: OP (uuconf_pzremote_receive); \ ! 63: OP (uuconf_pzpath); \ ! 64: OP (uuconf_pzcmds); \ ! 65: OP (uuconf_pzforward_from); \ ! 66: OP (uuconf_pzforward_to); \ ! 67: OP (uuconf_schat.uuconf_pzchat); \ ! 68: OP (uuconf_schat.uuconf_pzprogram); \ ! 69: OP (uuconf_schat.uuconf_pzfail); \ ! 70: OP (uuconf_scalled_chat.uuconf_pzchat); \ ! 71: OP (uuconf_scalled_chat.uuconf_pzprogram); \ ! 72: OP (uuconf_scalled_chat.uuconf_pzfail); \ ! 73: } \ ! 74: while (0) ! 75: ! 76: /* This macro operations on every timespan pointer (struct ! 77: uuconf_timespan *) in struct uuconf_system. */ ! 78: #define SYSTEM_TIMESPANS(OP) \ ! 79: do \ ! 80: { \ ! 81: OP (uuconf_qtimegrade); \ ! 82: OP (uuconf_qcalltimegrade); \ ! 83: OP (uuconf_qcall_local_size); \ ! 84: OP (uuconf_qcall_remote_size); \ ! 85: OP (uuconf_qcalled_local_size); \ ! 86: OP (uuconf_qcalled_remote_size); \ ! 87: } \ ! 88: while (0) ! 89: ! 90: /* This macro operates on every boolean value (of type int, although ! 91: some type int are not boolean) field in uuconf_system. */ ! 92: #define SYSTEM_BOOLEANS(OP) \ ! 93: do \ ! 94: { \ ! 95: OP (uuconf_fcall); \ ! 96: OP (uuconf_fcalled); \ ! 97: OP (uuconf_fcallback); \ ! 98: OP (uuconf_fsequence); \ ! 99: OP (uuconf_fsend_request); \ ! 100: OP (uuconf_frec_request); \ ! 101: OP (uuconf_fcall_transfer); \ ! 102: OP (uuconf_fcalled_transfer); \ ! 103: OP (uuconf_schat.uuconf_fstrip); \ ! 104: OP (uuconf_scalled_chat.uuconf_fstrip); \ ! 105: } \ ! 106: while (0) ! 107: ! 108: /* This macro operates on every generic integer (type int or long) in ! 109: uuconf_system. */ ! 110: #define SYSTEM_INTEGERS(OP) \ ! 111: do \ ! 112: { \ ! 113: OP (uuconf_cmax_retries); \ ! 114: OP (uuconf_csuccess_wait); \ ! 115: OP (uuconf_ibaud); \ ! 116: OP (uuconf_ihighbaud); \ ! 117: OP (uuconf_cfree_space); \ ! 118: OP (uuconf_schat.uuconf_ctimeout); \ ! 119: OP (uuconf_scalled_chat.uuconf_ctimeout); \ ! 120: } \ ! 121: while (0) ! 122: ! 123: /* There is no macro for uuconf_qalternate, uuconf_zport, ! 124: uuconf_qport, uuconf_qproto_params, or uuconf_palloc. */ ! 125: ! 126: /* Clear the contents of a struct uuconf_system. */ ! 127: ! 128: void ! 129: _uuconf_uclear_system (q) ! 130: struct uuconf_system *q; ! 131: { ! 132: #define CLEAR(x) q->x = (char *) &_uuconf_unset ! 133: SYSTEM_STRINGS (CLEAR); ! 134: #undef CLEAR ! 135: #define CLEAR(x) q->x = (char **) &_uuconf_unset ! 136: SYSTEM_STRING_ARRAYS (CLEAR); ! 137: #undef CLEAR ! 138: #define CLEAR(x) q->x = (struct uuconf_timespan *) &_uuconf_unset ! 139: SYSTEM_TIMESPANS (CLEAR); ! 140: #undef CLEAR ! 141: #define CLEAR(x) q->x = -1 ! 142: SYSTEM_BOOLEANS (CLEAR); ! 143: SYSTEM_INTEGERS (CLEAR); ! 144: #undef CLEAR ! 145: q->uuconf_qalternate = NULL; ! 146: q->uuconf_zport = (char *) &_uuconf_unset; ! 147: q->uuconf_qport = (struct uuconf_port *) &_uuconf_unset; ! 148: q->uuconf_qproto_params = (struct uuconf_proto_param *) &_uuconf_unset; ! 149: q->uuconf_palloc = NULL; ! 150: } ! 151: ! 152: /* Default the contents of one struct uuconf_system to the contents of ! 153: another. This default alternate by alternate. Any additional ! 154: alternates in q default to the last alternate of qdefault. If the ! 155: faddalternates arguments is TRUE, additional alternates or qdefault ! 156: are added to q; these alternates are copies of the first alternate ! 157: of q, and defaults are set from the additional alternates of ! 158: qdefault. */ ! 159: ! 160: int ! 161: _uuconf_isystem_default (qglobal, qset, qdefault, faddalternates) ! 162: struct sglobal *qglobal; ! 163: struct uuconf_system *qset; ! 164: struct uuconf_system *qdefault; ! 165: boolean faddalternates; ! 166: { ! 167: struct uuconf_system *qalt; ! 168: ! 169: if (qset->uuconf_palloc != qdefault->uuconf_palloc) ! 170: qset->uuconf_palloc = ! 171: _uuconf_pmalloc_block_merge (qset->uuconf_palloc, ! 172: qdefault->uuconf_palloc); ! 173: ! 174: /* If we are adding alternates from the default, make sure we have ! 175: at least as many alternates in qset as we do in qdefault. Each ! 176: new alternate we create gets initialized to the first alternate ! 177: of the system. */ ! 178: if (faddalternates) ! 179: { ! 180: struct uuconf_system **pq, *qdef; ! 181: ! 182: for (qdef = qdefault, pq = &qset; ! 183: qdef != NULL; ! 184: qdef = qdef->uuconf_qalternate, pq = &(*pq)->uuconf_qalternate) ! 185: { ! 186: if (*pq == NULL) ! 187: { ! 188: *pq = ((struct uuconf_system *) ! 189: uuconf_malloc (qset->uuconf_palloc, ! 190: sizeof (struct uuconf_system))); ! 191: if (*pq == NULL) ! 192: { ! 193: qglobal->ierrno = errno; ! 194: return UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO; ! 195: } ! 196: **pq = *qset; ! 197: (*pq)->uuconf_qalternate = NULL; ! 198: } ! 199: } ! 200: } ! 201: ! 202: for (qalt = qset; qalt != NULL; qalt = qalt->uuconf_qalternate) ! 203: { ! 204: #define DEFAULT(x) \ ! 205: if (qalt->x == (char *) &_uuconf_unset) qalt->x = qdefault->x ! 206: SYSTEM_STRINGS (DEFAULT); ! 207: #undef DEFAULT ! 208: #define DEFAULT(x) \ ! 209: if (qalt->x == (char **) &_uuconf_unset) qalt->x = qdefault->x ! 210: SYSTEM_STRING_ARRAYS (DEFAULT); ! 211: #undef DEFAULT ! 212: #define DEFAULT(x) \ ! 213: if (qalt->x == (struct uuconf_timespan *) &_uuconf_unset) \ ! 214: qalt->x = qdefault->x ! 215: SYSTEM_TIMESPANS (DEFAULT); ! 216: #undef DEFAULT ! 217: #define DEFAULT(x) if (qalt->x < 0) qalt->x = qdefault->x ! 218: SYSTEM_BOOLEANS (DEFAULT); ! 219: SYSTEM_INTEGERS (DEFAULT); ! 220: #undef DEFAULT ! 221: ! 222: /* We only copy over zport if both zport and qport are NULL, ! 223: because otherwise a default zport would override a specific ! 224: qport. */ ! 225: if (qalt->uuconf_zport == (char *) &_uuconf_unset ! 226: && qalt->uuconf_qport == (struct uuconf_port *) &_uuconf_unset) ! 227: qalt->uuconf_zport = qdefault->uuconf_zport; ! 228: if (qalt->uuconf_qport == (struct uuconf_port *) &_uuconf_unset) ! 229: qalt->uuconf_qport = qdefault->uuconf_qport; ! 230: ! 231: if (qalt->uuconf_qproto_params ! 232: == (struct uuconf_proto_param *) &_uuconf_unset) ! 233: qalt->uuconf_qproto_params = qdefault->uuconf_qproto_params; ! 234: ! 235: if (qdefault->uuconf_qalternate != NULL) ! 236: qdefault = qdefault->uuconf_qalternate; ! 237: } ! 238: ! 239: return UUCONF_SUCCESS; ! 240: } ! 241: ! 242: /* Put in the basic defaults. This ensures that the fields are valid ! 243: on every uuconf_system structure. */ ! 244: ! 245: int ! 246: _uuconf_isystem_basic_default (qglobal, q) ! 247: struct sglobal *qglobal; ! 248: register struct uuconf_system *q; ! 249: { ! 250: int iret; ! 251: ! 252: iret = UUCONF_SUCCESS; ! 253: ! 254: for (; q != NULL && iret == UUCONF_SUCCESS; q = q->uuconf_qalternate) ! 255: { ! 256: /* The default of 26 allowable retries is traditional. */ ! 257: if (q->uuconf_cmax_retries < 0) ! 258: q->uuconf_cmax_retries = 26; ! 259: if (q->uuconf_schat.uuconf_pzchat == (char **) &_uuconf_unset) ! 260: { ! 261: q->uuconf_schat.uuconf_pzchat = NULL; ! 262: iret = _uuconf_iadd_string (qglobal, (char *) "\"\"", FALSE, ! 263: FALSE, ! 264: &q->uuconf_schat.uuconf_pzchat, ! 265: q->uuconf_palloc); ! 266: if (iret != UUCONF_SUCCESS) ! 267: return iret; ! 268: iret = _uuconf_iadd_string (qglobal, (char *) "\\r\\c", FALSE, ! 269: FALSE, ! 270: &q->uuconf_schat.uuconf_pzchat, ! 271: q->uuconf_palloc); ! 272: if (iret != UUCONF_SUCCESS) ! 273: return iret; ! 274: iret = _uuconf_iadd_string (qglobal, (char *) "ogin:", FALSE, ! 275: FALSE, ! 276: &q->uuconf_schat.uuconf_pzchat, ! 277: q->uuconf_palloc); ! 278: if (iret != UUCONF_SUCCESS) ! 279: return iret; ! 280: iret = _uuconf_iadd_string (qglobal, (char *) "-BREAK", FALSE, ! 281: FALSE, ! 282: &q->uuconf_schat.uuconf_pzchat, ! 283: q->uuconf_palloc); ! 284: if (iret != UUCONF_SUCCESS) ! 285: return iret; ! 286: iret = _uuconf_iadd_string (qglobal, (char *) "-ogin:", FALSE, ! 287: FALSE, ! 288: &q->uuconf_schat.uuconf_pzchat, ! 289: q->uuconf_palloc); ! 290: if (iret != UUCONF_SUCCESS) ! 291: return iret; ! 292: iret = _uuconf_iadd_string (qglobal, (char *) "-BREAK", FALSE, ! 293: FALSE, ! 294: &q->uuconf_schat.uuconf_pzchat, ! 295: q->uuconf_palloc); ! 296: if (iret != UUCONF_SUCCESS) ! 297: return iret; ! 298: iret = _uuconf_iadd_string (qglobal, (char *) "-ogin:", FALSE, ! 299: FALSE, ! 300: &q->uuconf_schat.uuconf_pzchat, ! 301: q->uuconf_palloc); ! 302: if (iret != UUCONF_SUCCESS) ! 303: return iret; ! 304: iret = _uuconf_iadd_string (qglobal, (char *) "\\L", FALSE, ! 305: FALSE, ! 306: &q->uuconf_schat.uuconf_pzchat, ! 307: q->uuconf_palloc); ! 308: if (iret != UUCONF_SUCCESS) ! 309: return iret; ! 310: iret = _uuconf_iadd_string (qglobal, (char *) "word:", FALSE, ! 311: FALSE, ! 312: &q->uuconf_schat.uuconf_pzchat, ! 313: q->uuconf_palloc); ! 314: if (iret != UUCONF_SUCCESS) ! 315: return iret; ! 316: iret = _uuconf_iadd_string (qglobal, (char *) "\\P", FALSE, ! 317: FALSE, ! 318: &q->uuconf_schat.uuconf_pzchat, ! 319: q->uuconf_palloc); ! 320: if (iret != UUCONF_SUCCESS) ! 321: return iret; ! 322: } ! 323: if (q->uuconf_schat.uuconf_ctimeout < 0) ! 324: q->uuconf_schat.uuconf_ctimeout = 10; ! 325: if (q->uuconf_schat.uuconf_fstrip < 0) ! 326: q->uuconf_schat.uuconf_fstrip = TRUE; ! 327: if (q->uuconf_scalled_chat.uuconf_ctimeout < 0) ! 328: q->uuconf_scalled_chat.uuconf_ctimeout = 60; ! 329: if (q->uuconf_scalled_chat.uuconf_fstrip < 0) ! 330: q->uuconf_scalled_chat.uuconf_fstrip = TRUE; ! 331: if (q->uuconf_fsend_request < 0) ! 332: q->uuconf_fsend_request = TRUE; ! 333: if (q->uuconf_frec_request < 0) ! 334: q->uuconf_frec_request = TRUE; ! 335: if (q->uuconf_fcall_transfer < 0) ! 336: q->uuconf_fcall_transfer = TRUE; ! 337: if (q->uuconf_fcalled_transfer < 0) ! 338: q->uuconf_fcalled_transfer = TRUE; ! 339: if (q->uuconf_pzlocal_send == (char **) &_uuconf_unset) ! 340: { ! 341: q->uuconf_pzlocal_send = NULL; ! 342: iret = _uuconf_iadd_string (qglobal, (char *) ZROOTDIR, FALSE, ! 343: FALSE, &q->uuconf_pzlocal_send, ! 344: q->uuconf_palloc); ! 345: if (iret != UUCONF_SUCCESS) ! 346: return iret; ! 347: } ! 348: if (q->uuconf_pzremote_send == (char **) &_uuconf_unset) ! 349: { ! 350: q->uuconf_pzremote_send = NULL; ! 351: iret = _uuconf_iadd_string (qglobal, (char *) "~", FALSE, FALSE, ! 352: &q->uuconf_pzremote_send, ! 353: q->uuconf_palloc); ! 354: if (iret != UUCONF_SUCCESS) ! 355: return iret; ! 356: } ! 357: if (q->uuconf_pzlocal_receive == (char **) &_uuconf_unset) ! 358: { ! 359: q->uuconf_pzlocal_receive = NULL; ! 360: iret = _uuconf_iadd_string (qglobal, (char *) "~", FALSE, FALSE, ! 361: &q->uuconf_pzlocal_receive, ! 362: q->uuconf_palloc); ! 363: if (iret != UUCONF_SUCCESS) ! 364: return iret; ! 365: } ! 366: if (q->uuconf_pzremote_receive == (char **) &_uuconf_unset) ! 367: { ! 368: q->uuconf_pzremote_receive = NULL; ! 369: iret = _uuconf_iadd_string (qglobal, (char *) "~", FALSE, FALSE, ! 370: &q->uuconf_pzremote_receive, ! 371: q->uuconf_palloc); ! 372: if (iret != UUCONF_SUCCESS) ! 373: return iret; ! 374: } ! 375: ! 376: if (q->uuconf_pzpath == (char **) &_uuconf_unset) ! 377: { ! 378: char *zdup; ! 379: char **pz; ! 380: size_t csplit; ! 381: int c; ! 382: ! 383: zdup = (char *) uuconf_malloc (q->uuconf_palloc, sizeof CMDPATH); ! 384: if (zdup == NULL) ! 385: { ! 386: qglobal->ierrno = errno; ! 387: return UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO; ! 388: } ! 389: ! 390: memcpy ((pointer) zdup, (pointer) CMDPATH, sizeof CMDPATH); ! 391: pz = NULL; ! 392: csplit = 0; ! 393: if ((c = _uuconf_istrsplit (zdup, '\0', &pz, &csplit)) < 0) ! 394: { ! 395: qglobal->ierrno = errno; ! 396: return UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO; ! 397: } ! 398: q->uuconf_pzpath = (char **) uuconf_malloc (q->uuconf_palloc, ! 399: ((c + 1) ! 400: * sizeof (char *))); ! 401: if (q->uuconf_pzpath == NULL) ! 402: { ! 403: qglobal->ierrno = errno; ! 404: return UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO; ! 405: } ! 406: memcpy ((pointer) q->uuconf_pzpath, (pointer) pz, ! 407: c * sizeof (char *)); ! 408: q->uuconf_pzpath[c] = NULL; ! 409: free ((pointer) pz); ! 410: } ! 411: ! 412: if (q->uuconf_pzcmds == (char **) &_uuconf_unset) ! 413: { ! 414: q->uuconf_pzcmds = ((char **) ! 415: uuconf_malloc (q->uuconf_palloc, ! 416: 3 * sizeof (const char *))); ! 417: if (q->uuconf_pzcmds == NULL) ! 418: { ! 419: qglobal->ierrno = errno; ! 420: return UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO; ! 421: } ! 422: q->uuconf_pzcmds[0] = (char *) "rnews"; ! 423: q->uuconf_pzcmds[1] = (char *) "rmail"; ! 424: q->uuconf_pzcmds[2] = NULL; ! 425: } ! 426: ! 427: if (q->uuconf_cfree_space < 0) ! 428: q->uuconf_cfree_space = DEFAULT_FREE_SPACE; ! 429: ! 430: if (q->uuconf_zpubdir == (const char *) &_uuconf_unset) ! 431: q->uuconf_zpubdir = qglobal->qprocess->zpubdir; ! 432: ! 433: #define SET(x) if (q->x == (char *) &_uuconf_unset) q->x = NULL ! 434: SYSTEM_STRINGS(SET); ! 435: #undef SET ! 436: #define SET(x) if (q->x == (char **) &_uuconf_unset) q->x = NULL ! 437: SYSTEM_STRING_ARRAYS(SET); ! 438: #undef SET ! 439: #define SET(x) \ ! 440: if (q->x == (struct uuconf_timespan *) &_uuconf_unset) q->x = NULL ! 441: SYSTEM_TIMESPANS (SET); ! 442: #undef SET ! 443: #define SET(x) if (q->x < 0) q->x = 0 ! 444: SYSTEM_BOOLEANS (SET); ! 445: SYSTEM_INTEGERS (SET); ! 446: #undef SET ! 447: ! 448: if (q->uuconf_zport == (char *) &_uuconf_unset) ! 449: q->uuconf_zport = NULL; ! 450: if (q->uuconf_qport == (struct uuconf_port *) &_uuconf_unset) ! 451: q->uuconf_qport = NULL; ! 452: if (q->uuconf_qproto_params ! 453: == (struct uuconf_proto_param *) &_uuconf_unset) ! 454: q->uuconf_qproto_params = NULL; ! 455: } ! 456: ! 457: return iret; ! 458: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.