home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / module / fservice.mod < prev    next >
Encoding:
Text File  |  1989-02-27  |  3.8 KB  |  107 lines
  1.  
  2. MODULE FServiceDemo;
  3.   (*---------------------------------------------------------------------*)
  4.   (*                  F I L E - S E R V I C E - D E M O                  *)
  5.   (*                           M 2 P R O L I B                           *)
  6.   (*  Copyright (C) 1987    Bühlmann Computer Software   CH-8636 WALD    *)
  7.   (*                     -- All Rights Reserved --                       *)
  8.   (*---------------------------------------------------------------------*)
  9.   (*  Author: X. Bühlmann                                                *)
  10.   (*                                                                     *)
  11.   (*  Version 1.0      Date: 05/01/88                                    *)
  12.   (*  Version 1.1      Date: 29/09/88  xb   Angepasst auf M2Prolib V3.03 *)
  13.   (*---------------------------------------------------------------------*)
  14.   FROM SYSTEM IMPORT WORD, ADR, ADDRESS, SIZE;
  15.   IMPORT Screen, ScreenNum, Input, InputNum, Ascii;
  16.   FROM SystemDef IMPORT aFileName;
  17.   FROM FileService IMPORT BuildToFileName, SplitFileName, SplitName, 
  18.       BuildToArg, BuildToDir, SplitDir;
  19.   (*
  20.     *)
  21.   PROCEDURE Copyright();
  22.     BEGIN
  23.       Screen.ClearScrBound();
  24.       Screen.ScrWriteLn();
  25.       Screen.ScrPutString(
  26.           '              F I L E - S E R V I C E - D E M O    Version 1.1 ');
  27.       Screen.ScrWriteLn();
  28.       Screen.ScrPutString(
  29.           '                           1 9 8 8                 ');
  30.       Screen.ScrWriteLn();
  31.       Screen.ScrWriteLn();
  32.       Screen.ScrPutString(
  33.           '                         Copyright by           ');
  34.       Screen.ScrWriteLn();
  35.       Screen.ScrPutString(
  36.           '                 (c) Bühlmann Computer Software    ');
  37.       Screen.ScrWriteLn();
  38.       Screen.ScrPutString(
  39.           '                         CH-8636 Wald              ');
  40.       Screen.ScrWriteLn();
  41.     END Copyright;
  42.   PROCEDURE charOK(VAR chr : CHAR): BOOLEAN;
  43.     BEGIN
  44.       chr := CAP(chr);
  45.       RETURN TRUE;
  46.     END charOK;
  47.   VAR
  48.     FileName, Dir, Name, Ext : aFileName;
  49.     Drive : CHAR;
  50.   BEGIN
  51.     Copyright();
  52.     FileName := '';
  53.     Input.CharOK := charOK;
  54.     Screen.ScrWriteLn();
  55.     Screen.ScrPutString(
  56.         'Drive, Directory und File-Name eingeben (z.B. C:\VERSUCH\VERSUCH.TXT): ');
  57.     Screen.ScrWriteLn();
  58.     Input.ReadString(FileName);
  59.     Screen.ScrWriteLn();
  60.     (**)
  61.     Screen.ScrPutString('Eingabe aufgetrennt in Drive, Pfad und Filename');
  62.     Screen.ScrWriteLn();
  63.     SplitName(FileName, Drive, Dir, Name);
  64.     Screen.ScrPutChar(Drive);
  65.     Screen.ScrPutString('   ');
  66.     Screen.ScrPutString(Dir);
  67.     Screen.ScrPutString('   ');
  68.     Screen.ScrPutString(Name);
  69.     Screen.ScrWriteLn();
  70.     (**)
  71.     Screen.ScrPutString('Filename aufgetrennt in Filename und Extension');
  72.     Screen.ScrWriteLn();
  73.     SplitFileName(Name, Name, Ext);
  74.     Screen.ScrPutString(Name);
  75.     Screen.ScrPutString('   ');
  76.     Screen.ScrPutString(Ext);
  77.     Screen.ScrPutString('   ');
  78.     Screen.ScrWriteLn();
  79.     (**)
  80.     Screen.ScrPutString('Extension von Filename ersetzen durch BAT');
  81.     Screen.ScrWriteLn();
  82.     BuildToFileName('BAT', FileName);
  83.     Screen.ScrPutString(FileName);
  84.     Screen.ScrWriteLn();
  85.     (**)
  86.     Screen.ScrPutString('Letztes Directory vom Pfad abtrennen');
  87.     Screen.ScrWriteLn();
  88.     SplitDir(Dir, Dir);
  89.     Screen.ScrPutString(Dir);
  90.     Screen.ScrWriteLn();
  91.     (**)
  92.     Screen.ScrPutString(
  93.         'Aus Drive und Pfad und Directory TEST neuer Pfad erzeugen');
  94.     Screen.ScrWriteLn();
  95.     FileName := 'TEST';
  96.     BuildToDir(Drive, Dir, FileName);
  97.     Screen.ScrPutString(FileName);
  98.     Screen.ScrWriteLn();
  99.     (**)
  100.     Screen.ScrPutString('Neuer Pfad und Filename erzeugen');
  101.     Screen.ScrWriteLn();
  102.     FileName := 'TEST';
  103.     BuildToArg(Drive, Dir, Name, FileName);
  104.     Screen.ScrPutString(FileName);
  105.     Screen.ScrWriteLn();
  106.   END FServiceDemo.
  107.