← Back to branch summary

~ubuntu-branches/ubuntu/utopic/fieldslib/utopic

« back to all changes in this revision

Viewing changes to sample/test.ml

  • Committer: Bazaar Package Importer
  • Author(s): Stéphane Glondu
  • Date: 2011-06-27 09:06:42 UTC
  • mfrom: (3.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20110627090642-abzkq3kxtc5f2b8b
Tags: 0.1.2-1
* New upstream release
  - remove obsolete patch
* Add myself to Uploaders, remove Stefano
* Rewrite debian/rules using dh with overrides
* Switch source package format to 3.0 (quilt)
* Bump Standards-Version to 3.9.2
* Bump debhelper compat level to 8
* Update debian/watch

Show diffs side-by-side

added added

removed removed

Lines of Context:
sample/test.ml
1
 
(*pp camlp4o -I `ocamlfind query type-conv` -I ../lib pa_type_conv.cmo pa_fields_conv.cmo *)
2
 
type t = {
3
 
  dir : [ `Buy | `Sell ];
4
 
  quantity : int;
5
 
  price : float;
 
1
(******************************************************************************
 
2
 *                             Fieldslib                                      *
 
3
 *                                                                            *
 
4
 * Copyright (C) 2008- Jane Street Holding, LLC                               *
 
5
 *    Contact: opensource@janestreet.com                                      *
 
6
 *    WWW: http://www.janestreet.com/ocaml                                    *
 
7
 *                                                                            *
 
8
 *                                                                            *
 
9
 * This library is free software; you can redistribute it and/or              *
 
10
 * modify it under the terms of the GNU Lesser General Public                 *
 
11
 * License as published by the Free Software Foundation; either               *
 
12
 * version 2 of the License, or (at your option) any later version.           *
 
13
 *                                                                            *
 
14
 * This library is distributed in the hope that it will be useful,            *
 
15
 * but WITHOUT ANY WARRANTY; without even the implied warranty of             *
 
16
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU          *
 
17
 * Lesser General Public License for more details.                            *
 
18
 *                                                                            *
 
19
 * You should have received a copy of the GNU Lesser General Public           *
 
20
 * License along with this library; if not, write to the Free Software        *
 
21
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  *
 
22
 *                                                                            *
 
23
 ******************************************************************************)
 
24
 
 
25
 
 
26
open Fieldslib
 
27
open Printf
 
28
open StdLabels
 
29
 
 
30
type ('a,'b) t = {
 
31
  dir : 'a * 'b;
 
32
  quantity : ('a , 'b) t;
 
33
  price : int * 'a;
6
34
  mutable cancelled : bool;
 
35
(*   symbol : string;   *)
7
36
} with fields