La Commande Numérique sur la Production Bois

{==============  FICHIER DE EDNUM  ======================}
{ Programm pricipal EDnum.pas usinage sur machines c.n.  }
{ programmation Pascal                                   }
{ Copyright (S) 1997-2011                                }
{ programmeur du programme A.Ara                         }
{ 64150 Mourenx - France.                                }
{ Licence d'utilisation accord dans un but démonstratif  }
{ Unite Type_Buf.pas pour EDnum.pas c.n du bois num750   }
{ Numero de serie 00-331-7431-A1133071e                  } 
{========================================================}
{=================  FICHIER DE EDNUM  ===================}
{ Types publiques de fuffers destines a l'editeur        }
{ Max_Buffer=64512;      63 Ko.                          }
{ Max_Buffer_Copy=5120;  5  ko                           }
{========================================================}

{$O+,F+}

Unit Type_Buf;


Interface      {**Types publiques de fuffers destines a l'editeur**}


Const
      Max_Buffer       = 30720; {**64512 | 63 Ko.**}
      Max_Buffer_Copy  = 5120;  {**5 ko**}

Type
      Str12 = string[12];

      {**Liste de fichiers Load dir**}

      ListePtr = ^L_ptr;
      L_Ptr    = Record
                    Num:integer;
                    Nom:Str12;
                    Avan,Suivan:ListePtr;
                 end;

      Edit_Buffer = Array[1..Max_Buffer+512] of Char;
      Buf_Ptr     = ^Edit_Buffer;

      Copy_Edit_Buffer = Array[1..Max_Buffer_Copy+512] of Char;
      Copy_Buf_Ptr     = ^Edit_Buffer;

      Ligne__Copy = Array[1..254] of char;
      Ligne_Copy  = ^Ligne__Copy;

var
    Buffer       : Buf_Ptr;              {*Buffer de l'Editeur    *}
    Copy__Buffer : Copy_Buf_Ptr;         {*Buffer de Blocs Copy   *}
    CopyLigne    : Ligne_Copy;           {*ligne du curseur       *}

Implementation

begin
   Buffer:=Nil;
   Copy__Buffer:=Nil;
   CopyLigne:=Nil;
end.