Changeset 14885 for misc/runpugs/data

Timestamp:

12/13/06 11:12:45 (2 years ago)

Author:

andara

Message:

[runpugs]
-Devel version now more responsive thanks to mod_perl.
It's my first mod_perl script, please test it at
http://feather.perl6.nl:8080/runpugs/
-Next release will preload Pugs to cut startup delay.

Location:

misc/runpugs/data

Files:

• runpugs.html (modified) (5 diffs)
• runpugs2.html (modified) (2 diffs)
• runpugs_async.html (added)

misc/runpugs/data/runpugs.html

@@ -7 +7 @@
 <link rel="stylesheet" type="text/css" href="/runpugs.css">
 <script language="JavaScript">
+var nchars=0;
+function getnchars() {
+return document.terminal.cmd.value.length
+}
 
+function getcursorpos() {
+        var obj=document.terminal.cmd;
+        if(document.selection) {
+        obj.focus();                    
+                var rng=document.selection.createRange();                       
+        rng.moveStart('character',-nchars);
+                return rng.text.length;
+        } else if(obj.selectionStart>=0) { // FireFox
+        var start = obj.selectionStart;
+        var end   = obj.selectionEnd;
+                if (start<=end) {
+                        return start;
+                } else {
+                        return end;
+           }
+        }
+}
+
+function catchbackspace(myfield,e)
+{
+var keycode;
+if (window.event) {keycode = window.event.keyCode;
+}
+else if (e) {
+keycode = e.which;
+}
+else return true;
+
+if (keycode == 13)
+{
+document.terminal.submit(); 
+return false;
+}
+if (keycode==38) {
+return false;
+}
+if ((keycode==8)||(keycode==37)||(keycode==46)) {
+    if ((getnchars()>nchars) && (getcursorpos() > nchars)) {
+        return true;
+    } else {
+        return false;
+    }
+} else {
+    return true;
+}
+}
+
+//  onkeypress="return catchbackspace(this,event)" onkeydown="return catchbackspace(this,event)"
 function submitenter(myfield,e)
 {
@@ -19 +71 @@
 return false;
 }
+else {
+if (keycode == 8) {
+if (getnchars()>nchars) {
+return true;
+} else {
+return false;
+}
+} else {
+return true;
+}
+}
+}
+
+function select_enter()
+{
+/* _SKIPC_
+document.terminal.cmdline.value=document.terminal.hist.options[document.terminal.hist.selectedIndex].value;
+document.terminal.hist.selectedIndex=0;
+document.terminal.cmdline.focus();
+_SKIPC_ */
+/* _SKIPT_
+document.terminal.cmd.value+=document.terminal.hist.options[document.terminal.hist.selectedIndex].value;
+document.terminal.hist.selectedIndex=0;
+document.terminal.cmd.focus();
+document.terminal.cmd.scrollTop =document.terminal.cmd.scrollHeight; 
+_SKIPT_ */
+}
+
+function select_enter_OFF(myfield,e)
+{
+var keycode;
+if (window.event) keycode = window.event.keyCode;
+else if (e) keycode = e.which;
+else return true;
+if (keycode == 13)
+{
+document.terminal.cmdline.value=document.terminal.hist.options[document.terminal.hist.selectedIndex].value;
+return false;
+}
 else
 return true;
@@ -27 +118 @@
 <div id="mainwindow">
 <h1>Run Perl 6 now -- in your browser!</h1>
-
-<form id="term" name="terminal" action="/cgi-bin/runpugs" method="POST">                  
-<input type="hidden" name="testing" value="_TESTING_">
+<form id="term" name="terminal" action="/cgi-perl/runpugs" method="POST">                  
+<input type="hidden" name="prompt" value="_PROMPTW_">
 <input type="hidden" name="sessionid" value="">
+<input type="hidden"    name="ia" value="1">
 <input type="hidden"    name="action" value="runpugs">
-<h2>Interactive Pugs Session</h2>
-<!-- _MOTD_ -->
 <input type="radio" id="rel" value="0" name="reldev" _REL_ ><label
 for="rel">Release version</label>&nbsp;&nbsp;
@@ -39 +128 @@
 for="dev">Development version</label>
 <div id="termwindow">
-<textarea id="cmd" name="cmd" rows="23" cols="80" wrap="virtual" onKeyPress="return submitenter(this,event)">
-pugs&gt;&nbsp;
+<select name="history" id="hist" onChange="select_enter()">
+<option value="">--- Recent commands ---</option>
+_HIST_
+</select>
+<br>
+<!-- _SKIPT_
+<textarea id="cmd" name="cmd" rows="20" cols="80" wrap="virtual" onkeypress="return catchbackspace(this,event)" onkeydown="return catchbackspace(this,event)">
+_ALL_
 </textarea>
+_SKIPT_ -->
+<!--_SKIPC_
+<textarea readonly id="output" name="output" rows="_NROWS_" cols="80" wrap="virtual">
+_REPLYW_
+</textarea>
+<br>
+<label for="cmdline"><span class="prompt">
+_NPROMPTW_
+</span>
+<input type="text" size="74" id="cmdline" name="cmdline" value=""
+onKeyPress="return submitenter(this,event)">
+</label>
+_SKIPC_ --> 
 </div>
 <input id="enter" type="submit" value="Submit">&nbsp;&nbsp;&nbsp;
@@ -47 +155 @@
 <script language="JavaScript">
 document.terminal.enter.style.display='none';
-document.terminal.cmd.focus();
-document.terminal.cmd.scrollTop =document.terminal.cmd.scrollHeight;
+document.terminal.cmdline.focus() // _SKIPT_
+document.terminal.cmd.focus() // _SKIPC_
+document.terminal.output.scrollTop =document.terminal.output.scrollHeight; // _SKIPT_
+document.terminal.cmd.scrollTop =document.terminal.cmd.scrollHeight; // _SKIPC_
+//if (document.terminal.output.rows==1) {
+//document.terminal.output.style.height="2ex";
+//}
+nchars=document.terminal.cmd.value.length;
 </script>
-<p>This live web terminal runs the <a href="http://www.pugscode.org">Pugs</a> interpreter for <a
-href="http://dev.perl.org/perl 6/">Perl 6</a>. Please <a
+<p>This live web terminal runs the <a href="http://www.pugscode.org">pugs</a> interpreter for <a
+href="http://dev.perl.org/perl 6/">Perl&nbsp;6</a>. Please <a
 href="http://feather.perl6.nl/~andara/runpugs/">read the documentation</a>.
 </p>

misc/runpugs/data/runpugs2.html

@@ -125 +125 @@
 </p>
    -->                            
-<form id="term" name="terminal" action="/cgi-bin/runpugs2" method="POST">                  
+   <!-- _MOTD_ -->
+<form id="term" name="terminal" action="/cgi-bin/runpugs" method="POST">                  
 <input type="hidden" name="prompt" value="_PROMPTW_">
 <input type="hidden" name="sessionid" value="">
@@ -134 +135 @@
 <input type="radio" id="dev" value="1" name="reldev" _DEV_ ><label
 for="dev">Development version</label>
-<!--
-<br><br>
-<span class="tabon">Interactive Pugs Session</span>
-&nbsp;&nbsp;<a class="taboff" href="/cgi-bin/runpugs2?ia=0">Run a Perl 6 Script</a>
--->
 <div id="termwindow">
 <select name="history" id="hist" onChange="select_enter()">