[BACK]Return to symtab_bltin.c CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/symtab_bltin.c between versions 1.1.1.1 and 1.5

version 1.1.1.1, 2025/01/19 02:04:04 version 1.5, 2025/03/24 02:01:41
Line 1 Line 1
 /*  /*
  *                            *   *   $Id$
  *                           * *  
  *                          *   *  
  *                     ***************  
  *                      * *       * *  
  *                       *  MUMPS  *  
  *                      * *       * *  
  *                     ***************  
  *                          *   *  
  *                           * *  
  *                            *  
  *  
  *   symtab.c  
  *      FreeM local system table and user-defined special variable table    *      FreeM local system table and user-defined special variable table 
  *   *
  *     *  
  *   Author: Serena Willis <jpw@coherent-logic.com>   *   Author: Serena Willis <snw@coherent-logic.com>
  *    Copyright (C) 1998 MUG Deutschland   *    Copyright (C) 1998 MUG Deutschland
  *    Copyright (C) 2020 Coherent Logic Development LLC   *    Copyright (C) 2020, 2025 Coherent Logic Development LLC
  *   *
  *   *
  *   This file is part of FreeM.   *   This file is part of FreeM.
Line 35 Line 23
  *   You should have received a copy of the GNU Affero Public License   *   You should have received a copy of the GNU Affero Public License
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.   *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *   *
    *   $Log$
    *   Revision 1.5  2025/03/24 02:01:41  snw
    *   Work around some OS/2 incompatibilities in symbol table code
    *
    *   Revision 1.4  2025/03/09 19:50:47  snw
    *   Second phase of REUSE compliance and header reformat
    *
    *
    * SPDX-FileCopyrightText:  (C) 2025 Coherent Logic Development LLC
    * SPDX-License-Identifier: AGPL-3.0-or-later
  **/   **/
   
 #include <stdlib.h>  #include <stdlib.h>
Line 57  symbol-table calls */ Line 55  symbol-table calls */
 short restoring_consts = FALSE;  short restoring_consts = FALSE;
 int semid_symtab;  int semid_symtab;
   
 #if !defined(__OpenBSD__) && !defined(__APPLE__)  #if !defined(__OpenBSD__) && !defined(__APPLE__) && !defined(__OS2__)
 union semun {  union semun {
     int              val;    /* Value for SETVAL */      int              val;    /* Value for SETVAL */
     struct semid_ds *buf;    /* Buffer for IPC_STAT, IPC_SET */      struct semid_ds *buf;    /* Buffer for IPC_STAT, IPC_SET */
Line 94  long str2long(char *string) Line 92  long str2long(char *string)
     return value;      return value;
 }  }
   
 void symtab_init ()  void symtab_init (void)
 {  {
     register int i;      register int i;
     union semun arg;      union semun arg;
Line 2475  unsubscr: Line 2473  unsubscr:
   
   
 /******************************************************************************/  /******************************************************************************/
 short int collate (s, t)  
     char *s;  
     char *t;  
     /* if 't' follows 's' in MUMPS collating sequence a 1 is returned      /* if 't' follows 's' in MUMPS collating sequence a 1 is returned
      * otherwise 0       * otherwise 0
      */       */
   
   short int collate (char *s, char *t)
 {  {
     short dif;      short dif;
   
Line 2552  short int numeric (char *str) Line 2549  short int numeric (char *str)
 }                                       /* end of numeric() */  }                                       /* end of numeric() */
   
 /******************************************************************************/  /******************************************************************************/
 short int comp (s, t)  
     char *s;  
     char *t;                      
     /* s and t are strings representing */      /* s and t are strings representing */
     /* MUMPS numbers. comp returns t>s  */      /* MUMPS numbers. comp returns t>s  */
   
   short int comp (char *s, char *t)
 {  {
   
     register int s1 = s[0], t1 = t[0], point = '.';      register int s1 = s[0], t1 = t[0], point = '.';
Line 2621  short int comp (s, t) Line 2617  short int comp (s, t)
   
 }                                       /* end of comp() */  }                                       /* end of comp() */
 /******************************************************************************/  /******************************************************************************/
 void intstr (str, integ)                        /* converts integer to string */  void intstr (char *str, short integ)                    /* converts integer to string */
     char *str;  
     short integ;  
 {  {
   
     if (integ < 0) {      if (integ < 0) {
Line 2662  void intstr (str, integ)   /* converts i Line 2656  void intstr (str, integ)   /* converts i
 }                                       /* end of intstr() */  }                                       /* end of intstr() */
   
 /******************************************************************************/  /******************************************************************************/
 void lintstr (str, integ)                       /* converts long integer to string */  void lintstr (char *str, long integ)                    /* converts long integer to string */
     char *str;  
     long integ;  
 {  {
     char result[11];                    /* 32 bit = 10 digits+sign */      char result[11];                    /* 32 bit = 10 digits+sign */
     register int i = 0;      register int i = 0;
Line 2700  void lintstr (str, integ)   /* converts Line 2692  void lintstr (str, integ)   /* converts
  * alphabet for each character a pointer to the first variable beginning   * alphabet for each character a pointer to the first variable beginning
  * with that letter is maintained. (0 indicates there's no such var.)   * with that letter is maintained. (0 indicates there's no such var.)
  */   */
 void udfsvn (action, key, data)         /* symbol table functions */  
     short action;                       /* set_sym      get_sym   */  void udfsvn (short action, char *key, char *data)               /* symbol table functions */
     char *key;                  /* lvn as ASCII-string */  
     char *data;  
 {  {
   
 long keyl;                      /* length of key                  */  long keyl;                      /* length of key                  */
Line 2910  old: Line 2900  old:
   
   
 /******************************************************************************/  /******************************************************************************/
 long getpmore ()  long getpmore (void)
 {                                       /* try to get more 'partition' space. returns size increment */  {                                       /* try to get more 'partition' space. returns size increment */
           
     long siz;      long siz;
Line 2932  long getpmore () Line 2922  long getpmore ()
 }                                       /* end getpmore */  }                                       /* end getpmore */
   
 /******************************************************************************/  /******************************************************************************/
 long getumore ()  long getumore (void)
 {                                       /* try to get more udfsvntab space. returns size increment */  {                                       /* try to get more udfsvntab space. returns size increment */
     long siz, dif;      long siz, dif;
   
Line 2958  long getumore () Line 2948  long getumore ()
 }                                       /* end getumore */  }                                       /* end getumore */
   
 /******************************************************************************/  /******************************************************************************/
 long getrmore ()  long getrmore (void)
 {                                       /* try to get more routine space. returns size increment */  {                                       /* try to get more routine space. returns size increment */
     long siz, dif;      long siz, dif;
     short i;      short i;
Line 2990  long getrmore () Line 2980  long getrmore ()
 }                                       /* end getrmore */  }                                       /* end getrmore */
   
 /******************************************************************************/  /******************************************************************************/
 short int getnewmore ()  short int getnewmore (void)
 {                                       /* enlarge new_buffers */  {                                       /* enlarge new_buffers */
     char *newbuf;      char *newbuf;
     int i;      int i;
Removed from v.1.1.1.1  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>