← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/base/winunits/jwaschedule.pas

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/base/winunits/jwaschedule.pas
1
 
{******************************************************************************}
2
 
{                                                                              }
3
 
{ Scheduler API interface Unit for Object Pascal                               }
4
 
{                                                                              }
5
 
{ Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
6
 
{ Corporation. All Rights Reserved.                                            }
7
 
{                                                                              }
8
 
{ The original file is: schedule.h, released June 2000. The original Pascal    }
9
 
{ code is: Schedule.pas, released December 2000. The initial developer of the  }
10
 
{ Pascal code is Marcel van Brakel (brakelm att chello dott nl).               }
11
 
{                                                                              }
12
 
{ Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
13
 
{ Marcel van Brakel. All Rights Reserved.                                      }
14
 
{                                                                              }
15
 
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
16
 
{                                                                              }
17
 
{ You may retrieve the latest version of this file at the Project JEDI         }
18
 
{ APILIB home page, located at http://jedi-apilib.sourceforge.net              }
19
 
{                                                                              }
20
 
{ The contents of this file are used with permission, subject to the Mozilla   }
21
 
{ Public License Version 1.1 (the "License"); you may not use this file except }
22
 
{ in compliance with the License. You may obtain a copy of the License at      }
23
 
{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
24
 
{                                                                              }
25
 
{ Software distributed under the License is distributed on an "AS IS" basis,   }
26
 
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
27
 
{ the specific language governing rights and limitations under the License.    }
28
 
{                                                                              }
29
 
{ Alternatively, the contents of this file may be used under the terms of the  }
30
 
{ GNU Lesser General Public License (the  "LGPL License"), in which case the   }
31
 
{ provisions of the LGPL License are applicable instead of those above.        }
32
 
{ If you wish to allow use of your version of this file only under the terms   }
33
 
{ of the LGPL License and not to allow others to use your version of this file }
34
 
{ under the MPL, indicate your decision by deleting  the provisions above and  }
35
 
{ replace  them with the notice and other provisions required by the LGPL      }
36
 
{ License.  If you do not delete the provisions above, a recipient may use     }
37
 
{ your version of this file under either the MPL or the LGPL License.          }
38
 
{                                                                              }
39
 
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
40
 
{                                                                              }
41
 
{******************************************************************************}
42
 
 
43
 
// $Id: JwaSchedule.pas,v 1.6 2005/09/03 14:27:48 marquardt Exp $
44
 
 
45
 
unit JwaSchedule;
46
 
 
47
 
{$WEAKPACKAGEUNIT}
48
 
 
49
 
{$HPPEMIT ''}
50
 
{$HPPEMIT '#include "schedule.h"'}
51
 
{$HPPEMIT ''}
52
 
 
53
 
{$I jediapilib.inc}
54
 
 
55
 
interface
56
 
 
57
 
uses
58
 
  JwaWindows;
59
 
 
60
 
//
61
 
// The DS and FRS use the same structure to represent different schedules.
62
 
// The DS uses a 15-minute polling schedule. FRS uses a 60-minute
63
 
// start/stop schedule. Hence, the schedule for the system volume is
64
 
// a special case because we only have the DS schedule to work from.
65
 
// We will work around this problem by treating the 15
66
 
// -minute polling schedule as a 60-minute start/stop schedule.
67
 
// Replication is enabled for any hour that has any of the four
68
 
// 15-minute bits set.
69
 
//
70
 
// When the ReplicationSchedule is not present the default is
71
 
// "always replicate."
72
 
//
73
 
 
74
 
//
75
 
// Only the interval schedule is currently implemented. Others are ignored.
76
 
//
77
 
 
78
 
const
79
 
  SCHEDULE_INTERVAL      = 0; // schedule as understood by NT5
80
 
  {$EXTERNALSYM SCHEDULE_INTERVAL}
81
 
  SCHEDULE_BANDWIDTH     = 1; // bandwidth as understood by NT5
82
 
  {$EXTERNALSYM SCHEDULE_BANDWIDTH}
83
 
  SCHEDULE_PRIORITY      = 2; // priority as understood by NT5
84
 
  {$EXTERNALSYM SCHEDULE_PRIORITY}
85
 
 
86
 
//
87
 
// Schedule Header
88
 
//
89
 
// Each schedule blob begins with n array of schedule headers that
90
 
// specify the number and type of schedules contained in the blob.
91
 
//
92
 
 
93
 
type
94
 
  PSCHEDULE_HEADER = ^SCHEDULE_HEADER;
95
 
  {$EXTERNALSYM PSCHEDULE_HEADER}
96
 
  _SCHEDULE_HEADER = record
97
 
    Type_: ULONG;       // one of the SCHEDULE_ ordinals
98
 
    Offset: ULONG;      // offset from start of schedule structure
99
 
  end;
100
 
  {$EXTERNALSYM _SCHEDULE_HEADER}
101
 
  SCHEDULE_HEADER = _SCHEDULE_HEADER;
102
 
  {$EXTERNALSYM SCHEDULE_HEADER}
103
 
  TScheduleHeader = SCHEDULE_HEADER;
104
 
  PScheduleHeader = PSCHEDULE_HEADER;
105
 
 
106
 
//
107
 
// Schedule
108
 
//
109
 
 
110
 
  PSCHEDULE = ^_SCHEDULE;
111
 
  {$EXTERNALSYM PSCHEDULE}
112
 
  _SCHEDULE = record
113
 
    Size: ULONG;           // inclusive size in bytes
114
 
    Bandwidth: ULONG;
115
 
    NumberOfSchedules: ULONG;
116
 
    Schedules: array [0..0] of SCHEDULE_HEADER;
117
 
  end;
118
 
  {$EXTERNALSYM _SCHEDULE}
119
 
  //SCHEDULE = _SCHEDULE;
120
 
  //{$EXTERNALSYM SCHEDULE}
121
 
  TSchedule = _SCHEDULE;
122
 
 
123
 
// The above structure is followed by the Data buffer and the
124
 
// SCHEDULE_HEADER contains offsets to refer to the appropriate
125
 
// parts in the data buffer.
126
 
 
127
 
const
128
 
  SCHEDULE_DATA_ENTRIES = 7 * 24;    // 7 days X 24 hours
129
 
  {$EXTERNALSYM SCHEDULE_DATA_ENTRIES}
130
 
  
131
 
implementation
132
 
 
133
 
end.