/[ascend]/trunk/models/johnpye/extfn/extfntest.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/extfn/extfntest.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 534 - (show annotations) (download) (as text)
Tue Apr 25 13:25:04 2006 UTC (14 years, 1 month ago) by johnpye
File MIME type: text/x-ascend
File size: 395 byte(s)
Working on platform-independent pathnames for the IMPORT command.
Added 'ospath.c' to base/generic/general for this purpose.
Patched kvalues and sensitivity to use the 'IMPORT "libname";' syntax
instead of 'IMPORT registerfn FROM libname;'.
Fixed pathnames in create.nsi.
Added GPL header to coupla files.
Added quoting to 'IMPORT' syntax in ascParse.y.
Removed 'PackageOption' from Tcl/Tk related Scons options so that missing Tcl/Tk
doesn't cause breakage.
1 REQUIRE "system.a4l";
2 IMPORT "johnpye/extfn/extfntest";
3
4 MODEL test_extfntest;
5
6 y IS_A solver_var;
7 x IS_A solver_var;
8
9 do_addone: add_one(
10 x : INPUT;
11 y : OUTPUT
12 );
13
14 METHODS
15
16 METHOD specify;
17 FIX x;
18 END specify;
19 METHOD values;
20 x := 1.0;
21 END values;
22
23 METHOD default_self;
24 RUN specify; RUN values;
25 END default_self;
26
27 METHOD self_test;
28 ASSERT y == 2;
29 END self_test;
30
31 END test_extfntest;

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22