[m-rev.] diff: allow atoms to be used to specify foreign langauges.

Tyson Dowd trd at cs.mu.OZ.AU
Wed Nov 14 13:36:33 AEDT 2001


Hi,


===================================================================


Estimated hours taken: 0.5
Branches: main

compiler/prog_io_pragma.m:
	Allow foreign languages to be specified as atoms, so you can
	write: 

	:- pragma foreign_proc(c, ....)
	:- pragma foreign_code('MC++', ....)


Index: compiler/prog_io_pragma.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/prog_io_pragma.m,v
retrieving revision 1.36
diff -u -r1.36 prog_io_pragma.m
--- compiler/prog_io_pragma.m	6 Nov 2001 15:21:10 -0000	1.36
+++ compiler/prog_io_pragma.m	7 Nov 2001 01:05:53 -0000
@@ -211,6 +211,8 @@
 
 parse_foreign_language(term__functor(term__string(String), _, _), Lang) :-
 	globals__convert_foreign_language(String, Lang).
+parse_foreign_language(term__functor(term__atom(String), _, _), Lang) :-
+	globals__convert_foreign_language(String, Lang).
 
 :- pred parse_backend(term, backend).
 :- mode parse_backend(in, out) is semidet.


-- 
       Tyson Dowd           # 
                            #  Surreal humour isn't everyone's cup of fur.
     trd at cs.mu.oz.au        # 
http://www.cs.mu.oz.au/~trd #
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------



More information about the reviews mailing list