Chez Franck Barbenoire

Essai généalogique de réunion des familles Barbenoire

19 décembre 2009

Qui peuvent donc être les ancêtres d'un gars avec un nom pareil ? Vous le saurez en jetant un coup d'œil à mon arbre généalogique. Allez hop, aux archives !

Ce travail, commencé par Émile Barbenoirei, je l'ai poursuivi et mis en forme. C'est Émile qui a réalisé le plus gros du travail.

Il apparait que le berceau de la famille est situé à une dizaine de kilomètres à l'est de Tonnerre dans les communes de Saint Martin Sur Armançon, Commissey, Tanlay, Cruzy le Chatel, Baon, Gland, Epineuil (Yonne) et Miery (Jura).

Plus de 550 individus ont été répertoriés et plus précisément les personnes qui ont porté le même patronyme qu'ils soient filles ou garçons. Cette étude porte sur les périodes de l'année 1600 à nos jours, c'est à dire 4 siècles d'histoire.

Il n'y a pas eu de faits historiques dans une famille qui était, à l'origine, essentiellement rurale et forestière.

Notations

Dans les listes des ascendants, un certain nombre d'abréviations et de signes ont été utilisés:

  • °: date de naissance
  • † date de décès;
  • x: mariage;
  • )(: divorce;
  • ?: incertain;
  • /xxx: avant le xxx;
  • xxx/: après le xxx;
  • !xxx: cité le xxx;

Liste des ascendants

Informatique

Pour gérer la base de données de mes ancêtres, j'utile le logiciel gratuit LifeLines. Vous pouvez consulter le script de commande pour ce logiciel qui m'a permi de générer les pages html.

Télécharger le fichier au format GEDCOM des familles Barbenoire. et le fichier d'abréviation des lieux.

lieux.txt :

Aisey Sur Seine:AS
Alfortville:AV
Ancenis:AC
Ancy Le Franc:AF
Arbois:AB
Argenteuil Sur Armançon:AG
Arpajon:AR
Arthonnay:ART
Asnières Sur Seine:AN
Athié:AT
Aubervilliers:AU
Aulnay Sous Bois:AY
Autricourt:ATC
Balot:BT
Baon:BN
Berck Sur Mer:BM
Beuret:BE
Besançon:BC
Bligny Sur Ource:BSO
Bobigny:BG
Bouilly:BY
Boulogne-Billancourt:BB
Belan Sur Ource:BO
Brémur Et Vaurois:BV
Châlons Sur Marne:CM
Chatillon Sur Seine:CS
Cheney:CN
Chevillon:CV
Clichy La Garenne:CG
Clichy Sous Bois:CL
Collonges:CLG
Commercy:CY
Commissey:CO
Coulmier Le Sec:CS
Cruzy Le Chatel:CC
Danemoine:DA
Dijon:DN
Epineuil:EL
Etivey:ET
Flogny La Chapelle:FL
Gland:GL
Grancey Sur Ource:GO
La Chapelle Les Rennes:CR
Langres:LG
Le Canet:LC
Leschères:LE
Le Tremblay Sur Mauldre:TM
Le Perreux Sur Marne:LP
Lons Le Saunier:LS
Maisons-Alfort:MA
Miery:MY
Mesnuls:MU
Montpellier:MP
Montbard:MB
Montreuil:MT
Moutiers Saint Jean:MS
Nantes:NA
Nod Sur Seine:NS
Oulchy Le Château:OC
Parigny L'Evèque:PE
Paris:PA
Poinçon Les Larreys:PL
Poissy:PS
Poligny:PO
Polisy:PY
Pont-L'Abbé:PLA
Quimper:QP
Quincerot:QU
Reims:RS
Riels Les Eaux:RE
Romilly Sur Seine:RO
Rugny:RU
Saint Christophe:SC
Saint Guénolé:SG
Saint Martin Sur Armançon:SM
Saint Rémy:SR
Saint Rémy Blanzy:SRB
Saint Usage:SU
Saint Vinnemer:SV
Sarey:SRY
Semur En Auxois:SA
Sèvres:SE
Soisson:SI
Souilly:SY
Taingy:TG
Tanlay:TA
Thorey:TH
Tonnerre:TO
Troyes:TS
Vanvey Sur Ource:VO
Versailles:VS
Vevey:VV
Villepinte:VI
Villers-Cotterets:VC
Yrouerre:YR

web.ll :

proc main ()
{
    dayformat(1)
    monthformat(4)
    set(root,"1")
    list(abo_list)
    push(abo_list,save(root))

    call do_header()
    forindi (person,ipers) {
        if (and(not(father(person)),not(mother(person)),
            eq(0,strcmp("Barbenoire",surname(person))))) {
            /* les Barbenoire sans pere ni mere */
            call arbre(person,abo_list)
        }
    }
    call do_trailer()
}


proc do_header()
{
    "<HTML>\n"
    "<HEAD>\n"
    "<TITLE>Familles Barbenoire de France</TITLE>\n"
    "</HEAD>\n"
    "<SMALL>Generated by the LifeLines Genealogical System on " stddate(gettoday()) "</SMALL>\n"
    "<HR>"
    "<BODY BGCOLOR=\"#f4cebf\">\n"
}


proc arbre (indi_root,abo_list)
{
    fornodes(inode(indi_root),node) {
       if (eq(0,strcmp("_HTML",tag(node)))) {
          value(node) "\n&nbsp;\n"
       }
    }
    "<TABLE BORDER CELLPADDING=2>\n<TR>\n"
    call do_name(indi_root,abo_list)
    "</TR>\n</TABLE>\n&nbsp;\n"
    call desc_sub(indi_root,abo_list)
    "<HR>\n"
}


proc do_trailer()
{
    "<CENTER>"
    "<A HREF=\"geneal.html\"><IMG SRC=\"../flechbac.gif\" BORDER=0 HEIGHT=50 WIDTH=95></A>"
    "<A HREF=\"../index.html\"><IMG SRC=\"../home.gif\" BORDER=0 HEIGHT=51 WIDTH=71></A>"
    "</CENTER>\n"
    "</BODY>\n"
    "</HTML>\n"
}


func lieudate(ev)
{
    if (ne(0,strcmp(place(ev),""))) {
        set(ld,concat(short(ev)," ",long(ev)))
        set(pv,index(ld,", ",1))
        set(dv,index(ld,", ",2))
        return(substring(ld,add(pv,2),sub(dv,1)))
    }
    else {
        return(date(ev))
    }
}


func daterepu(unode,ev)
{
    fornodes(unode,node) {
       if (eq(0,strcmp(ev,tag(node)))) {
           fornodes(node,cnode) {
               if (eq(0,strcmp("DATE",tag(cnode)))) {
                   fornodes(cnode,ccnode) {
                       if (eq(0,strcmp("_REPU",tag(ccnode)))) {
                          return(value(ccnode))
                       }
                   }
               }
           }
       }
    }
    return("")
}


proc do_name(person,abo_list)
{
    set(h,"")
    forlist(abo_list,l,li)
       { set(h,save(concat(h,l))) }
    "<TD>" h "</TD>\n"
    "<TD>" fullname(person,0,1,80) "</TD>\n"
    "<TD>&deg; "
    if (e,birth(person)) {
       lieudate(e)
       set(repu,daterepu(inode(person),"BIRT"))
       if (ne(0,strcmp("",repu))) { " (" repu ")\n" }
    }
    "</TD>\n<TD>&#134; "
    if (e,death(person)) {
       lieudate(e)
       set(repu,daterepu(inode(person),"DEAT"))
       if (ne(0,strcmp("",repu))) { " (" repu ")\n" }
    }
    "</TD>\n<TD>"
    if(ne(0,nfamilies(person))) {
        families(person,fam,sp,spi) {
            if (ne(1,spi)) { "<P>\n" }
            "x "
            if(marriage(fam)) {
                lieudate(marriage(fam)) " "
                set(repu,daterepu(fnode(fam),"MARR"))
                if (ne(0,strcmp("",repu))) { " (" repu ")\n" }
            }
            if (sp) { fullname(sp,0,1,80) }
            else { "?" }
            if (male(person)) {
                set(nc,nchildren(fam))
                if (nc)
                   { " (" d(nc) " enfant" if (gt(nc,1)) { "s" } ")"
                }
            }
        }
        "</TD>\n"
    }
    fornodes(inode(person),node) {
       if (eq(0,strcmp("OCCU",tag(node)))) {
           "<TD>" value(node) "</TD>\n"
       }
    }
}


func desc_code(number)
{
    set(num,d(number))
    if (eq(1,strlen(num)))
       { return(num) }
    else
       { return(concat("-",num,"-")) }
}


proc desc_sub(person,abo_list)
{
    set(chi,0)
    families(person,fam,sp,spi) {
        if (and(ne(0,nchildren(fam)),
                or(male(person),
                   and(not(male(person)),
                       ne(0,strcmp("Barbenoire",surname(sp)))
                      )
                  )
               )
           ) {
            "<TABLE BORDER CELLPADING=2>\n"
            "<CAPTION><B>Descendance de " fullname(person,0,1,80)
            if (sp) {
                " et " fullname(sp,0,1,80) }
            "</B></CAPTION>\n"
            children (fam,ch,famchi) {
                incr(chi)
                push(abo_list,save(desc_code(chi)))
                "<TR>\n"
                call do_name(ch,abo_list)
                "</TR>\n"
                set(junk,pop(abo_list))
            }
            "</TABLE>\n&nbsp;\n"
        }
    }
    set(chi,0)
    families(person,fam,sp,spi) {
        if (and(ne(0,nchildren(fam)),
                or(male(person),
                   and(not(male(person)),
                       ne(0,strcmp("Barbenoire",surname(sp)))
                      )
                  )
               )
           ) {
            children (fam,ch,famchi) {
                incr(chi)
                push(abo_list,save(desc_code(chi)))
                call desc_sub(ch,abo_list)
                set(junk,pop(abo_list))
            }
        }
    }
}