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