Lines Matching full:this
23 : get-count ( 2:this -- count ) my=[ .count get ] ;
24 : set-count ( count 2:this -- ) my=[ .count set ] ;
26 : ?empty ( 2:this -- flag ) --> get-count 0= ;
28 : get-buflen ( 2:this -- len ) my=[ .buflen get ] ;
29 : set-buflen ( len 2:this -- ) my=[ .buflen set ] ;
31 : get-buf ( 2:this -- ptr ) my=[ .buf get-ptr ] ;
32 : set-buf { ptr len 2:this -- }
33 ptr this my=[ .buf set-ptr ]
34 len this my=> set-buflen
38 : clr-buf ( 2:this -- )
44 : free-buf { 2:this -- }
45 this my=> get-buf
49 this my=> clr-buf
54 : size-buf { size 2:this -- }
57 this --> free-buf exit
64 this --> get-buflen 0=
68 size this --> set-buf
69 size this --> set-buflen
73 size this --> get-buflen > if
74 this --> get-buf size resize
76 size this --> set-buf
80 : set { c-addr u 2:this -- }
81 u this --> size-buf
82 u this --> set-count
83 c-addr this --> get-buf u move
86 : get { 2:this -- c-addr u }
87 this --> get-buf
88 this --> get-count
92 : cat { c-addr u 2:this -- }
93 this --> get-count u + dup >r
94 this --> size-buf
95 c-addr this --> get-buf this --> get-count + u move
96 r> this --> set-count
99 : type { 2:this -- }
100 this --> ?empty if ." (empty) " exit endif
101 this --> .buf --> get-ptr
102 this --> .count --> get
106 : compare ( 2string 2:this -- n )
113 : hashcode ( 2:this -- hashcode )
118 : free ( 2:this -- ) 2dup --> free-buf object => free ;
125 : set-hashcode { 2:this -- }
126 this --> super --> hashcode
127 this --> .hashcode --> set
130 : get-hashcode ( 2:this -- hashcode )
134 : set ( c-addr u 2:this -- )
139 : cat ( c-addr u 2:this -- )