Overview
Comment:Close file if it is opened
Reformated octave style
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 5f60f8189405b46da8ca9d14d57a7448ecc07b69f5d5a5d1f316f8fef4186515
User & Date: gawthrop@users.sourceforge.net on 2000-11-12 17:10:51
Other Links: branch diff | manifest | tags
Context
2000-11-12
17:16:09
Close the file check-in: 183a8a3473 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
17:10:51
Close file if it is opened
Reformated octave style check-in: 5f60f81894 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
16:45:57
Close ese file before recursive call of cbg2ese -- reopen when
finished.
THis prevents a new file being opened for each subsystem which fails
when > 1K files opened check-in: 042a906bec user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/m/mtt_info.m from [d00eb814d3] to [797b0982e0]. 

1
2

3
4

5
6
7
8




9
10
11
12
13
14
15
16
17
18



















19



20






21

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


-
+

-
+
-
-
-
-
+
+
+
+

-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

+
+
+
-
+
+
+
+
+
+


function mtt_info(info, infofile);
% mtt_info(info, infofile);
  ## mtt_info(info, infofile);

% function [bonds, status] = abg2cbg(bonds,components,system_name,filename)
  ## function [bonds, status] = abg2cbg(bonds,components,system_name,filename)
% 
%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%     %%%%% Model Transformation Tools %%%%%
%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  ## 
  ##     ###################################### 
  ##     ##### Model Transformation Tools #####
  ##     ######################################

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1  1996/08/18  20:06:57  peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  ## ###############################################################
  ## ## Version control history
  ## ###############################################################
  ## ## $Id$
  ## ## $Log$
  ## ## Revision 1.2  1997/02/11 10:06:42  peterg
  ## ## Removed a debugging line.
  ## ##
  ## ## Revision 1.1  1996/08/18  20:06:57  peter
  ## ## Initial revision
  ## ##
  ## ###############################################################

  ## Set default file if it isn't there already
  if nargin<2
    infofile = fopen("mtt_info.txt","a");
  end;

  fprintf(infofile, "INFORMATION: %s\n", info);

  if nargin<2
    fclose(infofile);
  end;
fprintf(infofile, 'INFORMATION: %s\n', info);

endfunction

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]