File: type.c

package info (click to toggle)
moxftp 2.2-18.1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 4,160 kB
  • ctags: 3,837
  • sloc: ansic: 43,420; makefile: 353; perl: 262; sh: 192
file content (129 lines) | stat: -rw-r--r-- 3,332 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
/*
 * Copyright (c) 1992 The Regents of the University of Texas System.
 * Copyright (c) 1993 The Regents of the University of Texas System.
 * Copyright (c) 1994 The Regents of the University of Texas System.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted provided
 * that the above copyright notice and this paragraph are duplicated in all
 * such forms and that any documentation, advertising materials,  and other
 * materials  related to such  distribution  and use  acknowledge  that the
 * software  was  developed  by the  University of Texas.  The  name of the
 * University may not be  used to endorse or promote  products derived from
 * this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
 * MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

#ifndef lint
static char copyright[] =
"@(#) Copyright (c) 1993 The Regents of the University of Texas System.\n\
 All rights reserved.\n";
static char rcsid[] =
"$Id: type.c,v 1.1 1994/03/14 18:55:53 jones Exp $\n";
static char rcspath[] =
"$Source: /mintaka/u0/xx/ss/jones/jones.old/mftp.src/mftpnew/RCS/type.c,v $\n";
#endif

/* $Log: type.c,v $
 * Revision 1.1  1994/03/14  18:55:53  jones
 * Initial revision
 *
 */

#include "defs.h"
#include "proto/type.h"

static char *type_name = NULL;
static int   set_default = 0;

void 
Start_Type(echo, t, flag, callback, data, cb)
int    echo;
char  *t; 
int    flag;
void (*callback)();
DATA   data;
CB    *cb;
{
    char *cp = NULL;
    char *T;
    CB *cbp;

    cp = concat(cp, "TYPE ");
    if (type_name) XtFree(type_name);
    if (*t == 'i') {
	type_name = XtNewString("binary");
	T = "I";
    } else if (*t == 'b') {
	type_name = XtNewString("binary");
	T = "I";
    } else if (*t == 'a') {
	type_name = XtNewString("ascii");
	T = "A";
    } else if (*t == 't') {
	T = "T";
	type_name = XtNewString("tenex");
    } else  {
	T = "A";
	type_name = XtNewString("ascii");
    }

    cp = concat(cp, T);
    set_default = flag;

    cbp = link_callback(NULL, callback, data, cb);
    write_ftp(cp, status,  finish_type, NULL, 0, echo, (DATA)cbp);
    XtFree(cp);
}

static void 
finish_type(output, tag, data)
struct _output *output;
int  tag;
DATA data;
{
    int  code;
    extern default_transfer_mode;

    code =  ftp_status(output);

    if (ftp_response[code].status & FTP_ERROR)  {
	Set_Status("Type command failed");
        set_default =  0;
    } else {
        if (*type_name == 'b' ) {
	    transfer_mode = MODE_T_BINARY;
        } else if (*type_name == 'a') {
	    transfer_mode = MODE_T_ASCII;
        } else if (*type_name == 'i') {
	    transfer_mode = MODE_T_BINARY;
        } else if (*type_name == 't') {
	    transfer_mode = MODE_T_TENEX;
        } else {
	    transfer_mode = 0;
	}
    }
    if (set_default) default_transfer_mode = transfer_mode;
    set_default = 0;
    if (type_name) XtFree(type_name);
    type_name = NULL;
    Set_Info();
    Set_Status(" ");
    do_callbacks(1, (CB*)data);
}

static void
status(command, tag)
char *command;
int   tag;
{
    char *cp = NULL;

    cp = concat(cp, "Setting mod to ");
    cp = concat(cp, type_name);
    Set_Status(cp);
    XtFree(cp);
}