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