This is the SoapUtils.h – you include this.
\nAgain if someone knows how to make this a set of utilities in a separate file that are linked together – let me know. I am an Xcode Newbie :)<\/p>\n
This is the SoapUtils.h – you include this. Again if someone knows how to make this a set of utilities in a separate file that are linked together – let me know. I am an Xcode Newbie :)<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-112","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts\/112","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/comments?post=112"}],"version-history":[{"count":1,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts\/112\/revisions"}],"predecessor-version":[{"id":2206,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts\/112\/revisions\/2206"}],"wp:attachment":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/media?parent=112"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/categories?post=112"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/tags?post=112"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\n\/*
\n* SoapUtils.h
\n* SakaiDesktop
\n*
\n* Created by Charles Severance on 12\/29\/05.
\n* Copyright 2005 __MyCompanyName__. All rights reserved.
\n*
\n*\/
\n#include
\n#define cleanupErr(err) \\
\nwhile (err != noErr) { fprintf(stderr, “Failed at line %d, error %d\\n”, __LINE__, err); goto cleanup; }
\nstatic OSStatus getUserRecordField(const AEDesc* record, const char* fieldName, OSType desiredType, void* buffer, Size bufferSize, Size* actualSize)
\n{
\n\/\/ Extract the userfield list from the record.
\nAEDesc userField;
\nOSStatus err = AEGetParamDesc(record, keyASUserRecordFields, typeAEList, &userField);
\ncleanupErr(err);
\n\/\/ The userfield is an array of name,data, so we compare the name against what we’re looking for,
\n\/\/ and if it maches return nameIndex + 1 coerced appropriately
\nlong count;
\nerr = AECountItems(&userField, &count);
\ncleanupErr(err);
\nfor (long i = 1; i <= count; i += 2) {\nchar tmpName[255];\nSize tmpNameSize;\nOSType tossKeyword;\nOSType tossType;\nerr = AEGetNthPtr(&userField, i, typeChar, &tossKeyword, &tossType, tmpName, sizeof(tmpName), &tmpNameSize);\ncleanupErr(err);\nif (strncmp(fieldName, tmpName, tmpNameSize) == 0) {\nerr = AEGetNthPtr(&userField, i + 1, desiredType, &tossKeyword, &tossType, buffer, bufferSize, actualSize);\ncleanupErr(err);\nbreak;\n}\n}\ncleanup:\nreturn err;\n}\nstatic void dumpDebug(const char* msg, const AppleEvent* event, OSType parameter)\n{\nfprintf(stderr, \"%s:\\n\", msg);\nAEDesc paramDesc;\nOSErr err = AEGetParamDesc(event, parameter, typeChar, ¶mDesc);\nif (err != noErr)\nfprintf(stderr, \"\\tCan't get parameter %4.4s - %d returned\\n\", ¶meter, err);\nelse {\nint len = AEGetDescDataSize(¶mDesc);\nchar* buffer = new char[len];\nAEGetDescData(¶mDesc, buffer, len);\nchar* p = buffer;\nchar* pEnd = buffer + len;\nwhile (p < pEnd) {\nchar* pNext = strpbrk(p, \"\\r\\n\");\nif (pNext == NULL)\npNext = pEnd;\nelse {\nwhile (pNext < pEnd && (*pNext == '\\r' || *pNext == '\\n')) {\n*pNext++ = '\\0';\n}\n}\nfprintf(stderr, \"\\t%.*s\\n\", pNext - p, p);\np = pNext;\n}\nAEDisposeDesc(¶mDesc);\ndelete[] buffer;\n}\nfprintf(stderr, \"\\n\\n\");\n}\n\/* Sample code\n\/\/ Java Signature in jws\n\/\/ public String mymethod(String id, Integer i, Double d)\nOSErr err;\nAEDesc soapParms;\nerr = createSoapParameters(&soapParms);\nerr = addSoapParameter(&soapParms, \"id\", typeChar, \"fred\");\nint i=25;\nerr = addSoapParameter(&soapParms, \"i\", typeSInt32, &i);\ndouble d=123.456;\nerr = addSoapParameter(&soapParms, \"d\", typeIEEE64BitFloatingPoint, &d);\nchar buffer[100000];\nchar errorMessage[1024];\nerr = makeSoapCall(url, \"mymethod\", &soapParms ,buffer, sizeof(buffer), errorMessage, sizeof(errorMessage), false, true);\nAEDisposeDesc(&soapParms);\nif ( err == noErr ) {\nfprintf(stderr,\"Success String = %s!\\n\\n\", buffer);\n} else {\nfprintf(stderr,\"Error String = %s!\\n\\n\", errorMessage);\n}\n*\/\nstatic OSStatus createSoapParameters(AEDesc* termsList)\n{\nOSErr err = AECreateList(NULL, 0, false, termsList);\nreturn err;\n}\nstatic OSStatus addSoapParameter(AEDesc* termsList, const char* name, OSType dataType, const void* data)\n{\nOSErr err = AEPutPtr(termsList, 0, typeChar, name, strlen(name));\nif ( err != noErr ) return err;\nswitch (dataType) {\ncase typeChar:\nerr = AEPutPtr(termsList, 0, typeChar, data, strlen((const char*)data));\nbreak;\ncase typeSInt32:\nerr = AEPutPtr(termsList, 0, typeSInt32, data, 4);\nbreak;\ncase typeIEEE64BitFloatingPoint:\nerr = AEPutPtr(termsList, 0, typeIEEE64BitFloatingPoint, data, 8);\nbreak;\ndefault:\nfprintf(stderr,\"Error, unknown type in addSoapParameter: %4s\\n\\n\",dataType);\n}\nreturn err;\n}\nstatic OSErr makeSoapCall(const char* url, const char* methodName, AEDesc* soapParms,\nchar* buffer, int bufferSize,\nchar *errorMessage, int errorMessageLength,\nint doDebug, int doDebugError )\n{\nif ( bufferSize < 1 || errorMessageLength < 1 ) return eLenErr;\nerrorMessage[0] = '\\0'; \/\/ No Error Message\nOSErr err;\nAEDesc targetAddress;\n\/\/ Create the target address\nerr = AECreateDesc(typeApplicationURL, url, strlen(url), &targetAddress);\ncleanupErr(err);\nAppleEvent event;\nerr = AECreateAppleEvent(kAERPCClass, kAESOAPScheme, &targetAddress, kAutoGenerateReturnID, kAnyTransactionID, &event);\ncleanupErr(err);\nAEDisposeDesc(&targetAddress);\n\/\/ Create the parameters for the event - the direct object is a record that contains\n\/\/ the method name, and a list of parameters\nAEDesc directObject;\nerr = AECreateList(NULL, 0, true, &directObject);\ncleanupErr(err);\n\/\/ Put the method name\nerr = AEPutParamPtr(&directObject, keyRPCMethodName, typeChar, methodName, strlen(methodName));\ncleanupErr(err);\nAEDesc paramRecord;\nerr = AECreateList(NULL, 0, true, ¶mRecord);\nif (err == noErr)\nerr = AEPutParamDesc(¶mRecord, keyASUserRecordFields, soapParms);\n\/\/ Put the parameter record into the direct object\nerr = AEPutParamDesc(&directObject, keyRPCMethodParam, ¶mRecord);\ncleanupErr(err);\nAEDisposeDesc(¶mRecord);\n\/\/ Additional pieces for soap are the method namespace, namespaceURI and\n\/\/ SOAPAction. If the SOAPAction isn't explicitly specified, it\n\/\/ will be the path part of the url (in this case, \"\/examples\")\n\/\/ You don't need to supply the method namespace...\n\/\/ static const char* methodNameSpaceURI = \"http:\/\/www.soapware.org\/\";\n\/\/ err = AEPutParamPtr(&directObject, keySOAPMethodNameSpaceURI, typeChar, methodNameSpaceURI, strlen(methodNameSpaceURI));\n\/\/ cleanupErr(err);\n\/\/ Put the direct object into the event\nerr = AEPutParamDesc(&event, keyDirectObject, &directObject);\ncleanupErr(err);\nAEDisposeDesc(&directObject);\n\/\/ Request debugging information\nif ( doDebug ) {\nSInt32 debugAttr = kAEDebugXMLDebugAll;\nerr = AEPutAttributePtr(&event, keyXMLDebuggingAttr, typeSInt32, &debugAttr, sizeof(debugAttr));\n}\n\/\/ Finally, send the event (we're using AESendMessage so we don't link against Carbon, just ApplicationServices)\nAppleEvent reply;\nAEInitializeDescInline(&reply);\nerr = AESendMessage(&event, &reply, kAEWaitReply, kAEDefaultTimeout);\ncleanupErr(err);\n\/\/ The direct object contains our result (the name of the state)\nSize actualSize;\n\/\/ See if we got a return value\nerr = AEGetParamPtr(&reply, keyDirectObject, typeChar, NULL, buffer, bufferSize, &actualSize);\n\/\/ Upon success return after optionally dumping information\nif ( err == noErr ) {\nif ( actualSize < bufferSize ) {\nbuffer[actualSize] = '\\0'; \/\/ Terminate\n} else {\nbuffer [ bufferSize-1 ] = '\\0';\nerr = eLenErr;\nif ( errorMessageLength > 60 ) sprintf(errorMessage,”SOAP return buffer too short partial results returned, length= %d”, bufferSize);
\n}
\n}
\n\/\/ If we still have no error, lets return
\nif ( err == noErr ) {
\nif ( doDebug ) {
\ndumpDebug(“HTTP POST header”, &reply, keyAEPOSTHeaderData);
\ndumpDebug(“XML Request”, &reply, keyAEXMLRequestData);
\ndumpDebug(“HTTP Reply header”, &reply, keyAEReplyHeaderData);
\ndumpDebug(“XML Reply”, &reply, keyAEXMLReplyData);
\n}
\nreturn err;
\n}
\n\/\/ Dump debug information in this error case
\nif ( doDebug || doDebugError ) {
\ndumpDebug(“HTTP POST header”, &reply, keyAEPOSTHeaderData);
\ndumpDebug(“XML Request”, &reply, keyAEXMLRequestData);
\ndumpDebug(“HTTP Reply header”, &reply, keyAEReplyHeaderData);
\ndumpDebug(“XML Reply”, &reply, keyAEXMLReplyData);
\n}
\n\/\/ Something is wrong, lets whip up a nice return error string for them
\nerr = AEGetParamPtr(&reply, keyErrorString, typeChar, NULL, errorMessage, errorMessageLength, &actualSize);
\n\/\/ If the host is up, the web service is right, and the method name is right,
\n\/\/ and a parameter name is wrong (i.e. bad signature) – we come here with
\n\/\/ A 1701 (errAEDescNotFound – Descriptor Record Not Found)
\n\/\/ There may be other scenarrios that get us here – but for now, lets return the best
\n\/\/ error message we know about – it is better than a generic “interal fault 1701″
\nif ( err != noErr ) {
\nif ( errorMessageLength > 60 ) sprintf(errorMessage,”No Matching Web Service: %i\\n\\n”,err);
\n} else { \/\/ Normal error situation, like AxisFault, Error message already set
\n\/\/ Host does not exist: Transport error!
\n\/\/ Host is up, but no web service: java.io.FileNotFoundException: \/SakaiLogin.jws!
\n\/\/ Host is up, no matching method: No such operation ‘login’!
\n\/\/ force error return
\nerr = errAEDescNotFound;
\n}
\ncleanup:
\nif ( doDebug || doDebugError ) {
\nfprintf(stderr,”makeSoapCall() error=%d url=%s (%s) message=%s\\n”,err,url,methodName, errorMessage);
\n}
\nreturn err;
\n}<\/p>\n","protected":false},"excerpt":{"rendered":"