This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
John | 1234 Main St. | 555-123-4567 | john@samplewebsite.com | |
---|---|---|---|---|
Naomi | 234 Apartment 412 | 555-758-9865 | naomi@fakewebsite.net | |
Bob | Amazing Penthouse on Park Place | 555-785-5544 | bob@corporatewebsite.com | |
Sarah | 456 Main St. | 555-456-7845 | sarah@smallbusinessdomain.net |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#use "Utils.ml";; | |
#use "TimeSeriesWithRecords.ml";; | |
#use "TimeSeriesWithModules.ml";; | |
let test_data = | |
[| | |
{date = {year = 2019; month = Jan; day = 1}; time = None; value = Some 1.0}; | |
{date = {year = 2019; month = Jan; day = 2}; time = None; value = Some 2.0}; | |
{date = {year = 2019; month = Jan; day = 4}; time = None; value = None}; | |
{date = {year = 2019; month = Jan; day = 6}; time = None; value = Some 3.0}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
!-- DON'T EDIT THIS FILE! It is generated from TestProject.conf.in, edit that one, or the variables in Makefile.options --> | |
<ocsigen> | |
<server> | |
<port>443</port> | |
<user>www-data</user><group>www-data</group> | |
<logdir>/usr/local/var/log/TestProject</logdir> | |
<datadir>/usr/local/var/data/TestProject</datadir> | |
<ssl> | |
<certificate>path_to_cert.pem</certificate> | |
<privatekey>path_to_privkey.pem</privatekey> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#---------------------------------------------------------------------- | |
# SETTINGS FOR THE ELIOM PROJECT TestProject | |
#---------------------------------------------------------------------- | |
PROJECT_NAME := TestProject | |
# Source files for the server | |
SERVER_FILES := TestProject.eliom | |
# Source files for the client | |
CLIENT_FILES := TestProject.eliom |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* Example website login: localhost:8080/?user_num=1 *) | |
{shared{ | |
open Eliom_lib | |
open Eliom_content | |
open Html5 | |
open Html5.F | |
open Eliom_registration | |
open Eliom_parameter | |
}} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* Example website login: localhost:8080/?user_num=1 *) | |
{shared{ | |
open Eliom_lib | |
open Eliom_content | |
open Eliom_content.Html5 | |
open Html5.D | |
open Eliom_registration | |
open Eliom_parameter | |
}} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* Example website login: localhost:8080/?user_num=1 *) | |
{shared{ | |
open Eliom_lib | |
open Eliom_content | |
open Html5.D | |
open Eliom_parameter | |
}} | |
module Channel_example_app = |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{shared{ | |
open Eliom_lib | |
open Eliom_content | |
open Html5 | |
open F | |
}} | |
(* int_list functions *) | |
let int_list = ref [0] | |
let add_int i = (int_list := i :: !int_list) |