about summary refs log tree commit diff stats
path: root/wiki/lib/plugins/revert/plugin.info.txt
diff options
context:
space:
mode:
Diffstat (limited to 'wiki/lib/plugins/revert/plugin.info.txt')
-rw-r--r--wiki/lib/plugins/revert/plugin.info.txt7
1 files changed, 7 insertions, 0 deletions
diff --git a/wiki/lib/plugins/revert/plugin.info.txt b/wiki/lib/plugins/revert/plugin.info.txt
new file mode 100644
index 0000000..bba939d
--- /dev/null
+++ b/wiki/lib/plugins/revert/plugin.info.txt
@@ -0,0 +1,7 @@
+base   revert
+author Andreas Gohr
+email  andi@splitbrain.org
+date   2015-07-15
+name   Revert Manager
+desc   Allows you to mass revert recent edits to remove Spam or vandalism
+url    http://dokuwiki.org/plugin:revert
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-10-26 17:25:52 +0000
ion' href='/akkartik/mu/blame/edit.mu?h=main&id=6c8f19d2be6eb4cd227c2ba6f3e189b8f3a72608'>^ 
cb9e66d7 ^

1
2

3

4

5
6
7
8

9

10
11
12
13
14
15

16

17

18


                                                                         
                      
                                                               



                                                             
         





                                                                                                                
   
                               
  
; 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)
])