← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/extra/winunits/jwaschedule.pas

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/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.1 2005/04/04 07:56:10 marco 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
  JwaWinType;
 
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.