Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing verblibm.h

WriteListFrom (lines 247-275)

0247  #Endif; ! TARGET_
0248   
0249  [ WriteListFrom o style depth;
0250   
0251      #Ifdef TARGET_ZCODE;
0252      @push c_style;      @push lt_value;   @push listing_together;
0253      @push listing_size; @push wlf_indent; @push inventory_stage;
0254      #Ifnot; ! TARGET_GLULX
0255      @copy c_style sp;      @copy lt_value sp;   @copy listing_together sp;
0256      @copy listing_size sp; @copy wlf_indent sp; @copy inventory_stage sp;
0257      #Endif;
0258   
0259      if (o == child(parent(o))) {
0260          SortOutList(o);
0261          o = child(parent(o));
0262      }
0263      c_style = style;
0264      wlf_indent = 0;
0265      WriteListR(o, depth);
0266   
0267      #Ifdef TARGET_ZCODE;
0268      @pull inventory_stage;  @pull wlf_indent; @pull listing_size;
0269      @pull listing_together; @pull lt_value;   @pull c_style;
0270      #Ifnot; ! TARGET_GLULX
0271      @copy sp inventory_stage;  @copy sp wlf_indent; @copy sp listing_size;
0272      @copy sp listing_together; @copy sp lt_value;   @copy sp c_style;
0273      #Endif;
0274      rtrue;
0275  ];


Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.