This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Introduce pp_lock.
authorMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Sat, 5 Jul 1997 11:55:18 +0000 (11:55 +0000)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Sat, 5 Jul 1997 11:55:18 +0000 (11:55 +0000)
p4raw-id: //depot/perl@35

embed.h
global.sym
keywords.h
keywords.pl
opcode.h
opcode.pl
pp.c
pp_ctl.c
toke.c

diff --git a/embed.h b/embed.h
index 801ccf7..a7e1451 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define pp_list                        Perl_pp_list
 #define pp_listen              Perl_pp_listen
 #define pp_localtime           Perl_pp_localtime
+#define pp_lock                        Perl_pp_lock
 #define pp_log                 Perl_pp_log
 #define pp_lslice              Perl_pp_lslice
 #define pp_lstat               Perl_pp_lstat
index 85c90ce..6439135 100644 (file)
@@ -832,6 +832,7 @@ pp_link
 pp_list
 pp_listen
 pp_localtime
+pp_lock
 pp_log
 pp_lslice
 pp_lstat
index 7d71649..c34c514 100644 (file)
 #define KEY_listen             118
 #define KEY_local              119
 #define KEY_localtime          120
-#define KEY_log                        121
-#define KEY_lstat              122
-#define KEY_lt                 123
-#define KEY_m                  124
-#define KEY_map                        125
-#define KEY_mkdir              126
-#define KEY_msgctl             127
-#define KEY_msgget             128
-#define KEY_msgrcv             129
-#define KEY_msgsnd             130
-#define KEY_my                 131
-#define KEY_ne                 132
-#define KEY_next               133
-#define KEY_no                 134
-#define KEY_not                        135
-#define KEY_oct                        136
-#define KEY_open               137
-#define KEY_opendir            138
-#define KEY_or                 139
-#define KEY_ord                        140
-#define KEY_pack               141
-#define KEY_package            142
-#define KEY_pipe               143
-#define KEY_pop                        144
-#define KEY_pos                        145
-#define KEY_print              146
-#define KEY_printf             147
-#define KEY_prototype          148
-#define KEY_push               149
-#define KEY_q                  150
-#define KEY_qq                 151
-#define KEY_quotemeta          152
-#define KEY_qw                 153
-#define KEY_qx                 154
-#define KEY_rand               155
-#define KEY_read               156
-#define KEY_readdir            157
-#define KEY_readline           158
-#define KEY_readlink           159
-#define KEY_readpipe           160
-#define KEY_recv               161
-#define KEY_redo               162
-#define KEY_ref                        163
-#define KEY_rename             164
-#define KEY_require            165
-#define KEY_reset              166
-#define KEY_return             167
-#define KEY_reverse            168
-#define KEY_rewinddir          169
-#define KEY_rindex             170
-#define KEY_rmdir              171
-#define KEY_s                  172
-#define KEY_scalar             173
-#define KEY_seek               174
-#define KEY_seekdir            175
-#define KEY_select             176
-#define KEY_semctl             177
-#define KEY_semget             178
-#define KEY_semop              179
-#define KEY_send               180
-#define KEY_setgrent           181
-#define KEY_sethostent         182
-#define KEY_setnetent          183
-#define KEY_setpgrp            184
-#define KEY_setpriority                185
-#define KEY_setprotoent                186
-#define KEY_setpwent           187
-#define KEY_setservent         188
-#define KEY_setsockopt         189
-#define KEY_shift              190
-#define KEY_shmctl             191
-#define KEY_shmget             192
-#define KEY_shmread            193
-#define KEY_shmwrite           194
-#define KEY_shutdown           195
-#define KEY_sin                        196
-#define KEY_sleep              197
-#define KEY_socket             198
-#define KEY_socketpair         199
-#define KEY_sort               200
-#define KEY_splice             201
-#define KEY_split              202
-#define KEY_sprintf            203
-#define KEY_sqrt               204
-#define KEY_srand              205
-#define KEY_stat               206
-#define KEY_study              207
-#define KEY_sub                        208
-#define KEY_substr             209
-#define KEY_symlink            210
-#define KEY_syscall            211
-#define KEY_sysopen            212
-#define KEY_sysread            213
-#define KEY_sysseek            214
-#define KEY_system             215
-#define KEY_syswrite           216
-#define KEY_tell               217
-#define KEY_telldir            218
-#define KEY_tie                        219
-#define KEY_tied               220
-#define KEY_time               221
-#define KEY_times              222
-#define KEY_tr                 223
-#define KEY_truncate           224
-#define KEY_uc                 225
-#define KEY_ucfirst            226
-#define KEY_umask              227
-#define KEY_undef              228
-#define KEY_unless             229
-#define KEY_unlink             230
-#define KEY_unpack             231
-#define KEY_unshift            232
-#define KEY_untie              233
-#define KEY_until              234
-#define KEY_use                        235
-#define KEY_utime              236
-#define KEY_values             237
-#define KEY_vec                        238
-#define KEY_wait               239
-#define KEY_waitpid            240
-#define KEY_wantarray          241
-#define KEY_warn               242
-#define KEY_while              243
-#define KEY_write              244
-#define KEY_x                  245
-#define KEY_xor                        246
-#define KEY_y                  247
+#define KEY_lock               121
+#define KEY_log                        122
+#define KEY_lstat              123
+#define KEY_lt                 124
+#define KEY_m                  125
+#define KEY_map                        126
+#define KEY_mkdir              127
+#define KEY_msgctl             128
+#define KEY_msgget             129
+#define KEY_msgrcv             130
+#define KEY_msgsnd             131
+#define KEY_my                 132
+#define KEY_ne                 133
+#define KEY_next               134
+#define KEY_no                 135
+#define KEY_not                        136
+#define KEY_oct                        137
+#define KEY_open               138
+#define KEY_opendir            139
+#define KEY_or                 140
+#define KEY_ord                        141
+#define KEY_pack               142
+#define KEY_package            143
+#define KEY_pipe               144
+#define KEY_pop                        145
+#define KEY_pos                        146
+#define KEY_print              147
+#define KEY_printf             148
+#define KEY_prototype          149
+#define KEY_push               150
+#define KEY_q                  151
+#define KEY_qq                 152
+#define KEY_quotemeta          153
+#define KEY_qw                 154
+#define KEY_qx                 155
+#define KEY_rand               156
+#define KEY_read               157
+#define KEY_readdir            158
+#define KEY_readline           159
+#define KEY_readlink           160
+#define KEY_readpipe           161
+#define KEY_recv               162
+#define KEY_redo               163
+#define KEY_ref                        164
+#define KEY_rename             165
+#define KEY_require            166
+#define KEY_reset              167
+#define KEY_return             168
+#define KEY_reverse            169
+#define KEY_rewinddir          170
+#define KEY_rindex             171
+#define KEY_rmdir              172
+#define KEY_s                  173
+#define KEY_scalar             174
+#define KEY_seek               175
+#define KEY_seekdir            176
+#define KEY_select             177
+#define KEY_semctl             178
+#define KEY_semget             179
+#define KEY_semop              180
+#define KEY_send               181
+#define KEY_setgrent           182
+#define KEY_sethostent         183
+#define KEY_setnetent          184
+#define KEY_setpgrp            185
+#define KEY_setpriority                186
+#define KEY_setprotoent                187
+#define KEY_setpwent           188
+#define KEY_setservent         189
+#define KEY_setsockopt         190
+#define KEY_shift              191
+#define KEY_shmctl             192
+#define KEY_shmget             193
+#define KEY_shmread            194
+#define KEY_shmwrite           195
+#define KEY_shutdown           196
+#define KEY_sin                        197
+#define KEY_sleep              198
+#define KEY_socket             199
+#define KEY_socketpair         200
+#define KEY_sort               201
+#define KEY_splice             202
+#define KEY_split              203
+#define KEY_sprintf            204
+#define KEY_sqrt               205
+#define KEY_srand              206
+#define KEY_stat               207
+#define KEY_study              208
+#define KEY_sub                        209
+#define KEY_substr             210
+#define KEY_symlink            211
+#define KEY_syscall            212
+#define KEY_sysopen            213
+#define KEY_sysread            214
+#define KEY_sysseek            215
+#define KEY_system             216
+#define KEY_syswrite           217
+#define KEY_tell               218
+#define KEY_telldir            219
+#define KEY_tie                        220
+#define KEY_tied               221
+#define KEY_time               222
+#define KEY_times              223
+#define KEY_tr                 224
+#define KEY_truncate           225
+#define KEY_uc                 226
+#define KEY_ucfirst            227
+#define KEY_umask              228
+#define KEY_undef              229
+#define KEY_unless             230
+#define KEY_unlink             231
+#define KEY_unpack             232
+#define KEY_unshift            233
+#define KEY_untie              234
+#define KEY_until              235
+#define KEY_use                        236
+#define KEY_utime              237
+#define KEY_values             238
+#define KEY_vec                        239
+#define KEY_wait               240
+#define KEY_waitpid            241
+#define KEY_wantarray          242
+#define KEY_warn               243
+#define KEY_while              244
+#define KEY_write              245
+#define KEY_x                  246
+#define KEY_xor                        247
+#define KEY_y                  248
index cb91e2b..b54d85a 100755 (executable)
@@ -145,6 +145,7 @@ link
 listen
 local
 localtime
