home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / OOP / _SMALTAL.TAR / usr / lib / smalltalk / examples / up.st < prev    next >
Encoding:
Text File  |  1991-09-13  |  3.1 KB  |  122 lines
  1. "Link in pids.c, and install a call to definePidFuncs in initCFuncs  in
  2. mstcint.c.  This will provide access to some process related UNIX system 
  3. calls from within GNU Smalltalk."
  4.  
  5. "======================================================================
  6. |
  7. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  8. | Written by Steve Byrne.
  9. |
  10. | This file is part of GNU Smalltalk.
  11. |
  12. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  13. | under the terms of the GNU General Public License as published by the Free
  14. | Software Foundation; either version 1, or (at your option) any later version.
  15. | 
  16. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  17. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  18. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  19. | details.
  20. | 
  21. | You should have received a copy of the GNU General Public License along with
  22. | GNU Smalltalk; see the file LICENSE.  If not, write to the Free Software
  23. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  24. |
  25.  ======================================================================"
  26.  
  27.  
  28.  
  29. Object subclass: #UnixProcess
  30.     instanceVariableNames: 'pid'
  31.     classVariableNames: ''
  32.     poolDictionaries: ''
  33.     category: 'Cool hacking'!
  34.  
  35. Behavior defineCFunc: 'getpid'
  36.          withSelectorArgs: 'getpid'
  37.      forClass: UnixProcess class
  38.      returning: #long
  39.      args: nil.
  40.  
  41. Behavior defineCFunc: 'getpgrp'
  42.          withSelectorArgs: 'getpgrp: pid'
  43.      forClass: UnixProcess
  44.      returning: #long
  45.      args: #(long).
  46. Behavior defineCFunc: 'fork'
  47.          withSelectorArgs: 'fork'
  48.      forClass: UnixProcess class
  49.      returning: #long
  50.      args: nil.
  51.      
  52. Behavior defineCFunc: 'kill'
  53.          withSelectorArgs: 'kill: pid signal: sig'
  54.      forClass: UnixProcess
  55.      returning: #int
  56.      args: #(int int).
  57.  
  58. Behavior defineCFunc: 'vfork'
  59.          withSelectorArgs: 'vfork'
  60.      forClass: UnixProcess class
  61.      returning: #long
  62.      args: nil.
  63.  
  64. Behavior defineCFunc: 'execlp'
  65.          withSelectorArgs: 'execlp: name args: argsArray'
  66.      forClass: UnixProcess class
  67.      returning: #long
  68.      args: #(string variadic)!
  69.  
  70.  
  71. "  defineCFunc('fork', fork);
  72.   defineCFunc('kill', kill);
  73.   defineCFunc('killpg', killpg);
  74.   defineCFunc('getpgrp', getpgrp);
  75.   defineCFunc('setpgrp', setpgrp);
  76.   defineCFunc('getppid', getppid);
  77.   defineCFunc('nice', nice);
  78.   defineCFunc('vfork', vfork);
  79.   defineCFunc('execve', execve);
  80.   defineCFunc('execl', execl);
  81.   defineCFunc('execle', execle);
  82.   defineCFunc('execlp', execlp);
  83.   defineCFunc('execvp', execvp);"
  84.  
  85. !UnixProcess class methodsFor: 'test'!
  86.  
  87. myProc
  88.     ^self new initPid: (self getpid)
  89. !
  90.  
  91. for: aPid
  92.     ^self new initPid: aPid
  93. !!
  94.  
  95.  
  96. !UnixProcess methodsFor: 'accessing'!
  97.  
  98. processGroup
  99.     ^self getpgrp: pid
  100.  
  101. !!
  102.  
  103. !UnixProcess methodsFor: 'private'!
  104.  
  105. initPid: aPid
  106.     pid _ aPid
  107.  
  108. !!
  109.  
  110. | forkPid |
  111.     forkPid _ UnixProcess vfork.
  112.     'Hello from process: ' print.
  113.     forkPid printNl.
  114.     forkPid = 0
  115.         ifTrue: [ ^UnixProcess execlp: 'dectalk'
  116.                            args: #(dectalk I am 'sorry,' I do not know what I am saying 0) ]. 
  117.     forkPid printNl!
  118.  
  119. "| me |
  120. me _ UnixProcess myProc.
  121. me inspect!"
  122.