remove warnings, reordering
[software/python-on-guile.git] / modules / language / python / module / os.scm
index a17cc861756c9244f510b59ed267125e609d422b..17edfed6049c9eed3659c682003e3d7008e5e108 100644 (file)
@@ -27,8 +27,8 @@
   #:use-module (language python module resource)
                
   #:use-module (language python list)
   #:use-module (language python module resource)
                
   #:use-module (language python list)
-  #:replace (getcwd getuid getenv stat)
-  #:export (error name ctermid environ environb chdir fchdir 
+  #:replace (getcwd getuid getenv stat environ)
+  #:export (error name ctermid environb chdir fchdir 
                   fsencode fdencode fspath PathLike getenvb
                   get_exec_path getgid getegid geteuid fdopen
                   getgroups getgrouplist getlogin getpgid getpgrp getpid
                   fsencode fdencode fspath PathLike getenvb
                   get_exec_path getgid getegid geteuid fdopen
                   getgroups getgrouplist getlogin getpgid getpgrp getpid
 (defineu stat (0 2)
   (let ((f (pointer->procedure int
                                (dynamic-func "__fxstatat" (dynamic-link))
 (defineu stat (0 2)
   (let ((f (pointer->procedure int
                                (dynamic-func "__fxstatat" (dynamic-link))
-                               (list int int '* '* int)))
-        (g (pointer->procedure '*
-                               (dynamic-func "scm_stat2scm_" (dynamic-link))
-                               '(*))))
+                               (list int int '* '* int))))
     (lam (path (= dir_fd None) (= follow_symlinks #t))
       (if (number? path)
           (ca (stat_result ((@ (guile) stat) path)))
     (lam (path (= dir_fd None) (= follow_symlinks #t))
       (if (number? path)
           (ca (stat_result ((@ (guile) stat) path)))
                          bvp
                          (if follow_symlinks
                              0
                          bvp
                          (if follow_symlinks
                              0
-                             AT_SYMLINK_NOFOLLOW)))
-                  (stat_result (ca (pointer->scm (g bvp)))))))))))
+                             AT_SYMLINK_NOFOLLOW)))                  
+                  (stat_result (error "not implemented")))))))))
 
 (define lstat
   (lambda* (path #:key (dir_fd None))
 
 (define lstat
   (lambda* (path #:key (dir_fd None))