/[m4]/m4/modules/stdlib.c
ViewVC logotype

Diff of /m4/modules/stdlib.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by akim, Tue Aug 7 10:41:11 2001 UTC revision 1.5 by gary, Sun Aug 19 10:53:56 2001 UTC
# Line 69  m4_builtin m4_builtin_table[] = Line 69  m4_builtin m4_builtin_table[] =
69  };  };
70    
71    
72  /*---------.  /**
73  | getcwd() |   * getcwd()
74  `---------*/   **/
75  M4BUILTIN_HANDLER (getcwd)  M4BUILTIN_HANDLER (getcwd)
76  {  {
77    char buf[1024];    char buf[1024];
# Line 86  M4BUILTIN_HANDLER (getcwd) Line 86  M4BUILTIN_HANDLER (getcwd)
86      m4_shipout_string (obs, buf, 0 , FALSE);      m4_shipout_string (obs, buf, 0 , FALSE);
87  }  }
88    
89  /*-------------.  /**
90  | getenv(NAME) |   * getenv(NAME)
91  `-------------*/   **/
92  M4BUILTIN_HANDLER (getenv)  M4BUILTIN_HANDLER (getenv)
93  {  {
94    char *env;    char *env;
# Line 102  M4BUILTIN_HANDLER (getenv) Line 102  M4BUILTIN_HANDLER (getenv)
102      m4_shipout_string (obs, env, 0, FALSE);      m4_shipout_string (obs, env, 0, FALSE);
103  }  }
104    
105  /*---------------------------------.  /**
106  | setenv(NAME, VALUE, [OVERWRITE]) |   * setenv(NAME, VALUE, [OVERWRITE])
107  `---------------------------------*/   **/
108  M4BUILTIN_HANDLER (setenv)  M4BUILTIN_HANDLER (setenv)
109  {  {
110    int overwrite = 1;    int overwrite = 1;
# Line 136  M4BUILTIN_HANDLER (setenv) Line 136  M4BUILTIN_HANDLER (setenv)
136  #endif /* HAVE_SETENV */  #endif /* HAVE_SETENV */
137  }  }
138    
139  /*---------------.  /**
140  | unsetenv(NAME) |   * unsetenv(NAME)
141  `---------------*/   **/
142  M4BUILTIN_HANDLER (unsetenv)  M4BUILTIN_HANDLER (unsetenv)
143  {  {
   
144    if (m4_bad_argc (argv[0], argc, 2, 2))    if (m4_bad_argc (argv[0], argc, 2, 2))
145      return;      return;
146    
# Line 150  M4BUILTIN_HANDLER (unsetenv) Line 149  M4BUILTIN_HANDLER (unsetenv)
149  #endif /* HAVE_UNSETENV */  #endif /* HAVE_UNSETENV */
150  }  }
151    
152  /*-----------.  /**
153  | getlogin() |   * getlogin()
154  `-----------*/   **/
155  M4BUILTIN_HANDLER (getlogin)  M4BUILTIN_HANDLER (getlogin)
156  {  {
157    char *login;    char *login;
# Line 166  M4BUILTIN_HANDLER (getlogin) Line 165  M4BUILTIN_HANDLER (getlogin)
165      m4_shipout_string (obs, login, 0, FALSE);      m4_shipout_string (obs, login, 0, FALSE);
166  }  }
167    
168  /*---------.  /**
169  | getpid() |   * getpid()
170  `---------*/   **/
171  M4BUILTIN_HANDLER (getpid)  M4BUILTIN_HANDLER (getpid)
172  {  {
173    if (m4_bad_argc (argv[0], argc, 1, 1))    if (m4_bad_argc (argv[0], argc, 1, 1))
# Line 177  M4BUILTIN_HANDLER (getpid) Line 176  M4BUILTIN_HANDLER (getpid)
176    m4_shipout_int(obs, getpid());    m4_shipout_int(obs, getpid());
177  }  }
178    
179  /*----------.  /**
180  | getppid() |   * getppid()
181  `----------*/   **/
182  M4BUILTIN_HANDLER (getppid)  M4BUILTIN_HANDLER (getppid)
183  {  {
184    if (m4_bad_argc (argv[0], argc, 1, 1))    if (m4_bad_argc (argv[0], argc, 1, 1))
# Line 188  M4BUILTIN_HANDLER (getppid) Line 187  M4BUILTIN_HANDLER (getppid)
187    m4_shipout_int(obs, getppid());    m4_shipout_int(obs, getppid());
188  }  }
189    
190  /*---------------.  /**
191  | getpwnam(NAME) |   * getpwnam(NAME)
192  `---------------*/   **/
193  M4BUILTIN_HANDLER (getpwnam)  M4BUILTIN_HANDLER (getpwnam)
194  {  {
195    struct passwd *pw;    struct passwd *pw;
# Line 218  M4BUILTIN_HANDLER (getpwnam) Line 217  M4BUILTIN_HANDLER (getpwnam)
217      }      }
218  }  }
219    
220  /*--------------.  /**
221  | getpwuid(UID) |   * getpwuid(UID)
222  `--------------*/   **/
223  M4BUILTIN_HANDLER (getpwuid)  M4BUILTIN_HANDLER (getpwuid)
224  {  {
225    struct passwd *pw;    struct passwd *pw;
# Line 252  M4BUILTIN_HANDLER (getpwuid) Line 251  M4BUILTIN_HANDLER (getpwuid)
251      }      }
252  }  }
253    
254  /*-----------.  /**
255  | hostname() |   * hostname()
256  `-----------*/   **/
257  M4BUILTIN_HANDLER (hostname)  M4BUILTIN_HANDLER (hostname)
258  {  {
259    char buf[1024];    char buf[1024];
# Line 268  M4BUILTIN_HANDLER (hostname) Line 267  M4BUILTIN_HANDLER (hostname)
267    m4_shipout_string (obs, buf, 0, FALSE);    m4_shipout_string (obs, buf, 0, FALSE);
268  }  }
269    
270  /*-------.  /**
271  | rand() |   * rand()
272  `-------*/   **/
273  M4BUILTIN_HANDLER (rand)  M4BUILTIN_HANDLER (rand)
274  {  {
275    if (m4_bad_argc (argv[0], argc, 1, 1))    if (m4_bad_argc (argv[0], argc, 1, 1))
# Line 279  M4BUILTIN_HANDLER (rand) Line 278  M4BUILTIN_HANDLER (rand)
278    m4_shipout_int(obs, rand());    m4_shipout_int(obs, rand());
279  }  }
280    
281  /*--------.  /**
282  | srand() |   * srand()
283  `--------*/   **/
284  M4BUILTIN_HANDLER (srand)  M4BUILTIN_HANDLER (srand)
285  {  {
286    int seed;    int seed;
# Line 300  M4BUILTIN_HANDLER (srand) Line 299  M4BUILTIN_HANDLER (srand)
299    srand(seed);    srand(seed);
300  }  }
301    
302  /*--------.  /**
303  | uname() |   * uname()
304  `--------*/   **/
305  M4BUILTIN_HANDLER (uname)  M4BUILTIN_HANDLER (uname)
306  {  {
307    struct utsname ut;    struct utsname ut;
# Line 324  M4BUILTIN_HANDLER (uname) Line 323  M4BUILTIN_HANDLER (uname)
323      }      }
324  }  }
325    
326  /*---------.  /**
327  | getuid() |   * getuid()
328  `---------*/   **/
329  M4BUILTIN_HANDLER (getuid)  M4BUILTIN_HANDLER (getuid)
330  {  {
331    if (m4_bad_argc (argv[0], argc, 1, 1))    if (m4_bad_argc (argv[0], argc, 1, 1))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26