# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1211791000 -7200
# Node ID 40a05c259915da1af862e1f42bf81ab90f929dd2
# Parent  d0bf6625a07112d74d2276e9062d014e2c9d27d5
c# mime type

diff -r d0bf6625a071 -r 40a05c259915 MIMETypes.st
--- a/MIMETypes.st	Mon May 26 09:59:50 2008 +0200
+++ b/MIMETypes.st	Mon May 26 10:36:40 2008 +0200
@@ -160,6 +160,10 @@
         put:#('//' ('/*' '*/')).          
 
     TypeToCommentStringMapping 
+        at:'application/x-csharp-source'
+        put:#('//' ('/*' '*/')).          
+
+    TypeToCommentStringMapping 
         at:'application/x-java-source'
         put:#('//' ('/*' '*/')).          
 
@@ -334,10 +338,10 @@
         at:'application/x-smalltalk-source'
         put:spec.           
 
-    "/ ST/X spec
+    "/ XML & HTML
     spec := IdentityDictionary new.       
     spec at:#open        put:#( $< ) .
-    spec at:#close       put:#( $< ).
+    spec at:#close       put:#( $> ).
     spec at:#ignore      put:#( $' $" '$[' '$]' '${' '$)' ).
 
     #('text/html' 'text/xml' 'application/xml')
@@ -347,7 +351,7 @@
             put:spec
     ].
 
-    "/ ANSI-c
+    "/ ANSI-c, Java, C#
     spec := IdentityDictionary new.       
     spec at:#open        put:#( $( $[ ${ ) .
     spec at:#close       put:#( $) $] $} ).
@@ -363,6 +367,10 @@
         put:spec.          
 
     TypeToParentesisSpecMapping
+        at:'application/x-csharp-source'
+        put:spec.          
+
+    TypeToParentesisSpecMapping
         at:'application/x-java-source'
         put:spec.          
 
@@ -428,6 +436,7 @@
 
         'c'                          'application/x-c-source'
         ('cc' 'cpp')                 'application/x-cpp-source'
+        'cs'                         'application/x-csharp-source'
         ('h' 'hi')                   'application/x-c-header'
         ('js' 'mocha')               'application/x-javascript'
         ('java' 'jav')               'application/x-java-source'
@@ -1193,7 +1202,7 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.90 2008-04-21 14:23:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.91 2008-05-26 08:36:40 cg Exp $'
 ! !
 
 MIMETypes initialize!