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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: сочинение ревизор, решебник 6
| Добавил(а) на сайт: Кулумбаев.

#define listfno 1
#define nilfno 2 typedef unsigned char BYTE;

void *MEM_AllocGStack(unsigned);

typedef struct ilist {

BYTE Functor; int Value; struct ilist *Next;
} INTLIST;

int ListToArray(INTLIST *List,int **ResultArray)
{

INTLIST *SaveList = List; int *Array, len; register int *ArrP; register int i;

/* количество элементов в списке */ i = 0; while ( List->Functor == listfno ) { i++;

List = List->Next;

} len = i;

Array = MEM_AllocGStack(i*sizeof(int));

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;
}