Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • bin/errno-template.lisp
    ... ... @@ -22,10 +22,11 @@
    22 22
     (defparameter *compiler-unix-errors* nil)
    
    23 23
     
    
    24 24
     (defmacro def-unix-error (name number &optional description)
    
    25
    +  (declare (ignore description))
    
    25 26
       `(progn
    
    26 27
          (eval-when (compile eval)
    
    27 28
            (push (cons ,number ,description) *compiler-unix-errors*))
    
    28
    -     (defconstant ,name ,number ,description)
    
    29
    +     (defconstant ,name ,number)
    
    29 30
          (export ',name)))
    
    30 31
     
    
    31 32
     (defmacro emit-unix-errors ()
    

  • src/i18n/locale/cmucl-unix.pot
    ... ... @@ -15,562 +15,10 @@ msgstr ""
    15 15
     "Content-Type: text/plain; charset=UTF-8\n"
    
    16 16
     "Content-Transfer-Encoding: 8bit\n"
    
    17 17
     
    
    18
    -#: src/code/errno.lisp
    
    19
    -msgid ""
    
    20
    -"Define a constant named Name corresponding to the Unix errno value\n"
    
    21
    -"  Number.  A description of the errno is optional in Description."
    
    22
    -msgstr ""
    
    23
    -
    
    24 18
     #: src/code/errno.lisp
    
    25 19
     msgid "Successful"
    
    26 20
     msgstr ""
    
    27 21
     
    
    28
    -#: src/code/errno.lisp
    
    29
    -msgid "Operation not permitted"
    
    30
    -msgstr ""
    
    31
    -
    
    32
    -#: src/code/errno.lisp
    
    33
    -msgid "No such file or directory"
    
    34
    -msgstr ""
    
    35
    -
    
    36
    -#: src/code/errno.lisp
    
    37
    -msgid "No such process"
    
    38
    -msgstr ""
    
    39
    -
    
    40
    -#: src/code/errno.lisp
    
    41
    -msgid "Interrupted system call"
    
    42
    -msgstr ""
    
    43
    -
    
    44
    -#: src/code/errno.lisp
    
    45
    -msgid "I/O error"
    
    46
    -msgstr ""
    
    47
    -
    
    48
    -#: src/code/errno.lisp
    
    49
    -msgid "Device not configured"
    
    50
    -msgstr ""
    
    51
    -
    
    52
    -#: src/code/errno.lisp
    
    53
    -msgid "Arg list too long"
    
    54
    -msgstr ""
    
    55
    -
    
    56
    -#: src/code/errno.lisp
    
    57
    -msgid "Exec format error"
    
    58
    -msgstr ""
    
    59
    -
    
    60
    -#: src/code/errno.lisp
    
    61
    -msgid "Bad file descriptor"
    
    62
    -msgstr ""
    
    63
    -
    
    64
    -#: src/code/errno.lisp
    
    65
    -msgid "No child process"
    
    66
    -msgstr ""
    
    67
    -
    
    68
    -#: src/code/errno.lisp
    
    69
    -msgid "Resource deadlock avoided"
    
    70
    -msgstr ""
    
    71
    -
    
    72
    -#: src/code/errno.lisp
    
    73
    -msgid "No more processes"
    
    74
    -msgstr ""
    
    75
    -
    
    76
    -#: src/code/errno.lisp
    
    77
    -msgid "Try again"
    
    78
    -msgstr ""
    
    79
    -
    
    80
    -#: src/code/errno.lisp
    
    81
    -msgid "Out of memory"
    
    82
    -msgstr ""
    
    83
    -
    
    84
    -#: src/code/errno.lisp
    
    85
    -msgid "Permission denied"
    
    86
    -msgstr ""
    
    87
    -
    
    88
    -#: src/code/errno.lisp
    
    89
    -msgid "Bad address"
    
    90
    -msgstr ""
    
    91
    -
    
    92
    -#: src/code/errno.lisp
    
    93
    -msgid "Block device required"
    
    94
    -msgstr ""
    
    95
    -
    
    96
    -#: src/code/errno.lisp
    
    97
    -msgid "Device or resource busy"
    
    98
    -msgstr ""
    
    99
    -
    
    100
    -#: src/code/errno.lisp
    
    101
    -msgid "File exists"
    
    102
    -msgstr ""
    
    103
    -
    
    104
    -#: src/code/errno.lisp
    
    105
    -msgid "Cross-device link"
    
    106
    -msgstr ""
    
    107
    -
    
    108
    -#: src/code/errno.lisp
    
    109
    -msgid "No such device"
    
    110
    -msgstr ""
    
    111
    -
    
    112
    -#: src/code/errno.lisp
    
    113
    -msgid "Not a director"
    
    114
    -msgstr ""
    
    115
    -
    
    116
    -#: src/code/errno.lisp
    
    117
    -msgid "Is a directory"
    
    118
    -msgstr ""
    
    119
    -
    
    120
    -#: src/code/errno.lisp
    
    121
    -msgid "Invalid argument"
    
    122
    -msgstr ""
    
    123
    -
    
    124
    -#: src/code/errno.lisp
    
    125
    -msgid "File table overflow"
    
    126
    -msgstr ""
    
    127
    -
    
    128
    -#: src/code/errno.lisp
    
    129
    -msgid "Too many open files"
    
    130
    -msgstr ""
    
    131
    -
    
    132
    -#: src/code/errno.lisp
    
    133
    -msgid "Inappropriate ioctl for device"
    
    134
    -msgstr ""
    
    135
    -
    
    136
    -#: src/code/errno.lisp
    
    137
    -msgid "Text file busy"
    
    138
    -msgstr ""
    
    139
    -
    
    140
    -#: src/code/errno.lisp
    
    141
    -msgid "File too large"
    
    142
    -msgstr ""
    
    143
    -
    
    144
    -#: src/code/errno.lisp
    
    145
    -msgid "No space left on device"
    
    146
    -msgstr ""
    
    147
    -
    
    148
    -#: src/code/errno.lisp
    
    149
    -msgid "Illegal seek"
    
    150
    -msgstr ""
    
    151
    -
    
    152
    -#: src/code/errno.lisp
    
    153
    -msgid "Read-only file system"
    
    154
    -msgstr ""
    
    155
    -
    
    156
    -#: src/code/errno.lisp
    
    157
    -msgid "Too many links"
    
    158
    -msgstr ""
    
    159
    -
    
    160
    -#: src/code/errno.lisp
    
    161
    -msgid "Broken pipe"
    
    162
    -msgstr ""
    
    163
    -
    
    164
    -#: src/code/errno.lisp
    
    165
    -msgid "Numerical argument out of domain"
    
    166
    -msgstr ""
    
    167
    -
    
    168
    -#: src/code/errno.lisp
    
    169
    -msgid "Result too large"
    
    170
    -msgstr ""
    
    171
    -
    
    172
    -#: src/code/errno.lisp
    
    173
    -msgid "Math result not representable"
    
    174
    -msgstr ""
    
    175
    -
    
    176
    -#: src/code/errno.lisp
    
    177
    -msgid "Operation would block"
    
    178
    -msgstr ""
    
    179
    -
    
    180
    -#: src/code/errno.lisp
    
    181
    -msgid "Resource temporarily unavailable"
    
    182
    -msgstr ""
    
    183
    -
    
    184
    -#: src/code/errno.lisp
    
    185
    -msgid "Operation now in progress"
    
    186
    -msgstr ""
    
    187
    -
    
    188
    -#: src/code/errno.lisp
    
    189
    -msgid "Operation already in progress"
    
    190
    -msgstr ""
    
    191
    -
    
    192
    -#: src/code/errno.lisp
    
    193
    -msgid "Socket operation on non-socket"
    
    194
    -msgstr ""
    
    195
    -
    
    196
    -#: src/code/errno.lisp
    
    197
    -msgid "Destination address required"
    
    198
    -msgstr ""
    
    199
    -
    
    200
    -#: src/code/errno.lisp
    
    201
    -msgid "Message too long"
    
    202
    -msgstr ""
    
    203
    -
    
    204
    -#: src/code/errno.lisp
    
    205
    -msgid "Protocol wrong type for socket"
    
    206
    -msgstr ""
    
    207
    -
    
    208
    -#: src/code/errno.lisp
    
    209
    -msgid "Protocol not available"
    
    210
    -msgstr ""
    
    211
    -
    
    212
    -#: src/code/errno.lisp
    
    213
    -msgid "Protocol not supported"
    
    214
    -msgstr ""
    
    215
    -
    
    216
    -#: src/code/errno.lisp
    
    217
    -msgid "Socket type not supported"
    
    218
    -msgstr ""
    
    219
    -
    
    220
    -#: src/code/errno.lisp
    
    221
    -msgid "Operation not supported on socket"
    
    222
    -msgstr ""
    
    223
    -
    
    224
    -#: src/code/errno.lisp
    
    225
    -msgid "Protocol family not supported"
    
    226
    -msgstr ""
    
    227
    -
    
    228
    -#: src/code/errno.lisp
    
    229
    -msgid "Address family not supported by protocol family"
    
    230
    -msgstr ""
    
    231
    -
    
    232
    -#: src/code/errno.lisp
    
    233
    -msgid "Address already in use"
    
    234
    -msgstr ""
    
    235
    -
    
    236
    -#: src/code/errno.lisp
    
    237
    -msgid "Can't assign requested address"
    
    238
    -msgstr ""
    
    239
    -
    
    240
    -#: src/code/errno.lisp
    
    241
    -msgid "Network is down"
    
    242
    -msgstr ""
    
    243
    -
    
    244
    -#: src/code/errno.lisp
    
    245
    -msgid "Network is unreachable"
    
    246
    -msgstr ""
    
    247
    -
    
    248
    -#: src/code/errno.lisp
    
    249
    -msgid "Network dropped connection on reset"
    
    250
    -msgstr ""
    
    251
    -
    
    252
    -#: src/code/errno.lisp
    
    253
    -msgid "Software caused connection abort"
    
    254
    -msgstr ""
    
    255
    -
    
    256
    -#: src/code/errno.lisp
    
    257
    -msgid "Connection reset by peer"
    
    258
    -msgstr ""
    
    259
    -
    
    260
    -#: src/code/errno.lisp
    
    261
    -msgid "No buffer space available"
    
    262
    -msgstr ""
    
    263
    -
    
    264
    -#: src/code/errno.lisp
    
    265
    -msgid "Socket is already connected"
    
    266
    -msgstr ""
    
    267
    -
    
    268
    -#: src/code/errno.lisp
    
    269
    -msgid "Socket is not connected"
    
    270
    -msgstr ""
    
    271
    -
    
    272
    -#: src/code/errno.lisp
    
    273
    -msgid "Can't send after socket shutdown"
    
    274
    -msgstr ""
    
    275
    -
    
    276
    -#: src/code/errno.lisp
    
    277
    -msgid "Too many references: can't splice"
    
    278
    -msgstr ""
    
    279
    -
    
    280
    -#: src/code/errno.lisp
    
    281
    -msgid "Connection timed out"
    
    282
    -msgstr ""
    
    283
    -
    
    284
    -#: src/code/errno.lisp
    
    285
    -msgid "Connection refused"
    
    286
    -msgstr ""
    
    287
    -
    
    288
    -#: src/code/errno.lisp
    
    289
    -msgid "Too many levels of symbolic links"
    
    290
    -msgstr ""
    
    291
    -
    
    292
    -#: src/code/errno.lisp
    
    293
    -msgid "File name too long"
    
    294
    -msgstr ""
    
    295
    -
    
    296
    -#: src/code/errno.lisp
    
    297
    -msgid "Host is down"
    
    298
    -msgstr ""
    
    299
    -
    
    300
    -#: src/code/errno.lisp
    
    301
    -msgid "No route to host"
    
    302
    -msgstr ""
    
    303
    -
    
    304
    -#: src/code/errno.lisp
    
    305
    -msgid "Directory not empty"
    
    306
    -msgstr ""
    
    307
    -
    
    308
    -#: src/code/errno.lisp
    
    309
    -msgid "Too many processes"
    
    310
    -msgstr ""
    
    311
    -
    
    312
    -#: src/code/errno.lisp
    
    313
    -msgid "Too many users"
    
    314
    -msgstr ""
    
    315
    -
    
    316
    -#: src/code/errno.lisp
    
    317
    -msgid "Disc quota exceeded"
    
    318
    -msgstr ""
    
    319
    -
    
    320
    -#: src/code/errno.lisp
    
    321
    -msgid "namei should continue locally"
    
    322
    -msgstr ""
    
    323
    -
    
    324
    -#: src/code/errno.lisp
    
    325
    -msgid "namei was handled remotely"
    
    326
    -msgstr ""
    
    327
    -
    
    328
    -#: src/code/errno.lisp
    
    329
    -msgid "Remote file system error _N"
    
    330
    -msgstr ""
    
    331
    -
    
    332
    -#: src/code/errno.lisp
    
    333
    -msgid "syscall was handled by Vice"
    
    334
    -msgstr ""
    
    335
    -
    
    336
    -#: src/code/errno.lisp
    
    337
    -msgid "No message of desired type"
    
    338
    -msgstr ""
    
    339
    -
    
    340
    -#: src/code/errno.lisp
    
    341
    -msgid "Identifier removed"
    
    342
    -msgstr ""
    
    343
    -
    
    344
    -#: src/code/errno.lisp
    
    345
    -msgid "Channel number out of range"
    
    346
    -msgstr ""
    
    347
    -
    
    348
    -#: src/code/errno.lisp
    
    349
    -msgid "Level 2 not synchronized"
    
    350
    -msgstr ""
    
    351
    -
    
    352
    -#: src/code/errno.lisp
    
    353
    -msgid "Level 3 halted"
    
    354
    -msgstr ""
    
    355
    -
    
    356
    -#: src/code/errno.lisp
    
    357
    -msgid "Level 3 reset"
    
    358
    -msgstr ""
    
    359
    -
    
    360
    -#: src/code/errno.lisp
    
    361
    -msgid "Link number out of range"
    
    362
    -msgstr ""
    
    363
    -
    
    364
    -#: src/code/errno.lisp
    
    365
    -msgid "Protocol driver not attached"
    
    366
    -msgstr ""
    
    367
    -
    
    368
    -#: src/code/errno.lisp
    
    369
    -msgid "No CSI structure available"
    
    370
    -msgstr ""
    
    371
    -
    
    372
    -#: src/code/errno.lisp
    
    373
    -msgid "Level 2 halted"
    
    374
    -msgstr ""
    
    375
    -
    
    376
    -#: src/code/errno.lisp
    
    377
    -msgid "Deadlock situation detected/avoided"
    
    378
    -msgstr ""
    
    379
    -
    
    380
    -#: src/code/errno.lisp
    
    381
    -msgid "No record locks available"
    
    382
    -msgstr ""
    
    383
    -
    
    384
    -#: src/code/errno.lisp
    
    385
    -msgid "Error 47"
    
    386
    -msgstr ""
    
    387
    -
    
    388
    -#: src/code/errno.lisp
    
    389
    -msgid "Error 48"
    
    390
    -msgstr ""
    
    391
    -
    
    392
    -#: src/code/errno.lisp
    
    393
    -msgid "Bad exchange descriptor"
    
    394
    -msgstr ""
    
    395
    -
    
    396
    -#: src/code/errno.lisp
    
    397
    -msgid "Bad request descriptor"
    
    398
    -msgstr ""
    
    399
    -
    
    400
    -#: src/code/errno.lisp
    
    401
    -msgid "Message tables full"
    
    402
    -msgstr ""
    
    403
    -
    
    404
    -#: src/code/errno.lisp
    
    405
    -msgid "Anode table overflow"
    
    406
    -msgstr ""
    
    407
    -
    
    408
    -#: src/code/errno.lisp
    
    409
    -msgid "Bad request code"
    
    410
    -msgstr ""
    
    411
    -
    
    412
    -#: src/code/errno.lisp
    
    413
    -msgid "Invalid slot"
    
    414
    -msgstr ""
    
    415
    -
    
    416
    -#: src/code/errno.lisp
    
    417
    -msgid "File locking deadlock"
    
    418
    -msgstr ""
    
    419
    -
    
    420
    -#: src/code/errno.lisp
    
    421
    -msgid "Bad font file format"
    
    422
    -msgstr ""
    
    423
    -
    
    424
    -#: src/code/errno.lisp
    
    425
    -msgid "Not a stream device"
    
    426
    -msgstr ""
    
    427
    -
    
    428
    -#: src/code/errno.lisp
    
    429
    -msgid "No data available"
    
    430
    -msgstr ""
    
    431
    -
    
    432
    -#: src/code/errno.lisp
    
    433
    -msgid "Timer expired"
    
    434
    -msgstr ""
    
    435
    -
    
    436
    -#: src/code/errno.lisp
    
    437
    -msgid "Out of stream resources"
    
    438
    -msgstr ""
    
    439
    -
    
    440
    -#: src/code/errno.lisp
    
    441
    -msgid "Machine is not on the network"
    
    442
    -msgstr ""
    
    443
    -
    
    444
    -#: src/code/errno.lisp
    
    445
    -msgid "Package not installed"
    
    446
    -msgstr ""
    
    447
    -
    
    448
    -#: src/code/errno.lisp
    
    449
    -msgid "Object is remote"
    
    450
    -msgstr ""
    
    451
    -
    
    452
    -#: src/code/errno.lisp
    
    453
    -msgid "Link has been severed"
    
    454
    -msgstr ""
    
    455
    -
    
    456
    -#: src/code/errno.lisp
    
    457
    -msgid "Advertise error"
    
    458
    -msgstr ""
    
    459
    -
    
    460
    -#: src/code/errno.lisp
    
    461
    -msgid "Srmount error"
    
    462
    -msgstr ""
    
    463
    -
    
    464
    -#: src/code/errno.lisp
    
    465
    -msgid "Communication error on send"
    
    466
    -msgstr ""
    
    467
    -
    
    468
    -#: src/code/errno.lisp
    
    469
    -msgid "Protocol error"
    
    470
    -msgstr ""
    
    471
    -
    
    472
    -#: src/code/errno.lisp
    
    473
    -msgid "Multihop attempted"
    
    474
    -msgstr ""
    
    475
    -
    
    476
    -#: src/code/errno.lisp
    
    477
    -msgid "Not a data message"
    
    478
    -msgstr ""
    
    479
    -
    
    480
    -#: src/code/errno.lisp
    
    481
    -msgid "Value too large for defined data type"
    
    482
    -msgstr ""
    
    483
    -
    
    484
    -#: src/code/errno.lisp
    
    485
    -msgid "Name not unique on network"
    
    486
    -msgstr ""
    
    487
    -
    
    488
    -#: src/code/errno.lisp
    
    489
    -msgid "File descriptor in bad state"
    
    490
    -msgstr ""
    
    491
    -
    
    492
    -#: src/code/errno.lisp
    
    493
    -msgid "Remote address changed"
    
    494
    -msgstr ""
    
    495
    -
    
    496
    -#: src/code/errno.lisp
    
    497
    -msgid "Can not access a needed shared library"
    
    498
    -msgstr ""
    
    499
    -
    
    500
    -#: src/code/errno.lisp
    
    501
    -msgid "Accessing a corrupted shared library"
    
    502
    -msgstr ""
    
    503
    -
    
    504
    -#: src/code/errno.lisp
    
    505
    -msgid ".lib section in a.out corrupted"
    
    506
    -msgstr ""
    
    507
    -
    
    508
    -#: src/code/errno.lisp
    
    509
    -msgid "Attempting to link in more shared libraries than system limit"
    
    510
    -msgstr ""
    
    511
    -
    
    512
    -#: src/code/errno.lisp
    
    513
    -msgid "Can not exec a shared library directly"
    
    514
    -msgstr ""
    
    515
    -
    
    516
    -#: src/code/errno.lisp
    
    517
    -msgid "Error 88"
    
    518
    -msgstr ""
    
    519
    -
    
    520
    -#: src/code/errno.lisp
    
    521
    -msgid "Operation not applicable"
    
    522
    -msgstr ""
    
    523
    -
    
    524
    -#: src/code/errno.lisp
    
    525
    -msgid ""
    
    526
    -"Number of symbolic links encountered during path name traversal exceeds "
    
    527
    -"MAXSYMLINKS"
    
    528
    -msgstr ""
    
    529
    -
    
    530
    -#: src/code/errno.lisp
    
    531
    -msgid "Error 91"
    
    532
    -msgstr ""
    
    533
    -
    
    534
    -#: src/code/errno.lisp
    
    535
    -msgid "Error 92"
    
    536
    -msgstr ""
    
    537
    -
    
    538
    -#: src/code/errno.lisp
    
    539
    -msgid "Option not supported by protocol"
    
    540
    -msgstr ""
    
    541
    -
    
    542
    -#: src/code/errno.lisp
    
    543
    -msgid "Operation not supported on transport endpoint"
    
    544
    -msgstr ""
    
    545
    -
    
    546
    -#: src/code/errno.lisp
    
    547
    -msgid "Cannot assign requested address"
    
    548
    -msgstr ""
    
    549
    -
    
    550
    -#: src/code/errno.lisp
    
    551
    -msgid "Network dropped connection because of reset"
    
    552
    -msgstr ""
    
    553
    -
    
    554
    -#: src/code/errno.lisp
    
    555
    -msgid "Transport endpoint is already connected"
    
    556
    -msgstr ""
    
    557
    -
    
    558
    -#: src/code/errno.lisp
    
    559
    -msgid "Transport endpoint is not connected"
    
    560
    -msgstr ""
    
    561
    -
    
    562
    -#: src/code/errno.lisp
    
    563
    -msgid "Cannot send after socket shutdown"
    
    564
    -msgstr ""
    
    565
    -
    
    566
    -#: src/code/errno.lisp
    
    567
    -msgid "Too many references: cannot splice"
    
    568
    -msgstr ""
    
    569
    -
    
    570
    -#: src/code/errno.lisp
    
    571
    -msgid "Stale NFS file handle"
    
    572
    -msgstr ""
    
    573
    -
    
    574 22
     #: src/code/unix.lisp
    
    575 23
     msgid ""
    
    576 24
     "The encoding to use for converting a namestring to a string that can\n"