Parent Directory | Revision Log

Revision **1** -
(**show annotations**)
(**download**)
(**as text**)

*Fri Oct 29 20:54:12 2004 UTC*
(15 years, 8 months ago)
by *aw0a*

File MIME type: text/x-ascend

File size: 2106 byte(s)

File MIME type: text/x-ascend

File size: 2106 byte(s)

Setting up web subdirectory in repository

1 | REQUIRE "system.a4l"; |

2 | (* => system.a4l, basemodel.a4l *) |

3 | PROVIDE "z-isawhere.a4c"; |

4 | (* |

5 | * This file is part of the ASCEND Modeling Library and is released |

6 | * under the GNU Public License as described at the end of this file. |

7 | * |

8 | * Use of this module requires an empty ascend system. |

9 | *) |

10 | |

11 | (* |

12 | * This MODEL presents test cases for the "Where created" button (WriteISAs) |

13 | * function in ASCEND. |

14 | *) |

15 | |

16 | MODEL par1(a WILL_BE real;); |

17 | b IS_A real; |

18 | END par1; |

19 | |

20 | MODEL par2( tp WILL_BE par1;); |

21 | c IS_A real; |

22 | d ALIASES tp.a; |

23 | END par2; |

24 | |

25 | MODEL testwherecreated; |

26 | x IS_A real; |

27 | y IS_A real; |

28 | x,y ARE_THE_SAME; |

29 | p1 IS_A par1(x); |

30 | p2 IS_A par2(p1); |

31 | z ALIASES p2.tp.b; |

32 | w ALIASES p2.tp.a; |

33 | (* |

34 | NOTES 'test' SELF { |

35 | COMPILE a testwherecreated; |

36 | check |

37 | Object named y created as a.x a.y |

38 | Object named z created as a.p1.b |

39 | Object named p1 created as a.p1 |

40 | Object named p2 created as a.p2 |

41 | Compare: |

42 | Object named w created as a.x a.y |

43 | ALIASES of w = a.p2.d a.p2.tp.a a.p1.a a.w a.x a.y |

44 | } |

45 | END NOTES; |

46 | *) |

47 | END testwherecreated; |

48 | |

49 | |

50 | (* |

51 | * z-isawhere.a4c |

52 | * by Benjamin Allan |

53 | * Part of the ASCEND Library |

54 | * $Date: 1998/06/17 19:39:38 $ |

55 | * $Revision: 1.2 $ |

56 | * $Author: mthomas $ |

57 | * $Source: /afs/cs.cmu.edu/project/ascend/Repository/models/z-isawhere.a4c,v $ |

58 | * |

59 | * This file is part of the ASCEND Modeling Library. |

60 | * |

61 | * Copyright (C) 1997 Benjamin Allan |

62 | * |

63 | * The ASCEND Modeling Library is free software; you can redistribute |

64 | * it and/or modify it under the terms of the GNU General Public |

65 | * License as published by the Free Software Foundation; either |

66 | * version 2 of the License, or (at your option) any later version. |

67 | * |

68 | * The ASCEND Modeling Library is distributed in hope that it will be |

69 | * useful, but WITHOUT ANY WARRANTY; without even the implied |

70 | * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |

71 | * See the GNU General Public License for more details. |

72 | * |

73 | * You should have received a copy of the GNU General Public License |

74 | * along with the program; if not, write to the Free Software |

75 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check |

76 | * the file named COPYING. |

77 | *) |

john.pye@anu.edu.au | ViewVC Help |

Powered by ViewVC 1.1.22 |