QtAndroidExtras: data for code generation updated

Modified:
codegen/QtAndroidExtras/QAndroidActivityResultReceiver.prg


Update subsdmx.prg

Update subsdmx.prg

' Copyright (C) 2016 Louis de Charsonville

' This program is free software: you can redistribute it and/or modify
' it under the terms of the GNU Affero General Public License version 3 as
' published by the Free Software Foundation.

' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.

' You should have received a copy of the GNU General Public License
' along with this program.  If not, see <http://www.gnu.org/licenses/>.

subroutine sdmx(string %provider, string %series, string %filters, string %rename)

        ' Api Key Quandl & BLS
        %__quandl = "" ' PUT YOUR API KEY BETWEEN THE QUOTES
        %__bls  = ""  'PUT YOUR API KEY BETWEEN THE QUOTES
        %__fred  = ""  ' PUT YOUR API KEY BETWEEN THE QUOTES

        %__app = "http://sdmx.herokuapp.com/"
        %__url = %__app

	%__renlist = ""
	if @wcount(%rename) > 0 then
		!__wc = @wcount(%rename) - 1
		for !____k = 1 to !__wc
			%__renlist = %__renlist + @word(%rename, !____k) + ","
		next
		!__wc = !__wc + 1
		%__renlist = %__renlist + @word(%rename, !__wc)
	endif

        if %provider = "quandl" or %provider = "bls" or %provider = "fred" then
                %__url = %__url + %provider + "/" + %__{%provider} + "/" + %series + %filters
                if @len(%rename) > 0 then
                        import(t=html) %__url names=("date",%rename)
                else
                        import(t=html) %__url
                endif
        else
                if %provider = "ecb" or %provider = "insee" or %provider = "eurostat" then
                        %__url = %__url + %provider + "/" + "series/" + %series + %filters
                        if @len(%rename) > 0 then
                                import(t=html) %__url colhead=2 namepos=none names=("date",{%__renlist})
                        else
                                import(t=html) %__url colhead=2 namepos=first
                        endif
                else
                        %__url = %__url + "req?url=" + "'"  + %series + "'"
                        if @len(%rename) > 0 then
                                import(t=html) %__url colhead=2 namepos=none names=("date",{%__renlist})
                        else
                                import(t=html) %__url colhead=2 namepos=first
                        endif
                endif
        endif
endsub

' Copyright (C) 2016 Louis de Charsonville

' This program is free software: you can redistribute it and/or modify
' it under the terms of the GNU Affero General Public License version 3 as
' published by the Free Software Foundation.

' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.

' You should have received a copy of the GNU General Public License
' along with this program.  If not, see <http://www.gnu.org/licenses/>.

subroutine sdmx(string %provider, string %series, string %filters, string %rename)

        ' Api Key Quandl & BLS
        %__quandl = "" ' PUT YOUR API KEY BETWEEN THE QUOTES
        %__bls = "" ' PUT YOUR API KEY BETWEEN THE QUOTES
        %__fred = "" ' PUT YOUR API KEY BETWEEN THE QUOTES

        %__app = "http://sdmx.herokuapp.com/"
        %__url = %__app

        if %provider = "quandl" or %provider = "bls" or %provider = "fred" then
                %__url = %__url + %provider + "/" + %__{%provider} + "/" + %series + %filters
                if @len(%rename) > 0 then
                        import(t=html) %__url names=("date",%rename)
                else
                        import(t=html) %__url
                endif
        else
                if %provider = "ecb" or %provider = "insee" or %provider = "eurostat" then
                        %__url = %__url + %provider + "/" + "series/" + %series + %filters
                        if @len(%rename) > 0 then
                                import(t=html) %__url colhead=2 namepos=none names=("date",%rename)
                        else
                                import(t=html) %__url colhead=2 namepos=first
                        endif
                else
                        %__url = %__url + "req?url=" + "'"  + %series + "'"
                        if @len(%rename) > 0 then
                                import(t=html) %__url colhead=2 namepos=none names=("date",%rename)
                        else
                                import(t=html) %__url colhead=2 namepos=first
                        endif
                endif
        endif
