Stack: Difference between revisions

Content added Content deleted

Inline

@@ Line 581: / Line 581: @@
 Based loosely on the C stack implementation in Quiwa's Data Structures.
-This example (ab)uses the COPY procedure to ensure that there is a consistently-defined stack type, node type, and p(redicate) type.
+This example (ab)uses the COPY procedure to ensure that there is a consistently-defined stack type, node type, p(redicate) type, and set of stack-utilities.
 stack.cbl
 <lang COBOL>       01  stack.
-head USAGE IS POINTER VALUE NULL.</lang>
+head USAGE IS POINTER VALUE NULL.
+</lang>
 node.cbl
 <lang COBOL>       01  node BASED.
 info PICTURE X(10) VALUE SPACES.
-link USAGE IS POINTER VALUE NULL.</lang>
+link USAGE IS POINTER VALUE NULL.
+</lang>
 p.cbl
 <lang COBOL>       01  p PICTURE 9.
 nil VALUE ZERO.
-t VALUE 1.</lang>
+t VALUE 1.
+</lang>
-stack-test.cbl
+stack-utilities.cbl
-<lang COBOL>       *>* Stack
+<lang COBOL>       IDENTIFICATION DIVISION.
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. stack-test.
-       DATA DIVISION.
-       LOCAL-STORAGE SECTION.
-       COPY stack.
-       PROCEDURE DIVISION.
-         CALL "push" USING
-           BY REFERENCE stack
-           BY CONTENT "daleth    "
-         END-CALL
-         CALL "push" USING
-           BY REFERENCE stack
-           BY CONTENT "gimel     "
-         END-CALL
-         CALL "push" USING
-           BY REFERENCE stack
-           BY CONTENT "beth      "
-         END-CALL
-         CALL "push" USING
-           BY REFERENCE stack
-           BY CONTENT "aleph     "
-         END-CALL
-         CALL "traverse-stack" USING
-           BY REFERENCE stack
-         END-CALL
-         STOP RUN.
-       END PROGRAM stack-test.
-       IDENTIFICATION DIVISION.
        PROGRAM-ID. push.
        DATA DIVISION.
@@ Line 652: / Line 625: @@
          GOBACK.
        END PROGRAM push.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. pop.
@@ Line 677: / Line 650: @@
          GOBACK.
        END PROGRAM pop.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. empty.
@@ Line 693: / Line 666: @@
          GOBACK.
        END PROGRAM empty.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. head.
@@ Line 716: / Line 689: @@
          GOBACK.
        END PROGRAM head.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. peek.
@@ Line 731: / Line 704: @@
          GOBACK.
        END PROGRAM peek.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. pointerp.
@@ Line 746: / Line 719: @@
          GOBACK.
        END PROGRAM pointerp.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. stack-overflow-error.
@@ Line 753: / Line 726: @@
          STOP RUN.
        END PROGRAM stack-overflow-error.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. stack-underflow-error.
@@ Line 760: / Line 733: @@
          STOP RUN.
        END PROGRAM stack-underflow-error.
+</lang>
+stack-test.cbl
+<lang COBOL>       *>* Stack
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. stack-test.
+       DATA DIVISION.
+       LOCAL-STORAGE SECTION.
+       COPY stack.
+       PROCEDURE DIVISION.
+         CALL "push" USING
+           BY REFERENCE stack
+           BY CONTENT "daleth    "
+         END-CALL
+         CALL "push" USING
+           BY REFERENCE stack
+           BY CONTENT "gimel     "
+         END-CALL
+         CALL "push" USING
+           BY REFERENCE stack
+           BY CONTENT "beth      "
+         END-CALL
+         CALL "push" USING
+           BY REFERENCE stack
+           BY CONTENT "aleph     "
+         END-CALL
+         CALL "traverse-stack" USING
+           BY REFERENCE stack
+         END-CALL
+         STOP RUN.
+       END PROGRAM stack-test.
+       COPY stack-utilities.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. display-pointer.
@@ Line 780: / Line 787: @@
          GOBACK.
        END PROGRAM display-pointer.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. traverse-stack.
@@ Line 815: / Line 822: @@
          END-IF
          GOBACK.
-       END PROGRAM traverse-stack.</lang>
+       END PROGRAM traverse-stack.
+</lang>
 Output: