File: highlight.cgis.fold

package info (click to toggle)
kf6-syntax-highlighting 6.13.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 47,568 kB
  • sloc: xml: 197,750; cpp: 12,850; python: 3,023; sh: 955; perl: 546; ruby: 488; pascal: 393; javascript: 161; php: 150; jsp: 132; lisp: 131; haskell: 124; ada: 119; ansic: 107; makefile: 96; f90: 94; ml: 85; cobol: 81; yacc: 71; csh: 62; erlang: 54; sql: 51; java: 47; objc: 37; awk: 31; asm: 30; tcl: 29; fortran: 18; cs: 10
file content (47 lines) | stat: -rw-r--r-- 1,279 bytes parent folder | download | duplicates (4) 
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
40
41
42
43
44
45
46
47
 
PROGRAM testtest;


INTERFACE

extern inout int inputs_int[];
extern out int nur_out[];
extern in int nur_in[];

CODE

function jetzt_mach_schon(in int grenze, out int fak)<beginfold id='1'>{</beginfold id='1'>
    int temp, counter;
    counter=grenze;
    temp=1;
    while(counter>1)
        temp*=(counter--);
    fak=temp;
<endfold id='1'>}</endfold id='1'>

function mach_mal(inout int i)<beginfold id='1'>{</beginfold id='1'>
    if(i==3) i=6;
    else if(i==4) i=24;
    else if(i>=5) jetzt_mach_schon(i,i);
    // 1 und 2: gleich.
<endfold id='1'>}</endfold id='1'>

function mach_nochmal(in int k1, out int k2, in int vektor)<beginfold id='1'>{</beginfold id='1'>
    int4 hossa;
    hossa=k1;
    int4 hasso;
    hasso=-vektor;

  k2=(hasso|hossa>k1)?k1:-k1; //parse error before `|'
// k2=(hasso||hossa>k1)?k1:-k1; //only works on expressions of equal dimension

<endfold id='1'>}</endfold id='1'>

CONTROL
    forall (int i in inputs_int:1D) do <beginfold id='1'>{</beginfold id='1'>
        mach_mal(i);
    <endfold id='1'>}</endfold id='1'>
    forall (int j in inputs_int:1D;
            int i in nur_out:1D;
            int vektor in nur_in:1D) do <beginfold id='1'>{</beginfold id='1'>
        mach_nochmal(j,i, vektor);
    <endfold id='1'>}</endfold id='1'>