Перевести с Паскаля на си

[magic666]

Не помню Паскаль, попытался с горем пополам перевести.
Проверка равенства двух списков

function eq_list (var t, p :list): boolean;
var t1, p1: list;
begin  
   if t=nil
   then  eq_list :=  p=nil
    else
      if p=nil
      then eq_list := false
      else {оба списка не пусты}
        begin 
          eq_list := true;
          t1 := t; p1 := p;
          while (t1 <> nil) and (p1 <> nil) do
            if t1^info <> p1^.info
            then begin  eq_list := false; exit end
            else begin t1 := t1^.next; p1 := p1^.next end;
          eq_list := (t1 = nil) and (p1 = nil)
        end
     end

Моя попытка:

bool eq_list(SLIST *t, SLIST *p)
{
    *t1,*p1;
    if(t == NULL)
    eg_list =  (p==NULL);
    else if(p = NULL)
    eq_list = false;
    
    eq_list = true;
    t1 = t;
    p1 = p;
    
    while(t1 <> NULL  &&  p1 <>NULL){
    if(t1->info <> p1->info)
       eq_list = false;
    else 
       t1 = t1->next;
       p1= p1->next;
    }
    eq_list = (t1 == NULL) && (p1 == NULL);
}

[Stilet]

Кажись так:

bool eq_list (list *t, list *p){
list *t1, *p1;

   if (!t) return true;
   else
      if (!p) return false
      else 
        { 
          t1 = t; p1 = p;
          while (t1 && p1){
            if (t1->info != p1->info)   return false;
            else { t1 = t1->next; p1 = p1->next;}
          }
         }
          return = !t1 && !p1;
}

[magic666]

Stilet, огромное спасибо!
Попытался собрать программу. В функции проверки равентва двух списков выдает ошибку: request for member 'next'('info') in something not a structure or union. Я опять что-то делаю не так?!
slist.h

#ifndef SLIST_H
#define SLIST_H
#define SIZE 12


typedef enum {false,true} bool;
typedef struct SNODE  SNODE;
typedef struct SNODE *PNODE;
typedef struct SLIST SLIST;

struct SNODE{
    int key;
    int info;
    PNODE next;
}node;

struct SLIST{
    int count;
    int size;
    PNODE head,tail;
}slist;

void init_slist(SLIST*);
bool is_slist_empty(SLIST*);
bool is_slist_overflow(SLIST*);
bool eq_list(SLIST*,SLIST*);

void prepand_to_slist(SLIST*,PNODE);
void print_slist(SLIST*);
#endif /*SLIST_H*/

main.c

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include "slist.h"

int main()
{
    SLIST *lst1;
    SLIST *lst2;
    PNODE nd;
    int i;
    lst1 = (SLIST*)malloc(sizeof(slist));
    lst2 = (SLIST*)malloc(sizeof(slist));
    init_slist(lst1);
    init_slist(lst2);
    srand(time(0));

    for(i=0;i<SIZE;i++)
    {
        nd = (PNODE)malloc(sizeof(node));
        nd->key = i+1;
        nd->info = rand()%30;
        prepand_to_slist(lst1,nd);
    }
    printf("first: \n");
    print_slist(lst1);

    for(i=0;i<SIZE;i++)
    {
        nd = (PNODE)malloc(sizeof(node));
        nd->key = i+1;
        nd->info = rand()%30;
        prepand_to_slist(lst2,nd);
    }

    printf("second: \n");
    print_slist(lst2);
    eq_list(lst1,lst2);
    if(return == false)
        printf("LISTS are not equal\n");
    return 0;
}
void init_slist(SLIST *st)
{
    st->count = 0;
    st->size = SIZE;
    st->head = st->tail = NULL;
}

bool is_slist_empty(SLIST *st)
{
    return ((st->count == 0)?true:false);
}
bool is_slist_overflow(SLIST *st)
{
    return((st->count == st->size)?true:false);
}

void print_slist(SLIST *l)
{
    PNODE nd;
    nd = l->head;
    while(nd!=NULL)
{
    printf("%3d",nd->info);
    nd = nd->next;
}
printf("\n");

}
void prepand_to_slist(SLIST *l, PNODE nd)//dobavit pered pervim
{
    if(!is_slist_overflow(l)){
  if(is_slist_empty(l))
{
    l->head = l->tail =nd;
    nd->next = NULL;
    l->count = 1;

}
else{
    nd->next = l->head;
    l->head = nd;
    l->count++;
    }
  }
}

bool eq_list(SLIST *t, SLIST *p){
PNODE *t1, *p1;

   if (!t) return true;
   else
      if (!p) return false;
      else
        {
          t1 = t;
          p1 = p;
          while (t1 && p1){
            if (t1->info != p1->info)
                  return false;
            else {
                    t1 = t1->next;
                    p1 = p1->next;
                 }
                          }
         }
          return(!t1 && !p1);
}