Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing verblibm.h

SortTogether (lines 153-166)

0153  [ SortTogether obj value;
0154  !  print "Sorting together possessions of ",
0155  !         (object) obj, " by value ", value, "^";
0156  !  for (x=child(obj):x~=0:x=sibling(x))
0157  !      print (the) x, " no: ", x, " lt: ", x.list_together, "^";
0158    while (child(obj)~=0)
0159    {   if (child(obj).list_together~=value) move child(obj) to out_obj;
0160        else move child(obj) to in_obj;
0161    }
0162    while (child(in_obj)~=0)
0163        move child(in_obj) to obj;
0164    while (child(out_obj)~=0)
0165        move child(out_obj) to obj;
0166  ];


Last updated 27 February 2004. This web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.