diff options
author | Akira TAGOH <akira@tagoh.org> | 2006-10-16 13:46:17 +0000 |
---|---|---|
committer | Akira TAGOH <akira@tagoh.org> | 2006-10-16 13:46:17 +0000 |
commit | 6f862ef2d745d255fd953d8b4e8d76dfcf2bc76b (patch) | |
tree | c36280102d5c0eb409ad6e70abca7c3fcb0bd2f2 | |
parent | 858cc71cc2563ad077f4ae2c85dc713743f22e2a (diff) |
2006-10-16 Akira TAGOH <at@gclab.org>
* plugins/test/hg_unittest.ps (initunittest): erase a prompt.
(.updateunittestprogress): show a pinwheel.
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | hieroglyph/version.h.in | 2 | ||||
-rw-r--r-- | plugins/test/hg_unittest.ps | 10 |
3 files changed, 16 insertions, 1 deletions
@@ -1,3 +1,8 @@ +2006-10-16 Akira TAGOH <at@gclab.org> + + * plugins/test/hg_unittest.ps (initunittest): erase a prompt. + (.updateunittestprogress): show a pinwheel. + 2006-10-15 Akira TAGOH <at@gclab.org> * hieroglyph/operator.c (_hg_operator_op_restore): drop the save object diff --git a/hieroglyph/version.h.in b/hieroglyph/version.h.in index 07e291c..c2cc2e5 100644 --- a/hieroglyph/version.h.in +++ b/hieroglyph/version.h.in @@ -29,7 +29,7 @@ G_BEGIN_DECLS #define HIEROGLYPH_VERSION "@VERSION@" -#define HIEROGLYPH_UUID "f129604a-dd02-420e-bb3c-a4c2388e3604" +#define HIEROGLYPH_UUID "3e0961c2-6eba-4c8e-b721-392bf7155184" const char *__hg_rcsid G_GNUC_UNUSED = "$Rev$"; diff --git a/plugins/test/hg_unittest.ps b/plugins/test/hg_unittest.ps index 49b3ed7..55f9e9d 100644 --- a/plugins/test/hg_unittest.ps +++ b/plugins/test/hg_unittest.ps @@ -34,6 +34,9 @@ end /.unittestdict exch def /nsuccess 0 def /nfailure 0 def end + .promptmsg length 2 add dup string 1 1 4 -1 roll 2 sub {1 index exch 32 put} for + dup 0 13 put + dup dup length 1 sub 13 put =only } bind odef % -array- -name- -bool- initunittestdict - @@ -57,6 +60,12 @@ end /.unittestdict exch def end } bind odef +/.updateunittestprogress { + [(|) (/) (-) (\\)] + .unittestdict /nunit get 4 mod + get (\r) .concatstring =only flush +} bind odef + % proc unittest -bool- /unittest { .dounittest @@ -73,6 +82,7 @@ end /.unittestdict exch def % proc .dounittest - /.dounittest { + .updateunittestprogress % back the ostack up into dict count copy pop count 1 sub 2 idiv array astore .unittestdict /.ostack 3 -1 roll put dup .unittestdict /expression 3 -1 roll put |