+lock
 log
 lstat
 lt
index c4a6563..2e6f4b2 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -348,10 +348,11 @@ typedef enum {
        OP_EGRENT,      /* 341 */
        OP_GETLOGIN,    /* 342 */
        OP_SYSCALL,     /* 343 */
+       OP_LOCK,        /* 344 */
        OP_max          
 } opcode;
 
-#define MAXO 344
+#define MAXO 345
 
 #ifndef DOINIT
 EXT char *op_name[];
@@ -701,6 +702,7 @@ EXT char *op_name[] = {
        "egrent",
        "getlogin",
        "syscall",
+       "lock",
 };
 #endif
 
@@ -1052,6 +1054,7 @@ EXT char *op_desc[] = {
        "endgrent",
        "getlogin",
        "syscall",
+       "lock",
 };
 #endif
 
@@ -1432,6 +1435,7 @@ OP *      pp_sgrent       _((ARGSproto));
 OP *   pp_egrent       _((ARGSproto));
 OP *   pp_getlogin     _((ARGSproto));
 OP *   pp_syscall      _((ARGSproto));
+OP *   pp_lock         _((ARGSproto));
 
 #ifndef DOINIT
 EXT OP * (*ppaddr[])();
@@ -1781,6 +1785,7 @@ EXT OP * (*ppaddr[])() = {
        pp_egrent,
        pp_getlogin,
        pp_syscall,
+       pp_lock,
 };
 #endif
 
