GEDPORT (GEDPRT.EXE) - A GEDCOM Extraction Program for Printing in MS Word Date: 02-12-97 (02:09) Number: 22017 of 22113 (Refer# NONE) To: ALL From: eckmann@mykonos.unige.ch, Jean-Pierre Eckmann Subj: tree-printing Read: (N/A) Status: PUBLIC MESSAGE Conf: SOCGENCOMPUTG (153) Read Type: GENERAL (+) Message-ID: <33016CAD.52A6@mykonos.unige.ch> Newsgroups: soc.genealogy.computing Organization: University of Geneva I have a program which does the following: Given a GED file and the number of a person P, it prints a tree (in ascii) of all "related" people, that is, people who have a common ancestor with P. All duplications are avoided, and all possible crosslinks are indicated. There is a feature to extract those people to a new GED file. This is a little more general than just ancestors or descendants, and I use it to give parts of my data to people from my family. If there is interest, I could put this on the net. It works in DOS and linux. What features do people want? -- Jean-Pierre Eckmann _________________________________________________________________ From the home page of: Jean-Pierre Eckmann Departement de Physique Theorique 32, Bld D'Yvoy Universite de Geneve 1211 Geneva 4 Switzerland Phone (41)(22)7026360 Fax (41)(22)7026870 ======== http://mykonos.unige.ch/~geneal The program gedprt is distributed ``as is''. This means: 1) It is free, 2) I do not promise anything, 3) I do not feel obliged to answer questions, 4) The GNU blurb holds, which means you should not build it into a commercial product, or into shareware, only into freeware. _________________________________________________________________ The skeleton of the program is derived from a project of Graham Freeman gfreeman@csadfa.cs.adfa.oz.au. To make this program run, you need an executable and the tag-file [1]gedcom.tag. You can modify your gedcom.tag for your needs.(The space between the tag and the translation is a tab character.) If your machine type is not on the list below you can try to compile the program on your platform using the source. Here is a [2] description of how to read the output. --- This tree is arranged as follows. The program looks first for all ``oldest'' ancestors, and then prints their descendants. --- Each marriage gets a number, and the descendants of each marriage are shown only once. If a marriage appears again, there is a note ``[n: see above]'', where n is the number of that marriage. --- If people married more than once, the notation ``m : n __'' refers to the m-th marriage among n. This is also indicated by dotted vertical lines, where appropriate. --- If trees join, and a marriage partner is the child of another marriage, n, this is indicated by --- If a marriage partner is the child of another marriage, which is in the database but not in the list, this is indicated by --- A symbol * after name indicates that this person has a blood relationship to the person for which the table was made. --- The possible flags can be found by running the program with wrong arguments. _________________________________________________________________ EXECUTABLES (DO NOT FORGET TO TAKE THE [3] GEDCOM.TAG FILE AS WELL) [4]HP-UX 10.20: ~60kBytes [5]SUN sunos.4.1.3: ~90kBytes [6]Windows-32 bits: ~60kBytes If you want to use the RTF output, you have to sandwich it between [7]head.rtf and [8] tail.rtf. In DOS, for example, you would write gedprt [arguments] > results.rtf and then copy head.rtf+results.rtf+tail.rtf final.rtf Then you can look at the RTF file final.rtf for example in Word. SOURCE [9] gedprt.c: ~60kBytes _________________________________________________________________ SAMPLE (TWO PIECES OF A LARGER OUTPUT FILE). THIS SHOWS WHAT THE PROGRAM ACTUALLY UNDERSTANDS [10] sample (short) produced from the (~500k) GED file [11] sample.ged A sample RTF file [12] final.rtf produced by gedprt sample.ged I2101 -r > results.rtf and the command (in DOS) copy head.rtf + results.rtf + tail.rtf final.rtf The RTF file can produce an index in Word, using the index feature of Word. _________________________________________________________________ J.-P. Eckmann: eckmann@mykonos.unige.ch