1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
(***********************************************************************)
(* *)
(* ATS/contrib/libats-hwxi *)
(* *)
(***********************************************************************)
(*
** Copyright (C) 2013 Hongwei Xi, ATS Trustful Software, Inc.
**
** Permission is hereby granted, free of charge, to any person obtaining a
** copy of this software and associated documentation files (the "Software"),
** to deal in the Software without restriction, including without limitation
** the rights to use, copy, modify, merge, publish, distribute, sublicense,
** and/or sell copies of the Software, and to permit persons to whom the
** Software is furnished to do so, subject to the following stated conditions:
**
** The above copyright notice and this permission notice shall be included in
** all copies or substantial portions of the Software.
**
** THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
** OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
** FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
** THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
** LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
** FROM OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
** IN THE SOFTWARE.
*)
(* ****** ****** *)
//
// HX-2013-10:
// A cairo-based drawing package
//
(* ****** ****** *)
//
#define
ATS_PACKNAME
"ATSCNTRB\
.libats-hwxi.teaching.mydraw"
//
(* ****** ****** *)
//
#define
LIBCAIRO_targetloc
"$PATSHOME/npm-utils/contrib/atscntrb-libcairo"
//
(* ****** ****** *)
//
#staload
XR = "{$LIBCAIRO}/SATS/cairo.sats"
//
stadef cairo_ref = $XR.cairo_ref
stadef cairo_ref1 = $XR.cairo_ref1
//
(* ****** ****** *)
//
fun{}
mydraw_get0_cairo
(
// argumentless
) : [l:agz] vttakeout0(cairo_ref(l))
//
fun{}
mydraw_get1_cairo((*void*)): cairo_ref1
//
(* ****** ****** *)
(* end of [mydraw_cairo.sats] *)
|
