Swag.Doc.Info.pas

{******************************************************************************}
{                                                                              }
{  Delphi SwagDoc Library                                                      }
{  Copyright (c) 2018 Marcelo Jaloto                                           }
{  https://github.com/marcelojaloto/SwagDoc                                    }
{                                                                              }
{******************************************************************************}
{                                                                              }
{  Licensed under the Apache License, Version 2.0 (the "License");             }
{  you may not use this file except in compliance with the License.            }
{  You may obtain a copy of the License at                                     }
{                                                                              }
{      http://www.apache.org/licenses/LICENSE-2.0                              }
{                                                                              }
{  Unless required by applicable law or agreed to in writing, software         }
{  distributed under the License is distributed on an "AS IS" BASIS,           }
{  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.    }
{  See the License for the specific language governing permissions and         }
{  limitations under the License.                                              }
{                                                                              }
{******************************************************************************}

unit Swag.Doc.Info;

interface

uses
  System.JSON,
  Swag.Doc.Info.License,
  Swag.Doc.Info.Contact;

type
  TSwagInfo = class(TObject)
  private
    fVersion: string;
    fTitle: string;
    fDescription: string;
    fContact: TSwagInfoContact;
    fTermsOfService: string;
    fLicense: TSwagInfoLicense;
  public
    constructor Create; reintroduce;
    destructor Destroy; override;

    function GenerateJsonObject: TJSONObject;
    procedure Load(pJson: TJSONObject);

    property Version: string read fVersion write fVersion;
    property Title: string read fTitle write fTitle;
    property TermsOfService: string read fTermsOfService write fTermsOfService;
    property Description: string read fDescription write fDescription;
    property Contact: TSwagInfoContact read fContact write fContact;
    property License: TSwagInfoLicense read fLicense;
  end;

implementation

uses
  System.SysUtils;

const
  c_SwagInfoVersion = 'version';
  c_SwagInfoTitle = 'title';
  c_SwagInfoDescription = 'description';
  c_SwagInfoContact = 'contact';
  c_SwagInfoTermsOfService = 'termsOfService';
  c_SwagLicense = 'license';

{ TSwagInfo }

procedure TSwagInfo.Load(pJson: TJSONObject);
begin
  if Assigned(pJson.Values[c_SwagInfoVersion]) then
    fVersion := pJson.Values[c_SwagInfoVersion].Value;

  if Assigned(pJson.Values[c_SwagInfoTitle]) then
    fTitle := pJson.Values[c_SwagInfoTitle].Value;

  if Assigned(pJson.Values[c_SwagInfoDescription]) then
    fDescription := pJson.Values[c_SwagInfoDescription].Value;

  if Assigned(pJson.Values[c_SwagInfoTermsOfService]) then
    FTermsOfService := pJson.Values[c_SwagInfoTermsOfService].Value;

  if Assigned(pJson.Values[c_SwagInfoContact]) then
    fContact.Load(pJson.Values[c_SwagInfoContact] as TJSONObject);

  fLicense.Load((pJson as TJSONObject).Values[c_SwagLicense] as TJSONObject);
end;

constructor TSwagInfo.Create;
begin
  inherited Create;
  fContact := TSwagInfoContact.Create;
  fLicense := TSwagInfoLicense.Create;
end;

destructor TSwagInfo.Destroy;
begin
  FreeAndNil(fContact);
  FreeAndNil(fLicense);
  inherited Destroy;
end;

function TSwagInfo.GenerateJsonObject: TJSONObject;
begin
  Result := TJsonObject.Create;
  Result.AddPair(c_SwagInfoVersion, fVersion);
  Result.AddPair(c_SwagInfoTitle, fTitle);
  Result.AddPair(c_SwagInfoDescription, fDescription);
  if not fTermsOfService.IsEmpty then
    Result.AddPair(c_SwagInfoTermsOfService, fTermsOfService);
  if not fContact.IsEmpty then
    Result.AddPair(c_SwagInfoContact, fContact.GenerateJsonObject);
  if not fLicense.isEmpty then
    Result.AddPair(c_SwagLicense,fLicense.GenerateJsonObject);
end;


end.