Hyper Estraier @ www.gnu.org

phrase:
attribute:
attribute:
attribute:
order:
per page:
clip:
action:

Results of 0 - 1 of about 0 (0.000 sec.)

APL_demo.html: @digest: 1f32b33983fb7ab24914510569979696; @id: 286663; @mdate: 2023-04-20T12:58:02Z; @size: 16475; @type: text/html; content-type: text/html; charset=UTF-8; #keywords: yfeatures (57279), xmail (50303), apl (31146), xapl (30483), xhttp (29993), xdescription (29523), xtarfile (29523), ←⊂ (29072), x2y (28223), ∆ (24500), xftp (22862), xmirrors (22862), xcygwin (22494), ybody (21804), ←" (21016), xtitle (20713), ←' (20507), ⍝ (19338), sauermann (13767), ← (7952), ⎕ (6335), inp (4100), subversion (4015), html (2025), checkout (1805), compact (1730), br (1580), subscribe (1372), cygwin (1312), binary (1181), savannah (1079), interpreter (1058); #!/usr/local/bin/apl --script -- 0 0⍴⍎')COPY 5 HTML.apl' ⍝ This is an APL CGI script that demonstrates the use of APL for CGI scripting ⍝ It outputs an HTML page like GNU APL's homepage at www.gnu.org. ⍝ ⍝ Variable name conventions: ⍝ ⍝ Variables starting with x, e.g. xB, are strings (simple vectors of ⍝ characters), i.e. 1≡ ≡xB and 1≡''⍴⍴⍴xB ⍝ ⍝ Variables starting with y are vectors of character strings, ⍝ i.e. 2≡ ≡yB and 1≡''⍴⍴⍴yB ⍝ ⍝ Certain characters in function names have the following meaning: ⍝ ⍝ T - start tag ⍝ E - end tag ⍝ X - attributes ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝ disable colored output and avoid APL line wrapping ⍝ ]COLOR OFF ⎕PW←1000 ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝ ⍝ Document variables. Set them to '' so that they are always defined. ⍝ Override them in the document section (after )SAVE) as needed. ⍝ xTITLE←'<please-set-xTITLE>' xDESCRIPTION←'<please-set-xDESCRIPTION>' yBODY←0⍴'<please-set-yBODY>' ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝ The content of the HTML page ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝ Return xHTTP_GNU or xHTTP_JSA ⍝ depending on the CGI variable SERVER_NAME ⍝ ∇xZ←Home;xS xS←⊃(⎕⎕ENV 'SERVER_NAME')[;⎕IO + 1] xZ←"192.168.0.110/apl" ⍝ Jürgen's home ? →(S≡'192.168.0.110')/0 ⍝ yes, this script was called by apache →(S≡'')/0 ⍝ yes, this script called directly xZ←xHTTP_GNU,'/apl' ⍝ no ∇ ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝ set xTITLE and xDESCRIPTION that go into the HEAD section of the page ⍝ xTITLE←'GNU APL' xDESCRIPTION←'Welcome to GNU APL' ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝ some URIs used in the BODY ⍝ xHTTP_GNU←"http://www.gnu.org/" xHTTP_DOXY←"http://svn.savannah.gnu.org/viewvc/*checkout*/apl/trunk/html/index.html" xHTTP_JSA←"http://192.168.0.110/apl/" xFTP_GNU←"ftp://ftp.gnu.org" xFTP_APL←xFTP_GNU,"/gnu/apl" xCYGWIN←"www.cygwin.org" xMIRRORS←'http://www.gnu.org/prep/ftp.html' xGNU_PIC←HTML∆__src xHTTP_GNU, "graphics/gnu-head-sm.jpg" ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝ some file names used in the BODY ⍝ xAPL_VERSION←'apl-1.8' xTARFILE←xAPL_VERSION, '.tar.gz' xRPMFILE←xAPL_VERSION, '-0.i386.rpm' xSRPMFILE←xAPL_VERSION, '-0.src.rpm' xDEBFILE←xAPL_VERSION, '-1_i386.deb' xSDEBFILE←xAPL_VERSION, '-1.debian.tar.gz' xAPL_TAR←xFTP_GNU, '/', xTARFILE xMAIL_GNU←'gnu@gnu.org' xMAIL_WEB←'bug-apl@gnu.org' xMAIL_APL←'bug-apl@gnu.org' xMAIL_APL_ARCHIVE←'http://lists.gnu.org/archive/html/bug-apl/' xMAIL_APL_SUBSCRIBE←'https://lists.gnu.org/mailman/listinfo/bug-apl' xSVN_APL←'https://savannah.gnu.org/svn/?group=apl' xGIT_APL←'https://savannah.gnu.org/git/?group=apl' ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝ some features of GNU APL ⍝ yFEATURES← ⊂ 'nested arrays and related functions' yFEATURES←yFEATURES, ⊂ 'complex numbers, and' yFEATURES←yFEATURES, ⊂ 'a shared variable interface' yFEATURES←HTML∆Ul yFEATURES ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ ⍝ Installation instructios ⍝ ∇yZ←INSTALL;I1;I2;I3;I4;I5 I1← 'Visit one of the ', xMIRRORS HTML∆A 'GNU mirrors' I1← I1, ' and download the tar file ', xTARFILE,' in directory' I1←⊂ I1, ' apl.' I2←⊂ 'Unpack the tar file: tar xzf ', xTARFILE, '' I3←⊂ 'Change to the newly created directory: cd ', xAPL_VERSION, '' I4← 'Read (and follow) the instructions in files INSTALL' I4←⊂ I4, ' and README-*' I5← 'Caveat: GNU APL creates full releases only every 1-2 years. Therefore an interpreter' I5←I5, ' downloaded from a GNU mirror is inevitably outdated and likely contains errors that were fixed already.' I5←⊂I5, ' Consider using git or SVN (see below) instead.' yZ←⊃ HTML∆Ol I1, I2, I3, I4, I5 ∇ ⍝ ⎕INP acts like a HERE document in bash. The monadic form ⎕INP B ⍝ reads subsequent lines from the input (i.e. the lines below ⎕INP ⍝ if ⎕INP is called in a script) until pattern B is seen. The lines ⍝ read are then returned as the result of ⎕INP. ⍝ ⍝ The dyadic form A ⎕INP B acts like the monadic form ⎕INP B. ⍝ A is either a single string or a nested value of two strings. ⍝ ⍝ Let A1←A2←A if A is a string or else A1←A[1] and A2←A[2] if A is ⍝ a nested 2-element vector containing two strings. ⍝ ⍝ Then every pattern A1 expression A2 is replaced by ⍎ expression. ⍝ ⍝ We first give an example of ⎕INP in the style of PHP and another, ⍝ more compact, example further down below. ⍝ yBODY← '<?apl' '?>' ⎕INP 'END-OF-⎕INP' ⍝ php style <DIV class="c1"> <?apl HTML∆H1[''] xTITLE ?> <TABLE> <TR> <TD> <?apl HTML∆Img[xGNU_PIC, (HTML∆_alt 'Astrid'), HTML∆__h_w 122 129] 1 ?> <TD style="width:20%"> <TD> Rho, rho, rho of X Always equals 1 Rho is dimension, rho rho rank. APL is fun! Richard M. Stallman, 1969 </TR> </TABLE> </DIV> <DIV class="c2"> GNU APL is a free interpreter for the programming language APL. The APL interpreter is an (almost) complete implementation of ISO standard 13751 aka. Programming Language APL, Extended. The APL interpreter has implemented: <?apl ⊃ yFEATURES ?> In addition, GNU APL can be scripted. For example, this GNU APL home page was produced by a CGI script written in APL (see <?apl HTML∆x2y 'APL_demo.html' HTML∆A "APL demo" ?>). GNU APL was written and is being maintained by Jürgen Sauermann. <A href="http://xn--jrgen-sauermann-zvb.de"></A></DIV> <DIV class="c3"> <?apl HTML∆H2[''] 'Downloading and Installing GNU APL' ?> GNU APL should be available on every <?apl xMIRRORS HTML∆A 'GNU mirror' ?> (in directory apl) and at <?apl xFTP_APL HTML∆A xFTP_GNU ?>. <?apl HTML∆H4[''] 'Simple Installation of GNU APL' ?> The simplest (though not necessarily best) way to install GNU APL is this: <?apl ⊃ INSTALL ?> <?apl HTML∆H4[''] 'GNU APL for WINDOWs' ?> GNU APL compiles under CYGWIN, (see <?apl ('http://',xCYGWIN) HTML∆A xCYGWIN ?>), provided that the necessary libraries are installed. A 32-bit apl.exe that should run under CYGWIN lives in the download area. Use at your own risk and see README-5-WINDOWS for further information. Building GNU APL under cygwin is the method of choice if you need some of the special purpose system functions (⎕FFT, ⎕PLOT, ⎕RE, etc) that depend on non-default libraries. A compiled 64-bit version of GNU APL (briefly tested under Windows 10) which was built under cygwin, but runs without cygwin being installed, is contained in file apl-1.8-windows.zip. This zip file also contains an installer for an APL keyboard layout. <?apl HTML∆H4[''] 'Subversion (SVN) and Git repositories for GNU APL' ?> The best supported way of installing GNU APL is to check out its latest version from either its Subversion (preferred) or Git repository on Savannah. The subversion command to do that is: svn checkout http://svn.savannah.gnu.org/svn/apl/trunk Here is <?apl HTML∆x2y xSVN_APL HTML∆A "more information" ?> about using Subversion with GNU APL. Likewise, the command for a Git checkout is: git clone https://git.savannah.gnu.org/git/apl.git and here is <?apl HTML∆x2y xGIT_APL HTML∆A "more information" ?> about using Git with GNU APL. <?apl HTML∆H4[''] 'RPMs for GNU APL' ?> For RPM based GNU/Linux distributions we have created source and binary RPMs. Look for files <?apl xRPMFILE ?> (binary RPM for i386) or <?apl xSRPMFILE ?> (source RPM). If you encounter a problem with these RPMs, then please report it, but with a solution, since the maintainer of GNU APL may use a GNU/Linux distribution with a different package manager. <?apl HTML∆H4[''] 'Debian packages for GNU APL' ?> For Debian based GNU/Linux distributions we have created source and binary packages for Debian. Look for files <?apl xDEBFILE ?> (binary Debian package for i386) or <?apl xSDEBFILE ?> (Debian source package). If you encounter a problem with these packages, then please report it, but with a solution, since the maintainer of GNU APL may use a GNU/Linux distribution with a different package manager. <?apl HTML∆H4[''] 'GNU APL Binary' ?> If you just want to quickly give GNU APL a try, and if you are very lucky, then you may be able to start the compiled GNU APL binary apl in the directory apl rather than installing the entire packet . The binary MAY run on a 32-bit i686 Ubuntu. Chances are, however, that it does NOT work, Please DO NOT report any problems if the binary does not run on your machine. Instead please use a better supported installation method above. Note: The programs APxxx and APserver (support programs for shared APL variables) are not provided in binary form. Therefore you should start the apl binary with command line option --noSV. Note as well that the binary apl will not be updated with every GNU APL release. Therefore it will contain errors that have been corrected already. </DIV> <DIV class="c4"> <?apl HTML∆H2[''] 'Reporting Bugs' ?> GNU APL is made up of more than 100,000 lines of C++ code. In a code of that size, programming mistakes are inevitable. Even though mistakes are hardly avoidable, they can be corrected once they are found. In order to improve the quality of GNU APL, we would like to encourage you to report errors that you find in GNU APL to <?apl HTML∆x2y ("mailto:", xMAIL_APL) HTML∆A "", xMAIL_APL, "" ?>. The emails that we like the most are those that include a small example of how to reproduce the fault. You can see all previous postings to this mailing list at <?apl HTML∆x2y xMAIL_APL_ARCHIVE HTML∆A "", xMAIL_APL_ARCHIVE,"" ?> or subscribe to it at <?apl HTML∆x2y xMAIL_APL_SUBSCRIBE HTML∆A "", xMAIL_APL_SUBSCRIBE,"" ?>. </DIV> <DIV class="c5"> <?apl HTML∆H2[''] 'Documentation' ?> GNU APL comes with two documents: <?apl HTML∆x2y 'apl-intro.html' HTML∆A "A Quick Tour of GNU APL"?>, which was primarily written for newcomers to APL in general or to GNU APL in particular. It contains a brief introduction by examples into the APL language, followed by s short description of almost all GNU APL features. And, for those already familiar with APL, there is a slightly more detailed <?apl HTML∆x2y 'apl.html' HTML∆A "info manual" ?> for GNU APL whose focus is more on the non-standard GNU APL features than on the APL language itself. Finally, all GNU APL source code files are Doxygen documented. You can locally generate this documentation by running make DOXY in the top level directory of the GNU APL package. Or browse a (not entirely up-to-date) <?apl HTML∆x2y 'http://jürgen-sauermann.de/gnu_APL_doxygen/index.html' HTML∆A "online version" ?> of the Doxygen documentation. </DIV> <DIV class="c6"> <?apl HTML∆H2[''] 'GNU APL Community' ?> There is a growing group of people that are using GNU APL and that would like to share their APL code with other APL programmers. We have created a <?apl 'Community.html' HTML∆A 'GNU APL Community Web page' ?> that aims at collecting and preserving links to the code provided by GNU APL users as to avoid that it gets lost. In addition, we maintain a <?apl 'Bits_and_Pieces/' HTML∆A 'Bits-and-Pieces' ?> directory where we collect files that contain APL code sniplets, GNU APL workspaces, and other files that were contributed by the GNU APL Community. The Bits-and-Pieces directory is the right place for contributions for which the creation of an own hosting account would be an overkill. </DIV> END-OF-⎕INP ⍝ the text above used an 'escape style' similar to PHP ⍝ (using <?apl ... ?> instead of <?php ... ?>). This style also ⍝ resembles the tagging of HTML. ⍝ ⍝ By calling ⎕INP with different left arguments you can use your ⍝ preferred style, for example the more compact { ... } style ⍝ as shown in the following example: ⍝ yBODY←yBODY, (,¨'{}') ⎕INP 'END-OF-⎕INP' ⍝ more compact style <DIV class="c7"> Return to {HTML∆x2y "http://www.gnu.org/home.html" HTML∆A "GNU's home page"}. Please send FSF & GNU inquiries & questions to {HTML∆x2y ("mailto:", xMAIL_GNU) HTML∆A "", xMAIL_GNU, ""}. There are also {HTML∆x2y "http://www.gnu.org/home.html#ContactInfo" HTML∆A "other ways to contact"} the FSF. Please send comments on these web pages to {HTML∆x2y ("mailto:", xMAIL_WEB) HTML∆A "", xMAIL_WEB, ""}. send other questions to {HTML∆x2y ("mailto:", xMAIL_GNU) HTML∆A "", xMAIL_GNU, ""}. Copyright (C) 2014 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110, USA Verbatim copying and distribution of this entire article is permitted in any medium, provided this notice is preserved. </DIV> END-OF-⎕INP HTML∆emit HTML∆Document '' )OFF )WSID APL_CGI )DUMP ...; http://www.gnu.org/savannah-checkouts/gnu/apl/APL_demo.html - [detail] - [similar]

PREV NEXT