Return to csgen.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / ipl / source

Annotation of researchv10dc/cmd/icon/ipl/source/csgen.icn, revision 1.1

1.1     ! root        1: #      CSGEN
        !             2: #
        !             3: #      Generate instances of sentences defined by context-sensitive
        !             4: #      grammars
        !             5: #
        !             6: #      Ralph E. Griswold
        !             7: #
        !             8: #      Last modified 8/7/85
        !             9: #
        !            10: 
        !            11: global xlist
        !            12: 
        !            13: procedure main(x)
        !            14:    local line, goal, count, s
        !            15:    while line := read() do             #  read in grammar
        !            16:       if line[1] == "#" then next
        !            17:       else if xpairs(line) then next
        !            18:       else {
        !            19:          line ? (goal := move(1),move(1),count := (0 < integer(tab(0))))
        !            20:          break
        !            21:          }
        !            22:    if /count then stop("no goal specification")
        !            23:    every 1 to count do {               #  generate sentences
        !            24:       s := goal
        !            25:       while upto(&ucase,s) do {                #  test for nonterminal
        !            26:          if x[1] == "-t" then write(&errout,s)
        !            27:                                        #  quit on deadlock
        !            28:          if not(s ? replace(!xlist)) then break next
        !            29:          until s ?:= replace(?xlist)   #  make replacement
        !            30:          }
        !            31:       write(s)
        !            32:       }
        !            33: end
        !            34: 
        !            35: #  replace left hand side by right hand side
        !            36: #
        !            37: procedure replace(a)
        !            38:    suspend tab(find(a[1])) || (move(*a[1]),a[2]) || tab(0)
        !            39: end
        !            40: 
        !            41: #  enter rewriting rule
        !            42: #
        !            43: procedure xpairs(s)
        !            44:    local i, a
        !            45:    initial xlist := []
        !            46:    if s ? {
        !            47:                                #  handle optional replication factor
        !            48:       i := 1(0 < integer(tab(upto(':'))),move(1)) | 1 &
        !            49:       a := [tab(find("->")),(move(2),tab(0))]
        !            50:       }
        !            51:    then {
        !            52:       every 1 to i do put(xlist,a)
        !            53:       return
        !            54:       }
        !            55: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.