Return to x_geometry.clu CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / CLUlib

Annotation of 43BSD/contrib/X/CLUlib/x_geometry.clu, revision 1.1

1.1     ! root        1: % Copyright    Barbara Liskov    1985
        !             2: 
        !             3: x_geometry = proc (spec, defspec: string)
        !             4:               returns (int, int, int, int, bool, bool, bool)
        !             5:     i1: int := string$indexc('x', defspec)
        !             6:     i2: int
        !             7:     if i1 = 0
        !             8:        then i1 := string$indexc('+', defspec)
        !             9:            i2 := string$indexc('-', defspec)
        !            10:            if i2 > 0  cand  (i1 = 0  cor  i2 < i1)
        !            11:               then i1 := i2 end
        !            12:            if i1 = 0
        !            13:               then i1 := string$size(defspec) + 1 end
        !            14:        end
        !            15:     dw: int := int$parse(string$substr(defspec, 2, i1 - 2))
        !            16:        except others: dw := 1 end
        !            17:     if i1 <= string$size(defspec)  cand  defspec[i1] = 'x'
        !            18:        then i1 := i1 + 1 end
        !            19:     defspec := string$rest(defspec, i1)
        !            20:     i1 := string$indexc('+', defspec)
        !            21:     i2 := string$indexc('-', defspec)
        !            22:     dxp: bool := true
        !            23:     if i2 > 0  cand  (i1 = 0  cor  i2 < i1)
        !            24:        then i1 := i2
        !            25:            dxp := false
        !            26:        end
        !            27:     if i1 = 0
        !            28:        then i1 := string$size(defspec) + 1 end
        !            29:     dh: int := int$parse(string$substr(defspec, 1, i1 - 1))
        !            30:        except others: dh := 1 end
        !            31:     defspec := string$rest(defspec, i1 + 1)
        !            32:        except when bounds: defspec := "" end
        !            33:     i1 := string$indexc('+', defspec)
        !            34:     dyp: bool := true
        !            35:     if i1 = 0
        !            36:        then i1 := string$indexc('-', defspec)
        !            37:            if i1 = 0
        !            38:               then i1 := string$size(defspec) + 1
        !            39:               else dyp := false
        !            40:               end
        !            41:        end
        !            42:     dx: int := int$parse(string$substr(defspec, 1, i1 - 1))
        !            43:        except others: dx := 1 end
        !            44:     dy: int := int$parse(string$rest(defspec, i1 + 1))
        !            45:        except others: dy := 1 end
        !            46: 
        !            47:     i1 := string$indexc('x', spec)
        !            48:     if i1 = 0
        !            49:        then i1 := string$indexc('+', spec)
        !            50:            i2 := string$indexc('-', spec)
        !            51:            if i2 > 0  cand  (i1 = 0  cor  i2 < i1)
        !            52:               then i1 := i2 end
        !            53:            if i1 = 0
        !            54:               then i1 := string$size(spec) + 1 end
        !            55:        end
        !            56:     width: int := int$parse(string$substr(spec, 2, i1 - 2))
        !            57:        except others: width := dw end
        !            58:     if width <= 0
        !            59:        then width := dw end
        !            60:     if i1 <= string$size(spec)  cand  spec[i1] = 'x'
        !            61:        then i1 := i1 + 1 end
        !            62:     spec := string$rest(spec, i1)
        !            63:     i1 := string$indexc('+', spec)
        !            64:     i2 := string$indexc('-', spec)
        !            65:     xplus: bool := true
        !            66:     place: bool := true
        !            67:     if i2 > 0  cand  (i1 = 0  cor  i2 < i1)
        !            68:        then i1 := i2
        !            69:            xplus := false
        !            70:        end
        !            71:     if i1 = 0
        !            72:        then i1 := string$size(defspec) + 1
        !            73:            place := false
        !            74:        end
        !            75:     height: int := int$parse(string$substr(spec, 1, i1 - 1))
        !            76:        except others: height := dh end
        !            77:     if height <= 0
        !            78:        then height := dh end
        !            79:     spec := string$rest(spec, i1 + 1)
        !            80:        except when bounds: spec := "" end
        !            81:     i1 := string$indexc('+', spec)
        !            82:     yplus: bool := true
        !            83:     if i1 = 0
        !            84:        then i1 := string$indexc('-', spec)
        !            85:            if i1 = 0
        !            86:               then i1 := string$size(spec) + 1
        !            87:               else yplus := false
        !            88:               end
        !            89:        end
        !            90:     x: int := int$parse(string$substr(spec, 1, i1 - 1))
        !            91:        except others:
        !            92:                   x := dx
        !            93:                   xplus := dxp
        !            94:              end
        !            95:     y: int := int$parse(string$rest(spec, i1 + 1))
        !            96:        except others:
        !            97:                   y := dy
        !            98:                   yplus := dyp
        !            99:              end
        !           100:     return(width, height, x, y, xplus, yplus, place)
        !           101:     end x_geometry

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