about summary refs log blame commit diff stats
path: root/WWW/Library/Implementation/HTFTP.h
blob: a903bbb85593a08b9409347a9eb7b48cd963fcca (plain) (tree) 
bc0fa578 ^






































































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






































































                                                                                             
/*                                                               FTP access module for libwww
                                   FTP ACCESS FUNCTIONS

   This isn't really  a valid protocol module -- it is lumped together with HTFile . That
   could be changed easily.

   Author: Tim Berners-Lee.  Public Domain.  Please mail changes to timbl@info.cern.ch

 */
#ifndef HTFTP_H
#define HTFTP_H

#include <HTAnchor.h>
#include <HTStream.h>
#include <HTParse.h>

#ifdef __cplusplus
extern "C" {
#endif
#define FILE_BY_NAME 0
#define FILE_BY_TYPE 1
#define FILE_BY_SIZE 2
#define FILE_BY_DATE 3
    extern int HTfileSortMethod;	/* specifies the method of sorting */

/* PUBLIC						 HTVMS_name()
 *		CONVERTS WWW name into a VMS name
 * ON ENTRY:
 *	nn		Node Name (optional)
 *	fn		WWW file name
 *
 * ON EXIT:
 *	returns		vms file specification
 *
 * Bug:	Returns pointer to static -- non-reentrant
 */
    extern char *HTVMS_name(const char *nn,
			    const char *fn);

/*

Retrieve File from Server

  ON EXIT,

  returns                 Socket number for file if good.<0 if bad.

 */
    extern int HTFTPLoad(const char *name,
			 HTParentAnchor *anchor,
			 HTFormat format_out,
			 HTStream *sink);

/*
 *  This function frees any user entered password, so that
 *  it must be entered again for a future request. - FM
 */
    extern void HTClearFTPPassword(void);

/*

Return Host Name

 */
    extern const char *HTHostName(void);

#ifdef __cplusplus
}
#endif
#endif
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-12-13 13:16:23 +0000
n> "End Primitive Recipe Numbers") Recipe_ordinal["reply"] = REPLY; :(before "End Primitive Recipe Implementations") case REPLY: { // Starting Reply const instruction& reply_inst = current_instruction(); // save pointer into recipe before pop const string& callee = current_recipe_name(); --Callstack_depth; //? if (tb_is_active()) { //? 1 //? tb_clear(); //? 1 //? cerr << Recipe[Current_routine->calls.front().running_recipe].name << ' ' << current_step_index() << '\n'; //? 1 //? } //? 1 Current_routine->calls.pop_front(); // just in case 'main' returns a value, drop it for now if (Current_routine->calls.empty()) goto stop_running_current_routine; const instruction& caller_instruction = current_instruction(); // make reply results available to caller copy(ingredients.begin(), ingredients.end(), inserter(products, products.begin())); // check that any reply ingredients with /same-as-ingredient connect up // the corresponding ingredient and product in the caller. for (long long int i = 0; i < SIZE(caller_instruction.products); ++i) { //? cerr << Recipe[Current_routine->calls.front().running_recipe].name << '\n'; //? 1 trace(Primitive_recipe_depth, "run") << "result " << i << " is " << to_string(ingredients.at(i)); if (has_property(reply_inst.ingredients.at(i), "same-as-ingredient")) { vector<string> tmp = property(reply_inst.ingredients.at(i), "same-as-ingredient"); assert(SIZE(tmp) == 1); long long int ingredient_index = to_integer(tmp.at(0)); if (ingredient_index >= SIZE(caller_instruction.ingredients)) raise << current_recipe_name() << ": 'same-as-ingredient' metadata overflows ingredients in: " << caller_instruction.to_string() << '\n'; //? cerr << caller_instruction.products.size() << ' ' << i << ' ' << caller_instruction.ingredients.size() << ' ' << ingredient_index << '\n'; //? 1 //? cerr << caller_instruction.to_string() << '\n'; //? 1 if (!is_dummy(caller_instruction.products.at(i)) && caller_instruction.products.at(i).value != caller_instruction.ingredients.at(ingredient_index).value) raise << current_recipe_name() << ": 'same-as-ingredient' result " << caller_instruction.products.at(i).value << " from call to " << callee << " must be location " << caller_instruction.ingredients.at(ingredient_index).value << '\n'; } } break; // continue to process rest of *caller* instruction } //: Products can include containers and exclusive containers, addresses and arrays. :(scenario reply_container) recipe main [ 3:point <- f 2:literal ] recipe f [ 12:number <- next-ingredient 13:number <- copy 35:literal reply 12:point/raw # unsafe ] +run: result 0 is [2, 35] +mem: storing 2 in location 3 +mem: storing 35 in location 4 //: In mu we'd like to assume that any instruction doesn't modify its //: ingredients unless they're also products. The /same-as-ingredient inside //: the recipe's 'reply' will help catch accidental misuse of such //: 'ingredient-results' (sometimes called in-out parameters in other languages). :(scenario reply_same_as_ingredient) % Hide_warnings = true; recipe main [ 1:number <- copy 0:literal 2:number <- test1 1:number # call with different ingredient and product ] recipe test1 [ 10:address:number <- next-ingredient reply 10:address:number/same-as-ingredient:0 ] +warn: main: 'same-as-ingredient' result 2 from call to test1 must be location 1 :(scenario reply_same_as_ingredient_dummy) % Hide_warnings = true; recipe main [ 1:number <- copy 0:literal _ <- test1 1:number # call with different ingredient and product ] recipe test1 [ 10:address:number <- next-ingredient reply 10:address:number/same-as-ingredient:0 ] $warn: 0 :(code) string to_string(const vector<double>& in) { if (in.empty()) return "[]"; ostringstream out; if (SIZE(in) == 1) { out << in.at(0); return out.str(); } out << "["; for (long long int i = 0; i < SIZE(in); ++i) { if (i > 0) out << ", "; out << in.at(i); } out << "]"; return out.str(); } //: Conditional reply. :(scenario reply_if) recipe main [ 1:number <- test1 ] recipe test1 [ reply-if 0:literal, 34:literal reply 35:literal ] +mem: storing 35 in location 1 :(scenario reply_if2) recipe main [ 1:number <- test1 ] recipe test1 [ reply-if 1:literal, 34:literal reply 35:literal ] +mem: storing 34 in location 1 :(before "End Rewrite Instruction(curr)") // rewrite `reply-if a, b, c, ...` to // ``` // jump-unless a, 1:offset // reply b, c, ... // ``` if (curr.name == "reply-if") { assert(curr.products.empty()); curr.operation = Recipe_ordinal["jump-unless"]; curr.name = "jump-unless"; vector<reagent> results; copy(++curr.ingredients.begin(), curr.ingredients.end(), inserter(results, results.end())); curr.ingredients.resize(1); curr.ingredients.push_back(reagent("1:offset")); result.steps.push_back(curr); curr.clear(); curr.operation = Recipe_ordinal["reply"]; curr.name = "reply"; curr.ingredients.swap(results); } // rewrite `reply-unless a, b, c, ...` to // ``` // jump-if a, 1:offset // reply b, c, ... // ``` if (curr.name == "reply-unless") { assert(curr.products.empty()); curr.operation = Recipe_ordinal["jump-if"]; curr.name = "jump-if"; vector<reagent> results; copy(++curr.ingredients.begin(), curr.ingredients.end(), inserter(results, results.end())); curr.ingredients.resize(1); curr.ingredients.push_back(reagent("1:offset")); result.steps.push_back(curr); curr.clear(); curr.operation = Recipe_ordinal["reply"]; curr.name = "reply"; curr.ingredients.swap(results); }
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-12-13 13:16:17 +0000