Quellcode durchsuchen

* Dotted filenames for package httpd13

Michaël Van Canneyt vor 2 Jahren
Ursprung
Commit
ef5824a4d2

+ 3 - 0
packages/httpd13/namespaced/Api.HttpD13.pas

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

+ 3 - 0
packages/httpd13/namespaces.lst

@@ -0,0 +1,3 @@
+src/httpd.pas=namespaced/Api.HttpD13.pas
+{s*:src/}=namespaced/
+{i+:src/}

+ 12 - 0
packages/httpd13/src/httpd.pas

@@ -21,7 +21,9 @@
  * See the License for the specific language governing permissions and
  * limitations under the License.
  }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit httpd;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$ifdef fpc}
   {$mode delphi}{$H+}
@@ -47,6 +49,15 @@ unit httpd;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$ifdef Windows}
+  WinApi.Windows,
+{$ELSE}
+  UnixApi.Types,
+{$ENDIF}
+  System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 {$ifdef WINDOWS}
   Windows,
@@ -54,6 +65,7 @@ uses
   UnixType,
 {$ENDIF}
   ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$ifndef fpc}