profani-tty - Profanity fork with TTY improvements

about summary refs log tree commit diff stats

path: root/tests/functionaltests/test_presence.c

	Commit message (Collapse)	Author	Age	Files	Lines
*	Use single quotes in functional test stanzas	James Booth	2015-12-30	1	-28/+28
\|
*	Handle software version requests for gateways that return from domainpart	James Booth	2015-08-05	1	-0/+1
\|
*	Added test for missing resource on presence	James Booth	2015-08-04	1	-0/+19
\|
*	Tidied functional tests	James Booth	2015-06-13	1	-36/+26
\|
*	Moved all tests to tests folder	James Booth	2015-06-12	1	-0/+253

54f32ecb7c26c42322ab5df48e317c236'>^

d4b4d018 ^

cb9e66d7 ^

1
2

; a screen is an array of pointers to lines, in turn arrays of characters

(function new-screen [
  (default-space:space-address <- new space:literal 30:literal)
  (nrows:integer <- next-input)
  (ncols:integer <- next-input)
  (result:screen-address <- new screen:literal nrows:integer)
  (rowidx:integer <- copy 0:literal)
  { begin
    (curr-line-address-address:line-address-address <- index-address result:screen-address/deref rowidx:integer)
    (curr-line-address-address:line-address-address/deref <- new line:literal ncols:integer)
    (curr-line-address:line-address <- copy curr-line-address-address:line-address-address/deref)
    (rowidx:integer <- add rowidx:integer 1:literal)
    (x:boolean <- not-equal rowidx:integer nrows:integer)
    (loop-if x:boolean)
  }
  (reply result:screen-address)
])