Drop foreign status registries

These were meant to be used with SRFI 198 whose draft was withdrawn.

foreign-status-property.scm

@@ -1,59 +0,0 @@
-(id set)
-(description "Which set of status codes")
-(type "symbol")
-
-(id code)
-(description "Numeric or pseudo-numeric status code")
-(type "exact integer or symbol")
-
-(id symbol)
-(description "Mnemonic status identifier")
-(type "symbol")
-
-(id message)
-(description "Brief human-readable status message")
-(type "string")
-
-(id message-locales)
-(description "Languages in which message is available")
-(type "list of BCP 47 strings")
-
-(id message-detail)
-(description "Detailed human-readable status message")
-(type "string")
-
-(id message-hint)
-(description "Human-readable troubleshooting tips")
-(type "string")
-
-(id filename)
-(description "File that this status concerns")
-(type "string")
-
-(id line-number)
-(description "Line number in text")
-(type "positive exact integer")
-
-(id column-number)
-(description "Column number on this line of text")
-(type "positive exact integer")
-
-(id sqlstate)
-(description "5-character ANSI/ODBC SQLSTATE code")
-(type "string")
-
-(id class-code)
-(description "Numeric or pseudo-numeric code of the status class")
-(type "exact integer or symbol")
-
-(id class-title)
-(description "Human-readable name of the status class")
-(type "string")
-
-(id facility)
-(description "syslog-style facility")
-(type "symbol")
-
-(id severity)
-(description "syslog-style how severe the situation is")
-(type "symbol")

foreign-status-set.scm

@@ -1,74 +0,0 @@
-(id errno)
-(description "C/POSIX/Unix errno values")
-(sample-name "EINTR")
-(sample-code "4")
-
-(id ftp)
-(description "File Transfer Protocol reply codes")
-(sample-name "")
-(sample-code "553")
-
-(id http)
-(description "Hypertext Transfer Protocol status codes")
-(sample-name "")
-(sample-code "404")
-
-(id libarchive)
-(description "The libarchive archiving and compression library")
-(sample-name "ARCHIVE_FAILED")
-(sample-code "-25")
-
-(id libcurl)
-(description "The libcurl networking library")
-(sample-name "CURLE_GOT_NOTHING")
-(sample-code "52")
-
-(id libsodium)
-(description "The libsodium cryptography library")
-(sample-name "")
-(sample-code "")
-
-(id opengl)
-(description "The OpenGL 3D graphics API")
-(sample-name "GL_INVALID_ENUM")
-(sample-code "#x0500")
-
-(id mysql)
-(description "MySQL and MariaDB database errors")
-(sample-name "CR_CONN_HOST_ERROR")
-(sample-code "2003")
-
-(id gethostby)
-(description "BSD Unix gethostbyname(), gethostbyaddr(), and h_errno values")
-(sample-name "HOST_NOT_FOUND")
-(sample-code "1")
-
-(id netdb)
-(description "POSIX/Unix netdb.h EAI error values")
-(sample-name "EAI_AGAIN")
-(sample-code "2")
-
-(id postgresql)
-(description "PostgreSQL errors")
-(sample-name "protocol_violation")
-(sample-code "08P01")
-
-(id sqlite)
-(description "SQLite database result codes")
-(sample-name "SQLITE_LOCKED")
-(sample-code "6")
-
-(id windows)
-(description "Microsoft Windows API (aka win32)")
-(sample-name "ERROR_WOW_ASSERTION")
-(sample-code "670")
-
-(id winsock)
-(description "Microsoft Windows Sockets API")
-(sample-name "WSAENOTCONN")
-(sample-code "10057")
-
-(id zlib)
-(description "The zlib compression library")
-(sample-name "Z_STREAM_ERROR")
-(sample-code "-2")

generate.scm

@@ -259,30 +259,6 @@
                    ,(assoc1 'description entry))))
          (group-file 'id "filename-extension.scm")))))
 
-(define (foreign-status-set)
-  (registry
-   "Foreign status sets"
-   "foreign-status-set"
-   '(p)
-   (tabulate
-    '("ID" "Description" "Sample name" "Sample code")
-    (map (lambda (entry)
-           (append (the-usual entry)
-                   `((code ,(assoc1 'sample-name entry))
-                     (code ,(assoc1 'sample-code entry)))))
-         (sort-by-id (group-file 'id "foreign-status-set.scm"))))))
-
-(define (foreign-status-property)
-  (registry
-   "Foreign status properties"
-   "foreign-status-property"
-   '(p)
-   (tabulate
-    '("ID" "Description" "Type")
-    (map (lambda (entry)
-           (append (the-usual entry) (list (assoc1 'type entry))))
-         (group-file 'id "foreign-status-property.scm")))))
-
 (define (version-flag-property)
   (registry
    "Version flag properties"
@@ -349,8 +325,6 @@
       ,(hash-syntax)
       ,(hash-bang-syntax)
       ,(filename-extension)
-      ,(foreign-status-set)
-      ,(foreign-status-property)
       ,(version-flag-property)))))
 
 (with-output-to-file "index.html" display-page)