home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume28 / m0 / part01 / startup.m0 < prev    next >
Text File  |  1994-06-05  |  2KB  |  77 lines
  1. # startup.m0
  2.  
  3. #  Copyright (c) 1994 Christian F. Tschudin. All rights reserved.
  4. #
  5. #    Distributed under the terms of the GNU General Public License
  6. #    version 2 of june 1991 as published by the Free Software
  7. #    Foundation, Inc.
  8. #
  9. #             This file is part of M0.
  10. #
  11. # M0 is distributed in the hope that it will be useful, but WITHOUT ANY
  12. # WARRANTY.  No author or distributor accepts responsibility to anyone for
  13. # the consequences of using it or for whether it serves any particular
  14. # purpose or works at all, unless he says so in writing.  Refer to the GNU
  15. # General Public License for full details. 
  16. #
  17. # Everyone is granted permission to copy, modify and redistribute M0, but
  18. # only under the conditions described in the GNU General Public License. 
  19. # A copy of this license is supposed to have been given to you along with
  20. # M0 so you can know your rights and responsibilities.  It should be in a
  21. # file named LICENSE.  Among other things, the copyright notice and this
  22. # notice must be preserved on all copies.
  23.  
  24. # the M0 interpreter startup code
  25. # christian tschudin, may 1994
  26.  
  27.  
  28. # pop the local (user) dictionary
  29. )
  30.  
  31. #define official entries _sys, _ (globaldict), _ver and _pid
  32. . '_sys . :
  33. . '_ D :
  34. . '_ver 1 :
  35. . '_pid ; :
  36.  
  37. . '_cpy "(c) 1994, Christian F. Tschudin" :
  38.  
  39. . '_err .'ZG :
  40.  
  41.  
  42. # include the longword definitions:
  43. . 'longdict D :
  44.   longdict (
  45. #include longdict.m0
  46.   )
  47.  
  48.  
  49. # define the access rights:
  50. .'_r    1:
  51. .'_rw    3:
  52. .'_rx    5:
  53. .'_w    2:
  54. .'_wx    6:
  55. .'_rwx    7:
  56. .'_x    4:
  57. .'_nac    0:
  58.  
  59.  
  60. # set the access attributes for various dictionaries, arrays and strings
  61. [
  62.   _adr {XP0IY'string={}{P}?}L    # remove write only from composite objects
  63.   _adr
  64.   _cha {XP}L            # to do: treat the descrpitive strings
  65.   _cha
  66.   _cpy
  67.   _ena
  68.   longdict
  69.   _tna
  70.   .
  71. ] {_rx W} L
  72.  
  73. # globaldict is not executable:
  74. _ _rw W
  75.  
  76. # eof
  77.