Roxen.git/
server/
etc/
modules/
Variable.pmod/
module.pmod
Branch:
Tag:
Non-build tags
All tags
No tags
2000-08-22
2000-08-22 23:39:18 by Per Hedbor <ph@opera.com>
be3631c72d72069b5cc586248f10fcd2b91f62ef (
26
lines) (+
24
/-
2
)
[
Show
|
Annotate
]
Branch:
5.2
\ -> / on NT.
Rev: server/etc/modules/Variable.pmod/module.pmod:1.5
589:
{ return file_stat( query() ); }
+
+
#ifdef __NT__
+
array verify_set( string value )
+
{
+
return ::verify_set( replace( value, "\\", "/" ) );
}
-
+
#endif
-
+
}
+
class Location //! A location in the virtual filesystem {
621:
array verify_set( string value ) {
+
#ifdef __NT__
+
value = replace( value, "\\", "/" );
+
#endif
+
if( strlen(value) && value[-1] != '/' )
+
value += "/";
if( !strlen( value ) ) return ::verify_set( value ); if( !(r_file_stat( value ) && (r_file_stat( value )[ ST_SIZE ] == -2 ))) return ({value+" is not a directory", value });
-
if( strlen(value) && value[-1] != '/' )
-
value += "/";
+
return ::verify_set( value ); }
966:
warn += vi+" is not a directory\n"; if( strlen(vi) && vi[-1] != '/' ) value = replace( value, vi, vi+"/" );
+
#ifdef __NT__
+
value = replace( value, vl, replace( vl, "\\", "/" ) );
+
#endif
} if( strlen( warn ) ) return ({ warn, value });
1070:
{ inherit List; constant type="FileList";
+
+
#ifdef __NT__
+
array verify_set( array(string) value )
+
{
+
return ::verify_set( map( value, replace, "\\", "/" ) );
}
-
+
#endif
+
}
// =====================================================================