scalos/main/Test/testwbargs.c

   1 // TestWBArgs.c
   2 // 25 Apr 2001 17:28:53
   3
   4 #include <workbench/startup.h>
   5 #include <stdio.h>
   6 #include <stdlib.h>
   7 #include <proto/dos.h>
   8
   9
  10 int main(int argc, char *argv[])
  11 {
  12         char Path[512];
  13         struct WBStartup *Wbs;
  14         struct MsgPort *fsPort;
  15         ULONG n;
  16
  17         Wbs = (struct WBStartup *) argv;
  18
  19         if (argc > 0)
  20                 {
  21                 fprintf(stderr, "Please start this programn from Workbench\n");
  22                 return 5;
  23                 }
  24
  25         printf("NumArgs = %ld\n", Wbs->sm_NumArgs);
  26
  27         GetCurrentDirName(Path, sizeof(Path));
  28         printf("CurrentDir = <%s>\n", Path);
  29
  30         fsPort = GetFileSysTask();
  31         if (fsPort)
  32                 {
  33                 printf("default filesystem = <%s>\n", ((struct Task *) fsPort->mp_SigTask)->tc_Node.ln_Name);
  34                 }
  35
  36         for (n=0; n<Wbs->sm_NumArgs; n++)
  37                 {
  38                 struct WBArg *arg = &Wbs->sm_ArgList[n];
  39
  40                 NameFromLock(arg->wa_Lock, Path, sizeof(Path));
  41                 printf("arg[%ld]  Lock=%08lx <%s>  Name=<%s>\n", n, arg->wa_Lock, Path, arg->wa_Name);
  42                 }
  43 }
  44