1*19f07fb2Sblymn# 2*19f07fb2Sblymn# Print out the line structs 3*19f07fb2Sblymn# 4*19f07fb2Sblymndefine lstructs 5*19f07fb2Sblymn set $lstruct=(_FORMI_FIELD_LINES *)$arg0 6*19f07fb2Sblymn while ($lstruct) 7*19f07fb2Sblymn print *($lstruct) 8*19f07fb2Sblymn if ($lstruct->prev != 0x0) 9*19f07fb2Sblymn if ($lstruct->prev->next != $lstruct) 10*19f07fb2Sblymn print "WARNING: backward pointers inconsistent" 11*19f07fb2Sblymn end 12*19f07fb2Sblymn end 13*19f07fb2Sblymn if ($lstruct->next != 0x0) 14*19f07fb2Sblymn if ($lstruct->next->prev != $lstruct) 15*19f07fb2Sblymn print "WARNING: forward pointers inconsistent" 16*19f07fb2Sblymn end 17*19f07fb2Sblymn end 18*19f07fb2Sblymn set $lstruct = $lstruct->next 19*19f07fb2Sblymn end 20*19f07fb2Sblymnend 21