--- a
+++ b/personalization-manager/tools/apigenerator.pl
@@ -0,0 +1,778 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $SRC='/Users/robert.lill/workspace/alfred/personalization-manager/src/main/java/eu/alfred/personalization_manager/webservices/PersonalizationManagerService.java';
+my $TRG='/Users/robert.lill/workspace/alfred/mobileassistantfoundation/personalizationmanagerapi/src/main/java/alfred/eu/personalizationmanagerapi';
+my $PAS='/Users/robert.lill/workspace/alfred/mobileassistantfoundation/PersonalAssistantService/src/main/java/eu/alfred/personalassistant/service/personalization';
+my $SHR='/Users/robert.lill/workspace/alfred/personalassistantcommons/PersonalAssistantShared/src/main/java/eu/alfred/api/personalization';
+
+my @calls;
+
+my ($path,$method,$description,$response,$name,$args);
+
+my $locmap = {'RequestBody' => 'Field', 'PathVariable' => 'Path'};
+
+
+sub camelCaseToCapitals($)
+{
+ my $s = shift;
+ my $res = '';
+ for my $p (split /([A-Z])/, $s)
+ {
+ if ($p =~ /[A-Z]/)
+ {
+ $res .= "_$p";
+ }
+ else
+ {
+ $res .= uc($p);
+ }
+ }
+ return $res;
+}
+
+open IN, "< $SRC";
+my $line;
+while ($line = <IN>)
+{
+ chomp $line;
+
+ if ($line =~ /RequestMapping\s*\(\s*value\s*=\s*"(.*?)"/)
+ {
+ $path = $1;
+ }
+
+ if ($line =~ /method\s*=\s*RequestMethod.(\w+)/)
+ {
+ $method = $1;
+ }
+
+ if ($line =~ /ApiOperation\s*\(\s*value\s*=\s*"(.*?)"/)
+ {
+ $description = $1;
+ }
+
+ if ($line =~ /public\s+ResponseEntity<(List<\w+>|\w+)> (\w+)\((.*)\)/)
+ {
+ $response = $1;
+ $name = $2;
+ my @arglist;
+ for my $arg (split /,/, $3)
+ {
+ $arg =~ /@(\w+)\s+(\w+)\s+(\w+)/;
+ my $loc = $locmap->{$1};
+ push @arglist, {'location' => $loc, 'type' => $2, 'name' => $3};
+ }
+ $args = \@arglist;
+ push @calls, {'path' => $path, 'method' => $method, 'description' => $description, 'name' => $name, 'response' => $response, 'args' => $args};
+ }
+}
+
+close IN;
+
+
+sub PMservice()
+{
+
+open OUT, "> $TRG/PersonalizationManagerService.java";
+
+print OUT << "EOT";
+package alfred.eu.personalizationmanagerapi;
+
+import alfred.eu.personalizationmanagerapi.client.dto.Contact;
+import alfred.eu.personalizationmanagerapi.client.dto.Group;
+import alfred.eu.personalizationmanagerapi.client.dto.HealthProfile;
+import alfred.eu.personalizationmanagerapi.client.dto.Requesters;
+import alfred.eu.personalizationmanagerapi.client.dto.UserProfile;
+import retrofit.client.Response;
+import retrofit.http.DELETE;
+import retrofit.http.FormUrlEncoded;
+import retrofit.http.GET;
+import retrofit.http.POST;
+import retrofit.http.PUT;
+import retrofit.http.Path;
+import retrofit.http.Field;
+
+public interface PersonalizationManagerService {
+
+EOT
+
+for my $rref (@calls)
+{
+ my $bodyarg = 0;
+ my @arglist;
+ for my $arg (@{$rref->{'args'}})
+ {
+ $bodyarg = 1 if ($arg->{'location'} eq 'Field');
+ push @arglist, "\@" . $arg->{'location'} . '("' . $arg->{'name'} . '") ' . $arg->{'type'} . ' ' . $arg->{'name'};
+ }
+
+ print OUT " // " . $rref->{'description'} . "\n";
+ print OUT " \@FormUrlEncoded\n" if ($bodyarg == 1);
+ print OUT " \@" . $rref->{'method'} . '("' . $rref->{'path'} . "\")\n";
+ $args = join ", ", @arglist;
+ print OUT " public Response " . $rref->{'name'} . "($args);\n";
+ print OUT "\n";
+}
+
+print OUT "}\n";
+close OUT;
+
+}
+
+sub PMgr()
+{
+
+open OUT, "> $SHR/webservice/PersonalizationManager.java";
+
+print OUT << "EOT";
+package eu.alfred.api.personalization.webservice;
+
+import android.os.Bundle;
+import android.os.Handler;
+import android.os.Message;
+import android.os.Messenger;
+import android.os.RemoteException;
+
+import com.google.gson.Gson;
+
+import org.json.JSONArray;
+import org.json.JSONException;
+import org.json.JSONObject;
+
+import eu.alfred.api.personalization.model.*;
+import eu.alfred.api.personalization.responses.PersonalizationResponse;
+import eu.alfred.api.personalization.client.*;
+
+
+public class PersonalizationManager {
+
+ private Messenger messenger;
+
+ private class PersonalizationSuccessResponse extends Handler {
+ private PersonalizationResponse personalizationSuccessResponse;
+
+ public PersonalizationSuccessResponse(PersonalizationResponse personalizationSuccessResponse) {
+ this.personalizationSuccessResponse = personalizationSuccessResponse;
+ }
+
+ \@Override
+ public void handleMessage(Message msg) {
+ int respCode = msg.what;
+
+ switch (respCode) {
+ case PersonalizationConstants.CREATE_USER_PROFILE_RESPONSE:
+ case PersonalizationConstants.UPDATE_USER_PROFILE_RESPONSE:
+ case PersonalizationConstants.DELETE_USER_PROFILE_RESPONSE:
+ case PersonalizationConstants.CREATE_USER_CONTACT_RESPONSE:
+ case PersonalizationConstants.UPDATE_USER_CONTACT_RESPONSE:
+ case PersonalizationConstants.DELETE_USER_CONTACT_RESPONSE:
+ case PersonalizationConstants.CREATE_REQUESTER_RESPONSE:
+ case PersonalizationConstants.UPDATE_REQUESTER_RESPONSE:
+ case PersonalizationConstants.DELETE_REQUESTER_RESPONSE:
+ case PersonalizationConstants.ADD_MEMBER_TO_GROUP_RESPONSE:
+ case PersonalizationConstants.CREATE_GROUP_RESPONSE:
+ case PersonalizationConstants.DELETE_GROUP_RESPONSE:
+ case PersonalizationConstants.DELETE_USER_HEALTH_PROFILE_RESPONSE:
+ case PersonalizationConstants.UPDATE_GROUP_RESPONSE:
+ case PersonalizationConstants.UPDATE_USER_HEALTH_PROFILE_RESPONSE:
+ case PersonalizationConstants.CREATE_USER_HEALTH_PROFILE_RESPONSE:
+ case PersonalizationConstants.REMOVE_MEMBER_FROM_GROUP_RESPONSE:
+
+
+ JSONObject jsonResponse = null;
+
+ try {
+ jsonResponse = new JSONObject(msg.getData().getString("JsonData", "{}"));
+ personalizationSuccessResponse.OnSuccess(jsonResponse);
+ } catch (JSONException e) {
+ e.printStackTrace();
+ personalizationSuccessResponse.OnError(e);
+ }
+ break;
+ }
+ }
+ }
+
+ private class PersonalizationDataResponse extends Handler {
+ private PersonalizationResponse personalizationDataResponse;
+
+ public PersonalizationDataResponse(PersonalizationResponse personalizationDataResponse) {
+ this.personalizationDataResponse = personalizationDataResponse;
+ }
+
+ \@Override
+ public void handleMessage(Message msg) {
+ int respCode = msg.what;
+
+ switch (respCode) {
+ case PersonalizationConstants.CREATE_USER_PROFILE_FILTER_RESPONSE:
+ case PersonalizationConstants.CREATE_USER_PROFILE_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_CONTACTS_BY_CRITERIA_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_PROFILES_LAST_SYNC_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_PROFILE_RESPONSE:
+ case PersonalizationConstants.UPDATE_REQUESTER_RESPONSE:
+ case PersonalizationConstants.UPDATE_USER_CONTACT_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_PROFILES_BY_CRITERIA_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_REQUESTER_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_REQUESTER_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_CONTACTS_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_ID_RESPONSE:
+ case PersonalizationConstants.GET_UNSYNCHRONIZED_USER_PROFILES_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_ALL_USER_CONTACTS_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_GROUP_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_GROUPS_WITH_MEMBER_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_FILTERED_GROUPS_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_CONTACT_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_HEALTH_PROFILE_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_PROFILE_SENSORED_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USER_PROFILES_RESPONSE:
+ case PersonalizationConstants.RETRIEVE_USERS_GROUPS_RESPONSE:
+ case PersonalizationConstants.UPDATE_GROUP_RESPONSE:
+
+ JSONArray jsonResponse = null;
+
+ try {
+ jsonResponse = new JSONArray(msg.getData().getString("response"));
+ personalizationDataResponse.OnSuccess(jsonResponse);
+ } catch (JSONException e) {
+ e.printStackTrace();
+ personalizationDataResponse.OnError(e);
+ }
+ break;
+ }
+ }
+ }
+
+ public PersonalizationManager(Messenger messenger) {
+ this.messenger = messenger;
+ }
+
+EOT
+
+for my $rref (@calls)
+{
+ my $bodyarg = 0;
+ my @arglist;
+ for my $arg (@{$rref->{'args'}})
+ {
+ $bodyarg = 1 if ($arg->{'location'} eq 'Field');
+ push @arglist, $arg->{'type'} . ' ' . $arg->{'name'};
+ }
+
+ print OUT "\n\t// " . $rref->{'description'} . "\n";
+ $args = join ", ", @arglist;
+
+ my $name = $rref->{'name'};
+ my $nameUC = &camelCaseToCapitals($name);
+ my $restype = ($name =~ /^(get|retrieve)/) ? "Data" : "Success";
+
+ print OUT << "EOT";
+ public void ${name}(${args}, PersonalizationResponse response) {
+ if (messenger != null) {
+ Message msg = Message.obtain(null, PersonalizationConstants.${nameUC});
+
+ if (response != null)
+ msg.replyTo = new Messenger(new Personalization${restype}Response(response));
+
+ Bundle data = new Bundle();
+
+EOT
+
+ my $useGson = 0;
+ for my $arg (@{$rref->{'args'}})
+ {
+ my $at = $arg->{'type'};
+ $useGson = 1 unless ($at eq 'String');
+ }
+
+ print OUT "\t\t\tGson gson = new Gson();\n" if $useGson == 1;
+
+ for my $arg (@{$rref->{'args'}})
+ {
+ my $an = $arg->{'name'};
+ my $at = $arg->{'type'};
+ if ($at eq 'String')
+ {
+ print OUT "\t\t\tdata.putString(\"$an\", ${an});\n";
+ }
+ else
+ {
+ print OUT "\t\t\t${at}Dto ${an}Dto = ${at}Mapper.toDto($an);\n";
+ print OUT "\t\t\tString ${an}Json = gson.toJson(${an}Dto);\n";
+ print OUT "\t\t\tdata.putString(\"$an\", ${an}Json);\n";
+ }
+ }
+
+ print OUT << "EOT";
+ msg.setData(data);
+ try {
+ messenger.send(msg);
+ } catch (RemoteException e) {
+ e.printStackTrace();
+ }
+ }
+ }
+EOT
+
+}
+
+print OUT "}\n";
+close OUT;
+
+}
+
+
+sub tfac()
+{
+
+open OUT, "> $PAS/PersonalizationCRUDTaskFactory.java";
+
+print OUT << "EOT";
+package eu.alfred.personalassistant.service.personalization;
+
+import android.content.Context;
+import android.os.AsyncTask;
+
+import eu.alfred.api.personalization.webservice.PersonalizationConstants;
+import eu.alfred.personalassistant.service.personalization.tasks.CreateUserProfileTask;
+import eu.alfred.personalassistant.service.personalization.tasks.RetrieveUserProfileTask;
+
+public class PersonalizationCRUDTaskFactory {
+ public static AsyncTask<PersonalizationMessageClass, Void, String> GetInstance(Context context, int msgType){
+ switch(msgType){
+EOT
+
+for my $rref (@calls)
+{
+ my $name = $rref->{'name'};
+ my $nameuc = ucfirst($name);
+ my $nameUC = &camelCaseToCapitals($name);
+
+ print OUT "\t\t\t// " . $rref->{'description'} . "\n";
+ print OUT "\t\t\tcase PersonalizationConstants.${nameUC}:\n";
+ print OUT "\t\t\t\treturn new ${nameuc}Task(context);\n";
+
+}
+
+print OUT << "EOT";
+ default:
+ throw new IllegalArgumentException("The parameter value is invalid. Value: " + String.valueOf(msgType));
+ }
+ }
+}
+EOT
+close OUT;
+
+}
+
+
+
+sub client()
+{
+
+
+for my $rref (@calls)
+{
+ my $name = $rref->{'name'};
+ my $nameuc = ucfirst($name);
+ my $response = $rref->{'response'};
+
+# next if $name ne 'createUserProfile';
+
+# -------------------- Client -----------------------------
+
+ my $requestparams = '';
+ my @arglist;
+ for my $par (@{$rref->{'args'}})
+ {
+ my $pn = $par->{'name'};
+ my $pt = $par->{'type'};
+
+ if ($pt eq 'String' && $pn =~ /id$/i)
+ {
+ $requestparams .= "\t\t$pt $pn = request.$pn;\n";
+ }
+ elsif ($pt eq 'String' && $par->{'location'} eq 'Field' && $pn eq 'valuesToUpdate')
+ {
+ $requestparams .= "\t\t$pt $pn = request.valuesToUpdate;\n";
+ }
+ else
+ {
+ $requestparams .= "\t\t$pt $pn = new ${pt}Mapper().toModel(request.${pn});\n";
+ }
+ push @arglist, $pn;
+ }
+ my $requestarglist = join ', ', @arglist;
+
+ my $responsetype = "${nameuc}Response";
+ if ($response eq 'String')
+ {
+ $responsetype = "StringResponse";
+ }
+ elsif ($response eq 'List<UserProfile>')
+ {
+ $responsetype = "UserProfileResponse";
+ }
+ elsif ($response eq 'List<HealthProfile>')
+ {
+ $responsetype = "HealthProfileResponse";
+ }
+ elsif ($response eq 'List<Group>')
+ {
+ $responsetype = "GroupResponse";
+ }
+ elsif ($response eq 'List<Contact>')
+ {
+ $responsetype = "ContactResponse";
+ }
+ elsif ($response eq 'List<Requester>')
+ {
+ $responsetype = "RequesterResponse";
+ }
+
+
+
+ open OUT, "> $TRG/client/client/${nameuc}Client.java";
+
+ print OUT << "EOT";
+package alfred.eu.personalizationmanagerapi.client.client;
+
+import android.content.Context;
+
+import alfred.eu.personalizationmanagerapi.PersonalizationManagerAdapter;
+import alfred.eu.personalizationmanagerapi.PersonalizationManagerService;
+import alfred.eu.personalizationmanagerapi.client.ClientResponse;
+import alfred.eu.personalizationmanagerapi.client.dto.*;
+import alfred.eu.personalizationmanagerapi.client.mapper.StringResponseMapper;
+import alfred.eu.personalizationmanagerapi.client.mapper.UserProfileMapper;
+import alfred.eu.personalizationmanagerapi.client.request.${nameuc}Request;
+import alfred.eu.personalizationmanagerapi.client.response.${responsetype};
+import alfred.eu.personalizationmanagerapi.util.Strings;
+
+import retrofit.client.Response;
+
+
+public class ${nameuc}Client extends Client<${nameuc}Request, ClientResponse<${responsetype}>> {
+
+ public ${nameuc}Client(Context context) {
+ super(context);
+ }
+
+ \@Override
+ protected ClientResponse<${responsetype}> request(${nameuc}Request request) throws Exception {
+ PersonalizationManagerService service = PersonalizationManagerAdapter.getInstance(getContext()).getService();
+
+${requestparams}
+
+ Response serviceResponse = service.${name}(${requestarglist});
+
+ printResponse(serviceResponse);
+
+EOT
+
+ if ($response eq 'String')
+ {
+ print OUT << "EOT";
+ ClientResponse<StringResponse> response = new StringResponseMapper().mapResponse(
+ Strings.convertStreamToString(serviceResponse.getBody().in(), "UTF-8"));
+EOT
+ }
+ else
+ {
+ print OUT << "EOT";
+ ClientResponse<${response}> response = new ${responsetype}Mapper().mapResponse(
+ Strings.convertStreamToString(serviceResponse.getBody().in(), "UTF-8"));
+EOT
+ }
+ print OUT << "EOT";
+
+ if ("OK".equals(response.status)) {
+ return response;
+ } else {
+ throw new Exception("${nameuc} failed");
+ }
+ }
+}
+EOT
+ close OUT;
+
+ }
+
+}
+
+
+sub task()
+{
+
+for my $rref (@calls)
+{
+ my $name = $rref->{'name'};
+ my $nameuc = ucfirst($name);
+ my $response = $rref->{'response'};
+ my $nameUC = &camelCaseToCapitals($name);
+
+# next if $name ne 'createUserProfile';
+# next if $name ne 'createUserContact';
+
+# -------------------- Task -----------------------------
+
+ my $requestparams = '';
+ my @arglist;
+ for my $par (@{$rref->{'args'}})
+ {
+ if ($par->{'type'} eq 'String' && $par->{'name'} =~ /id$/i)
+ {
+ $requestparams .= "\t\t" . $par->{'type'} . " " . $par->{'name'} . " = request." . $par->{'name'} . ";\n";
+ }
+ elsif ($par->{'type'} eq 'String' && $par->{'location'} eq 'Field' && $par->{'name'} eq 'valuesToUpdate')
+ {
+ $requestparams .= "\t\t" . $par->{'type'} . " " . $par->{'name'} . " = request.valuesToUpdate;\n";
+ }
+ else
+ {
+ $requestparams .= "\t\t" . $par->{'type'} . " " . $par->{'name'} . " = new " . $par->{'type'} . "RequestMapper().toModel(request);\n";
+ }
+ push @arglist, $par->{'name'};
+ }
+ my $requestarglist = join ', ', @arglist;
+
+ my $responsetype = "${nameuc}Response";
+ if ($response eq 'String')
+ {
+ $responsetype = "StringResponse";
+ }
+ elsif ($response eq 'List<UserProfile>')
+ {
+ $responsetype = "UserProfilesResponse";
+ }
+ elsif ($response eq 'List<HealthProfile>')
+ {
+ $responsetype = "HealthProfilesResponse";
+ }
+ elsif ($response eq 'List<Group>')
+ {
+ $responsetype = "GroupsResponse";
+ }
+ elsif ($response eq 'List<Contact>')
+ {
+ $responsetype = "ContactsResponse";
+ }
+ elsif ($response eq 'List<Requester>')
+ {
+ $responsetype = "RequestersResponse";
+ }
+
+
+
+ open OUT, "> $PAS/tasks/${nameuc}Task.java";
+
+ print OUT << "EOT";
+package eu.alfred.personalassistant.service.personalization.tasks;
+
+import android.content.Context;
+import android.os.AsyncTask;
+import android.os.Bundle;
+import android.os.Message;
+import android.os.RemoteException;
+import android.util.Log;
+
+import com.google.gson.Gson;
+
+import alfred.eu.personalizationmanagerapi.client.ClientResponse;
+import alfred.eu.personalizationmanagerapi.client.client.${nameuc}Client;
+import alfred.eu.personalizationmanagerapi.client.request.${nameuc}Request;
+import alfred.eu.personalizationmanagerapi.client.response.${responsetype};
+EOT
+
+ for my $par (@{$rref->{'args'}})
+ {
+ my $pt = $par->{'type'};
+ if ($pt ne 'String')
+ {
+ print OUT "import eu.alfred.api.personalization.client.${pt}Dto;\n";
+ print OUT "import alfred.eu.personalizationmanagerapi.client.mapper.${pt}ResponseMapper;\n";
+ }
+ }
+
+
+print OUT << "EOT";
+import eu.alfred.api.personalization.webservice.PersonalizationConstants;
+import eu.alfred.personalassistant.service.personalization.PersonalizationMessageClass;
+
+public class ${nameuc}Task extends AsyncTask<PersonalizationMessageClass, Void, String> {
+
+ private final static String TAG = "${nameuc}Task";
+
+ private Context context;
+ private PersonalizationMessageClass msg;
+ private Exception exception;
+
+ public ${nameuc}Task(Context context) {
+ this.context = context;
+ }
+
+ \@Override
+ protected String doInBackground(PersonalizationMessageClass... params) {
+ try {
+ msg = params[0];
+ ${nameuc}Request request = new ${nameuc}Request();
+EOT
+ for my $par (@{$rref->{'args'}})
+ {
+ my $pn = $par->{'name'};
+ my $pt = $par->{'type'};
+ if ($pt eq 'String')
+ {
+ print OUT "\t\t\trequest.$pn = msg.data.getString(\"$pn\");\n";
+ }
+ else
+ {
+ print OUT "\t\t\trequest.$pn = new Gson().fromJson(msg.data.getString(\"$pn\"), ${pt}Dto.class);\n";
+ }
+ }
+ print OUT << "EOT";
+
+ ${nameuc}Client client = new ${nameuc}Client(context);
+ ClientResponse<${responsetype}> response = client.execute(request);
+
+ if (response.errorCode != 0)
+ exception = new Exception("(" + response.errorCode + ") " + response.status);
+
+EOT
+
+ if ($response eq 'String')
+ {
+ print OUT "\t\t\tString result = response.data.string;\n";
+ }
+ else
+ {
+ print OUT "\t\t\tString result = new ${responsetype}Mapper().toModel(response.data);\n";
+ }
+
+
+ print OUT << "EOT";
+ return new Gson().toJson(result);
+ } catch (Exception e) {
+ exception = e;
+ Log.e(TAG, e.getClass().getSimpleName(), e);
+ }
+ return null;
+ }
+
+ \@Override
+ protected void onPostExecute(String result) {
+ super.onPostExecute(result);
+ Message resp = Message.obtain(null, PersonalizationConstants.${nameUC}_RESPONSE);
+ Bundle bundle = new Bundle();
+ bundle.putString(PersonalizationConstants.EXTRAS_JSON, result);
+ if (exception != null)
+ bundle.putString(PersonalizationConstants.EXTRAS_EXCEPTION, exception.getClass().getSimpleName() + ": " + exception.getMessage());
+
+ resp.setData(bundle);
+ try {
+ msg.replyTo.send(resp);
+ } catch (RemoteException e) {
+ Log.e(TAG, e.getClass().getSimpleName(), e);
+ }
+ }
+}
+EOT
+ close OUT;
+
+ }
+
+}
+
+
+sub request()
+{
+
+for my $rref (@calls)
+{
+ my $name = $rref->{'name'};
+ my $nameuc = ucfirst($name);
+ my $response = $rref->{'response'};
+ my $nameUC = &camelCaseToCapitals($name);
+
+
+# -------------------- Request -----------------------------
+
+ open OUT, "> $TRG/client/request/${nameuc}Request.java";
+
+ print OUT << "EOT";
+package alfred.eu.personalizationmanagerapi.client.request;
+
+import com.google.gson.annotations.Expose;
+
+public class ${nameuc}Request {
+EOT
+
+ for my $par (@{$rref->{'args'}})
+ {
+ print OUT "\t\@Expose\n";
+ print OUT "\tpublic " . $par->{'type'} . " " . $par->{'name'} . ";\n";
+ }
+
+ print OUT "}\n";
+
+ close OUT;
+
+ }
+
+}
+
+
+sub response()
+{
+
+for my $rref (@calls)
+{
+ my $name = $rref->{'name'};
+ my $nameuc = ucfirst($name);
+ my $response = $rref->{'response'};
+ my $nameUC = &camelCaseToCapitals($name);
+
+
+
+# -------------------- Response -----------------------------
+
+ my $resobj = $name;
+ $resobj =~ s/^[a-z]*([A-Z])//;
+ $resobj = lc($1) . $resobj;
+
+ open OUT, "> $TRG/client/response/${nameuc}Response.java";
+
+ print OUT << "EOT";
+package alfred.eu.personalizationmanagerapi.client.response;
+
+import com.google.gson.annotations.Expose;
+
+public class ${nameuc}Response {
+
+ \@Expose
+ public ${response} ${resobj};
+}
+EOT
+
+ close OUT;
+
+}
+
+}
+
+print "apigenerator [PMservice/PMgr/client/task/request/response]\n";
+
+for my $t (@ARGV)
+{
+ &PMservice() if $t eq 'PMservice';
+ &PMgr() if $t eq 'PMgr';
+ &tfac() if $t eq 'tfac';
+ &client() if $t eq 'client';
+ &task() if $t eq 'task';
+ &request() if $t eq 'request';
+ &response() if $t eq 'response';
+}
+
+