Hvordan man bruger Tokes procedurer

• put.bet
  Opretter en database med nogle tegneserier, kunder og abonnementer.
  Bruges til at oprette testdata.
• get.bet
  Henter en database ind og udskriver forskellige data.
  Bruges til at vise hvordan systemet fungerer.
• globalpatterns.bet
  Heri ligger patterns, der skal bruges i hele systemet. Det vil sandsynligvis ikke være nødvendigt at indkludere dette library direkte, da det gøres af maillistmanipulation.bet og persistence.bet.
  Libraryet indeholder følgende lister:
  • KundeListeType: KundeType
  • SerieListeType: SerieType
  • CrossoverListeType: CrossoverType
  • EnkeltNummerListeType: EnkeltNummerType
  • ForlagListeType: ForlagType
  • DistributoerListeType: DistributoerType
  • Butik: ^KundeType

  • TextListeType: (# Index: [0]^text #);
  • ObjectListeType: (# Index: []^Object #);
    Disse to lister bruges til at indsætte i en Lidskjalv-liste
  Og dertil hørende patterns.
  Lidskjalvdelen af vores program kommer aldrig i kontakt med de underliggende patterns, så jeg har ikke beskrevet dem her. Dette er ikke helt sandt. Det er nødvendigt for Lidskjalv at kende til:
  AbonnementType, der er viderebundet i
  • SerieAbonnementType
  • CrossoverAbonnementType
  • EnkeltNummerAbonnementType
• persistence.bet
  Et eksempel på anvendelse af dette library kan ses i get.bet.
  De enkelte funktioner er følgende:
  • Retrive
    Åbner gammel database og returnerer pointers til de hentede data med linien:
    exit (KundeListe[], SerieListe[], CrossoverListe[], EnkeltNummerListe[], ForlagListe[], DistributoerListe[])
  • Store
    Gemmer data og lukker databasen. Skal kun kaldes når programmet lukkes ned.
  • Check
    Gemmer data, men beholder databasen åben. Bruges til paranoia-gem af data.
• listmanipulation.bet
  Det er dette library, Lidskjalv-delen hovedsageligt vil kommunikere med.
  De fleste af kaldene returnerer intet, da det drejer sig om indsættelse i lister.
  Der er følgende procedurer:
  • Distributør
    • OpretDistributoer
      navn: @text;
      adresse: @text;
      liste: ^DistributoerListeType;
      enter (liste[], navn, adresse)
    • ReturnerDistributoerListe
      indliste: ^DistributoerListeType;
      udliste: ^ObjectListeType;
      textliste: ^TextListeType;
      enter indliste[]
      exit (textliste[], udliste[])
  • Forlag
    • OpretForlag
      liste: ^ForlagListeType;
      forlag: ^ForlagType;
      enter liste[]
      exit forlag[]
    • ReturnerForlagInfo
      forlag: ^ForlagType;
      navn: ^text;
      adresse: ^text;
      bemaerkninger: ^text;
      distributoer: ^DistributoerType;
      distributoertext: ^text;
      enter forlag[]
      exit (navn[], adresse[], bemaerkninger[], distributoer[], distributoertext[])
    • OpdaterForlagInfo
      forlag: ^ForlagType;
      navn: ^text;
      adresse: ^text;
      bemaerkninger: ^text;
      distributoer: ^DistributoerType;
      enter (forlag[], navn[], bemaerkninger[], adresse[], distributoer[])
  • Kunde
    • OpretKunde
      liste: ^KundeListeType;
      kunde: ^KundeType;
      enter liste[]
      exit kunde[]
    • OpdaterKundeInfo
      kunde: ^KundeType;
      navn: ^text;
      adresse: ^text;
      by: ^text;
      postnr: ^text;
      tlf: ^text;
      kundebem: ^text;
      abonnementbem: ^text;
      aktiv: @char; (A, I eller D)
      enter (kunde[], navn[], adresse[], by[], postnr[], tlf[], kundebem[], abonnementbem[], aktiv)
  • Serie
    • OpretSerie
      liste: ^SerieListeType;
      serie: ^SerieType;
      enter liste[]
      exit serie[]
    • ReturnerSerieInfo
      serie: ^SerieType;
      navn: ^text;
      aktnr: @integer;
      aktiv: @boolean;
      antal: @integer;
      enter serie[]
      exit (navn[], aktnr, aktiv, antal)
    • OpdaterSerieInfo
      serie: ^SerieType;
      navn: ^text;
      aktnr: @integer;
      aktiv: @boolean;
      enter (serie[], navn[], aktnr, aktiv)
    • ListSerieListe (Returnerer de enkeltnumre en serie indeholder)
      serie: ^SerieType;
      udliste: ^ObjectListeType;
      textliste: ^TextListeType;
      enter serie[]
      exit (textliste[], udliste[])
    • TilfoejEnkeltNummerTilSerie
      serie: ^SerieType;
      enkelt: ^EnkeltNummerType;
      enter (serie[], enkelt[])
    • OpdaterAktueltNummer
      serie: ^SerieType;
      aktueltnummer: @integer; enkeltliste: ^EnkeltNummerListeType;
      enter (serie[], enkeltliste[])
      exit aktueltnummer
  • Crossover
    • OpretCrossover
      liste: ^CrossoverListeType; crossover: ^CrossoverType;
      enter liste[] exit crossover[]
    • ReturnerCrossoverInfo
      crossover: ^CrossoverType;
      navn: @text;
      antal: @integer;
      enter crossover[]
      exit (navn, antal)
    • OpdaterCrossoverInfo
      crossover: ^CrossoverType;
      navn: @text;
      enter (crossover[], navn)
    • ListCrossoverListe (Returnerer de enkeltnumre en crossover indeholder)
      crossover: ^CrossoverType;
      udliste: ^ObjectListeType;
      textliste: ^TextListeType;
      enter crossover[]
      exit (textliste[], udliste[])
    • TilfoejEnkeltNummerTilCrossover
      crossover: ^CrossoverType;
      enkelt: ^EnkeltNummerType;
      enter (crossover[], enkelt[])
    • FjernEnkeltNummerFraCrossover:
      crossover: ^CrossoverType;
      enkelt: ^EnkeltNummerType;
      enter (crossover[], enkelt[])
  • EnkeltNummer
    • OpretEnkeltNummer
      liste: ^EnkeltNummerListeType;
      enkelt: ^EnkeltNummerType;
      enter liste[]
      exit enkelt[]
    • OpretEnkeltNummerISerie (Kopierer tegner og lignende)
      liste: ^EnkeltNummerListeType;
      serie: ^SerieType;
      enkelt: ^EnkeltNummerType;
      enter (serie[], liste[])
      exit enkelt[]
    • ReturnerEnkeltNummerInfo
      enkelt: ^EnkeltNummerType;
      nummer: @integer;
      tegner: ^text;
      forfatter: ^text;
      andre: ^text;
      bemaerkninger: ^text;
      ikkeankommet: @boolean;
      bestiltantal: @integer;
      bestiltdato: ^text;
      ankommetantal: @integer;
      ankommetdato: ^text;
      lagerantal: @integer;
      lagerdato: ^text;
      kasse: ^text;
      forlag: ^ForlagType;
      forlagtext: ^text;
      serie :^SerieType;
      serietext: ^text;
      enter enkelt[]
      exit (nummer, tegner[], forfatter[], andre[], bemaerkninger[], ikkeankommet, bestiltantal, bestiltdato[], ankommetantal, ankommetdato[], lagerantal, lagerdato[], kasse[], forlag[], forlagtext[], serie[], serietext[])
    • OpdaterEnkeltNummerInfo
      enkelt: ^EnkeltNummerType;
      nummer: @integer;
      tegner: ^text;
      forfatter: ^text;
      andre: ^text;
      bemaerkninger: ^text;
      ikkeankommet: @boolean;
      bestiltantal: @integer;
      bestiltdato: ^text;
      ankommetantal: @integer;
      ankommetdato: ^text;
      lagerantal: @integer;
      lagerdato: ^text;
      kasse: ^text;
      forlag: ^ForlagType;
      enter (enkelt[], nummer, tegner[], forfatter[], andre[], bemaerkninger[], ikkeankommet, bestiltantal, bestiltdato[], ankommetantal, ankommetdato[], lagerantal, lagerdato[], kasse[], forlag[])
  • Forskellige søgerutiner
    • Soegkunde
      navn: ^text;
      nummer: @integer;
      by: ^text;
      indliste: ^KundeListeType;
      udliste :^ObjectListeType;
      enter (indliste[], navn[], nummer, by[])
      exit (textliste[], udliste[])
    • SoegForlag
      navn: ^text;
      indliste ^ForlagListeType;
      udliste: ^ObjectListeType; textliste: ^TextListeType;
      enter (indliste[], navn[])
      exit (textliste[], udliste[])
    • SoegTegneserieFunktion
      serie: ^SerieListeType;
      crossover: ^CrossoverListeType;
      enkelt: ^EnkeltNummerListeType;

      soegetype: @char; (* e, s eller c *)
      serienavn: ^text;
      serienummer: @integer;
      crossovernavn: ^text;
      tegner, forfatter, andre: ^text;
      forlag, distributoer: ^text;
      kommentar: ^text;
      bestilt, ankommet, lager: @boolean;
      bdatofra, adatofra, ldatofra: ^text;
      bdatotil, adatotil, ldatotil: ^text;
      kasse: ^text;
      

      udliste: ^ObjectListeType;
      textliste: ^TextlisteType;

      enter (serie[], crossover[], enkelt[], soegetype, serienavn[], serienummer, crossovernavn[], tegner[], forfatter[], andre[], forlag[], distributoer[], kommentar[], bestilt, bdatofra[], bdatotil[], ankommet, adatofra[], adatotil[], lager, ldatofra[], ldatotil[], kasse[])
      exit (textliste[], udliste[])

  • Abonnementstyring
    • ListAbonnement
      kunde: ^KundeType;
      textliste: ^TextListeType;
      abonnementliste: ^ObjectListeType;
      enter kunde[]
      exit (textliste[], abonnementliste[])
    • ReturnerAbonnementInfo (Hvor mange tegneserier abonneres der på?)
      kunde: ^KundeType;
      antal: @integer;
      enter kunde[]
      exit antal
    • SletAbonnement
      kunde: ^KundeType;
      abonnement: ^AbonnementType;
      enter (kunde[], abonnement[])
    • OpretSerieAbonnement
      kunde: ^KundeType;
      serie: ^SerieType;
      fra, til, antal: @integer;
      enter (kunde[], serie[], fra, til, antal)
    • ReturnerSerieAbonnementInfo
      (serie: ^SerieAbonnementType;
      antal: @integer;
      fra, til: @integer;
      enter serie[]
      exit (antal, fra, til)
    • OpdaterSerieAbonnementInfo
      serie: ^SerieAbonnementType;
      antal: @integer;
      fra, til: @integer;
      enter (serie[], antal, fra, til)
    • OpretCrossoverAbonnement
      kunde: ^KundeType;
      crossover: ^CrossoverType;
      antal: @integer;
      enter (kunde[], crossover[], antal)
    • ReturnerCrossoverAbonnementInfo
      crossover: ^CrossoverAbonnementType;
      antal: @integer;
      enter crossover[]
      exit antal
    • OpdaterCrossoverAbonnementInfo
      crossover: ^CrossoverAbonnementType;
      antal: @integer;
      enter (crossover[], antal)
    • OpretEnkeltNummerAbonnement
      kunde: ^KundeType;
      enkeltNummer: ^EnkeltNummerType;
      antal: @integer;
      enter (kunde[], enkeltNummer[], antal)
    • ReturnerEnkeltNummerAbonnementInfo
      enkelt: ^EnkeltNummerAbonnementType;
      antal: @integer;
      enter enkelt[]
      exit antal
    • OpdaterEnkeltNummerAbonnementInfo
      enkelt: ^EnkeltNummerType;
      antal: @integer;
      enter (enkelt[], antal)
      do antal -> enkelt.Antal;
  • Snedige procedurer
    • AbonnementTilTegneserie (tager et abonnement og returnerer den tilhørende tegneserie)
      abonnement: ^AbonnementType;
      ud: ^Object;
      enter abonnement[]
      exit ud[]
    • BestiltTilAnkommet
      enkelt: ^EnkeltNummerType;
      enter enkelt[]
    • GenererBestillingsListe
      butik: ^KundeType;
      indkunder: ^KundeListeType; (Alle kunder)
      enkeltliste: ^EnkeltNummerListeType; (Alle EnkeltNumre)
      distributoer: ^DistributoerType;
      textliste: ^TextListeType;
      enter (Butik[], indkunder[], distributoer[], enkeltliste[])