Реферат: Использование Prolog совместно с другими ЯП

ArrP = Array;

/* перемещение элементов списка в массив */

List = SaveList;

while ( i != 0 ) {

*ArrP++ = List->Value;

List = List->Next;

i--;

}

*ResultArray = Array;

return(len);

}

void ArrayToList(register int *ArrP,register int n,
register INTLIST **ListPP)

{

while ( n != 0 ) {

*ListPP = MEM_AllocGStack(sizeof(INTLIST));

(*ListPP)->Functor = listfno;

(*ListPP)->Value = *ArrP++;

ListPP = &(*ListPP)->Next;

n--;

}

*ListPP = MEM_AllocGStack(sizeof((*ListPP)->Functor));
/* конецсписка */

(*ListPP)->Functor = nilfno;

}

void inclist(INTLIST *InList,INTLIST **OutList)

{

register int *ArrP, i, len;

int *Array;

len = ListToArray(InList,&Array);

ArrP = Array;