home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 08_09 / rekursiv / header.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-05-31  |  2.9 KB  |  88 lines

  1. (* ------------------------------------------------------ *)
  2. (*                     HEADER.PAS                         *)
  3. (*           Deklarationsteil von RECURSE.PAS             *)
  4. (* ------------------------------------------------------ *)
  5. UNIT    header;
  6.  
  7. INTERFACE
  8.  
  9. USES    dos;
  10.  
  11. CONST                            (* allgemeine Konstanten *)
  12.         NAMELEN       = 20;
  13.         TEXTLEN       = 80;
  14.         MAXPATTERN    = 20;
  15.         DEFAULT_DELAY =  0;
  16.         WORK_MARGIN   =  8;
  17.         MAIN_MARGIN   =  4;
  18.         FAIL_MARGIN   = 10;
  19.  
  20.         CURSOR_OFF    = $2000   ;
  21.         OUTPUT_DELAY  : word    =  $0A;
  22.         recursive     : BOOLEAN = TRUE;
  23.         is_echo       : BOOLEAN = TRUE;
  24.         COPY_RIGHT    = '(c) 1988 by F&C PRODUCTS ';
  25.  
  26. TYPE    nameline      = STRING[NAMELEN];
  27.         textline      = STRING[TEXTLEN];
  28.         patt_arr      = ARRAY [1..MAXPATTERN] OF nameline;
  29.  
  30.    (* der order_typ gibt den Status des Programms wieder: *)
  31.    (*          work_    -> Parameter-Analyse erfolgreich  *)
  32.    (*          param_   -> falsche / unbekannte Parameter *)
  33.    (*          info_    -> HILFE angefordert              *)
  34.    (*          pattern_ -> falsche / verbotene Pattern    *)
  35.    (*          missing_ -> keine Parameter angegeben      *)
  36.  
  37.         order_typ     = (work_,  param_,  info_,
  38.                          pattern_,  missing_    );
  39.  
  40. VAR     pattern       : patt_arr ;     (* die Suchpattern *)
  41.         parameters    : BYTE     ;
  42.         start_path    : textline ;
  43.         regs          : registers;
  44.         DOScursor     : word     ;
  45.  
  46. {$IFDEF clean_recurse}
  47.      (* bedingt compilierte Variablen, Typen + Konstanten *)
  48.  
  49.   CONST PROG_NAME     = 'CLEAN';
  50.         PROG_JOB      = ' löscht rekursiv ';
  51.         tmp_on        : BOOLEAN = FALSE;
  52.         norton_on     : BOOLEAN = TRUE ;
  53.         turbo_on      : BOOLEAN = TRUE ;
  54.         obj_on        : BOOLEAN = FALSE;
  55.         map_on        : BOOLEAN = FALSE;
  56.         unit_on       : BOOLEAN = FALSE;
  57.  
  58.   VAR   deletefile    : TEXT    ;
  59.  
  60. {$ELSE}
  61.   {$IFDEF dir_recurse}
  62.  
  63.   CONST PROG_NAME     = 'RDIR';
  64.         PROG_JOB      = ' rekursives Directory von ';
  65.         time_on       : BOOLEAN = TRUE ;
  66.         date_on       : BOOLEAN = TRUE ;
  67.         size_on       : BOOLEAN = TRUE ;
  68.         attr_on       : BOOLEAN = FALSE;
  69.  
  70.   {$ELSE}
  71.  
  72.   (*        der Kompiler soll abbrechen, ...              *)
  73.   (*    FEHLER ---> DEFINE für bedingte Compilation       *)
  74.   (*                vermisst oder falsch !!!              *)
  75.   (*    ... wenn der USER kein $DEFINE gemacht hat!       *)
  76.  
  77.   {$ENDIF}
  78. {$ENDIF}
  79.  
  80. (* ------------------------------------------------------ *)
  81. IMPLEMENTATION
  82.  
  83. BEGIN                  (* Initialisierung der Suchpattern *)
  84.   FillChar(pattern,SizeOf(pattern),#0);
  85. END.
  86. (* ------------------------------------------------------ *)
  87. (*                   Ende von HEADER.PAS                  *)
  88.