Gecko [ lostrivercommunitycenter.com ]

Name	Size	Permission	Date
examples	[ DIR ]	drwxr-xr-x	2026-09-29 03:01
COPYING	34.32 KB	-rw-r--r--	2024-08-13 19:55
CREDITS	2.72 KB	-rw-r--r--	2024-08-13 19:55
ChangeLog	56.06 KB	-rw-r--r--	2024-08-13 19:55
Hello.css	284 B	-rw-r--r--	2024-08-13 19:55
Hello.java	1.26 KB	-rw-r--r--	2024-08-13 19:55
Hello.java.html	5.79 KB	-rw-r--r--	2024-08-13 19:55
Hello1.html	5.58 KB	-rw-r--r--	2024-08-13 19:55
Hello2.css	273 B	-rw-r--r--	2024-08-13 19:55
Hello2.html	5.79 KB	-rw-r--r--	2024-08-13 19:55
Hello3.html	5.82 KB	-rw-r--r--	2024-08-13 19:55
Hello4.html	7.47 KB	-rw-r--r--	2024-08-13 19:55
Hello5.html	7.48 KB	-rw-r--r--	2024-08-13 19:55
Hello_h_f.html	8.58 KB	-rw-r--r--	2024-08-13 19:55
Hello_lines.html	7.45 KB	-rw-r--r--	2024-08-13 19:55
Hello_notfixed.html	6.37 KB	-rw-r--r--	2024-08-13 19:55
Hello_xhtml.html	7.54 KB	-rw-r--r--	2024-08-13 19:55
Hello_xhtml2.html	8.57 KB	-rw-r--r--	2024-08-13 19:55
INSTALL	12.24 KB	-rw-r--r--	2024-08-13 19:55
NEWS	21.44 KB	-rw-r--r--	2024-08-13 19:55
README	4.52 KB	-rw-r--r--	2024-08-13 19:55
SimpleClass-doc.html	8.96 KB	-rw-r--r--	2024-08-13 19:55
SimpleClass.html	11.9 KB	-rw-r--r--	2024-08-13 19:55
SimpleClass.java	1.76 KB	-rw-r--r--	2024-08-13 19:55
THANKS	2.46 KB	-rw-r--r--	2024-08-13 19:55
TODO.txt	3.85 KB	-rw-r--r--	2024-08-13 19:55
UsageExample.html	1.81 KB	-rw-r--r--	2024-08-13 19:55
UsageExample.java	309 B	-rw-r--r--	2024-08-13 19:55
access.log.html	42.12 KB	-rw-r--r--	2024-08-13 19:55
auth.log.html	4.21 KB	-rw-r--r--	2024-08-13 19:55
c.lang.html	3.55 KB	-rw-r--r--	2024-08-13 19:55
cmdline.h.html	88.01 KB	-rw-r--r--	2024-08-13 19:55
colors.html	1.46 KB	-rw-r--r--	2024-08-13 19:55
cpp2html.css	467 B	-rw-r--r--	2024-08-13 19:55
default.css	1.45 KB	-rw-r--r--	2024-08-13 19:55
default.style.html	8.7 KB	-rw-r--r--	2024-08-13 19:55
error.log.html	29.98 KB	-rw-r--r--	2024-08-13 19:55
examples.html	8.8 KB	-rw-r--r--	2024-08-13 19:55
flex_scanner.ll.html	27.41 KB	-rw-r--r--	2024-08-13 19:55
footer.html	619 B	-rw-r--r--	2024-08-13 19:55
header.html	517 B	-rw-r--r--	2024-08-13 19:55
index.html	19.39 KB	-rw-r--r--	2024-08-13 19:55
langdef.lang.html	2.16 KB	-rw-r--r--	2024-08-13 19:55
log.lang.html	7.04 KB	-rw-r--r--	2024-08-13 19:55
mono-alt.css	315 B	-rw-r--r--	2024-08-13 19:55
mono.css	299 B	-rw-r--r--	2024-08-13 19:55
sh_acid.css	858 B	-rw-r--r--	2024-08-13 19:55
sh_berries-dark.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_berries-light.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_bipolar.css	866 B	-rw-r--r--	2024-08-13 19:55
sh_blacknblue.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_bright.css	870 B	-rw-r--r--	2024-08-13 19:55
sh_contrast.css	862 B	-rw-r--r--	2024-08-13 19:55
sh_darkblue.css	866 B	-rw-r--r--	2024-08-13 19:55
sh_darkness.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_desert.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_dull.css	870 B	-rw-r--r--	2024-08-13 19:55
sh_easter.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_emacs.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_golden.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_greenlcd.css	870 B	-rw-r--r--	2024-08-13 19:55
sh_ide-anjuta.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_ide-codewarrior.css	718 B	-rw-r--r--	2024-08-13 19:55
sh_ide-devcpp.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_ide-eclipse.css	714 B	-rw-r--r--	2024-08-13 19:55
sh_ide-kdev.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_ide-msvcpp.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_kwrite.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_matlab.css	564 B	-rw-r--r--	2024-08-13 19:55
sh_navy.css	870 B	-rw-r--r--	2024-08-13 19:55
sh_nedit.css	864 B	-rw-r--r--	2024-08-13 19:55
sh_neon.css	864 B	-rw-r--r--	2024-08-13 19:55
sh_night.css	862 B	-rw-r--r--	2024-08-13 19:55
sh_pablo.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_peachpuff.css	714 B	-rw-r--r--	2024-08-13 19:55
sh_print.css	784 B	-rw-r--r--	2024-08-13 19:55
sh_rand01.css	866 B	-rw-r--r--	2024-08-13 19:55
sh_the.css	718 B	-rw-r--r--	2024-08-13 19:55
sh_typical.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_vampire.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_vim-dark.css	718 B	-rw-r--r--	2024-08-13 19:55
sh_vim.css	795 B	-rw-r--r--	2024-08-13 19:55
sh_whatis.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_whitengrey.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_zellner.css	716 B	-rw-r--r--	2024-08-13 19:55
source-highlight.cc.html	70.23 KB	-rw-r--r--	2024-08-13 19:55
source-highlight.html	367.57 KB	-rw-r--r--	2024-08-13 19:55
style_examples.html	460.42 KB	-rw-r--r--	2024-08-13 19:55
syslog.log.html	38.27 KB	-rw-r--r--	2024-08-13 19:55
syslog.style.html	2.22 KB	-rw-r--r--	2024-08-13 19:55
test.htm.html	38.38 KB	-rw-r--r--	2024-08-13 19:55
test.java.html	6.26 KB	-rw-r--r--	2024-08-13 19:55
test.java.tex.html	31.18 KB	-rw-r--r--	2024-08-13 19:55
test.js.html	61.47 KB	-rw-r--r--	2024-08-13 19:55
test.log.html	4 KB	-rw-r--r--	2024-08-13 19:55
test.lua.html	21.87 KB	-rw-r--r--	2024-08-13 19:55
test.ml.html	5.35 KB	-rw-r--r--	2024-08-13 19:55
test.php3.html	57.26 KB	-rw-r--r--	2024-08-13 19:55
test.pl.html	7 KB	-rw-r--r--	2024-08-13 19:55
test.pm.html	30.08 KB	-rw-r--r--	2024-08-13 19:55
test.py.html	4 KB	-rw-r--r--	2024-08-13 19:55
test.rb.html	6.64 KB	-rw-r--r--	2024-08-13 19:55
test.sml.html	8.15 KB	-rw-r--r--	2024-08-13 19:55
test_linerange_sep.html	2.7 KB	-rw-r--r--	2024-08-13 19:55
test_refs.cpp.html	12.6 KB	-rw-r--r--	2024-08-13 19:55
test_refs.h.html	10.85 KB	-rw-r--r--	2024-08-13 19:55
test_regexrange4.html	2.7 KB	-rw-r--r--	2024-08-13 19:55
xhtml.css	397 B	-rw-r--r--	2024-08-13 19:55

Rename

<pre><tt>open Graphics
open Types
(* #load "graphics.cma" *)
(* #load "fixed.cmo" *)

let _ = open_graph " 1024x768"
let _ = set_color black

let plot_car =
 let size_y = size_y () in
 fun ({x=x; y=y},_,_) -&gt;
 Graphics.plot (Fixed.to_coord x) (size_y - Fixed.to_coord y)

let plot freq cars =
 ignore
 (List.fold_left (fun counter car -&gt; if counter &lt;= 0
		 then (plot_car car; freq)
		 else pred counter) freq cars)

let list_iteri f l =
 ignore (List.fold_left (fun i elt -&gt; f i elt; i+1) 0 l)

let array_for_all f a =
 let length = Array.length a in
 let rec loop i =
 if i = length then true else f a.(i) &amp;&amp; loop (i+1) in
 loop 0

let rec dedoublonne = function
 |a::b::q -&gt; if a = b then dedoublonne (b::q) else a :: dedoublonne (b::q)
 |[a] -&gt; [a]
 |[] -&gt; []

let merge_songs db = function
 | [] | [_] -&gt; ()
 | id :: id's -&gt;
 let mysql_ids = List.map ml642int id's in
 ()
</tt></pre>