File: this.in

package info (click to toggle)
mlglade 0.5-2
  • links: PTS
  • area: main
  • in suites: woody
  • size: 480 kB
  • ctags: 386
  • sloc: ml: 4,519; makefile: 152; sh: 4
file content (20 lines) | stat: -rw-r--r-- 499 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
(*
 * $Id: this.in,v 1.1.1.1 2001/05/15 15:04:32 monate Exp $
 *)

(* do not edit - this file is created from this.in through make(1) *)

let system	    = "@this@"
let architecture    = "@arch@"

let name = 
  try
    let minus = String.index system '-' in
      String.sub system 0 minus
  with Not_found -> "not configured"

let version = 
  try
    let minus = String.index system '-' in
      String.sub system (minus + 1) (String.length system - minus - 1)
  with Not_found -> "not configured"