diff --git a/foreign-status-property.scm b/foreign-status-property.scm deleted file mode 100644 index bda1b23..0000000 --- a/foreign-status-property.scm +++ /dev/null @@ -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") diff --git a/foreign-status-set.scm b/foreign-status-set.scm deleted file mode 100644 index 08148ca..0000000 --- a/foreign-status-set.scm +++ /dev/null @@ -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") diff --git a/generate.scm b/generate.scm index 84e4dda..1c48055 100644 --- a/generate.scm +++ b/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)