Overview
Comment:Neater comment zapping
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: f16ab3a8189457f6c3fabeb896a8a1a5abd54b4b3233703ac3c8c035e8520090
User & Date: gawthrop@users.sourceforge.net on 2000-05-16 18:58:44
Other Links: branch diff | manifest | tags
Context
2000-05-17
09:14:37
Initial revision check-in: 5edc09a620 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
2000-05-16
18:58:44
Neater comment zapping check-in: f16ab3a818 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
18:57:15
Still debugging check-in: ab8dd4dd75 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/make_stdin from [1fe38150b6] to [506a71f422].

︙︙
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

PROCEDURE $1_input(VAR mttu : InputVector;
                       mttt : REAL;
                       mttx : StateVector;
                       mtty : OutputVector);

{Created by MTT on $date for standard input to simulation}

VAR t : REAL; ch: char;

BEGIN{$1_input}

  {Zap comments}
  REPEAT
    read(ch);
    IF ch="#" THEN 
      readln;
  UNTIL NOT (ch="#");


  read(t); { Read, and discard, first column (time) }
  FOR mtti:=1 TO $Nu DO {Read the inputs}
    read(mttu[mtti]);
  readln; {Next line}


END{$1_input};
EOF








|


<

<
|
|
|
|
>





>




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

PROCEDURE $1_input(VAR mttu : InputVector;
                       mttt : REAL;
                       mttx : StateVector;
                       mtty : OutputVector);

{Created by MTT on $date for standard input to simulation}

VAR t : REAL; Start:BOOLEAN;

BEGIN{$1_input}

  {Zap comments}

  IF (input^ = chr("#")) THEN
  BEGIN
    readln;
    WHILE (input^ = chr("#")) DO readln;
  END;

  read(t); { Read, and discard, first column (time) }
  FOR mtti:=1 TO $Nu DO {Read the inputs}
    read(mttu[mtti]);
  readln; {Next line}


END{$1_input};
EOF

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