langs a-z

Task/Doubly-linked-list-Element-insertion/PureBasic/doubly-linked-list-element-insertion.purebasic

@@ -0,0 +1,41 @@
+Structure node
+  *prev.node
+  *next.node
+  value.c ;use character type for elements in this example
+EndStructure
+
+Procedure insertAfter(element.c, *c.node)
+  ;insert new node *n after node *c and set it's value to element
+  Protected *n.node = AllocateMemory(SizeOf(node))
+  If *n
+    *n\value = element
+    *n\prev = *c
+    If *c
+      *n\next = *c\next
+      *c\next = *n
+    EndIf
+  EndIf
+  ProcedureReturn *n
+EndProcedure
+
+Procedure displayList(*dl.node)
+  Protected *n.node = *dl
+  Repeat
+    Print(Chr(*n\Value) + " ")
+    *n = *n\next
+  Until *n = #Null
+EndProcedure
+
+If OpenConsole()
+  Define dl.node, *n.node
+
+  *n = insertAfter('A',dl)
+  insertAfter('B',*n)
+  insertAfter('C',*n)
+
+  displayList(dl)
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
+  Input()
+  CloseConsole()
+EndIf