Lines Matching refs:this
24 : get-count ( 2:this -- count ) my=[ .count get ] ;
25 : set-count ( count 2:this -- ) my=[ .count set ] ;
27 : ?empty ( 2:this -- flag ) --> get-count 0= ;
29 : get-buflen ( 2:this -- len ) my=[ .buflen get ] ;
30 : set-buflen ( len 2:this -- ) my=[ .buflen set ] ;
32 : get-buf ( 2:this -- ptr ) my=[ .buf get-ptr ] ;
33 : set-buf { ptr len 2:this -- }
34 ptr this my=[ .buf set-ptr ]
35 len this my=> set-buflen
39 : clr-buf ( 2:this -- )
45 : free-buf { 2:this -- }
46 this my=> get-buf
50 this my=> clr-buf
55 : size-buf { size 2:this -- }
58 this --> free-buf exit
65 this --> get-buflen 0=
69 size this --> set-buf
70 size this --> set-buflen
74 size this --> get-buflen > if
75 this --> get-buf size resize
77 size this --> set-buf
81 : set { c-addr u 2:this -- }
82 u this --> size-buf
83 u this --> set-count
84 c-addr this --> get-buf u move
87 : get { 2:this -- c-addr u }
88 this --> get-buf
89 this --> get-count
93 : cat { c-addr u 2:this -- }
94 this --> get-count u + dup >r
95 this --> size-buf
96 c-addr this --> get-buf this --> get-count + u move
97 r> this --> set-count
100 : type { 2:this -- }
101 this --> ?empty if ." (empty) " exit endif
102 this --> .buf --> get-ptr
103 this --> .count --> get
107 : compare ( 2string 2:this -- n )
114 : hashcode ( 2:this -- hashcode )
119 : free ( 2:this -- ) 2dup --> free-buf object => free ;
126 : set-hashcode { 2:this -- }
127 this --> super --> hashcode
128 this --> .hashcode --> set
131 : get-hashcode ( 2:this -- hashcode )
135 : set ( c-addr u 2:this -- )
140 : cat ( c-addr u 2:this -- )