paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 07:50:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package httpd24

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:05 +01:00
parent d201478f85
commit 71226c3bb2
5 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/httpd24/namespaced/Api.Httpd24.Apr.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Httpd24.Apr;
{$DEFINE FPC_DOTTEDUNITS}
{$i apr24.pas}

3
packages/httpd24/namespaced/Api.Httpd24.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Httpd24;
{$DEFINE FPC_DOTTEDUNITS}
{$i httpd24.pas}

6
packages/httpd24/namespaces.lst Normal file
View File

@ -0,0 +1,6 @@
src/httpd24.pas=namespaced/Api.Httpd24.pas
{s*:src/}=namespaced/
{i+:src/}
src/apr/apr24.pas=namespaced/Api.Httpd24.Apr.pas
{s*:src/apr/}=namespaced/
{i+:src/apr/}

12
packages/httpd24/src/apr/apr24.pas
View File

@ -13,7 +13,9 @@
* See the License for the specific language governing permissions and * See the License for the specific language governing permissions and
* limitations under the License. * limitations under the License.
} }
{$IFNDEF FPC_DOTTEDUNITS}
unit apr24; unit apr24;
{$ENDIF FPC_DOTTEDUNITS}
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}
{$H-} {$H-}
@ -28,6 +30,15 @@ unit apr24;
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses
{$ifdef Windows}
WinApi.Windows,
{$ELSE}
UnixApi.Types,
{$ENDIF}
System.SysUtils, System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
uses uses
{$ifdef WINDOWS} {$ifdef WINDOWS}
Windows, Windows,
@ -35,6 +46,7 @@ uses
UnixType, UnixType,
{$ENDIF} {$ENDIF}
SysUtils, ctypes; SysUtils, ctypes;
{$ENDIF FPC_DOTTEDUNITS}
const const
{$IFDEF WINDOWS} {$IFDEF WINDOWS}

12
packages/httpd24/src/httpd24.pas
View File

@ -42,7 +42,9 @@
* @defgroup APACHE_CORE_DAEMON HTTP Daemon Routine * @defgroup APACHE_CORE_DAEMON HTTP Daemon Routine
* @ * @
} }
{$IFNDEF FPC_DOTTEDUNITS}
unit httpd24; unit httpd24;
{$ENDIF FPC_DOTTEDUNITS}
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}
@ -80,6 +82,15 @@ unit httpd24;
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses
{$ifdef Windows}
WinApi.Windows,
{$ELSE}
UnixApi.Types,
{$ENDIF}
System.CTypes, Api.HttpD24.Apr;
{$ELSE FPC_DOTTEDUNITS}
uses uses
{$ifdef WINDOWS} {$ifdef WINDOWS}
Windows, Windows,
@ -87,6 +98,7 @@ uses
UnixType, UnixType,
{$ENDIF} {$ENDIF}
ctypes, apr24; ctypes, apr24;
{$ENDIF FPC_DOTTEDUNITS}
const const
{$ifndef fpc} {$ifndef fpc}