mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-20 20:03:44 +00:00
af23a48a2b
extras/gator/gator:
Update programming style. Fix indentation. Add a vim modeline.
extras/gator/genotype.m:
extras/gator/phenotype.m:
Fix indentation.
extras/lex/regex.m:
Replace if-then-else chain with a switch.
extras/base64/base64.m:
extras/cgi/cgi.m:
extras/cgi/form_test.m:
extras/cgi/html.m:
extras/cgi/mercury_www.m:
extras/complex_numbers/complex_numbers.complex.m:
extras/complex_numbers/complex_numbers.complex_float.m:
extras/complex_numbers/complex_numbers.complex_imag.m:
extras/complex_numbers/complex_numbers.float_complex.m:
extras/complex_numbers/complex_numbers.float_imag.m:
extras/complex_numbers/complex_numbers.imag.m:
extras/complex_numbers/complex_numbers.imag_complex.m:
extras/complex_numbers/complex_numbers.imag_float.m:
extras/complex_numbers/complex_numbers.m:
extras/curs/curs.m:
extras/dynamic_linking/dl_test.m:
extras/dynamic_linking/dl_test2.m:
extras/dynamic_linking/hello.m:
extras/error/error.m:
extras/fixed/fixed.m:
extras/fixed/mercury_fixed.m:
extras/java_extras/make_temp.m:
extras/lex/lex.automata.m:
extras/lex/lex.buf.m:
extras/lex/lex.convert_NFA_to_DFA.m:
extras/lex/lex.lexeme.m:
extras/lex/lex.m:
extras/lex/lex.regexp.m:
extras/logged_output/logged_output.m:
extras/logged_output/main.m:
extras/monte/doit.m:
extras/monte/dots.m:
extras/monte/geom.m:
extras/monte/hg.m:
extras/monte/monte.m:
extras/monte/rnd.m:
extras/mopenssl/mopenssl.m:
extras/odbc/mercury_odbc.m:
extras/odbc/odbc.m:
extras/odbc/odbc_test.m:
extras/posix/posix.chdir.m:
extras/posix/posix.closedir.m:
extras/posix/posix.dup.m:
extras/posix/posix.exec.m:
extras/posix/posix.fork.m:
extras/posix/posix.getpid.m:
extras/posix/posix.kill.m:
extras/posix/posix.lseek.m:
extras/posix/posix.m:
extras/posix/posix.mkdir.m:
extras/posix/posix.open.m:
extras/posix/posix.opendir.m:
extras/posix/posix.pipe.m:
extras/posix/posix.read.m:
extras/posix/posix.readdir.m:
extras/posix/posix.realpath.m:
extras/posix/posix.rmdir.m:
extras/posix/posix.select.m:
extras/posix/posix.sleep.m:
extras/posix/posix.socket.m:
extras/posix/posix.stat.m:
extras/posix/posix.strerror.m:
extras/posix/posix.wait.m:
extras/posix/posix.write.m:
extras/quickcheck/qcheck.m:
extras/quickcheck/rnd.m:
extras/quickcheck/test_qcheck.m:
extras/show_ops/show_ops.m:
extras/split_file/split_file.m:
extras/windows_installer_generator/wix.m:
extras/windows_installer_generator/wix_files.m:
extras/windows_installer_generator/wix_gui.m:
extras/windows_installer_generator/wix_installer.m:
extras/windows_installer_generator/wix_util.m:
Apply tools/stdlines to all these files.
62 lines
1.8 KiB
Mathematica
62 lines
1.8 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
|
|
% This is an example program to test the CGI library.
|
|
|
|
:- module form_test.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module cgi.
|
|
:- import_module html.
|
|
|
|
:- import_module bool.
|
|
:- import_module list.
|
|
:- import_module maybe.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% NOTE: you will need to change this to suit your system.
|
|
%
|
|
:- func my_url = string.
|
|
|
|
my_url = "http://hydra.cs.mu.oz.au/cgi-bin/mercury/form_test".
|
|
|
|
:- pred np(io::di, io::uo) is det.
|
|
|
|
np(!IO) :-
|
|
html.output_markup(np, !IO).
|
|
|
|
main(!IO) :-
|
|
cgi.get_form(MaybeFormEntries, !IO),
|
|
(
|
|
MaybeFormEntries = yes(FormEntries),
|
|
html.output_content_type_html(!IO),
|
|
html.output_header([title(text("Form Test"))], !IO),
|
|
html.output_markup(heading(1, text("Fields Entered:")), !IO),
|
|
io.print("<code>", !IO),
|
|
io.print(FormEntries, !IO),
|
|
io.print("</code>", !IO), np(!IO),
|
|
io.print("<pre>", !IO),
|
|
io.write_list(FormEntries, "\n", print, !IO),
|
|
io.print("</pre>", !IO), np(!IO),
|
|
html.output_form_start(my_url, !IO),
|
|
io.print("Name: ", !IO),
|
|
html.output_field("name", text(60, 90, ""), !IO), np(!IO),
|
|
io.print("Address: ", !IO),
|
|
html.output_field("address", textarea(3, 60, ""), !IO), np(!IO),
|
|
io.print("Bozo?", !IO),
|
|
html.output_field("bozo", checkbox(no, "yes"), !IO), np(!IO),
|
|
html.output_field("submit", submit("OK"), !IO), np(!IO),
|
|
html.output_form_end(!IO)
|
|
;
|
|
MaybeFormEntries = no
|
|
).
|