String *sConcat(const String *s, const String *t) {
size_t len;
String *n = NULL;
char *p;
const String *vs, *vt;
if (s == NULL) {
vs = new_String("");
}
else {
vs = s;
}
if (t == NULL) {
vt = new_String("");
}
else {
vt = t;
}
len = sLength(vs) + sLength(vt);
if ((p = (char *) GC_MALLOC(sizeof(char) * len + 1)) != NULL) {
strcpy(p, vs->characters);
strcat(p, vt->characters);
if ((n = (String *) GC_MALLOC(sizeof(struct String_))) != NULL) {
n->cls = CLS_STRING;
n->characters = p;
n->length = len;
}
else {
GC_FREE(p);
}
}
return n;
}
ValuePtr
evalIf(EnvPtr env, ValuePtr statement)
{
int length = sLength(statement);
if(length == 3) {
if(sEqP(eval(env, statement->cdr()->car()), rsFalse()) == false) {
return eval(env, statement->cdr()->cdr()->car());
}
else {
return rsUndefined();
}
}
else if(length == 4) {
if(sEqP(eval(env, statement->cdr()->car()), rsFalse()) == false) {
return eval(env, statement->cdr()->cdr()->car());
}
else {
return eval(env, statement->cdr()->cdr()->cdr()->car());
}
}
else {
CHECK_FAIL("Wrong number of arguments to if");
return rsUndefined();
}
}
ValuePtr
evalLet(EnvPtr env, ValuePtr statement)
{
EnvPtr letEnv = new Environment();
letEnv->parent = env;
ValuePtr bindings = statement->cdr()->car();
CHECK("One or more expressions", sLength(statement) >= 3);
CHECK("Let bindings are a list", sListP(bindings));
while(bindings->isNull() == false) {
CHECK("Let assignment is a list", sListP(bindings->car()));
CHECK("Let assignment is a 2 item list", sLength(bindings->car()) == 2);
ValuePtr variable = bindings->car()->car();
CHECK("Assigning to a symbol", variable->isSymbol());
ValuePtr value = eval(env, bindings->car()->cdr()->car());
letEnv->values[variable->vString()] = value;
bindings = bindings->cdr();
}
return evalSequence(letEnv, statement->cdr()->cdr());
}
int _tmain(int argc, _TCHAR* argv[])
{
char s[50];
printf("Input string: \n");
gets(s);
bool foundDifference = false;
int length = sLength(s);
for (int i = 0; i < (length/2); i++)
if (s[i] != s[length-i-1])
{
printf("It's not palindrom");
foundDifference = true;
break;
}
if (!foundDifference)
printf("It's palindrom");
scanf("%d", &length);
return 0;
}
String *sConcatCharArray(const String *s, const char *t) {
size_t len;
String *n = NULL;
char *p;
const String *validatedS;
char *validatedT;
if (s == NULL) {
validatedS = new_String("");
}
else {
validatedS = s;
}
if (t == NULL) {
validatedT = "";
}
else {
validatedT = (char *) t;
}
len = sLength(validatedS) + strlen(validatedT);
if ((p = (char *) GC_MALLOC(sizeof(char) * len + 1)) != NULL) {
strcpy(p, validatedS->characters);
strcat(p, validatedT);
if ((n = (String *) GC_MALLOC(sizeof(struct String_))) != NULL) {
n->cls = CLS_STRING;
n->characters = p;
n->length = len;
}
else {
GC_FREE(p);
}
}
return n;
}
ret_ CXMLLoaderActions::LoadDataBlock(CData &Data,
const DOMElement *pElement)
{
#ifdef _DEBUG_
if (!pElement)
return PARAMETER_NULL | PARAMETER_2;
#endif
DOMElement *pChild = (DOMElement *)pElement->getFirstChild();
if (!pChild)
return XML_LOADER_ERROR;
auto_xerces_str wsObject ("v_object");
auto_xerces_str wsB1 ("v_b_1");
auto_xerces_str wsUB1 ("v_ub_1");
auto_xerces_str wsB2 ("v_b_2");
auto_xerces_str wsUB2 ("v_ub_2");
auto_xerces_str wsB4 ("v_b_4");
auto_xerces_str wsUB4 ("v_ub_4");
auto_xerces_str wsB8 ("v_b_8");
auto_xerces_str wsUB8 ("v_ub_8");
auto_xerces_str wsFB4 ("v_fb_4");
auto_xerces_str wsFB8 ("v_fb_8");
auto_xerces_str wsString ("v_string");
auto_xerces_str wsGroup ("v_group");
auto_xerces_str wsName ("name");
auto_xerces_str wsValue ("value");
while (pChild)
{
if (0 == XMLString::compareString(pChild->getNodeName(), wsObject))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (false_v == Data.Define(sName, (obj_)null_v))
return XML_LOADER_ERROR;
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsB1))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, B_1))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, B_1, (b_4)atoi(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsUB1))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, UB_1))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, UB_1, (b_4)atoi(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsB2))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, B_2))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, B_2, (b_4)atoi(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsUB2))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, UB_2))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, UB_2, (b_4)atoi(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsB4))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, B_4))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, B_4, (b_4)atoi(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsUB4))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, UB_4))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, UB_4, (b_4)atoi(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsB8))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, B_8))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, B_8, (b_8)atoll(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsUB8))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, UB_8))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, UB_8, (ub_8)atoll(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsFB4))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, FB_4))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, (fb_4)atof(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsFB8))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, FB_8))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, (fb_8)atof(sValue)))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsString))
{
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sValue (pChild->getAttribute(wsValue));
if (0 == strcmp(sValue, SIGN_UNBOUNDED))
{
if (false_v == Data.Define(sName, (ch_1 *)""))
return XML_LOADER_ERROR;
}
else
{
if (false_v == Data.Define(sName, sValue))
return XML_LOADER_ERROR;
}
}
else if (0 == XMLString::compareString(pChild->getNodeName(), wsGroup))
{
auto_xerces_str wsNormal("normal");
auto_xerces_str wsFloat ("float");
auto_xerces_str wsString("string");
auto_xerces_str wsName ("name");
auto_xerces_str wsLength("length");
auto_xerces_str wsSigned("signed");
auto_xerces_str wsSize ("size");
auto_xerces_str sName (pChild->getAttribute(wsName));
auto_xerces_str sSize (pChild->getAttribute(wsSize));
CFieldGroupDefined *pGroupField = new CFieldGroupDefined(
sName,
sSize);
DOMElement *pSub = (DOMElement *)pChild->getFirstChild();
if (!pSub)
return XML_LOADER_ERROR;
while (pSub)
{
if (0 == XMLString::compareString(pSub->getNodeName(),
wsNormal))
{
auto_xerces_str sName (pElement->getAttribute(wsName));
auto_xerces_str sLength(pElement->getAttribute(wsLength));
auto_xerces_str sSigned(pElement->getAttribute(wsSigned));
EFieldType Type;
GetFieldType(
FIELD_NORMAL_STYLE,
atoi(sLength),
0 == strcmp(sSigned, "true") ? true_v : false_v,
Type);
CFieldNumber *pField = new CFieldNumber(sName,
Type,
pGroupField);
pGroupField->SetSubField(pField);
}
else if (0 == XMLString::compareString(pSub->getNodeName(),
wsFloat))
{
auto_xerces_str sName (pElement->getAttribute(wsName));
auto_xerces_str sLength(pElement->getAttribute(wsLength));
EFieldType Type;
GetFieldType(FIELD_FLOAT_STYLE,
atoi(sLength),
false_v,
Type);
CFieldNumber *pField = new CFieldNumber(sName,
Type,
pGroupField);
pGroupField->SetSubField(pField);
}
else if (0 == XMLString::compareString(pSub->getNodeName(),
wsString))
{
auto_xerces_str sName (pElement->getAttribute(wsName));
auto_xerces_str sLength(pElement->getAttribute(wsLength));
auto_xerces_str sSize(pElement->getAttribute(wsSize));
CFieldString *pField = new CFieldString(sName,
atoi(sSize),
pGroupField);
pGroupField->SetSubField(pField);
}
pSub = (DOMElement *)pSub->getNextSibling();
}
if (false_v == Data.Define(pGroupField))
return XML_LOADER_ERROR;
}
pChild = (DOMElement *)pChild->getNextSibling();
}
return SUCCESS;
}
