[info globals]

partcl · Jul 11, 2010 · 3a358b6 · 3a358b6
1 parent af1a0c3
commit 3a358b6
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/src/Partcl/commands/info.pm b/src/Partcl/commands/info.pm
@@ -172,7 +172,16 @@ my sub functions($pattern = '*') {
 }
 
 my sub globals($pattern = '*') {
-    '';
+
+    my %GLOBALS := pir::get_hll_global__ps('%GLOBALS');
+    my $globber := StringGlob::Compiler.compile($pattern);
+    my @result := pir::new__Ps('TclList');
+
+    for %GLOBALS -> $var {
+        @result.push($var) if
+            ?Regex::Cursor.parse($var, :rule($globber), :c(0));
+    }
+    @result;
 }
 
 my sub hostname() {