home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / Libraries / VideoToolbox 95.04.18 / Utilities / CVNetConvert / cvnetcnv.c < prev    next >
Encoding:
Text File  |  1994-11-15  |  26.9 KB  |  833 lines  |  [TEXT/KAHL]
  1. /* cvnetcnv.c - CVNet master member list format converter.
  2.    This program converts CVNet master member list into other data formats
  3.     suitable for importing into a variety of database programs.
  4.     By defining the desired output format in file "cvnetcnv.fmt"
  5.     in the current directory, the program can be customized for
  6.     nearly all kinds of format conversion needs.  Format specification
  7.     files for some common data formats are included in the package.
  8.  
  9.    The program has been tested on the following machines and operating systems.
  10.     BSD Unix 4.3
  11.     Sun 4 (SunOS Release 4.1)
  12.     NeXT (NeXT OS Release 2.1)
  13.     IBM PC/Clones (MSDOS 5.0)
  14.         Microsoft C (v5.1), Turbo C (v2.0), Turbo C++ (v1.0)
  15.     Macintosh (System 7)
  16.         THINK C
  17.  
  18.    This program is not copyrighted.  You are free to do whatever
  19.     you want with it.
  20.  
  21.    Send comments, bug fixes, support for other machines/OS, and additonal
  22.     format specification files to: izumi@pinoko.berkeley.edu.
  23.  
  24.    Up-to-date version of this program and additional format specification files
  25.     will be available via anonymous FTP from our machine
  26.     "pinoko.berkeley.edu" in directory: /pub/CVNet.
  27.  
  28.    This program is in no way guaranteed to do anything useful for you.
  29.    More likely, it will distract your attention from your research.
  30.  
  31.    ---------------------------------------------------------------------------
  32.    Usage (Unix, PC):
  33.     cvnetcnv inputfile outputfile [formatfile]
  34.  
  35.    "Inputfile" is a file containing the CVNet master member list as obtained
  36.    from Listserv@vm1.yorkU.ca by sending it a one-line message that says:
  37.    GET MEMBER FILE
  38.    You do not have to edit out the e-mail header and little notes at the
  39.    beginning and end of the e-mail text.
  40.  
  41.    "Outputfile" will contain the result of conversion performed per
  42.    specification in file "cvnetcnv.fmt".
  43.  
  44.    "Formatfile" may be given as an option when you want to override the
  45.    default use of "cvnetcnv.fmt".
  46.  
  47.     The Macintosh version (i.e. if MAC is defined) presents standard file
  48.     dialogs, asking you to open your CVNet master file, and how you want to
  49.     save it. You are asked to open your own format file only if it can't find
  50.     "cvnetcnv.fmt".
  51.    ---------------------------------------------------------------------------
  52.    To Compile:
  53.    NOTE -- Please check if the appropriate macro is defined for
  54.     UNIX, MSDOS, MAC or whatever.  These macros should be mutually
  55.     exclusive.  If you define MAC, comment out the others.
  56.  
  57.    UNIX
  58.     cc -o cvnetcnv cvnetcnv.c
  59.  
  60.    MSDOS (Uncomment #define MSDOS below. Same for Turbo C++)
  61.     cl cvnetcnv.c (MSC)
  62.     tcc cvnetcnv.c (Turbo C)
  63.  
  64.    Macintosh THINK C
  65.         Uncomment #define MAC below. Use the supplied project file cvnetcnv.π. It
  66.         will create an application called CVNetConvert, which is a stand-alone
  67.         Macintosh application, suitable for double clicking. CVNetConvert
  68.         should work fine on all Macs and Systems 6 and 7, but was only tested on 
  69.         Mac IIci with System 7. The only portability problem I can conceive of is
  70.         the need for ALRT resource -16405, which is present in Systems 6.07 and 7.
  71.    ---------------------------------------------------------------------------
  72.    To Prepare Conversion Format Specification File:
  73.  
  74.    The first line of the format file specifies the record format. You may use 
  75.    the following variable names. All other characters not listed below will 
  76.    be written out to the output as is.
  77.  
  78.         $L -- last name
  79.         $F -- first name & initial
  80.         $I -- institutional affiliation
  81.         $A -- address (e-mail)
  82.         $T -- TAB character
  83.         $N -- NEW LINE character (LF for UNIX, CRLF for MSDOS)
  84.         $Cnn -- advance to column nn if possible (if not past it already)
  85.  
  86.     For example, this format line
  87.         $L$C12$F$C22($I)$C43<$A>,
  88.     produces a file suitable for UNIX "mail/sendmail":
  89.         Abramov    Israel    (Brooklyn College)   <ixrbc@cunyvm.bitnet>,
  90.  
  91.     [#### Warning.  Don't send E-mails to everyone on CVNet using the alias file
  92.      you can obtain this way.  That is ABUSE of the database.]
  93.  
  94.     On the second line, a line beginning with $M may appear optionally. If present,
  95.     it specifies the output file's Macintosh file type and creator (ignored unless 
  96.     the program is running on a Mac).  If not present, the file type/creator
  97.     will be set to that of MacWrite text file.
  98.     
  99.     After the $M line, or on the second line if $M line does not appear,
  100.     a line beginning with $P may appear optionally (which may continue for
  101.     multiple lines).  If present, it will specify the prolog, text placed
  102.     at the beginning of the output file before all address records.
  103.     After this, a line beginning with $E may appear optionally (which
  104.     may continue for multiple lines).  If present, it will specify the
  105.     epilog, text placed at the end of the output file after all
  106.     address records.  
  107.     
  108.     $M, $P, $E must appear in that order if all three are present.
  109.     Not all of them have to be present, e.g., if no prolog is needed
  110.     but epilog is required, $M, $E lines should be entered in that order.
  111.     
  112.     There must not be any blank or extraneous lines between the first line
  113.     and $M.  Similarly, no blank or extraneous lines should be present
  114.     between $M, $P, $E specifications.  However, blank lines are allowed
  115.     within the quoted text for the prolog and epilog. 
  116.     
  117.     $M, $P, $E must appear at column 1 without any leading spaces.
  118.  
  119.     
  120.     $Mttttcccc -- specify the output file's four-character Macintosh type 
  121.         (e.g. TEXT) and creator (e.g. MACA). The rest of the line is ignored.
  122.     $P^prolog text^ -- Place the text between quote chars at the beginning of
  123.         the output file.
  124.     $E^epilog text^ -- Place the text between quote chars at the end of the
  125.         output file.
  126.     
  127.     The prolog and epilog may extend over many lines. The character that 
  128.     immediately follows $P and $E is used as the "quote" character to 
  129.     mark the range of text for prolog and epilog.  The quote char may be any 
  130.     printable character that is not used in the quoted text for the 
  131.     prolog and epilog. The rest of the line after the terminating quote is 
  132.     ignored. After the optional $M, $P, and $E the rest of the file is ignored.
  133.     
  134.     The QuickDEX.fmt format file produces a Macintosh file
  135.     suitable for use with the Rolodex-like program called QuickDEX:
  136.         *$NN$F $L$N$I$N$A
  137.         $MTEXTQDEx
  138.         $P^
  139.         *
  140.         ^
  141.         $E^*
  142.         *
  143.         ^
  144.     The first line specifies the record format, which produces records like this:
  145.         *
  146.         NIsrael Abramov
  147.         Brooklyn College
  148.         ixrbc@cunyvm.bitnet
  149.     The line beginning with $M specifies the Macintosh file type (TEXT) and creator
  150.     (QDEx) so that QuickDEX will recognize it. The lines beginning with $P and $E 
  151.     specify a prolog and epilog, adding some extra *'s and linefeeds to please QuickDEX.
  152.  
  153.     Here are some more examples:
  154.     
  155.     Revert to the old format of CVNet master list (but without continuation lines):
  156.         $L$C12$F$C22$I$C43$A
  157.     produces
  158.         Abramov    Israel    Brooklyn College     ixrbc@cunyvm.bitnet
  159.  
  160.     Tab-separated ASCII format for importing into NeXT SpeedDeX application:
  161.         $L, $F$T$A$T$I
  162.     produces
  163.         Abramov, Israel    ixrbc@cunyvm.bitnet    Brooklyn College
  164.                        ^                   ^
  165.                       TAB                 TAB
  166.  
  167.     A basic format might demarcate field by quotes and commas:
  168.         "$L", "$F", "$I", "$A"
  169.     produces
  170.         "Abramov", "Israel", "Brooklyn College", "ixrbc@cunyvm.bitnet"
  171.  
  172.    ---------------------------------------------------------------------------
  173.    Revision history:
  174.    V1.00, 92-06-07, Izumi Ohzawa, izumi@pinoko.berkeley.edu
  175.    V1.01, 92-06-15, Denis_Pelli@isr.syr.edu added support for Macintosh.
  176.    V1.02, 92-06-16, Izumi Ohzawa, added support for Prolog, Epilog.
  177.    V1.03, 92-06-16, Denis Pelli, set type and creator of Mac files
  178.    V1.04, 92-06-17, Izumi & Denis, minor fixups for portability
  179.    V1.05, 92-07-01, Denis fixed bug reported by Larry Thibos, can now open
  180.                        files in any folder.
  181.    v1.06?,4/25/93, Denis changed call to Macintosh SFGetFile() to only list TEXT files.
  182.                        Enhanced fatal error message.
  183.    v1.07?,6/12/94, Denis updated for compatibility with Apple's Universal header files.
  184.                        #define __STDC__ if MAC is true.
  185.                        #define c2pstr and p2cstr in terms of Symantec's CtoPstr and PtoCstr.
  186.    ---------------------------------------------------------------------------
  187. */
  188.  
  189. /* ####### Uncomment the one that is appropriate for your environment ########### */
  190. /* #define UNIX      1 */        /* Sun, NeXT, BSD, and others */
  191. /* #define MSDOS     1 */        /* Microsoft C, Turbo C, C++ for MSDOS */
  192. #define MAC       1             /* Macintosh THINK C */
  193.  
  194. #include <stdio.h>
  195. #ifdef UNIX
  196. #include <strings.h>
  197. #endif
  198. #ifdef MSDOS
  199. #include <string.h>
  200. #endif
  201. #ifdef MAC
  202. // Mac C compilers include extensions beyond Standard C, but
  203. // for the purposes of this file are best thought of as Standard C.
  204.     #ifndef __STDC__
  205.         #define __STDC__ 0
  206.     #endif
  207.     #include <string.h>
  208.     #include <StandardFile.h>
  209.     #include <QuickDraw.h>
  210.     #include <Memory.h>
  211.     #include <Fonts.h>
  212.     #include <Dialogs.h>
  213.     #include <Events.h>
  214.     #include <OSEvents.h>
  215.     #include <Files.h>
  216.     #if (THINK_C || THINK_CPLUS)
  217.         #include <pascal.h>    /* CtoPStr() and PtoCStr() */
  218.         #ifndef c2pstr
  219.             #define c2pstr CtoPstr
  220.             #define p2cstr PtoCstr
  221.         #endif
  222.     #else
  223.         #include <Strings.h>/* c2pstr() and p2cstr() */
  224.     #endif
  225.     EventRecord event;
  226.     static void SetFileInfo(char *fileName,OSType fileType,OSType fileCreator);
  227. #endif
  228.  
  229. #ifdef __STDC__            /* ANSI-C-style prototypes */
  230. #include <stdlib.h>        /* exit() and atoi() */
  231. void usage(void);
  232. void stupid(void);
  233. char *findex(char *str, char ch);
  234. void remove_comma(char *str);
  235. int check_address(char *str);
  236. void outstring(char *str, FILE *fp);
  237. void outchar(int c, FILE *fp);
  238. void write_record(FILE *fp);
  239. #endif
  240.  
  241. /* Bad Bad Globals */
  242. int linecnt = 0;        /* number of lines including junk for error report */
  243. int recordcnt = 0;        /* number of records processed */
  244. int column = 1;            /* current column position of output */
  245. char *okchar = "!@%.+-_/";    /* non-alphanumerics that are OK in e-mail address */
  246. char *deffile = "cvnetcnv.fmt";    /* default filename for target format specification */
  247. char *fmtfile;            /* either deffile or argv[3] if given */
  248. char fmt[256];            /* output format string read from fmtfile */
  249. char linebuf[256];        /* line buffer for CVNet file */
  250. char fLineBuffer[256];        /* line buffer for format file */
  251. char tmpbuf[256];        /* buffer for processing */
  252. char lastname[128];        /* Storage for last name */
  253. char firstini[128];        /* Storage for first name, initial */
  254. char affiliation[128];        /* Storage for institutional affiliation */
  255. char emaddress[128];        /* Storage for e-mail address */
  256.  
  257. #ifdef MAC
  258. static void SetFileInfo(char *fileName,OSType fileType,OSType fileCreator)
  259. {
  260.     FInfo outFileInfo;
  261.     
  262.     c2pstr(fileName);
  263.     GetFInfo((StringPtr)fileName,0,&outFileInfo);
  264.     outFileInfo.fdType = fileType;
  265.     outFileInfo.fdCreator = fileCreator;
  266.     SetFInfo((StringPtr)fileName,0,&outFileInfo);
  267.     p2cstr((void *)fileName);
  268. }
  269. #endif
  270.  
  271. /* __STDC__ is a predefined macro for ANSI-standard C.
  272.  * This stuff is needed to increase portability for some obsolete C compilers.
  273.  */
  274.  
  275. #ifdef __STDC__
  276. void usage(void)
  277. #else
  278. usage()
  279. #endif
  280. {
  281. #ifdef MAC
  282.         printf("This program asks you to open your CVNet master file,\n");
  283.         printf("     and how you want to save it.\n");
  284.         printf("     And, unless there is a format file called \"%s\",\n",deffile);
  285.         printf("     asks you to open your own format file.\n");
  286.         fmtfile=deffile;
  287. #else
  288.     printf("Usage: cvnetcnv inputfile outputfile [formatfile]\n");
  289. #endif
  290.     printf("  *This program converts the CVNet master list to another format\n");
  291.     printf("     as specified in file <%s>.\n", fmtfile);
  292.     printf("     Please look at example format specification files with *.fmt\n");
  293.     printf("     extension.\n");
  294.     printf("  *You do not have to edit out the E-mail header or any other\n");
  295.     printf("     text at the beginning and end of input file.\n");
  296. #ifdef MAC
  297.         printf("Click this window to exit:\n");
  298.         FlushEvents(everyEvent,0);
  299.         while(!GetNextEvent(everyEvent,&event)) ;
  300. #endif
  301.     exit(1);
  302. }
  303.  
  304. #ifdef __STDC__
  305. void stupid(void)
  306. #else
  307. stupid()
  308. #endif
  309. {
  310. printf("##### WARNING !!! WARNING !!! WARNING !!! WARNING !!! #####\n\n");
  311. printf("  Please DO NOT ABUSE the computer readable database you\n");
  312. printf("generate using this program.  Mailing directly from your\n");
  313. printf("computer to all members of CVNet is *ABUSE*!  No matter\n");
  314. printf("how hot a manuscript or how great a product you have, do\n");
  315. printf("not send mails to everyone directly.  If you think you have\n");
  316. printf("some important information for a lot of people, send it\n");
  317. printf("to CVNET@vm1.yorku.ca.  It will not be sent to the members\n");
  318. printf("automatically, however.  The coordinator of CVNet will\n");
  319. printf("review your submission according to the rules developed\n");
  320. printf("over the years as a result of feedback from the members.\n");
  321. printf("  Please also do not give out the database to non-members.\n");
  322. printf("  I wrote this program to give us convenience in finding\n");
  323. printf("the e-mail address of our colleagues.  Abuse of the\n");
  324. printf("database will lead to your expulsion from CVNet,\n");
  325. printf("not to mention that everyone will hate you for it.\n");
  326. printf("###########################################################\n\n");
  327. #ifndef __STDC__
  328. return(0);
  329. #endif
  330. }
  331.  
  332.  
  333. /* Sigh. Not all C libraries include index(char *str, char ch) function */
  334. #ifdef __STDC__
  335. char *findex(char *str, char ch)
  336. #else
  337. char *findex(str, ch)
  338. char *str;
  339. char ch;
  340. #endif
  341. {
  342. char *p, *end;
  343.     p = end = str;
  344.     while(*end != '\0') end++;        /* end points to string terminator */
  345.     while(*p != ch && *p != '\0') p++;  /* p points to char ch if present */
  346.     if(p != end) return (p);
  347.     else {
  348.         fprintf(stderr, "\nFATAL ERROR: Line %d of input file is missing \"%c\" character:\n",
  349.             linecnt, ch);
  350.         fprintf(stderr, "%s\n",str);    /* dgp */
  351.         fprintf(stderr,"\nBEWARE: the output file is incomplete.\n");
  352. #ifdef MAC
  353.         printf("Click this window to exit:\n");
  354.         FlushEvents(everyEvent,0);
  355.         while(!GetNextEvent(everyEvent,&event)) ;
  356. #endif
  357.         exit(4);
  358.     }
  359.     return (NULL);        /* it shouldn't come here */
  360. }
  361.  
  362.  
  363. #ifdef __STDC__
  364. void remove_comma(char *str)
  365. #else
  366. remove_comma(str)
  367. char *str;
  368. #endif
  369. {
  370. static char tmp[128];
  371. char *s, *t;
  372.     s = str;
  373.     t = tmp;
  374.     /* copy string to tmp[] while removing ',' */
  375.     while((*t = *s++) != '\0')
  376.         if(*t != ',') t++;
  377.     strncpy(str, tmp, 80);        /* copy back to original string */
  378. #ifndef __STDC__
  379. return(0);
  380. #endif
  381. }
  382.  
  383. /* Check for invalid characters in e-mail address */
  384. /* Non-zero if there is a character that is not supposed to be in address */
  385. #ifdef __STDC__
  386. int check_address(char *str)
  387. #else
  388. int check_address(str)
  389. char *str;
  390. #endif
  391. {
  392. char *p, c;
  393. int i, nc, ok, retcode = 0;
  394.     p = str;
  395.     nc = strlen(okchar);
  396.     while((c = *p++) != '\0') {
  397.         ok = 0;
  398.         if(c >= 'a' && c <= 'z') continue;
  399.         if(c >= 'A' && c <= 'Z') continue;
  400.         if(c >= '0' && c <= '9') continue;
  401.         for(i=0; i<nc; i++) {
  402.         if(c == okchar[i]) {
  403.             ok =1;
  404.             break;    /* out of for() loop */
  405.         }
  406.         }
  407.         if(ok) continue;    /* while loop */
  408.         else {
  409.         retcode = c;
  410.         break;        /* out of while loop */
  411.         }
  412.     }
  413.     return(retcode);
  414. }
  415.  
  416.  
  417. #ifdef __STDC__
  418. void outstring(char *str, FILE *fp)
  419. #else
  420. outstring(str, fp)
  421. char *str;
  422. FILE *fp;
  423. #endif
  424. {
  425. char *p;
  426. int c;
  427.     p = str;
  428.     while((c = *p++) != '\0') {
  429.         putc(c, fp);
  430.         column++;
  431.     }
  432. #ifndef __STDC__
  433. return(0);
  434. #endif
  435. }
  436.  
  437.  
  438. #ifdef __STDC__
  439. void outchar(int c, FILE *fp)
  440. #else
  441. outchar(c, fp)
  442. int c;
  443. FILE *fp;
  444. #endif
  445. {
  446.     putc(c, fp);
  447.     column++;    /* GLOBAL column counter */
  448. #ifndef __STDC__
  449. return(0);
  450. #endif
  451. }
  452.  
  453.  
  454. /* Writes out each E-mail address record to output file */
  455. #ifdef __STDC__
  456. void write_record(FILE *fp)
  457. #else
  458. write_record(fp)
  459. FILE *fp;
  460. int atoi();    // The MetroWerks CodeWarrior C compiler is Standard C and doesn't like this.
  461. #endif
  462. {
  463. int ch, cmd, cto, i, cend;
  464. char *p;
  465. char *n;
  466. static char cnn[16];
  467.     column = 1;    /* GLOBAL, current column position */
  468.     p = fmt;    /* pointer to format string */
  469.     while((ch = *p++) != '\0') {
  470.         switch(ch) {
  471.         /* Formatting code for variables. Case-sensitive
  472.              $L -- last name
  473.              $F -- first name & initial
  474.              $I -- institutional affilication
  475.              $A -- address (e-mail)
  476.              $T -- TAB character
  477.              $N -- NEW LINE character (LF for UNIX, CRLF for MSDOS)
  478.              $Cnn -- advance to column nn if possible (if not past it already)
  479.          */
  480.         case '$':     /* special formatting code */
  481.             if((cmd = *p) == '\0') break;
  482.             p++;        /* advance ptr only if not at '\0' already */
  483.             switch(cmd) {
  484.                 case 'L':    /* last name */
  485.                 outstring(lastname, fp); break;
  486.                 case 'F':    /* first name & initial */
  487.                 outstring(firstini, fp); break;
  488.                 case 'I':    /* institutional affiliation */
  489.                 outstring(affiliation, fp); break;
  490.                 case 'A':    /* email address */
  491.                 outstring(emaddress, fp); break;
  492.                 case 'T':    /* TAB character insert */
  493.                 outchar('\t', fp); break;
  494.                 case 'N':    /* NEW LINE character insert */
  495.                 outchar('\n', fp); break;
  496.                 case 'C':    /* column advance */
  497.                 n = cnn;    /* number buffer for target column pos */
  498.                 while((*n = *p) >='0' && *n <='9') {
  499.                     n++; p++;
  500.                 }
  501.                 *n = '\0';        /* string terminator */
  502.                 cto = atoi(cnn);    /* move to cto */
  503.                 if(cto < 1 ) cto = 1;
  504.                 if((cend = cto-column) > 0) {
  505.                     for(i=0; i<cend; i++)
  506.                     outchar(' ', fp);
  507.                 }
  508.                 else    outchar(' ', fp);
  509.                 break;
  510.                 default:  /* This shouldn't happen */
  511.                 fprintf(stderr, "\nIllegal variable \"$%c\" in \"%s\".\n",
  512.                         cmd, fmtfile);
  513. #ifdef MAC
  514.                     printf("Click this window to exit:\n");
  515.                     FlushEvents(everyEvent,0);
  516.                     while(!GetNextEvent(everyEvent,&event)) ;
  517. #endif
  518.                 exit(5);
  519.             } /* end switch(cmd) */
  520.             break;
  521.  
  522.         default: /* regular ascii */
  523.             outchar(ch, fp);
  524.             break;
  525.         } /* end switch(ch) */
  526.     } /* end while((ch = *p) ... */
  527.  
  528. /*
  529.     fprintf(fp, "%s %s (%s) <%s>\n",
  530.             lastname, firstini, affiliation, emaddress);
  531. */
  532. #ifndef __STDC__
  533. return(0);
  534. #endif
  535. }
  536.  
  537.  
  538. #ifdef __STDC__
  539. void main(int argc, char *argv[])
  540. #else
  541. main(argc, argv)
  542. int argc;
  543. char *argv[];
  544. #endif
  545. {
  546. FILE *fpi, *fpf, *fpo;
  547. char *bptr, *eptr;
  548. int c;
  549. int charcnt;
  550. int quote;    /* prolog, epilog quote char */
  551. #ifdef MAC
  552.     Point where={200,100};
  553.     SFReply    reply;
  554.     char string[256];
  555.     /* The convention of storing four characters in a long, and of specifying
  556.     them with single quotes is not part of standard C, but is a standard
  557.     Macintosh extension to C. */
  558.     OSType type='TEXT',creator='MACA';    /* default is MacWrite text file */
  559.     short outputVRefNum,vRefNum;
  560. #endif
  561.         
  562. #ifdef MAC
  563.         InitGraf(&qd.thePort);
  564.         InitFonts();
  565.         InitWindows();
  566.         InitCursor();
  567.         argc=3;
  568. #endif
  569.     if(argc != 3 && argc != 4) usage();
  570.     stupid();
  571.  
  572.     /* Input file -- Original CVNet member list file */
  573. #ifdef MAC
  574.         printf("Where is the CVNet master list?\n");
  575.         printf("Click this window to continue:\n");
  576.         FlushEvents(everyEvent,0);
  577.         while(!GetNextEvent(everyEvent,&event)) ;
  578.         SFGetFile(where,NULL,NULL,1,&type,NULL,&reply);
  579.         if(!reply.good)usage();
  580.         p2cstr(reply.fName);
  581.         argv[1]=malloc(1+strlen((char *)reply.fName));
  582.         strcpy(argv[1],(char *)reply.fName);
  583.         c2pstr((char *)reply.fName);
  584.         SetVol(NULL,reply.vRefNum);    /* look in that folder */
  585. #endif
  586.     if((fpi = fopen(argv[1], "r")) == NULL) {
  587.         fprintf(stderr, "Can't open file \"%s\".\n", argv[1]);
  588. #ifdef MAC
  589.         printf("Click this window to exit:\n");
  590.         FlushEvents(everyEvent,0);
  591.         while(!GetNextEvent(everyEvent,&event)) ;
  592. #endif
  593.         exit(2);
  594.     }
  595.  
  596.     /* Output file. Check that we are not wiping out a *.fmt file. */
  597. #ifdef MAC
  598.         sprintf(string,"%s.out",argv[1]);
  599.         SFPutFile(where,"\pSave new CVNet list as:",c2pstr(string),NULL,&reply);
  600.         if(!reply.good)usage();
  601.         p2cstr(reply.fName);
  602.         argv[2]=malloc(1+strlen((char *)reply.fName));
  603.         strcpy(argv[2],(char *)reply.fName);
  604.         c2pstr((char *)reply.fName);
  605.         SetVol(NULL,reply.vRefNum);    /* look in that folder */
  606.         outputVRefNum=reply.vRefNum;
  607. #endif
  608.     bptr = eptr = argv[2];
  609.     while(*eptr != '\0') eptr++;
  610.     while(*bptr != '.' && *bptr != '\0') bptr++;
  611.     if(bptr != eptr) {
  612.         if(strncmp(bptr, ".fmt", 4) == 0) {
  613.         fprintf(stderr, "You shouldn't be writing to \"%s\".\n", argv[2]);
  614. #ifdef MAC
  615.             printf("Click this window to exit:\n");
  616.             FlushEvents(everyEvent,0);
  617.             while(!GetNextEvent(everyEvent,&event)) ;
  618. #endif
  619.         exit(1);
  620.         }
  621.     }
  622.     if((fpo = fopen(argv[2], "w")) == NULL) {
  623.         fprintf(stderr, "Can't open output file \"%s\".\n", argv[2]);
  624. #ifdef MAC
  625.         printf("Click this window to exit:\n");
  626.         FlushEvents(everyEvent,0);
  627.         while(!GetNextEvent(everyEvent,&event)) ;
  628. #endif
  629.         exit(3);
  630.     }
  631.  
  632.     /* Format file.
  633.      * Read the first few lines.
  634.      * The rest of the file will be ignored and may be used to describe
  635.      * the format specified in the file.
  636.      */
  637.     if(argc == 4) fmtfile = argv[3];    /* optional third argument given for fmt */
  638.     else          fmtfile = deffile;    /* default */
  639.     fpf = fopen(fmtfile, "r");
  640. #ifdef MAC
  641.         if(fpf==NULL){
  642.         sprintf(string,"Couldn't find \"%s\". Please choose a format file.",fmtfile);
  643.         ParamText(c2pstr(string),NULL,NULL,NULL);
  644.         Alert(-16405,NULL);
  645.         SFGetFile(where,NULL,NULL,1,&type,NULL,&reply);
  646.         if(!reply.good)usage();
  647.         p2cstr(reply.fName);
  648.         fmtfile=malloc(1+strlen((char *)reply.fName));
  649.         strcpy(fmtfile,(char *)reply.fName);
  650.         c2pstr((char *)reply.fName);
  651.         SetVol(NULL,reply.vRefNum);    /* look in that folder */
  652.         fpf = fopen(fmtfile, "r");
  653.         }
  654. #endif
  655.     if(fpf != NULL) {
  656.  
  657.         /* Read record-format string */
  658.         if((fgets(fmt, 250, fpf)) == NULL) {
  659.         fprintf(stderr, "Error reading format specification file \"%s\".\n", fmtfile);
  660. #ifdef MAC
  661.             printf("Click this window to exit:\n");
  662.             FlushEvents(everyEvent,0);
  663.             while(!GetNextEvent(everyEvent,&event)) ;
  664. #endif
  665.         exit(1);
  666.         }
  667.         fLineBuffer[0]=0;
  668.         fgets(fLineBuffer, 250, fpf);        /* read next line */
  669.         
  670.         /* Read optional file type specification */
  671.         if(strncmp(fLineBuffer, "$M", 2) == 0) {
  672. #ifdef MAC
  673.             strncpy((char *)&type,&fLineBuffer[2],4);
  674.             strncpy((char *)&creator,&fLineBuffer[6],4);
  675. #endif
  676.             fLineBuffer[0]=0;
  677.             fgets(fLineBuffer, 250, fpf);    /* read next line */
  678.         }
  679. #ifdef MAC
  680.         /* Set the output file's Macintosh type and creator. */
  681.         GetVol(NULL,&vRefNum);
  682.         SetVol(NULL,outputVRefNum);    /* look in that folder */
  683.         SetFileInfo(argv[2],type,creator);
  684.         SetVol(NULL,vRefNum);
  685. #endif
  686.  
  687.         /* Read optional prolog into output file */
  688.         if(strncmp(fLineBuffer, "$P", 2) == 0) {
  689.         quote = fLineBuffer[2];        /* set quote char for prolog */
  690.         bptr = &fLineBuffer[3];
  691.         while(1){
  692.                 while(((c = *bptr++) != quote) && c != '\0')
  693.                 putc(c, fpo);
  694.                 if(c == quote) break;
  695.                 if(fgets(fLineBuffer, 250, fpf) == NULL) break;
  696.                 bptr = fLineBuffer;
  697.         }
  698.         fLineBuffer[0]=0;
  699.         fgets(fLineBuffer, 250, fpf);    /* read next line */
  700.         }
  701.         /* Prolog done, but keep FILE *fpf open for epilog at the end */
  702.     } else {
  703.         fprintf(stderr, "Can't open conversion format specification file \"%s\".\n",
  704.                 fmtfile);
  705. #ifdef MAC
  706.         printf("Click this window to exit:\n");
  707.         FlushEvents(everyEvent,0);
  708.         while(!GetNextEvent(everyEvent,&event)) ;
  709. #endif
  710.         exit(1);
  711.     }
  712.  
  713.  
  714.     /* The program relies on the presence of "------" to indicate the
  715.      * start of records.  This could be a bad thing to rely on.
  716.      */
  717.     while( ( fgets(linebuf, 250, fpi) ) != NULL ) {
  718.         linecnt++;
  719.         if(strncmp(linebuf, "-----", 5) == 0)
  720.         break;        /* start of records detected */
  721.     }
  722.  
  723.     /* ---- Read a line and separate components into proper places ------ */
  724.     while((fgets(linebuf, 250, fpi)) != NULL) {
  725.         linecnt++;
  726.         charcnt = strlen(linebuf);
  727.         if(linebuf[0] == '#' || linebuf[0] == ';' || charcnt == 0)
  728.         continue;    /* blank or comment lines */
  729.         if(strncmp(linebuf, "-----", 5) == 0)
  730.         break;        /* end of records detected */
  731.         if(charcnt < 5) {
  732.         fprintf(stderr,"%c", linebuf[0]); fflush(stderr);
  733.         continue;    /* must be AAA, BBB, ... */
  734.         }
  735.  
  736.         /* Clear all storage arrays. */
  737.         lastname[0] = firstini[0] = affiliation[0] = emaddress[0] = '\0';
  738.  
  739.         recordcnt++;    /* only count real address record */
  740.         /* We've got a reasonable line.  First, get the lastname */
  741.         findex(linebuf, ',');        /* check if a comma is present */
  742.         sscanf(linebuf, "%[^,]", lastname);    /* read to before comma */
  743.  
  744.         /* Get the firstname plus initial */
  745.         strncpy(tmpbuf, linebuf, 250);
  746.         bptr = findex(tmpbuf, ',');
  747.         while((c = *++bptr) == ' ' || c == '\t') ;    /* non-space after comma */
  748.         eptr = findex(tmpbuf, '(');
  749.         while((c = *--eptr) == ' ' || c == '\t') ;    /* non-space before '(' */
  750.         if(eptr >= bptr) {
  751.         eptr++; *eptr = '\0';        /* make sure there is firstname part */
  752.         strncpy(firstini, bptr, 60);
  753.         } else
  754.         strcpy(firstini, "");        /* no firstname/initial */
  755.  
  756.         /* Get institutional affilication enclosed in bracket */
  757.         strncpy(tmpbuf, linebuf, 250);
  758.         bptr = findex(tmpbuf, '(');
  759.         eptr = findex(tmpbuf, ')');
  760.         bptr++;        /* char after '(' */
  761.         *eptr = '\0';    /* terminate string at ')' */
  762.         strncpy(affiliation, bptr, 60);
  763.  
  764.         /* Get (1-st part of) E-mail address.  It should also work
  765.            even if the e-mail address is entirely on the continuation
  766.            line and there is nothing after the closing bracket.
  767.          */
  768.         eptr++;    /* eptr pointing to tmpbuf is still good */
  769.         sscanf(eptr, "%s", emaddress);    /* read email address to EOL */
  770.  
  771.         /* Check for continuation of email address.
  772.          * We just look for a space character in the first column.
  773.          */
  774.         if((c = getc(fpi)) != ' ')
  775.         ungetc(c, fpi);            /* not a continuation line */
  776.         else {
  777.         ungetc(c, fpi);            /* looks like a continuation line */
  778.         if((fgets(linebuf, 250, fpi)) == NULL) break;    /* get cont. line */
  779.         linecnt++;
  780.         bptr = findex(linebuf, '"');    /* check continuation marker <"> */
  781.         while((c = *++bptr) == ' ' || c == '\t') ;
  782.         sscanf(bptr, "%s", tmpbuf);    /* 2-nd part of address in tmpbuf */
  783.         strncat(emaddress, tmpbuf, 80); /* Join 2-nd part to 1-st part */
  784.         } /* end if((c= getc(fpi)..) else{} */
  785.  
  786.         /* Remove comma, if present, from Firstname-initial, and
  787.          * Institutional affiliation
  788.          */
  789.         remove_comma(firstini);
  790.         remove_comma(affiliation);
  791.  
  792.         /* Check if e-mail address contains any bad character. */
  793.         c = check_address(emaddress);
  794.         if(c) {
  795.         fprintf(stderr, "\nLine %d - Warning: strange character \"%c\" in e-mail address:\n",
  796.                 linecnt, c);
  797.         fprintf(stderr, "  %s, %s (%s) %s\n", lastname, firstini, affiliation, emaddress);
  798.         }
  799.  
  800.         /* OK, we must now have everything collected for a record.
  801.          * Output the record in the format desired.
  802.          */
  803.         write_record(fpo);
  804.  
  805.     } /* end while((fgets(linebuf, .... ) */
  806.  
  807.  
  808.     /* Read optional epilog from format file into output file */
  809.     if(strncmp(fLineBuffer, "$E", 2) == 0) {
  810.         quote = fLineBuffer[2];        /* set quote char for epilog */
  811.         bptr = &fLineBuffer[3];
  812.         while(1){
  813.             while(((c = *bptr++) != quote) && c != '\0')
  814.                 putc(c, fpo);
  815.             if(c == quote) break;
  816.             if(fgets(fLineBuffer, 250, fpf) == NULL) break;
  817.             bptr = fLineBuffer;
  818.         }
  819.             fLineBuffer[0]=0;
  820.             fgets(fLineBuffer, 250, fpf);    /* read next line */
  821.     } 
  822.  
  823.     fprintf(stderr, "\n%d records processed. Conversion done.\n", recordcnt);
  824.     fclose(fpf);
  825.     fclose(fpi);
  826.     fclose(fpo);
  827. #ifdef MAC
  828.         printf("Click this window to exit:\n");
  829.         FlushEvents(everyEvent,0);
  830.         while(!GetNextEvent(everyEvent,&event)) ;
  831. #endif
  832. }
  833.