home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Lib / parse / x400_parse.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  953 b   |  49 lines
  1. /* x400_parse.c: x400 address parsing */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Lib/parse/RCS/x400_parse.c,v 6.0 1991/12/18 20:23:41 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Lib/parse/RCS/x400_parse.c,v 6.0 1991/12/18 20:23:41 jpo Rel $
  9.  *
  10.  * $Log: x400_parse.c,v $
  11.  * Revision 6.0  1991/12/18  20:23:41  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16. #include "head.h"
  17. #include "adr.h"
  18.  
  19. extern char or_error[];
  20.  
  21. int x400_parse (ad)
  22. register ADDR    *ad;
  23. {
  24.     if (ad->aparse->x400_str) 
  25.         ad->aparse->orname->on_or =
  26.             or_std2or(ad->aparse->x400_str);
  27.     else {
  28.         if ((ad->aparse->orname->on_or =
  29.             or_std2or(ad->ad_value)) != NULLOR) {
  30.             ad->aparse->orname->on_or =
  31.                 or_default(ad->aparse->orname->on_or);
  32.         }
  33.         
  34.     }
  35.  
  36.     if (ad->aparse->x400_dn)
  37.         /* do something with dn ? */
  38.         ;
  39.  
  40.     if (ad->aparse->orname->on_or == NULLOR) {
  41.         ad->aparse->x400_error = strdup(or_error);
  42.         return RP_PARSE;
  43.     }
  44.     
  45.     fillin_400_str(ad);
  46.  
  47.     return RP_AOK;
  48. }
  49.