From 576b3da82d5eafab5d6466f0860859c4f2e0777c Mon Sep 17 00:00:00 2001 From: Vinicius Sanchez Date: Tue, 1 Feb 2022 14:35:29 -0300 Subject: [PATCH] Test and remove boss samples folder --- boss-lock.json | 4 +- samples/delphi/Samples.dproj | 118 +++++++++++++++++++++++++++++++-- samples/delphi/boss-lock.json | 14 ---- samples/delphi/boss.json | 11 --- samples/lazarus/boss-lock.json | 14 ---- samples/lazarus/boss.json | 11 --- samples/lazarus/samples.lpi | 2 +- samples/lazarus/samples.lpr | 7 +- 8 files changed, 116 insertions(+), 65 deletions(-) delete mode 100644 samples/delphi/boss-lock.json delete mode 100644 samples/delphi/boss.json delete mode 100644 samples/lazarus/boss-lock.json delete mode 100644 samples/lazarus/boss.json diff --git a/boss-lock.json b/boss-lock.json index 65cdbe7..57765ba 100644 --- a/boss-lock.json +++ b/boss-lock.json @@ -4,8 +4,8 @@ "installedModules": { "github.com/hashload/horse": { "name": "horse", - "version": "2.0.13", - "hash": "32daa5a81f115ecc285cbbbbdbcddcea", + "version": "v2.0.14", + "hash": "38c6bebdc7b9712d6e5856d299289a26", "artifacts": {}, "failed": false, "changed": false diff --git a/samples/delphi/Samples.dproj b/samples/delphi/Samples.dproj index 1b6b6bb..2f9d075 100644 --- a/samples/delphi/Samples.dproj +++ b/samples/delphi/Samples.dproj @@ -49,7 +49,7 @@ false System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) Samples - $(DCC_UnitSearchPath);modules\.dcp;modules\.dcu;modules;modules\horse\src + ..\..\modules\horse\src;$(DCC_UnitSearchPath) DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;svnui;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;FireDAC;vcltouch;vcldb;bindcompfmx;svn;FireDACSqliteDriver;FireDACPgDriver;inetdb;soaprtl;DbxCommonDriver;fmx;FireDACIBDriver;fmxdae;xmlrtl;soapmidas;fmxobj;vclwinx;rtl;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage) @@ -111,11 +111,7 @@ Samples.dpr - - ExpressPivotGrid OLAP by Developer Express Inc. - Microsoft Office 2000 Sample Automation Server Wrapper Components - Microsoft Office XP Sample Automation Server Wrapper Components - + @@ -156,12 +152,20 @@ classes 1 + + classes + 1 + res\xml 1 + + res\xml + 1 + @@ -174,6 +178,10 @@ library\lib\armeabi 1 + + library\lib\armeabi + 1 + @@ -186,12 +194,20 @@ library\lib\mips 1 + + library\lib\mips + 1 + library\lib\armeabi-v7a 1 + + library\lib\arm64-v8a + 1 + @@ -204,120 +220,200 @@ res\drawable 1 + + res\drawable + 1 + res\values 1 + + res\values + 1 + res\values-v21 1 + + res\values-v21 + 1 + res\values 1 + + res\values + 1 + res\drawable 1 + + res\drawable + 1 + res\drawable-xxhdpi 1 + + res\drawable-xxhdpi + 1 + res\drawable-ldpi 1 + + res\drawable-ldpi + 1 + res\drawable-mdpi 1 + + res\drawable-mdpi + 1 + res\drawable-hdpi 1 + + res\drawable-hdpi + 1 + res\drawable-xhdpi 1 + + res\drawable-xhdpi + 1 + res\drawable-mdpi 1 + + res\drawable-mdpi + 1 + res\drawable-hdpi 1 + + res\drawable-hdpi + 1 + res\drawable-xhdpi 1 + + res\drawable-xhdpi + 1 + res\drawable-xxhdpi 1 + + res\drawable-xxhdpi + 1 + res\drawable-xxxhdpi 1 + + res\drawable-xxxhdpi + 1 + res\drawable-small 1 + + res\drawable-small + 1 + res\drawable-normal 1 + + res\drawable-normal + 1 + res\drawable-large 1 + + res\drawable-large + 1 + res\drawable-xlarge 1 + + res\drawable-xlarge + 1 + res\values 1 + + res\values + 1 + @@ -406,6 +502,9 @@ 0 + + 0 + 0 @@ -695,6 +794,9 @@ 1 + + 1 + @@ -787,6 +889,10 @@ library\lib\armeabi-v7a 1 + + library\lib\arm64-v8a + 1 + 1 diff --git a/samples/delphi/boss-lock.json b/samples/delphi/boss-lock.json deleted file mode 100644 index 35a69a2..0000000 --- a/samples/delphi/boss-lock.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "hash": "6ef9161b900632671022358216c7dfe7", - "updated": "2021-01-12T16:50:20.409138-03:00", - "installedModules": { - "github.com/hashload/horse": { - "name": "horse", - "version": "2.0.13", - "hash": "985da2054d3c705bc211797c653e47ba", - "artifacts": {}, - "failed": false, - "changed": false - } - } -} \ No newline at end of file diff --git a/samples/delphi/boss.json b/samples/delphi/boss.json deleted file mode 100644 index f820d8f..0000000 --- a/samples/delphi/boss.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "name": "samples", - "description": "", - "version": "1.0.0", - "homepage": "", - "mainsrc": "src", - "projects": [], - "dependencies": { - "github.com/hashload/horse": "^v2.0.8" - } -} \ No newline at end of file diff --git a/samples/lazarus/boss-lock.json b/samples/lazarus/boss-lock.json deleted file mode 100644 index 1684919..0000000 --- a/samples/lazarus/boss-lock.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "hash": "a4a6a33a3c5fb414fef69b653c591e0a", - "updated": "2021-01-13T10:38:00.9794777-03:00", - "installedModules": { - "github.com/hashload/horse": { - "name": "horse", - "version": "2.0.13", - "hash": "985da2054d3c705bc211797c653e47ba", - "artifacts": {}, - "failed": false, - "changed": false - } - } -} \ No newline at end of file diff --git a/samples/lazarus/boss.json b/samples/lazarus/boss.json deleted file mode 100644 index 5502e68..0000000 --- a/samples/lazarus/boss.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "name": "lazarus", - "description": "", - "version": "1.0.0", - "homepage": "", - "mainsrc": "./", - "projects": [], - "dependencies": { - "github.com/hashload/horse": "^v2.0.8" - } -} \ No newline at end of file diff --git a/samples/lazarus/samples.lpi b/samples/lazarus/samples.lpi index f9919ed..ff916ad 100644 --- a/samples/lazarus/samples.lpi +++ b/samples/lazarus/samples.lpi @@ -40,7 +40,7 @@ - + diff --git a/samples/lazarus/samples.lpr b/samples/lazarus/samples.lpr index d5f24db..a872761 100644 --- a/samples/lazarus/samples.lpr +++ b/samples/lazarus/samples.lpr @@ -16,15 +16,10 @@ procedure PostPing(Req: THorseRequest; Res: THorseResponse; Next: TNextProc); Res.Send(LBody); end; -procedure OnListen(Horse: THorse); -begin - Writeln(Format('Server is runing on %s:%d', [Horse.Host, Horse.Port])); -end; - begin THorse.Use(Jhonson); THorse.Post('/ping', PostPing); - THorse.Listen(9000, OnListen); + THorse.Listen(9000); end.