Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

file 19 lines (18 sloc) 0.543 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
open Baseclient

class syclient (person: int) (port: int) (order: int) =
object (self)
  inherit baseclient
  val mutable command = ""
  initializer
    let prefix = Printf.sprintf "ngram -use-server %d@localhost -order %d -debug 1 -ppl " port order in
    command <- prefix;
  method create = ()
  method destroy = 0
  method get_person = person
  method get_port = port
  method get_order = order
  method get_command = command
  method compute arg =
    let command_line = command ^ arg in
    Process.read command_line
end
Something went wrong with that request. Please try again.