← Back to branch summary

~ubuntu-branches/debian/sid/octave3.0/sid

« back to all changes in this revision

Viewing changes to liboctave/lo-cutils.c

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2007-12-23 16:04:15 UTC
  • Revision ID: james.westby@ubuntu.com-20071223160415-n4gk468dihy22e9v
Tags: upstream-3.0.0
Import upstream version 3.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
liboctave/lo-cutils.c
 
1
/*
 
2
 
 
3
Copyright (C) 2000, 2001, 2002, 2003, 2005, 2006, 2007 John W. Eaton
 
4
 
 
5
This file is part of Octave.
 
6
 
 
7
Octave is free software; you can redistribute it and/or modify it
 
8
under the terms of the GNU General Public License as published by the
 
9
Free Software Foundation; either version 3 of the License, or (at your
 
10
option) any later version.
 
11
 
 
12
Octave is distributed in the hope that it will be useful, but WITHOUT
 
13
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 
14
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 
15
for more details.
 
16
 
 
17
You should have received a copy of the GNU General Public License
 
18
along with Octave; see the file COPYING.  If not, see
 
19
<http://www.gnu.org/licenses/>.
 
20
 
 
21
*/
 
22
 
 
23
/*
 
24
 
 
25
The function gethostname was adapted from a similar function from GNU
 
26
Bash, the Bourne Again SHell, copyright (C) 1987, 1989, 1991 Free
 
27
Software Foundation, Inc.
 
28
 
 
29
*/
 
30
 
 
31
#ifdef HAVE_CONFIG_H
 
32
#include <config.h>
 
33
#endif
 
34
 
 
35
/* This gives us a better chance of finding a prototype for strptime
 
36
   on some systems.  */
 
37
 
 
38
#if ! defined (_XOPEN_SOURCE)
 
39
#define _XOPEN_SOURCE
 
40
#endif
 
41
 
 
42
#ifdef HAVE_UNISTD_H
 
43
#ifdef HAVE_SYS_TYPES_H
 
44
#include <sys/types.h>
 
45
#endif
 
46
#include <unistd.h>
 
47
#endif
 
48
 
 
49
#include <stdlib.h>
 
50
#include <string.h>
 
51
#include <time.h>
 
52
 
 
53
#include "syswait.h"
 
54
 
 
55
OCTAVE_API void
 
56
octave_qsort (void *base, size_t n, size_t size,
 
57
              int (*cmp) (const void *, const void *))
 
58
{
 
59
  qsort (base, n, size, cmp);
 
60
}
 
61
 
 
62
OCTAVE_API char *
 
63
oct_strptime (const char *buf, const char *format, struct tm *tm)
 
64
{
 
65
  return (char *) strptime (buf, format, tm);
 
66
}
 
67
 
 
68
#if defined (__WIN32__) && ! defined (_POSIX_VERSION)
 
69
 
 
70
#include <winsock.h>
 
71
 
 
72
#elif ! defined (HAVE_GETHOSTNAME) && defined (HAVE_SYS_UTSNAME_H)
 
73
 
 
74
#include <sys/utsname.h>
 
75
 
 
76
int
 
77
gethostname (char *name, int namelen)
 
78
{
 
79
  int i;
 
80
  struct utsname ut;
 
81
 
 
82
  --namelen;
 
83
 
 
84
  uname (&ut);
 
85
  i = strlen (ut.nodename) + 1;
 
86
  strncpy (name, ut.nodename, i < namelen ? i : namelen);
 
87
  name[namelen] = '\0';
 
88
 
 
89
  return 0;
 
90
}
 
91
 
 
92
#endif
 
93
 
 
94
OCTAVE_API int
 
95
octave_strcasecmp (const char *s1, const char *s2)
 
96
{
 
97
  return strcasecmp (s1, s2);
 
98
}
 
99
 
 
100
OCTAVE_API int
 
101
octave_strncasecmp (const char *s1, const char *s2, size_t n)
 
102
{
 
103
  return strncasecmp (s1, s2, n);
 
104
}
 
105
 
 
106
OCTAVE_API int
 
107
octave_gethostname (char *name, int namelen)
 
108
{
 
109
  return gethostname (name, namelen);
 
110
}
 
111
 
 
112
#ifdef HAVE_LOADLIBRARY_API
 
113
#include <windows.h>
 
114
 
 
115
/* Need this since in C++ can't cast from int(*)() to void* */
 
116
OCTAVE_API void *
 
117
octave_w32_library_search (HINSTANCE handle, const char * name)
 
118
{
 
119
  return (GetProcAddress (handle, name));
 
120
}
 
121
#endif
 
122
 
 
123
OCTAVE_API pid_t
 
124
octave_waitpid (pid_t pid, int *status, int options)
 
125
{
 
126
  return WAITPID (pid, status, options);
 
127
}
 
128
 
 
129
/*
 
130
;;; Local Variables: ***
 
131
;;; mode: C++ ***
 
132
;;; End: ***
 
133
*/