Collection of Hack-Phreak Scene Programs/cleanhpvac.zip/cleanhpvac/QM95REAL.ZIP/SCRIPTS.Z/HOSTUTIL.QSC

Text File | 1995-08-24 | 2KB | 55 lines

' Utility routines for host mode.
'
' DO NOT COMPILE THIS FILE BY ITSELF!
'
' This file is a part of the complete HOST.QSC and will not compile
' alone.  To recompile the host scripts, select Scripts/Compile from
' the QmodemPro for Windows menu and select HOST.QSC in the "Compile
' script" dialog box.  This file will automatically be compiled as
' part of the full script.

const SecondsInDay = 86400

declare sub OemToChar lib "user32" alias "OemToCharA" (src as string, dest as string)
declare sub CharToOem lib "user32" alias "CharToOemA" (src as string, dest as string)
declare function CharUpper lib "user32" alias "CharUpperA" (s as string) as string

function FindLastBackslash(byval fn as string)
  dim i as integer
  i = len(fn)
  do while i > 0 and fn(i) <> "\" and fn(i) <> ":"
    i = i - 1
  loop
  FindLastBackslash = i
end function

function JustPathName(byval pathname as string) as string
  dim i as integer
  i = FindLastBackslash(pathname)
  JustPathName = left(pathname, i)
end function

function JustFilename(byval pathname as string) as string
  dim i as integer
  i = FindLastBackslash(pathname)
  JustFileName = mid(pathname, i+1)
end function

function AddBackSlash(byval dirname as string) as string
  dim i as integer
  i = len(dirname)
  if dirname(i) <> "\" then
    dirname = dirname + "\"
  end if
  AddBackSlash = dirname
end function

function OemUpper(byval s as string) as string
  dim buf as string
  buf = space(len(s))
  call OemToChar(s, buf)
  call CharUpper(buf)
  call CharToOem(buf, buf)
  OemUpper = buf
end function