asdf

jkvor · Oct 28, 2009 · 7c31ac8 · 7c31ac8
1 parent bac0a91
commit 7c31ac8
Show file tree

Hide file tree

Showing 4 changed files with 33 additions and 21 deletions.
diff --git a/hacking_erlang.key b/hacking_erlang.key
diff --git a/src/example1.erl b/src/example1.erl
@@ -1,4 +1,7 @@
 -module(example1).
+-compile({parse_transform, print_forms}).
 -export([foo/0]).
 
-foo() -> "Hello Stockholm!". 
+foo() -> "Hello Stockholm!". 
+
+
diff --git a/src/example2.erl b/src/example2.erl
@@ -1,21 +1,22 @@
 -module(example2).
--compile({parse_transform, expand_records}).
+% -compile({parse_transform, expand_records}).
--export([encode_record/1]).
+% -export([record_to_proplist/1]).
-
+%  
--record(pizza, {size, toppings, price}).
+% -record(pizza, {size, toppings, price}).
-
+%  
-encode_record(Rec) ->
+% record_to_proplist(Rec) when is_tuple(Rec) ->
-	[RecName|Fields] = tuple_to_list(Rec),
+% 	[RecName|Fields] = tuple_to_list(Rec),
-	FieldNames = expanded_record_fields(RecName),
+% 	FieldNames = expanded_record_fields(RecName),
-	lists:zip(FieldNames, Fields).
+% 	lists:zip(FieldNames, Fields).
-
+% 
-
+% 
-encode_record(Rec) ->
+% record_to_proplist(Rec) when is_tuple(Rec) ->
-	case Rec of
+% 	case Rec of
-		Pizza when is_record(Pizza, pizza) ->
+% 		Pizza when is_record(Pizza, pizza) ->
-			[{size, Pizza#pizza.size},
+% 			[{size, Pizza#pizza.size},
-			 {toppings, Pizza#pizza.toppings},
+% 			 {toppings, Pizza#pizza.toppings},
-			 {price, Pizza#pizza.price}];
+% 			 {price, Pizza#pizza.price}];
-		_ ->
+% 		_ ->
-			exit(wtf_do_i_do_with_this)
+% 			exit(wtf_do_i_do_with_this)
-	end.
+% 	end.
+% 
diff --git a/src/print_forms.erl b/src/print_forms.erl
@@ -0,0 +1,8 @@
+-module(print_forms).
+-export([parse_transform/2]).
+
+parse_transform(Forms, _Options) ->
+	io:format("forms: ~p~n", [Forms]),
+	Forms.
+
+