MimeMap

[Tom Hughes]

The attached patch makes some changes to the new MimeMap module
that I hadn't realised hadn't already been submitted.

The reason codes specific versions of MimeMap_Translate are renamed
to fit with other similar SWIs, and descriptions are added for each
one.

Tom

-- 
Tom Hughes (tom at compton.nu)
http://www.compton.nu/
...There are 70 billion people in the world, where are they hiding?
-------------- next part --------------
Index: MimeMap
===================================================================
RCS file: /home/cvs/riscos/oslib/Source/User/MimeMap,v
retrieving revision 1.1
retrieving revision 1.2
diff -c -r1.1 -r1.2
*** MimeMap	2000/04/14 22:59:24	1.1
--- MimeMap	2000/04/15 12:18:17	1.2
***************
*** 20,56 ****
        ABSENT
     ),
  
!    MimeMap_TranslateFiletypeToFiletypeName =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletype,
           R1 = .Bits: file_type,
           R2 # MimeMap_FormatFiletypeName,
           R3 = .Ref .String: file_type_name
     )  ),
  
!    MimeMap_TranslateFiletypeToMIMEType =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletype,
           R1 = .Bits: file_type,
           R2 # MimeMap_FormatMIMEType,
           R3 = .Ref .String: mime_type
     )  ),
  
!    MimeMap_TranslateFiletypeToExtension =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletype,
           R1 = .Bits: file_type,
           R2 # MimeMap_FormatExtension,
           R3 = .Ref .String: extension
     )  ),
  
!    MimeMap_TranslateFiletypeNameToFiletype =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletypeName,
           R1 -> .String: file_type_name,
           R2 # MimeMap_FormatFiletype
        ),
--- 20,56 ----
        ABSENT
     ),
  
!    MimeMapTranslate_FiletypeToFiletypeName =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletype "Translate a numeric file type to a textual file type name",
           R1 = .Bits: file_type,
           R2 # MimeMap_FormatFiletypeName,
           R3 = .Ref .String: file_type_name
     )  ),
  
!    MimeMapTranslate_FiletypeToMIMEType =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletype "Translate a numeric file type to a MIME type",
           R1 = .Bits: file_type,
           R2 # MimeMap_FormatMIMEType,
           R3 = .Ref .String: mime_type
     )  ),
  
!    MimeMapTranslate_FiletypeToExtension =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletype "Translate a numeric file type to a file extension",
           R1 = .Bits: file_type,
           R2 # MimeMap_FormatExtension,
           R3 = .Ref .String: extension
     )  ),
  
!    MimeMapTranslate_FiletypeNameToFiletype =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletypeName "Translate a textual file type name to a numeric file type",
           R1 -> .String: file_type_name,
           R2 # MimeMap_FormatFiletype
        ),
***************
*** 58,85 ****
        (  R3! = .Bits: file_type
     )  ),
  
!    MimeMap_TranslateFiletypeNameToMIMEType =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletypeName,
           R1 -> .String: file_type_name,
           R2 # MimeMap_FormatMIMEType,
           R3 = .Ref .String: mime_type
     )  ),
  
!    MimeMap_TranslateFiletypeNameToExtension =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletypeName,
           R1 -> .String: file_type_name,
           R2 # MimeMap_FormatExtension,
           R3 = .Ref .String: extension
     )  ),
  
!    MimeMap_TranslateMIMETypeToFiletype =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatMIMEType,
           R1 -> .String: mime_type,
           R2 # MimeMap_FormatFiletype
        ),
--- 58,85 ----
        (  R3! = .Bits: file_type
     )  ),
  
!    MimeMapTranslate_FiletypeNameToMIMEType =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletypeName "Translate a textual file type name to a MIME type",
           R1 -> .String: file_type_name,
           R2 # MimeMap_FormatMIMEType,
           R3 = .Ref .String: mime_type
     )  ),
  
!    MimeMapTranslate_FiletypeNameToExtension =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatFiletypeName "Translate a textual file type name to a file extension",
           R1 -> .String: file_type_name,
           R2 # MimeMap_FormatExtension,
           R3 = .Ref .String: extension
     )  ),
  
!    MimeMapTranslate_MIMETypeToFiletype =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatMIMEType "Translate a MIME type to a numeric file type",
           R1 -> .String: mime_type,
           R2 # MimeMap_FormatFiletype
        ),
***************
*** 87,114 ****
        (  R3! = .Bits: file_type
     )  ),
  
!    MimeMap_TranslateMIMETypeToFiletypeName =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatMIMEType,
           R1 -> .String: mime_type,
           R2 # MimeMap_FormatFiletypename,
           R3 = .Ref .String: file_type_name
     )  ),
  
!    MimeMap_TranslateMIMETypeToExtension =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatMIMEType,
           R1 -> .String: mime_type,
           R2 # MimeMap_FormatExtension,
           R3 = .Ref .String: extension
     )  ),
  
!    MimeMap_TranslateExtensionToFiletype =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatExtension,
           R1 -> .String: extension,
           R2 # MimeMap_FormatFiletype
        ),
--- 87,114 ----
        (  R3! = .Bits: file_type
     )  ),
  
!    MimeMapTranslate_MIMETypeToFiletypeName =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatMIMEType "Translate a MIME type to a textual file type name",
           R1 -> .String: mime_type,
           R2 # MimeMap_FormatFiletypename,
           R3 = .Ref .String: file_type_name
     )  ),
  
!    MimeMapTranslate_MIMETypeToExtension =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatMIMEType "Translate a MIME type to a file extension",
           R1 -> .String: mime_type,
           R2 # MimeMap_FormatExtension,
           R3 = .Ref .String: extension
     )  ),
  
!    MimeMapTranslate_ExtensionToFiletype =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatExtension "Translate a file extension to a numeric file type",
           R1 -> .String: extension,
           R2 # MimeMap_FormatFiletype
        ),
***************
*** 116,134 ****
        (  R3! = .Bits: file_type
     )  ),
  
!    MimeMap_TranslateExtensionToFiletypeName =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatExtension,
           R1 -> .String: extension,
           R2 # MimeMap_FormatFiletypename,
           R3 = .Ref .String: file_type_name
     )  ),
  
!    MimeMap_TranslateExtensionToMIMEType =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatExtension,
           R1 -> .String: extension,
           R2 # MimeMap_FormatMIMEType,
           R3 = .Ref .String: mime_type
--- 116,134 ----
        (  R3! = .Bits: file_type
     )  ),
  
!    MimeMapTranslate_ExtensionToFiletypeName =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatExtension "Translate a file extension to a textual file type name",
           R1 -> .String: extension,
           R2 # MimeMap_FormatFiletypename,
           R3 = .Ref .String: file_type_name
     )  ),
  
!    MimeMapTranslate_ExtensionToMIMEType =
     (  NUMBER 0x50B00,
        ENTRY
!       (  R0 # MimeMap_FormatExtension "Translate a file extension to a MIME type",
           R1 -> .String: extension,
           R2 # MimeMap_FormatMIMEType,
           R3 = .Ref .String: mime_type