home *** CD-ROM | disk | FTP | other *** search
/ The Best Internet Programs / BESTINTERNET.bin / latest / ged2ht20 / tags.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-04-07  |  9.7 KB  |  336 lines
  1. #include <stdio.h>
  2. #include <stdlib.h>
  3. #include <string.h>
  4.  
  5. #include "tags.h"
  6.  
  7. /*
  8.  * Change the following initialization for the default output language
  9.  */
  10. #ifdef ENGLISH
  11. int default_language = ENGLISH_LANGUAGE;
  12. #endif
  13.  
  14. struct tag gedcom_tags[] = {
  15.   {"ADDR", ADDR, "ADDRESS"},
  16.   {"ADOP", ADOP, "ADOPTION"},
  17.   {"AFN", AFN, "AFN"},
  18.   {"AGE", AGE, "AGE"},
  19.   {"AGNC", AGNC, "AGENCY"},
  20.   {"ALIA", ALIA, "ALIAS"},
  21.   {"ANCI", ANCI, "ANCI"},
  22.   {"ANUL", ANUL, "ANNULMENT"},
  23.   {"ARVL", ARVL, "ARRIVAL"},
  24.   {"ASSO", ASSO, "ASSOCIATES"},
  25.   {"AUTH", AUTH, "AUTHOR"},
  26.   {"BAPL", BAPL, "BAPTISM-LDS"},
  27.   {"BAPM", BAPM, "BAPTISM"},
  28.   {"BARM", BARM, "BAR MITZVAH"},
  29.   {"BASM", BASM, "BAS MITZVAH"},
  30.   {"BIRT", BIRT, "BIRTH"},
  31.   {"BLES", BLES, "BLESSING"},
  32.   {"BROT", BROT, "BROTHER"},
  33.   {"BURI", BURI, "BURIAL"},
  34.   {"BUYR", BUYR, "BUYER"},
  35.   {"CALN", CALN, "CALL NUMBER"},
  36.   {"CAST", CAST, "CASTE"},
  37.   {"CAUS", CAUS, "CAUSE"},
  38.   {"CEME", CEME, "CEMETERY"},
  39.   {"CENS", CENS, "CENSUS"},
  40.   {"CHAN", CHAN, "CHANGE"},
  41.   {"CHAR", CHAR, "CHARACTER"},
  42.   {"CHIL", CHIL, "CHILD"},
  43.   {"CHR", CHR, "CHRISTENING"},
  44.   {"CHRA", CHRA, "ADULT CHRISTENING"},
  45.   {"CLAS", CLAS, "CLASSIFICATION"},
  46.   {"COMM", COMM, "CONTACT PERSON"},
  47.   {"CONC", CONC, "CONCATENATION"},
  48.   {"CONF", CONF, "CONFIRMATION"},
  49.   {"CONL", CONL, "CONFIRMATION LDS"},
  50.   {"CONT", CONT, "CONTINUED"},
  51.   {"COPR", COPR, "COPYRIGHT"},
  52.   {"CORP", CORP, "CORPORATION"},
  53.   {"CPLR", CPLR, "COMPILER"},
  54.   {"DATA", DATA, "DATA"},
  55.   {"DATE", DATE, "DATE"},
  56.   {"DEAT", DEAT, "DEATH"},
  57.   {"DEFN", DEFN, "DEFINITION"},
  58.   {"DESI", DESI, "DESI"},
  59.   {"DEST", DEST, "DESTINATION"},
  60.   {"DIV", DIV, "DIVORCE"},
  61.   {"DIVF", DIVF, "DIVORCE FILED"},
  62.   {"DPRT", DPRT, "DEPARTURE"},
  63.   {"DSCR", DSCR, "DESCRIPTION"},
  64.   {"EDTR", EDTR, "EDITOR"},
  65.   {"EDUC", EDUC, "EDUCATION"},
  66.   {"EMIG", EMIG, "EMIGRATION"},
  67.   {"ENDL", ENDL, "ENDOWMENT LDS"},
  68.   {"ENGA", ENGA, "ENGAGEMENT"},
  69.   {"EVEN", EVEN, "EVENT"},
  70.   {"FAM", FAM, "FAMILY"},
  71.   {"FAMC", FAMC, "FAMILY CHILD"},
  72.   {"FAMS", FAMS, "FAMILY SPOUSE"},
  73.   {"FATH", FATH, "FATHER"},
  74.   {"FIDE", FIDE, "FIDELITY"},
  75.   {"FILE", FYLE, "FILE"},
  76.   {"FILM", FILM, "FILM"},
  77.   {"FORM", FORM, "FORMAT"},
  78.   {"GEDC", GEDC, "GEDCOM"},
  79.   {"GODP", GODP, "GODPARENT"},
  80.   {"GRAD", GRAD, "GRAD"},
  81.   {"HDOH", HDOH, "HEAD OF HOUSEHOLD"},
  82.   {"HEAD", HEAD, "HEADER"},
  83.   {"HEIR", HEIR, "HEIR"},
  84.   {"HFAT", HFAT, "HUSBAND FATHER"},
  85.   {"HMOT", HMOT, "HUSBAND MOTHER"},
  86.   {"HUSB", HUSB, "HUSBAND"},
  87.   {"IDNO", IDNO, "IDENT NUMBER"},
  88.   {"IMMI", IMMI, "IMMIGRATION"},
  89.   {"INDI", INDI, "INDIVIDUAL"},
  90.   {"INDX", INDX, "INDEXED"},
  91.   {"INFT", INFT, "INFORMANT"},
  92.   {"INTV", INTV, "INTERVIEWER"},
  93.   {"ISA", ISA, "IS A"},
  94.   {"ISSUE", ISSUE, "ISSUE"},
  95.   {"ITEM", ITEM, "ITEM"},
  96.   {"LABL", LABL, "LABEL"},
  97.   {"LANG", LANG, "LANGUAGE"},
  98.   {"LCCN", LCCN, "LCCN"},
  99.   {"LGTE", LGTE, "LEGATEE"},
  100.   {"MARB", MARB, "MARRIAGE BANN"},
  101.   {"MARC", MARC, "MARRIAGE CONTRACT"},
  102.   {"MARL", MARL, "MARRIAGE LICENSE"},
  103.   {"MARR", MARR, "MARRIAGE"},
  104.   {"MARS", MARS, "MARRIAGE SETTLEMENT"},
  105.   {"MBR", MBR, "MEMBER"},
  106.   {"MEDI", MEDI, "MEDIA"},
  107.   {"MOTH", MOTH, "MOTHER"},
  108.   {"NAME", NAME, "NAME"},
  109.   {"NAMR", NAMR, "NAMR"},
  110.   {"NAMS", NAMS, "NAMESAKE"},
  111.   {"NATI", NATI, "NATIONALITY"},
  112.   {"NATU", NATU, "NATURALIZATION"},
  113.   {"NCHI", NCHI, "NO. OF CHILDREN"},
  114.   {"NMR", NMR, "NO. OF MARRIAGES"},
  115.   {"NOTE", NOTE, "NOTE"},
  116.   {"NUMB", NUMB, "NUMBER"},        /* This one's not official */
  117.   {"OCCU", OCCU, "OCCUPATION"},
  118.   {"OFFI", OFFI, "OFFICIATOR"},
  119.   {"ORDN", ORDN, "ORDINATION"},
  120.   {"ORIG", ORIG, "ORIGINATION"},
  121.   {"OWNR", OWNR, "OWNER"},
  122.   {"PAGE", PAGE, "PAGE"},
  123.   {"PARI", PARI, "PERIOD"},
  124.   {"PHON", PHON, "PHONE"},
  125.   {"PHOTO", PHOTO, "PHOTO"},
  126.   {"PHUS", PHUS, "PREVIOUS HUSBAND"},
  127.   {"PLAC", PLAC, "PLACE"},
  128.   {"PORT", PORT, "PORT"},
  129.   {"PROB", PROB, "PROBATE"},
  130.   {"PROP", PROP, "PROPERTY"},
  131.   {"PUBL", PUBL, "PUBLICATION"},
  132.   {"PUBR", PUBR, "PUBLISHER"},
  133.   {"PWIF", PWIF, "PREVIOUS WIFE"},
  134.   {"QUAY", QUAY, "QUALITY"},
  135.   {"RECO", RECO, "RECORDER"},
  136.   {"REFN", REFN, "REFERENCE"},
  137.   {"REFS", REFS, "REFERENCED SOURCE"},
  138.   {"RELI", RELI, "RELIGION"},
  139.   {"REPO", REPO, "REPOSITORY"},
  140.   {"RETI", RETI, "RETIREMENT"},
  141.   {"RFN", RFN, "RFN"},
  142.   {"ROLE", ROLE, "ROLE"},
  143.   {"SCHEMA", SCHEMA, "SCHEMA"},
  144.   {"SELR", SELR, "SELLER"},
  145.   {"SEQU", SEQU, "SEQUENCE"},
  146.   {"SERS", SERS, "SERIES"},
  147.   {"SEX", SEX, "SEX"},
  148.   {"SIBL", SIBL, "SIBLING"},
  149.   {"SIGN", SIGN, "SIGNATURE"},
  150.   {"SIST", SIST, "SISTER"},
  151.   {"SITE", SITE, "SITE"},
  152.   {"SLGC", SLGC, "SLGC"},
  153.   {"SLGS", SLGS, "SLGS"},
  154.   {"SOUND", SOUND, "SOUND"},
  155.   {"SOUR", SOUR, "SOURCE"},
  156.   {"SPOU", SPOU, "SPOUSE"},
  157.   {"SSN", SSN, "SSN"},
  158.   {"STAT", STAT, "STATUS"},
  159.   {"SUBM", SUBM, "SUBMITTER"},
  160.   {"SUBN", SUBN, "SUBN"},
  161.   {"TEMP", TEMP, "TEMPLE"},
  162.   {"TEXT", TEXT, "TEXT"},
  163.   {"TIME", TIME, "TIME"},
  164.   {"TITL", TITL, "TITLE"},
  165.   {"TRLR", TRLR, "TRAILER"},
  166.   {"TXPY", TXPY, "TAXPAYER"},
  167.   {"TYPE", TYPE, "TYPE"},
  168.   {"VERS", VERS, "VERSION"},
  169.   {"WFAT", WFAT, "WIFE FATHER"},
  170.   {"WIFE", WIFE, "WIFE"},
  171.   {"WILL", WILL, "WILL"},
  172.   {"WITN", WITN, "WITNESS"},
  173.   {"WMOT", WMOT, "WIFE MOTHER"},
  174.   {"XLTR", XLTR, "TRANSLATOR"},
  175. };
  176.  
  177. int gedcom_tags_size = sizeof(gedcom_tags)/sizeof(struct tag);
  178.  
  179. struct tag gedcom_special[] = {
  180.   {"ABSTRACTOR", ABSTRACTOR, "ABSTRACTOR"},
  181.   {"ABT", ABT, "ABOUT"},
  182.   {"ACTIVE", ACTIVE, "ACTIVE"},
  183.   {"AFT", AFT, "AFTER"},
  184.   {"AND", AND, "AND"},
  185.   {"AUDIO", AUDIO, "AUDIO"},
  186.   {"AUTHOR", AUTHOR, "AUTHOR"},
  187.   {"BC", BC, "BC"},
  188.   {"BEF", BEF, "BEFORE"},
  189.   {"BET", BET, "BETWEEN"},
  190.   {"BIC", BIC, "BIC"},
  191.   {"BOOK", BOOK, "BOOK"},
  192.   {"BUSINESS", BUSINESS, "BUSINESS"},
  193.   {"CANCELED", CANCELED, "CANCELED"},
  194.   {"CARD", CARD, "CARD"},
  195.   {"CENSUS", CENSUS, "CENSUS"},
  196.   {"CHURCH", CHURCH, "CHURCH"},
  197.   {"COMPILER", COMPILER, "COMPILER"},
  198.   {"COMPLETED", COMPLETED, "COMPLETED"},
  199.   {"COPY", COPY, "COPY"},
  200.   {"COURT", COURT, "COURT"},
  201.   {"CTNC", CTNC, "CTNC"},
  202.   {"DIVORCED", DIVORCED, "DIVORCED"},
  203.   {"DNS", DNS, "DNS"},
  204.   {"DONE", DONE, "DONE"},
  205.   {"DWEL", DWEL, "DWELLING"},
  206.   {"EDITOR", EDITOR, "EDITOR"},
  207.   {"EDTN", EDTN, "EDITION"},
  208.   {"ELECTRONIC", ELECTRONIC, "ELECTRONIC"},
  209.   {"EST", EST, "EST"},
  210.   {"EXTRACT", EXTRACT, "EXTRACT"},
  211.   {"F", FEMALE, "FEMALE"},
  212.   {"FAMN", FAMN, "FAMILY NUMBER"},
  213.   {"FICHE", FICHE, "FICHE"},
  214.   {"FOUND", FOUND, "FOUND"},
  215.   {"FROM", FROM, "FROM"},
  216.   {"GOVERNMENT", GOVERNMENT, "GOVERNMENT"},
  217.   {"HDOG", HDOG, "HDOG"},
  218.   {"HISTORY", HISTORY, "HISTORY"},
  219.   {"INFANT", INFANT, "INFANT"},
  220.   {"INFORMANT", INFORMANT, "INFORMANT"},
  221.   {"INTERVIEW", INTERVIEW, "INTERVIEW"},
  222.   {"INTERVIEWER", INTERVIEWER, "INTERVIEWER"},
  223.   {"ISSU", ISSU, "ISSUE"},
  224.   {"JOURNAL", JOURNAL, "JOURNAL"},
  225.   {"LAND", LAND, "LAND"},
  226.   {"LEGA", LEGA, "LEGAL"},
  227.   {"LETTER", LETTER, "LETTER"},
  228.   {"M", MALE, "MALE"},
  229.   {"MAGAZINE", MAGAZINE, "MAGAZINE"},
  230.   {"MANUSCRIPT", MANUSCRIPT, "MANUSCRIPT"},
  231.   {"MAP", MAP, "MAP"},
  232.   {"MARRIED", MARRIED, "MARRIED"},
  233.   {"MEMBER", MEMBER, "MEMBER"},
  234.   {"MILITARY", MILITARY, "MILITARY"},
  235.   {"MSTAT", MSTAT, "MSTAT"},
  236.   {"NEWSPAPER", NEWSPAPER, "NEWSPAPER"},
  237.   {"NO", NO, "NO"},
  238.   {"NUMBER", NUMBER, "NUMBER"},
  239.   {"ORDERED", ORDERED, "ORDERED"},
  240.   {"ORGANIZATION", ORGANIZATION, "ORGANIZATION"},
  241.   {"ORIGINAL", ORIGINAL, "ORIGINAL"},
  242.   {"PARE", PARE, "PARENT"},
  243.   {"PERI", PERI, "PERIOD"},
  244.   {"PERIODICAL", PERIODICAL, "PERIODICAL"},
  245.   {"PERSONAL", PERSONAL, "PERSONAL"},
  246.   {"PHOTOCOPY", PHOTOCOPY, "PHOTOCOPY"},
  247.   {"PLACE", PLACE, "PLACE"},
  248.   {"PLANNED", PLANNED, "PLANNED"},
  249.   {"PLOT", PLOT, "PLOT"},
  250.   {"PROVED", PROVED, "PROVED"},
  251.   {"RECITED", RECITED, "RECITED"},
  252.   {"REL", REL, "REL"},
  253.   {"SHEE", SHEE, "SHEET"},
  254.   {"SINGLE", SINGLE, "SINGLE"},
  255.   {"STILLBORN", STILLBORN, "STILLBORN"},
  256.   {"SUBMITTED", SUBMITTED, "SUBMITTED"},
  257.   {"TO", TO, "TO"},
  258.   {"TOMBSTONE", TOMBSTONE, "TOMBSTONE"},
  259.   {"TRADITION", TRADITION, "TRADITION"},
  260.   {"TRANSCRIBER", TRANSCRIBER, "TRANSCRIBER"},
  261.   {"TRANSCRIPT", TRANSCRIPT, "TRANSCRIPT"},
  262.   {"UNPUBLISHED", UNPUBLISHED, "UNPUBLISHED"},
  263.   {"USB", USB, "USB"},
  264.   {"VIDEO", VIDEO, "VIDEO"},
  265.   {"VITAL", VITAL, "VITAL"},
  266.   {"WAC", WAC, "WAC"},
  267.   {"WIDOWED", WIDOWED, "WIDOWED"},
  268.   {"YES", YES, "YES"},
  269. };
  270.  
  271. int gedcom_special_size = sizeof(gedcom_special)/sizeof(struct tag);
  272.  
  273. struct tag gedcom_other[] = {
  274.   {"ANSEL", ANSEL, "ANSEL"},
  275.   {"BEGIN", BEGIN, "BEGIN"},
  276.   {"COLON", COLON, "COLON"},
  277.   {"END", END, "END"},
  278.   {"ESCAPE_SEQUENCE", ESCAPE_SEQUENCE, "ESCAPE SEQUENCE"},
  279.   {"IBMPC", ANSEL, "IBMPC"}, /* Output by Family Scrapbook */
  280.   {"LINE", LINE, "LINE"},
  281.   {"LINEAGE-LINKED", LINEAGE_LINKED, "LINEAGE LINKED"},
  282.   {"LINEAGE_LINKED", LINEAGE_LINKED, "LINEAGE LINKED"},
  283.   {"OTHER_BANG", OTHER_BANG, "OTHER BANG"},
  284.   {"SLASH", SLASH, "SLASH"},
  285.   {"TOKEN", TOKEN, "TOKEN"},
  286.   {"UNDERSCORE", UNDERSCORE, "UNDERSCORE"},
  287.   {"UNICODE", UNICODE, "UNICODE"},
  288.   {"XREF", XREF, "XREF"},
  289. };
  290.  
  291. int gedcom_other_size = sizeof(gedcom_other)/sizeof(struct tag);
  292.  
  293. int mystrcmp(char *a, struct tag *b)
  294. {
  295.   return(strcmp(a, b->name));
  296. }
  297.  
  298. struct tag *findtag(char *s, struct tag *tab, int nmemb)
  299. {
  300.   struct tag *t;
  301.   t = bsearch(s, tab, nmemb, sizeof(struct tag),
  302.          (int (*)(const void *, const void *))mystrcmp);
  303.   return(t);
  304. }
  305.  
  306. struct tag *validate_tags_table(struct tag *tab, int nmemb)
  307. {
  308.   struct tag *prev = NULL;
  309.   while(nmemb--) {
  310.     if(prev && strcmp(prev->name, tab->name) >= 0)
  311.       return(tab);
  312.     prev = tab++;
  313.   }
  314.   return(NULL);
  315. }
  316.  
  317. void validate_tags_tables()
  318. {
  319.   struct tag *tab;
  320.   if(tab = validate_tags_table(gedcom_tags, gedcom_tags_size)) {
  321.     fprintf(stderr, "Internal error: GEDCOM tag table out of order at tag '%s'.\n",
  322.         tab->name);
  323.     exit(1);
  324.   }
  325.   if(tab = validate_tags_table(gedcom_special, gedcom_special_size)) {
  326.     fprintf(stderr, "Internal error: special tag table out of order at tag '%s'.\n",
  327.         tab->name);
  328.     exit(1);
  329.   }
  330.   if(tab = validate_tags_table(gedcom_other, gedcom_other_size)) {
  331.     fprintf(stderr, "Internal error: 'other' tag table out of order at tag '%s'.\n",
  332.         tab->name);
  333.     exit(1);
  334.   }
  335. }
  336.