@@ -2132,6 +2137,7 @@ EXT OP * (*check[]) _((OP *op)) = {
        ck_null,        /* egrent */
        ck_null,        /* getlogin */
        ck_fun,         /* syscall */
+       ck_null,        /* lock */
 };
 #endif
 
@@ -2483,5 +2489,6 @@ EXT U32 opargs[] = {
        0x00000014,     /* egrent */
        0x0000000c,     /* getlogin */
        0x0000211d,     /* syscall */
+       0x00000114,     /* lock */
 };
 #endif
index 7e8f6ac..89d076a 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -652,3 +652,6 @@ getlogin    getlogin                ck_null         st
 # Miscellaneous.
 
 syscall                syscall                 ck_fun          imst    S L
+
+# For multi-threading
+lock           lock                    ck_null         is      S
diff --git a/pp.c b/pp.c
index 391133b..735b884 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -89,6 +89,9 @@ typedef unsigned UBW;
 static void doencodes _((SV* sv, char* s, I32 len));
 static SV* refto _((SV* sv));
 static U32 seed _((void));
+#ifdef USE_THREADS
+static void unlock_condpair _((void*));
+#endif /* USE_THREADS */
 
 static bool srand_called = FALSE;
 
@@ -4109,3 +4112,47 @@ PP(pp_split)
     RETPUSHUNDEF;
 }
 
