summaryrefslogtreecommitdiff
path: root/ext/etc
diff options
context:
space:
mode:
Diffstat (limited to 'ext/etc')
-rw-r--r--ext/etc/MANIFEST5
-rw-r--r--ext/etc/depend1
-rw-r--r--ext/etc/etc.c260
-rw-r--r--ext/etc/etc.doc73
-rw-r--r--ext/etc/extconf.rb7
5 files changed, 346 insertions, 0 deletions
diff --git a/ext/etc/MANIFEST b/ext/etc/MANIFEST
new file mode 100644
index 0000000000..a0f521b386
--- /dev/null
+++ b/ext/etc/MANIFEST
@@ -0,0 +1,5 @@
+MANIFEST
+etc.c
+etc.doc
+depend
+extconf.rb
diff --git a/ext/etc/depend b/ext/etc/depend
new file mode 100644
index 0000000000..5c95ef117a
--- /dev/null
+++ b/ext/etc/depend
@@ -0,0 +1 @@
+etc.o : etc.c ../../ruby.h ../../config.h ../../defines.h
diff --git a/ext/etc/etc.c b/ext/etc/etc.c
new file mode 100644
index 0000000000..e4e4098f8a
--- /dev/null
+++ b/ext/etc/etc.c
@@ -0,0 +1,260 @@
+/************************************************
+
+ etc.c -
+
+ $Author: matz $
+ $Date: 1995/01/10 10:42:32 $
+ created at: Tue Mar 22 18:39:19 JST 1994
+
+************************************************/
+
+#include "ruby.h"
+
+#ifdef HAVE_GETPWENT
+#include <pwd.h>
+#endif
+
+#ifdef HAVE_GETGRENT
+#include <grp.h>
+#endif
+
+static VALUE sPasswd, sGroup;
+
+static VALUE
+etc_getlogin(obj)
+ VALUE obj;
+{
+#ifdef HAVE_GETLOGIN
+ char *getlogin();
+ char *login = getlogin();
+#else
+ char *getenv();
+ char *login = getenv("USER");
+#endif
+
+ if (login)
+ return str_new2(login);
+ return Qnil;
+}
+
+#ifdef HAVE_GETPWENT
+static VALUE
+setup_passwd(pwd)
+ struct passwd *pwd;
+{
+ if (pwd == Qnil) rb_sys_fail("/etc/passwd");
+ return struct_new(sPasswd,
+ str_new2(pwd->pw_name),
+ str_new2(pwd->pw_passwd),
+ INT2FIX(pwd->pw_uid),
+ INT2FIX(pwd->pw_gid),
+ str_new2(pwd->pw_gecos),
+ str_new2(pwd->pw_dir),
+ str_new2(pwd->pw_shell),
+#ifdef PW_CHANGE
+ INT2FIX(pwd->pw_change),
+#endif
+#ifdef PW_QUOTA
+ INT2FIX(pwd->pw_quota),
+#endif
+#ifdef PW_AGE
+ INT2FIX(pwd->pw_age),
+#endif
+#ifdef PW_CLASS
+ str_new2(pwd->pw_class),
+#endif
+#ifdef PW_COMMENT
+ str_new2(pwd->pw_comment),
+#endif
+#ifdef PW_EXPIRE
+ INT2FIX(pwd->pw_expire),
+#endif
+ Qnil);
+}
+#endif
+
+static VALUE
+etc_getpwuid(argc, argv, obj)
+ int argc;
+ VALUE *argv;
+ VALUE obj;
+{
+#ifdef HAVE_GETPWENT
+ VALUE id;
+ int uid;
+ struct passwd *pwd;
+
+ if (rb_scan_args(argc, argv, "01", &id) == 1) {
+ uid = NUM2INT(id);
+ }
+ else {
+ uid = getuid();
+ }
+ pwd = getpwuid(uid);
+ if (pwd == Qnil) Fail("can't find user for %d", uid);
+ return setup_passwd(pwd);
+#else
+ return Qnil;
+#endif
+}
+
+static VALUE
+etc_getpwnam(obj, nam)
+ VALUE obj, nam;
+{
+#ifdef HAVE_GETPWENT
+ struct passwd *pwd;
+
+ Check_Type(nam, T_STRING);
+ pwd = getpwnam(RSTRING(nam)->ptr);
+ if (pwd == Qnil) Fail("can't find user for %s", RSTRING(nam)->ptr);
+ return setup_passwd(pwd);
+#else
+ return Qnil;
+#endif
+}
+
+static VALUE
+etc_passwd(obj)
+ VALUE obj;
+{
+#ifdef HAVE_GETPWENT
+ struct passwd *pw;
+
+ if (iterator_p()) {
+ setpwent();
+ while (pw = getpwent()) {
+ rb_yield(setup_passwd(pw));
+ }
+ endpwent();
+ return obj;
+ }
+ pw = getpwent();
+ if (pw == Qnil) Fail("can't fetch next -- /etc/passwd");
+ return setup_passwd(pw);
+#else
+ return Qnil;
+#endif
+}
+
+#ifdef HAVE_GETGRENT
+static VALUE
+setup_group(grp)
+ struct group *grp;
+{
+ VALUE mem;
+ char **tbl;
+
+ mem = ary_new();
+ tbl = grp->gr_mem;
+ while (*tbl) {
+ ary_push(mem, str_new2(*tbl));
+ tbl++;
+ }
+ return struct_new(sGroup,
+ str_new2(grp->gr_name),
+ str_new2(grp->gr_passwd),
+ INT2FIX(grp->gr_gid),
+ mem,
+ Qnil);
+}
+#endif
+
+static VALUE
+etc_getgrgid(obj, id)
+ VALUE obj, id;
+{
+#ifdef HAVE_GETGRENT
+ int gid;
+ struct group *grp;
+
+ gid = NUM2INT(id);
+ grp = getgrgid(gid);
+ if (grp == Qnil) Fail("can't find group for %d", gid);
+ return setup_group(grp);
+#else
+ return Qnil;
+#endif
+}
+
+static VALUE
+etc_getgrnam(obj, nam)
+ VALUE obj, nam;
+{
+#ifdef HAVE_GETGRENT
+ struct group *grp;
+
+ Check_Type(nam, T_STRING);
+ grp = getgrnam(RSTRING(nam)->ptr);
+ if (grp == Qnil) Fail("can't find group for %s", RSTRING(nam)->ptr);
+ return setup_group(grp);
+#else
+ return Qnil;
+#endif
+}
+
+static VALUE
+etc_group(obj)
+ VALUE obj;
+{
+#ifdef HAVE_GETGRENT
+ struct group *grp;
+
+ if (iterator_p()) {
+ setgrent();
+ while (grp = getgrent()) {
+ rb_yield(setup_group(grp));
+ }
+ endgrent();
+ return obj;
+ }
+ return setup_group(getgrent());
+#else
+ return Qnil;
+#endif
+}
+
+VALUE mEtc;
+
+void
+Init_etc()
+{
+ mEtc = rb_define_module("Etc");
+
+ rb_define_module_function(mEtc, "getlogin", etc_getlogin, 0);
+
+ rb_define_module_function(mEtc, "getpwuid", etc_getpwuid, -1);
+ rb_define_module_function(mEtc, "getpwnam", etc_getpwnam, 1);
+ rb_define_module_function(mEtc, "passwd", etc_passwd, 0);
+
+ rb_define_module_function(mEtc, "getgrgid", etc_getgrgid, 1);
+ rb_define_module_function(mEtc, "getgrnam", etc_getgrnam, 1);
+ rb_define_module_function(mEtc, "group", etc_group, 0);
+
+ sPasswd = struct_define("Passwd",
+ "name", "passwd", "uid", "gid",
+ "gecos", "dir", "shell",
+#ifdef PW_CHANGE
+ "change",
+#endif
+#ifdef PW_QUOTA
+ "quota",
+#endif
+#ifdef PW_AGE
+ "age",
+#endif
+#ifdef PW_CLASS
+ "class",
+#endif
+#ifdef PW_COMMENT
+ "comment",
+#endif
+#ifdef PW_EXPIRE
+ "expire",
+#endif
+ Qnil);
+
+#ifdef HAVE_GETGRENT
+ sGroup = struct_define("Group", "name", "passwd", "gid", "mem", Qnil);
+#endif
+}
diff --git a/ext/etc/etc.doc b/ext/etc/etc.doc
new file mode 100644
index 0000000000..2af895c9de
--- /dev/null
+++ b/ext/etc/etc.doc
@@ -0,0 +1,73 @@
+.\" etc.doc - -*- Indented-Text -*- created at: Fri Jul 14 00:47:15 JST 1995
+
+** Etc(�⥸�塼��)
+
+/etc�ǥ��쥯�ȥ�ʲ��ξ�������뤿��Υ⥸�塼�롥���饹�˥��󥯥롼��
+���ƻȤ����Ȥ�Ǥ��롥
+
+Methods:
+Single Methods:
+
+ getlogin
+
+ ��ʬ��login̾���֤������줬���Ԥ�������getpwuid()���Ѥ����
+ �ɤ���
+
+ getpwnam(name)
+
+ /etc/passwd�ե�����(���뤤��DBM�ե������NIS�ǡ����١���)��
+ ������name��̾�������passwd����ȥ���֤�������ͤ�passwd��¤
+ �Τǰʲ��Υ��Ф���ġ�
+
+ struct passwd
+ name # �桼��̾(ʸ����)
+ passwd # �ѥ����(ʸ����)
+ uid # �桼��ID(����)
+ gid # ���롼��ID(����)
+ gecos # gecos�ե������(ʸ����)
+ dir # �ۡ���ǥ��쥯�ȥ�(ʸ����)
+ shell # �������󥷥���(ʸ����)
+ # �ʹߤΥ��Фϥ����ƥ�ˤ�äƤ��󶡤���ʤ���
+ change # �ѥ�����ѹ�����(����)
+ quota # ��������(����)
+ age # ������(����)
+ class # �桼�������������饹(ʸ����)
+ comment # ������(ʸ����)
+ expire # ���������ͭ������(����)
+ end
+
+ �ܺ٤�getpwnam(3)�򻲾ȤΤ��ȡ�
+
+ getpwuid([uid])
+
+ uid��桼��ID�Ȥ���passwd����ȥ���֤�������ͤ�getpwnam()��
+ Ʊ�ͤǤ��롥�������ά�������ˤ�getuid()���ͤ��Ѥ��롥�ܺ٤�
+ getpwuid(3)�򻲾ȤΤ��ȡ�
+
+ getgrgid(gid)
+
+ /etc/group�ե�����(���뤤�ϡ�getpwnam����)�򸡺�����gid�򥰥롼
+ ��ID�Ȥ��륰�롼�ץ���ȥ���֤�������ͤ�group��¤�Τǰʲ���
+ ���Ф���ġ�
+
+ struct group
+ name # ���롼��̾(ʸ����)
+ passwd # ���롼�פΥѥ����(ʸ����)
+ gid # ���롼��ID(����)
+ mem # ���롼�ץ���̾������
+ end
+
+ �ܺ٤�getgrgid(3)�򻲾ȤΤ��ȡ�
+
+ getgrnam(name)
+
+ name�Ȥ���̾���Υ��롼�ץ���ȥ���֤�������ͤ�getgrgid()��Ʊ
+ �ͤǤ��롥�ܺ٤�getgrnam(3)�򻲾ȡ�
+
+ group
+
+ ���ƤΥ��롼�ץ���ȥ���˥����������뤿��Υ��ƥ졼����
+
+ passwd
+
+ ���Ƥ�passwd����ȥ���˥����������뤿��Υ��ƥ졼����
diff --git a/ext/etc/extconf.rb b/ext/etc/extconf.rb
new file mode 100644
index 0000000000..884de93ec8
--- /dev/null
+++ b/ext/etc/extconf.rb
@@ -0,0 +1,7 @@
+have_library("sun", "getpwnam") # NIS (== YP) interface for IRIX 4
+a = have_func("getlogin")
+b = have_func("getpwent")
+c = have_func("getgrent")
+if a or b or c
+ create_makefile("etc")
+end
generated by cgit v1.2.3 (git 2.25.1) at 2025-05-24 01:03:33 +0000