Re: Hooking display file I/O

["Leif Svalgaard" <leif@xxxxxxxx>]

From: DennisLovelady <dennis@lovelady.com>
> From: "Steve Richter" <srichter@AutoCoder.com>
> > I respect your technical knowledge and appreciate the work that you do
> > very much, but your coding style ... 
> Actually, I find Leif's example a tad easier to work with, if only because
> of the first-person vs. second-person thing.  Just who *IS* the "you" in
> YourSeptContents?  MySept or MY-SEPT or whatever makes SO MUCH MORE sense.
> Or is it just me?

carful naming of operands and liberal use of labels go a long way of making
the code easier to read without the need for elaborate comments, e.g.:

WHILE-STACK-NOT-EMPTY:
    CMPNV(B)     STACK-TOP, 0/EQ(DONE-POSTFIX);
    ADDN(S)      CUR-TOKEN, 1;
    CMPNV(B)     CUR-TOKEN, TOKEN-NBR/HI(DONE-POSTFIX);
    CPYBLA       SINGLE-TOKEN, TOKEN(CUR-TOKEN);

CHECK-IF-OPERAND:
    CMPNV(B)     TOKEN-TYPE, IDENTIFIER-TYPE/LO(CHECK-IF-LEFT-PAR);
    CALLI        STORE-POSTFIX-OPERAND, *, .STORE-POSTFIX-OPERAND;
    B            WHILE-STACK-NOT-EMPTY;

CHECK-IF-LEFT-PAR:
    CMPBLA(B)    TOKEN-TEXT, "("/NEQ(CHECK-IF-OPERATOR);

STACK-IT:
    ADDN(S)      STACK-TOP, 1;
    CPYBLA       STACK(STACK-TOP), SINGLE-TOKEN;
    B            WHILE-STACK-NOT-EMPTY;

CHECK-IF-OPERATOR:
    CMPNV(B)     TOKEN-TYPE, OPERATOR-TYPE/NEQ(CHECK-IF-RIGHT-PAR);

UNSTACK-PRECEDENCE-OPERATORS:
    CMPNV(B)     STACK-TYPE(STACK-TOP), OPERATOR-TYPE/NEQ(STACK-IT);
...




+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---