+#ifdef USE_THREADS
+static void
+unlock_condpair(svv)
+void *svv;
+{
+    dTHR;
+    MAGIC *mg = mg_find((SV*)svv, 'm');
+    
+    if (!mg)
+       croak("panic: unlock_condpair unlocking non-mutex");
+    MUTEX_LOCK(MgMUTEXP(mg));
+    if (MgOWNER(mg) != thr)
+       croak("panic: unlock_condpair unlocking mutex that we don't own");
+    MgOWNER(mg) = 0;
+    COND_SIGNAL(MgOWNERCONDP(mg));
+    MUTEX_UNLOCK(MgMUTEXP(mg));
+}
+#endif /* USE_THREADS */
+
+PP(pp_lock)
+{
+    dSP;
+#ifdef USE_THREADS
+    dTOPss;
+    MAGIC *mg;
+    
+    if (SvROK(sv))
+       sv = SvRV(sv);
+
+    mg = condpair_magic(sv);
+    MUTEX_LOCK(MgMUTEXP(mg));
+    if (MgOWNER(mg) == thr)
+       MUTEX_UNLOCK(MgMUTEXP(mg));
+    else {
+       while (MgOWNER(mg))
+           COND_WAIT(MgOWNERCONDP(mg), MgMUTEXP(mg));
+       MgOWNER(mg) = thr;
+       MUTEX_UNLOCK(MgMUTEXP(mg));
+       save_destructor(unlock_condpair, sv);
+    }
+#endif /* USE_THREADS */
+    PUSHs(&sv_yes);
+    RETURN;
+}
index 317ed70..cd9a210 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1272,54 +1272,9 @@ const void *b;
     return sv_cmp_locale(*(SV * const *)a, *(SV * const *)b);
 }
 
-#ifdef USE_THREADS
-static void
-unlock_condpair(svv)
-void *svv;
-{
-    dTHR;
-    MAGIC *mg = mg_find((SV*)svv, 'm');
-    
-    if (!mg)
-       croak("panic: unlock_condpair unlocking non-mutex");
-    MUTEX_LOCK(MgMUTEXP(mg));
-    if (MgOWNER(mg) != thr)
-       croak("panic: unlock_condpair unlocking mutex that we don't own");
-    MgOWNER(mg) = 0;
-    COND_SIGNAL(MgOWNERCONDP(mg));
-    MUTEX_UNLOCK(MgMUTEXP(mg));
-}
-#endif /* USE_THREADS */
-
 PP(pp_reset)
 {
     dSP;
-#ifdef USE_THREADS
-    dTOPss;
-    MAGIC *mg;
-    
-    if (MAXARG < 1)
-       croak("reset requires mutex argument with USE_THREADS");
-    if (SvROK(sv)) {
-       /*
-        * Kludge to allow lock of real objects without requiring
-        * to pass in every type of argument by explicit reference.
-        */
-       sv = SvRV(sv);
-    }
-    mg = condpair_magic(sv);
-    MUTEX_LOCK(MgMUTEXP(mg));
-    if (MgOWNER(mg) == thr)
-       MUTEX_UNLOCK(MgMUTEXP(mg));
-    else {
-       while (MgOWNER(mg))
-           COND_WAIT(MgOWNERCONDP(mg), MgMUTEXP(mg));
-       MgOWNER(mg) = thr;
-       MUTEX_UNLOCK(MgMUTEXP(mg));
-       save_destructor(unlock_condpair, sv);
-    }
-    RETURN;
-#else
     char *tmps;
 
     if (MAXARG < 1)
@@ -1329,7 +1284,6 @@ PP(pp_reset)
     sv_reset(tmps, curcop->cop_stash);
     PUSHs(&sv_yes);
     RETURN;
-#endif /* USE_THREADS */
 }
 
 PP(pp_lineseq)
diff --git a/toke.c b/toke.c
index a007fa4..705b9ab 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -3098,6 +3098,9 @@ yylex()
        case KEY_listen:
            LOP(OP_LISTEN,XTERM);
 
+       case KEY_lock:
+           UNI(OP_LOCK);
+
        case KEY_lstat:
            UNI(OP_LSTAT);
 
@@ -3966,6 +3969,7 @@ I32 len;
        case 4:
            if (strEQ(d,"last"))                return KEY_last;
            if (strEQ(d,"link"))                return -KEY_link;
+           if (strEQ(d,"lock"))                return -KEY_lock;
            break;
        case 5:
            if (strEQ(d,"local"))               return KEY_local;