.CM  SCRIPT , Version - 1.1 , last edited by M.Rathmann
.ad 8
.bm 8
.fm 4
.bt $Copyright by   SAP AG, 1998$$Page %$
.tm 12
.hm 6
.hs 3
.TT 1 $SQL$Project Distributed Database System$VIN60$
.tt 2 $$$
.TT 3 $$os_filenames$1998-06-19$
***********************************************************
.nf


    ========== licence begin LGPL
    Copyright (C) 2000 SAP AG

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    ========== licence end

.fo
.nf
.sp
MODULE  : os_filenames
=========
.sp
Purpose : operating system specific names for all files
          that are created by dialog components
.CM *-END-* purpose -------------------------------------
.sp
.cp 3
Define  :
 
        PROCEDURE
              i60osfilename (sf : tin_standardfiles;
                    VAR fn : tsp_vfilename);
 
        PROCEDURE
              i60osname(VAR osn : tsp_sname);
              (* 89/08/04 B.M. *)
 
.CM *-END-* define --------------------------------------
.sp;.cp 3
Use     :
 
        FROM
              RTE-Extension-10 : VSP10;
 
        PROCEDURE
              s10fil (size : tsp_int4;
                    VAR m : tsp_vfilename;
                    pos : tsp_int4;
                    len : tsp_int4;
                    fillchar : char);
 
        PROCEDURE
              s10mv1(size1 : tsp_int4; size2 : tsp_int4;
                    VAR buf1 : tsp_c20; p1 : tsp_int4;
                    VAR buf2 : tsp_vfilename;  p2 : tsp_int4;
                    anz : tsp_int4);
 
      ------------------------------ 
 
        FROM
              RTE_driver : VEN102;
 
        PROCEDURE
              sqlos (VAR os : tsp_os);
&       ifdef TRACE
 
      ------------------------------ 
 
        FROM
              Test_Procedures: VMT90;
 
        PROCEDURE
              m90int (layer : tsp_layer;
                    nam : tsp_sname;
                    int : integer);
&       endif
 
.CM *-END-* use -----------------------------------------
.sp;.cp 3
Synonym :
 
        PROCEDURE
              s10fil;
 
              tsp_moveobj tsp_vfilename
 
        PROCEDURE
              s10mv1;
 
              tsp_moveobj tsp_c20
              tsp_moveobj tsp_vfilename
 
        PROCEDURE
              sqlos;
 
              tsp00_Os tsp_os
 
.CM *-END-* synonym -------------------------------------
.sp;.cp 3
Author  : 
.sp
.cp 3
Created : 1988-04-22
.sp
.cp 3
Version : 1998-06-19
.sp
.cp 3
Release :      Date : 1998-06-19
.sp
***********************************************************
.sp
.cp 10
.fo
.oc _/1
Specification:
 
.sp
.CM *-END-* specification -------------------------------
.sp 2
***********************************************************
.sp
.cp 10
.fo
.oc _/1
Description:
 
 
.CM *-END-* description ---------------------------------
.sp 2
***********************************************************
.sp
.cp 10
.nf
.oc _/1
Structure:
 
.CM *-END-* structure -----------------------------------
.sp 2
**********************************************************
.sp
.cp 10
.nf
.oc _/1
.CM -lll-
Code    :
 
 
(*------------------------------*) 
 
PROCEDURE
      i60osfilename (
            sf     : tin_standardfiles;
            VAR fn : tsp_vfilename);
 
VAR
      shortname : tsp_c20;
      os        : tsp_os;
 
BEGIN
s10fil (mxsp_vfilename, fn, 1, mxsp_vfilename, bsp_c1);
sqlos (os);
&ifdef TRACE
m90int (vin, 'ord (sqlos) ', ord (os));
&endif
CASE os OF
    os_unix :
        CASE sf OF
            tracefile :
                shortname := 'ddb4.prot           ';
            loadprotfile :
                shortname := 'load.prot           ';
            dbloadlogfile :
                shortname := 'dbload.log          ';
            dbextractlogfile :
                shortname := 'dbextract.log       ';
            installprotfile :
                shortname := 'install.prot        ';
            dialogprotfile :
                shortname := 'sqlpl.prot          ';
            queryprotfile :
                shortname := 'query.prot          ';
            xuserfile :
                shortname := '.XUSER              ';
            xparamfile :
                shortname := '.XPARAM             ';
            testprotfile:  (* B.M. 88-11-30 *)
                shortname := 'test.prot           ';
            END;
        (*ENDCASE*) 
    os_vms :
        CASE sf OF
            tracefile :
                shortname := 'RVX_UTIL_DN         ';
            loadprotfile :
                shortname := 'RVX_LOAD_DN         ';
            dbloadlogfile :
                shortname := 'RVX_DBLOADLOG_DN    ';
            dbextractlogfile :
                shortname := 'RVX_DBEXTRACTLOG_DN ';
            installprotfile :
                shortname := 'RVX_INSTALL_DN      ';
            dialogprotfile :
                shortname := 'RVX_SQLPL_DN        ';
            queryprotfile :
                shortname := 'RVX_QUERY_DN        ';
            xuserfile :
                shortname := 'RVX_USER_DN         ';
            xparamfile :
                shortname := 'RVX_PARAM_DN        ';
            testprotfile:  (* B.M. 88-11-30 *)
                shortname := 'RVX_TEST_DN         ';
            END;
        (*ENDCASE*) 
    os_windows, os_win32, os_os2 :
        CASE sf OF
            tracefile :
                shortname := 'DDB4.PRT            ';
            loadprotfile :
                shortname := 'LOAD.PRT            ';
            dbloadlogfile :
                shortname := 'DBLOAD.LOG          ';
            dbextractlogfile :
                shortname := 'DBEXTRACT.LOG       ';
            installprotfile :
                shortname := 'INSTALL.PRT         ';
            dialogprotfile :
                shortname := 'SQLPL.PRT           ';
            queryprotfile :
                shortname := 'QUERY.PRT           ';
            xuserfile :
                shortname := 'XUSER.DAT           ';
            xparamfile :
                shortname := 'XPARAM.DAT          ';
            testprotfile:  (* B.M. 88-11-30 *)
                shortname := 'TEST.PRT            ';
            END;
        (*ENDCASE*) 
    END;
(*ENDCASE*) 
s10mv1 (20, mxsp_vfilename, shortname, 1, fn, 1, 20);
END; (* i60osfilename *)
 
(* 89/08/04 B.M. *)
(*------------------------------*) 
 
PROCEDURE
      i60osname (
            VAR osn : tsp_sname);
 
VAR
      os        : tsp_os;
 
BEGIN
sqlos (os);
CASE os OF
    os_unix:
        osn := 'Unix        ';
    os_vms:
        osn := 'VMS         ';
    os_windows :
        osn := 'WINDOWS     ';
    os_win32 :
        osn := 'WIN32       ';
    os_os2:
        osn := 'OS/2        ';
    END;
(*ENDCASE*) 
END; (* i60osname *)
 
.CM *-END-* code ----------------------------------------
.SP 2 
***********************************************************
*-PRETTY-*  statements    :         45
*-PRETTY-*  lines of code :        121        PRETTYX 3.10 
*-PRETTY-*  lines in file :        272         1997-12-10 
.PA 