endsub


codegen/QtMacExtras: updated

codegen/QtMacExtras: updated

Modified:
codegen/QtMacExtras/QMacPasteboardMime.prg

%%
%% Qt5xHb - Bindings libraries for Harbour/xHarbour and Qt Framework 5
%%
%% Copyright (C) 2018 Marcos Antonio Gambeta <marcosgambeta AT outlook DOT com>
%%

$header

#include "hbclass.ch"

$addRequests

$beginClass

   METHOD new
   METHOD delete
   METHOD convertorName
   METHOD canConvert
   METHOD mimeFor
   METHOD flavorFor
   METHOD convertToMime
   METHOD convertFromMime
   METHOD count

$endClass

$destructor

#pragma BEGINDUMP

$includes=5,2,0

$prototype=QMacPasteboardMime(char)
$constructor=5,2,0|new|char

$deleteMethod=5,2,0

$prototype=virtual QString convertorName() = 0
$virtualMethod=5,2,0|QString|convertorName|

$prototype=virtual bool canConvert(const QString &mime, QString flav) = 0
$virtualMethod=5,2,0|bool|canConvert|const QString &,QString

$prototype=virtual QString mimeFor(QString flav) = 0
$virtualMethod=5,2,0|QString|mimeFor|QString

$prototype=virtual QString flavorFor(const QString &mime) = 0
$virtualMethod=5,2,0|QString|flavorFor|const QString &

$prototype=virtual QVariant convertToMime(const QString &mime, QList<QByteArray> data, QString flav) = 0
$virtualMethod=5,2,0|QVariant|convertToMime|const QString &,QList<QByteArray>,QString

$prototype=virtual QList<QByteArray> convertFromMime(const QString &mime, QVariant data, QString flav) = 0
$virtualMethod=5,2,0|QList<QByteArray>|convertFromMime|const QString &,QVariant,QString

$prototype=virtual int count(QMimeData *mimeData)
$virtualMethod=5,2,0|int|count|QMimeData *

$extraMethods

#pragma ENDDUMP

%%
%% Qt5xHb - Bindings libraries for Harbour/xHarbour and Qt Framework 5
%%
%% Copyright (C) 2018 Marcos Antonio Gambeta <marcosgambeta AT outlook DOT com>
%%

$header

#include "hbclass.ch"

#ifndef QT5XHB_NO_REQUESTS
REQUEST QVARIANT
REQUEST QBYTEARRAY
#endif

$beginClass

   METHOD new
   METHOD delete
   METHOD convertorName
   METHOD canConvert
   METHOD mimeFor
   METHOD flavorFor
   METHOD convertToMime
   METHOD convertFromMime
   METHOD count

$endClass

$destructor

#pragma BEGINDUMP

$includes=5,2,0

$prototype=QMacPasteboardMime(char)
$constructor=5,2,0|new|char

$deleteMethod=5,2,0

$prototype=virtual QString convertorName() = 0
$virtualMethod=5,2,0|QString|convertorName|

$prototype=virtual bool canConvert(const QString &mime, QString flav) = 0
$virtualMethod=5,2,0|bool|canConvert|const QString &,QString

$prototype=virtual QString mimeFor(QString flav) = 0
$virtualMethod=5,2,0|QString|mimeFor|QString

$prototype=virtual QString flavorFor(const QString &mime) = 0
$virtualMethod=5,2,0|QString|flavorFor|const QString &

$prototype=virtual QVariant convertToMime(const QString &mime, QList<QByteArray> data, QString flav) = 0
$virtualMethod=5,2,0|QVariant|convertToMime|const QString &,QList<QByteArray>,QString

$prototype=virtual QList<QByteArray> convertFromMime(const QString &mime, QVariant data, QString flav) = 0
$virtualMethod=5,2,0|QList<QByteArray>|convertFromMime|const QString &,QVariant,QString

$prototype=virtual int count(QMimeData *mimeData)
$virtualMethod=5,2,0|int|count|QMimeData *

$extraMethods

#pragma ENDDUMP