🚀 go-pugleaf

In article <01bc2d75$4541e060$LocalHost@host.telepac.pt>, 
"Hugo Palma" <hmpalma@mail.telepac.pt> wrote:

> I'm doing a project,but i'm just not able to save a variable of type LIST
> as shown below.
> I'm only able to save the first segment of the list,and none of the next.
> Can anyone please help me.
> Thanks.
> 
> type
>    list=^no;
>    no=record
>       v:integer;
>       seg:list;
>       end;
> 
> var
>    p:list;
> 
> 
> 
> Please reply to :
> hmpalma@mail.telepac.pt

Hi, Hugo,

  Your code fragment is not enough.  The 'list' type is typical record for
'Linear List' items.  There are some way to build a linear list from this
type.  How do you build it?

  for very easy example, consider the following code;

Program SomeProgram;
type
  list = ^no
  no = record
    v : integer;
    seg : list
  end;
var
  root, p : list;
  f          : file of integer;
begin
(* building up a LIFO linear list *)
  root := nil;
  while {more data} do begin
     new(p);
     p^.v := {data};
     p^.seg := root;
     root := p
  end;
(* save it *)
  {set up f}
  p := root;
  while p<>nil do begin
     write(f, p^.v);
     p := p^.seg
  end;
  {close f}
...
end.

  It is important that saving pointer itself (i.e. saving p or p^.seg )
has no meaning and must be avoided.  Because pointer variables are
carrying addresses of contents and the addresses varies run-to-run
(under many modern OSs).

Haruo.

-- 
Haruo Toda, Niigata Univ.