OpenCores
URL https://opencores.org/ocsvn/usb_fpga_1_15/usb_fpga_1_15/trunk

Subversion Repositories usb_fpga_1_15

[/] [usb_fpga_1_15/] [trunk/] [bmp/] [tests/] [001] - Blame information for rev 2

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 2 ZTEX
//
2
 
3
////
4
//define
5
//define[Test1]
6
//define[Test2][zweiter Test]//define[Testa2][2a]
7
//define[Test3][(#1,#2)][d##1r#1i#2t#bte#3r Test#]
8
//define[Testa3][#1#2][d#0rit#1ter T#2estb]
9
//define[Testb3][][[]]
10
//define[Test4][;][viert#0er Te#1st]
11
//define[/*][*/][]
12
 
13
const bufmax      = 65535;
14
      rbufmax     = 65535;
15
      maxfiles    = 256;
16
      maxmacros   = 4095;
17
      matchlength = 3;
18
 
19
const bc_pm : string = '//';
20
      bc_ob : char = '[';
21
      bc_cb : char = ']';
22
      bc_pa : char = '#';
23
      bc_sm : string = '';
24
      bc_em : string = ';';
25
      bc_lf : string = #10;
26
 
27
const bmp_exit : longint = 0;
28
 
29
const debugoutput : boolean = true;
30
 
31
{*********************************************************************}
32
var main : tmainbmp;
33
begin
34
1-->Test1<--1
35
main.init;
36
2-->Test2<--2
37
main.run;
38
2a-->Testa2<--2a
39
main.done;
40
3-->Test3(abc,cde)<--3
41
halt(bmp_exit);
42
3a-->Testa3[123][]<--3a
43
end.
44
3b-->Testb3<--3b
45
4-->Test4123;<--4
46
5-->/*123 */<--5
47
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.