S-Snobol(ID:4041/ssn001)

Structured SNOBOL 

Example
The example below is an S-SNOBOL function which right justifies lines of text by increasing the spacing between each word until the line is a given width.  Blanks are added from the left.  Notice the use of an explicit identifier (NULL) for the null string.  This is not obligatory - we simply think programs look neater if it is included.

function RIGHTJUSTIFY(LINE,WIDTH)
    local NUMBLANKS, HEAD, GAP, TEMP, NULL, BLANKPATTERN
    BLANKPATTERN = BREAK(' ') . HEAD SPAN(' ') . GAP
    NUMBLANKS = WIDTH - SIZE(LINE)
    if GT(NUMBLANKS,0) then
        if LINE BLANKPATTERN = NULL then
            loop
                TLINE = TLINE HEAD GAP ' '
                NUMBLANKS = NUMBLANKS - 1   ,     
                if EQ(NUMBLANKS,0) then
                    RIGHTJUSTIFY = TLINE LINE
                    exit
                end else
                if.fail LINE BLANKPATTERN = NULL then
                    LINE = TLINE LINE
                    TLINE = NULL
                    LINE BLANKPATTERN = NULL
                end
            end
        end
    end
end
fend RIGHTJUSTIFY
Close
Misc snippet