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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 534 - (hide annotations) (download) (as text)
Tue Apr 25 13:25:04 2006 UTC (14 years, 9 months 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 johnpye 209 REQUIRE "system.a4l";
2 johnpye 534 IMPORT "johnpye/extfn/extfntest";
3 johnpye 209
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 johnpye 529 y : OUTPUT
12 johnpye 209 );
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