← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid

« back to all changes in this revision

Viewing changes to components/codetools/examples/scanexamples/directives1.pas

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Paul Gevers
  • Date: 2014-02-22 10:25:57 UTC
  • mfrom: (1.1.11)
  • Revision ID: package-import@ubuntu.com-20140222102557-ors9d31r84nz31jq
Tags: 1.2~rc2+dfsg-1
http://bugs.debian.org/724776
[ Abou Al Montacir ]
* New upstream pre-release.
  + Moved ideintf to components directory.
  + Added new package cairocanvas.
* Remove usage of depreciated parameters form of find. (Closes: Bug#724776)
* Bumped standard version to 3.9.5.
* Clean the way handling make files generation and removal.

[ Paul Gevers ]
* Remove nearly obsolete bzip compression for binary packages
  (See https://lists.debian.org/debian-devel/2014/01/msg00542.html)
* Update d/copyright for newly added dir in examples and components
* Update Vcs-* fields with new packaging location
* Update d/watch file to properly (Debian way) change upstreams versions
* Prevent 46MB of package size by sym linking duplicate files
* Patches
  - refresh to remove fuzz
  - add more Lintian found spelling errors
  - new patch to add shbang to two scripts in lazarus-src
* Drop lcl-# from Provides list of lcl-units-#
* Make lazarus-ide-qt4-# an arch all until it really contains stuff
* Make all metapackages arch all as the usecase for arch any doesn't
  seem to warrant the addition archive hit
* Fix permissions of non-scripts in lazarus-src-#

Show diffs side-by-side

added added

removed removed

Lines of Context:
components/codetools/examples/scanexamples/directives1.pas
 
1
unit Directives1;
 
2
 
 
3
{$mode objfpc}{$H+}
 
4
 
 
5
interface
 
6
 
 
7
{$IFDEF WINCE} {$IFnDEF WinIME}   {$DEFINE WithoutWinIME}   {$ENDIF} {$ENDIF}
 
8
{$IFNDEF Windows}
 
9
  {$IFDEF WithoutWinIME}
 
10
    {$DEFINE WinIME}
 
11
    {$DEFINE WinIMEFull}
 
12
  {$ENDIF}
 
13
{$ENDIF}
 
14
 
 
15
uses
 
16
  Classes, SysUtils;
 
17
 
 
18
{$IfDef FPC}
 
19
  {$Define SkippedMacro}
 
20
  const SkippedConst = 1;
 
21
  {$IFDEF Bla}
 
22
  const BlaConst = 1;
 
23
  {$ENDIF}
 
24
{$Else}
 
25
  {$Define NotFPC}
 
26
  const UsedConst = 2;
 
27
{$EndIf}
 
28
 
 
29
{$IfOpt R+}
 
30
  {$Define RangeCheck}
 
31
  {$R-}
 
32
  const RangeCheckDisabledConst1 = Byte(300);
 
33
{$EndIf}
 
34
 
 
35
{$IF defined(de)}
 
36
  const t1 = 1;
 
37
{$ELSEIF defined(ru)}
 
38
  const t2 = 2;
 
39
{$ELSEIF defined(fr)}
 
40
  const t3 = 3;
 
41
{$ELSE}
 
42
  const t4 = 4;
 
43
{$IFEND}
 
44
 
 
45
const RangeCheckDisabledConst2 = Word(-1);
 
46
 
 
47
{$IfDef RangeCheck}
 
48
  {$R+}
 
49
{$EndIf}
 
50
 
 
51
implementation
 
52
 
 
53
end.
 
54