File: stratego.str

package info (click to toggle)
ohcount 3.0.0-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 4,712 kB
  • ctags: 3,205
  • sloc: ansic: 6,524; ruby: 2,560; perl: 2,041; erlang: 350; lisp: 272; sh: 244; pascal: 196; vhdl: 150; haskell: 149; asm: 128; cs: 124; awk: 98; java: 92; php: 73; tcl: 58; xml: 57; fortran: 54; makefile: 32; python: 31; ada: 30; objc: 30; jsp: 28; sql: 18; cobol: 13; ml: 9; cpp: 3
file content (25 lines) | stat: -rw-r--r-- 903 bytes parent folder | download | duplicates (8) 
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
 
stratego	comment	/** 
stratego	comment	 * Sample code from Stratego XT Manual
stratego	comment	 */
stratego	blank	
stratego	code	rules
stratego	code	  InlineF :
stratego	code	    |[ let f(xs) = e in e'[f(es)] ]| ->
stratego	code	    |[ let f(xs) = e in e'[e[es/xs]] ]|
stratego	blank	
stratego	code	  InlineV :
stratego	code	    |[ let x = e in e'[x] ]| -> |[ let x = e in e'[e] ]|
stratego	blank	
stratego	code	  Dead :
stratego	code	    |[ let x = e in e' ]| -> |[ e' ]|
stratego	code	    where <not(in)> (x,e')
stratego	blank	
stratego	code	  Extract(f,xs) :
stratego	code	    |[ e ]| -> |[ let f(xs) = e in f(xs) ]|
stratego	blank	
stratego	code	  Hoist :
stratego	code	    |[ let x = e1 in let f(xs) = e2 in e3 ]| ->
stratego	code	    |[ let f(xs) = e2 in let x = e1 in e3 ]|
stratego	code	    where <not(in)> (x, <free-vars> e2)
stratego	blank	
stratego	comment	// better watch those apostrophes!