add stub for [info]

partcl · Dec 1, 2009 · 30b236f · 30b236f
1 parent 4f7222d
commit 30b236f
Show file tree

Hide file tree

Showing 3 changed files with 65 additions and 5 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -42,8 +42,9 @@ PMTCL_G_PIR   = src/gen/pmtcl-grammar.pir
 PMTCL_A_PIR   = src/gen/pmtcl-actions.pir
 PMTCL_C_PIR   = src/gen/pmtcl-compiler.pir
 PMTCL_B_PIR   = src/gen/pmtcl-commands-main.pir
-PMTCL_B_S_PIR = src/gen/pmtcl-commands-string.pir
+PMTCL_B_I_PIR = src/gen/pmtcl-commands-info.pir
 PMTCL_B_N_PIR = src/gen/pmtcl-commands-namespace.pir
+PMTCL_B_S_PIR = src/gen/pmtcl-commands-string.pir
 TCLLEXPAD_PIR = src/gen/tcllexpad.pir
 ARE_G_PIR     = src/gen/are-grammar.pir
 ARE_A_PIR     = src/gen/are-actions.pir
@@ -55,8 +56,9 @@ PMTCL_SOURCES = \
     $(PMTCL_A_PIR) \
     $(PMTCL_C_PIR) \
     $(PMTCL_B_PIR) \
-    $(PMTCL_B_S_PIR) \
+    $(PMTCL_B_I_PIR) \
     $(PMTCL_B_N_PIR) \
+    $(PMTCL_B_S_PIR) \
     $(TCLLEXPAD_PIR) \
     $(ARE_G_PIR) \
     $(ARE_A_PIR) \
@@ -85,10 +87,12 @@ $(PMTCL_C_PIR): src/PmTcl/Compiler.pm
 	$(PARROT_NQP) --target=pir -o $(PMTCL_C_PIR) src/PmTcl/Compiler.pm
 $(PMTCL_B_PIR): src/PmTcl/commands/main.pm
 	$(PARROT_NQP) --target=pir -o $(PMTCL_B_PIR) src/PmTcl/commands/main.pm
-$(PMTCL_B_S_PIR): src/PmTcl/commands/string.pm
-	$(PARROT_NQP) --target=pir -o $(PMTCL_B_S_PIR) src/PmTcl/commands/string.pm
+$(PMTCL_B_I_PIR): src/PmTcl/commands/info.pm
+	$(PARROT_NQP) --target=pir -o $(PMTCL_B_I_PIR) src/PmTcl/commands/info.pm
 $(PMTCL_B_N_PIR): src/PmTcl/commands/namespace.pm
 	$(PARROT_NQP) --target=pir -o $(PMTCL_B_N_PIR) src/PmTcl/commands/namespace.pm
+$(PMTCL_B_S_PIR): src/PmTcl/commands/string.pm
+	$(PARROT_NQP) --target=pir -o $(PMTCL_B_S_PIR) src/PmTcl/commands/string.pm
 $(TCLLEXPAD_PIR): src/TclLexPad.pm
 	$(PARROT_NQP) --target=pir -o $(TCLLEXPAD_PIR) src/TclLexPad.pm
 $(ARE_G_PIR): src/ARE/Grammar.pm

diff --git a/src/PmTcl.pir b/src/PmTcl.pir
@@ -19,8 +19,9 @@
 .include 'src/gen/pmtcl-actions.pir'
 .include 'src/gen/pmtcl-compiler.pir'
 .include 'src/gen/pmtcl-commands-main.pir'
-.include 'src/gen/pmtcl-commands-string.pir'
+.include 'src/gen/pmtcl-commands-info.pir'
 .include 'src/gen/pmtcl-commands-namespace.pir'
+.include 'src/gen/pmtcl-commands-string.pir'
 .include 'src/gen/tcllexpad.pir'
 .include 'src/gen/are-grammar.pir'
 .include 'src/gen/are-actions.pir'

diff --git a/src/PmTcl/commands/info.pm b/src/PmTcl/commands/info.pm
@@ -0,0 +1,55 @@
+our sub info(*@args) {
+    if +@args <1 {
+        error('wrong # args: should be "info subcommand ?argument ...?"');
+    }
+    my $cmd := @args.shift();
+
+    if $cmd eq 'args' {
+        return '';
+    } elsif $cmd eq 'body' {
+        return '';
+    } elsif $cmd eq 'cmdcount' {
+        return '';
+    } elsif $cmd eq 'commands' {
+        return '';
+    } elsif $cmd eq 'complete' {
+        return '';
+    } elsif $cmd eq 'default' {
+        return '';
+    } elsif $cmd eq 'exists' {
+        return '';
+    } elsif $cmd eq 'frame' {
+        return '';
+    } elsif $cmd eq 'functions' {
+        return '';
+    } elsif $cmd eq 'globals' {
+        return '';
+    } elsif $cmd eq 'hostname' {
+        return '';
+    } elsif $cmd eq 'level' {
+        return '';
+    } elsif $cmd eq 'library' {
+        return '';
+    } elsif $cmd eq 'loaded' {
+        return '';
+    } elsif $cmd eq 'locals' {
+        return '';
+    } elsif $cmd eq 'nameofexecutable' {
+        return '';
+    } elsif $cmd eq 'patchlevel' {
+        return '';
+    } elsif $cmd eq 'procs' {
+        return '';
+    } elsif $cmd eq 'script' {
+        return '';
+    } elsif $cmd eq 'sharedlibextension' {
+        return '';
+    } elsif $cmd eq 'tclversion' {
+        return '';
+    } elsif $cmd eq 'vars' {
+        return '';
+    }
+
+    # invalid subcommand.
+    error("unknown or ambiguous subcommand \"$cmd\": must be args, body, cmdcount, commands, complete, default, exists, frame, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, patchlevel, procs, script, sharedlibextension, tclversion, or vars");
+}