gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

-version 1.41, 2008/07/10 19:59:41
+version 1.42, 2008/07/10 21:11:57
  Line 441  create gen-wrapped-types
      endif
      .\" }\n" ;
- : open-wrappers ( -- addr )
-     lib-filename 2@ s" .la" s+
-     \ 2dup cr type
-dup open-lib >r
-     drop free throw r> ;
  : scan-back { c-addr u1 c -- c-addr u2 }
      \ the last occurence of c in c-addr u1 is at u2-1; if it does not
      \ occur, u2=0.
- Line 478  create gen-wrapped-types
+ Line 472  create gen-wrapped-types
  : prepend-dirname ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 )
 over s+ 2swap drop free throw ;
+value libcc-path
+ here 1024 dup , 0 , allot to libcc-path \ !! the path words should grow buffers dynamically
+ libcc-path clear-path
+ libcc-named-dir libcc-path also-path
+ \ !! setup path on boot
+ : open-wrappers ( -- addr|0 )
+     lib-filename 2@ s" .la" s+
+dup libcc-named-dir string-prefix? if ( c-addr u )
+         \ see if we can open it in the path
+         libcc-named-dir nip /string
+         libcc-path open-path-file if
+exit endif
+         ( wfile-id c-addr2 u2 ) rot close-file throw save-mem ( c-addr2 u2 )
+     endif
+     \ 2dup cr type
+dup open-lib >r
+     drop free throw r> ;
  : c-library-name-setup ( c-addr u -- )
      assert( c-source-file-id @ 0= )
      { d: filename }